Re: Euromuunto

[vastaus aiempaan viestiin]

Kirjoittaja: Seppo Mustonen
Sähköposti:    -
Päiväys: 3.8.2001 17:58

Kun siirsin sukron kokeeksi toimimaan suoraan pehmonapistosta, jolloin
painallusten F2 M E asemasta riittää "E-nappulan" näpäytys hiirellä,
havaitsin, että kovasti rivin loppupäässä olevat muunnosyritykset
epäonnistuvat. Syynä on se, että sukro avaa pyöristyslaskelmaa
varten tilapäisesti uuden tyhjän rivin ja tuo laskelma saattaa
valua ruudusta ulos.
Tämän saa kuitenkin helposti korjatuksi lisäämällä {line start}-
koodin 8. viimeiselle riville.
Parannettu versio on siis seuraava:

DELETE / Vie kohdistin kontrollisarakkeeseen ja aktivoi tämä!
*TUTSAVE <Survo>\U\S\E / Sitten talleta sukro E tällä komennolla!
/
/  def Weuro=W1 Wyksikkö=W2 Wmäärä=W3
/
*{tempo -1}{init}{Weuro=5.94573}{ref}
+ A: {save char W4}
- if W4 '<>' {sp} then goto B
*{l}{save cursor W4,W5}
- if W5 = 1 then goto C else goto A
+ B: {save word Wyksikkö}
+ D: {l}{save char W4}
- if W4 '=' {sp} then goto E
*{save cursor W4,W5}
- if W5 = 1 then goto C else goto D
+ E: {l}{save char W4}
- if W4 '<>' {sp} then goto F
*{save cursor W4,W5}
- if W5 = 1 then goto C else goto E
+ F: {save word Wmäärä}
- if Wmäärä <= 0 then goto C
- switch Wyksikkö
-   case mk: goto MK
-   case MK: goto MK
-   case FIM: goto MK
-   case fim: goto MK
-   case e: goto EU
-   case E: goto EU
-   case EUR: goto EU
-   case eur: goto EU
-   default: goto C
+ MK: {W4=1}{Wmäärä=Wmäärä/Weuro}{goto G}
+ EU: {W4=2}{Wmäärä=Wmäärä*Weuro}
+ G: {d}{u}{ins line}{line start}int(100*{print Wmäärä}+0.5)/100={act}
*{l} {save word Wmäärä}{del line}
*{ref}{ref}{ins} ({write Wmäärä} {}
- if W4 = 1 then goto MK2
*mk){ins}{goto END}
+ MK2: e){ins}{goto END}
+ C: {ref}{ref}{goto END}
+ END: {tempo +1}{end}

- Seppo M.

Vastaukset:

Survo-keskustelupalstan (2001-2013) viestit arkistoitiin aika ajoin sukrolla, joka automaattisesti rakensi viesteistä (yli 1600 kpl) HTML-muotoisen sivukokonaisuuden. Vuoden 2013 alusta Survo-keskustelua on jatkettu entistäkin aktiivisemmin osoitteessa forum.survo.fi. Tervetuloa mukaan!

Etusivu  |  Keskustelu
Copyright © Survo Systems 2001-2013. All rights reserved.
Updated 2013-06-15.