Koodi:
Code: Select all
//Jako- ja kertolaskuja:
//Alku. Tähän voi myöhemmin palata komennolla Goto
alku:
//Luodaan silmukka "valikolle" (Repeat)
Repeat
Color cbWhite
//Tekstiä
Text 0,0, "Jako- ja kertolaskupeli v.1.1"
Text 0,50, "Paina enter aloittaaksesi tai ESC poistuaksesi"
Text 0,100, "Huom! piste = pilkku (esim. 3,5 -> 3.5)"
//Ehto: JOS painetaan ENTER niin MENE kohtaan "laskut"
If KeyHit(28) Then
//Menään "teleportilla" laskuihin :D
Goto laskut
//Nollataan painetut näppäimet
ClearKeys
EndIf
//Piirretään näyttö
DrawScreen
//Silmukan lopetus, loppuu muutenkin kun mennään kohtaan "laskut"
Until EscapeKey()
//Tässä sitten "teleportin pää", laskut
laskut:
Color cbWhite
//Uusi silmukka jokaiselle laskulle
Repeat
//Ensimmäinen input -kenttä, lasku on "3.763 kertaa 10"
//Laitetaan inputin nimeksi "a$"
a$=Input ("Paljonko on 3.763 x 10? ")
//Kuten aina, piirretään näyttö
DrawScreen
//Poistutaan silmukasta ENTERillä
Until KeyHit(28)
//Suljetaan edellinen input -kenttä
CloseInput
//Ja edellinen uudestaan...
Repeat
b$=Input ("Paljonko on 5.386 : 10? ")
DrawScreen
Until KeyHit(28)
CloseInput
Repeat
c$=Input ("Paljonko on 452.4 : 100? ")
DrawScreen
Until KeyHit(28)
CloseInput
Repeat
d$=Input ("Paljonko on 34.529 : 10? ")
DrawScreen
Until KeyHit(28)
CloseInput
//Ja uudestaan...
Repeat
e$=Input ("Paljonko on 7.342 : 10? ")
DrawScreen
Until KeyHit(28)
CloseInput
Repeat
f$=Input ("Paljonko on 4.237 x 100? ")
DrawScreen
Until KeyHit(28)
CloseInput
Repeat
g$=Input ("Paljonko on 62.73 : 10? ")
DrawScreen
Until KeyHit(28)
CloseInput
//Tehdään uusi silmukka laskujen tarkistamista varten...
//JOS a$= 37.63 (tulos) JA b$= 0.5386 jne. NIIN "Kaikki oikein"
If a$="37.63" And b$="0.5386" And c$="4.524" And d$="3.4529" And e$="0.7342" And f$="423.7" And g$="6.273" Then
//JOS kaikki oikein NIIN:
Repeat
//Vihreää...
Color cbGreen
//...tekstiä
Text 0,0, "Kaikki oikein! Mahtavaa!"
Text 0,20, "Poistu painamalla ESC"
//Piirrä näyttö
DrawScreen
Until EscapeKey()
//MUUTEN: (JOS kaikki ei ole oikein)
Else
//Uusi silmukka
Repeat
//Ja nyt punaista...
Color cbRed
//Tekstiä
Text 0,0, "Joku lasku oli väärin."
Text 0,20, "Yritä uudelleen painamalla ENTER"
Text 0,40, "Poistu painamalla ESC"
//Piirrä näyttö
DrawScreen
//JOS ENTER on pohjassa NIIN MENE alkuun (Goto alku, kts. ylhäällä)
Until KeyHit(28)
Goto laskut
//Lopeta JOS
EndIf
//Joo
//-----------------
//Eli simppeli ohjelma yksinkertaisille laskutoimituksille
//www.coolbasic.com