Kauppa ja pankkiesimerkki
Posted: Sat Sep 08, 2007 7:35 pm
Oli tylsää joten väsäsin tällaisen esimerkkikoodin kauppa ja pankki toimintojen tekoon.
Kaupasta voi ostaa erilaisia tavaroita ja pankista voi lainata rahaa ja tallettaa rahaa.
Tämä esimerkki muodostuu if ehtolauseista.
Jos tämä ei toimi niin ilmoittakaa. Palaute on myös tervetullutta
Kaupasta voi ostaa erilaisia tavaroita ja pankista voi lainata rahaa ja tallettaa rahaa.
Tämä esimerkki muodostuu if ehtolauseista.
Code: Select all
SCREEN 800,600
raha = 5000 //rahaa aloitettaessa
velka = 0 //paljonko on otettu lainaa
talletettu = 0 //paljonko rahaa talletettu pankkiin
//tuotteiden muuttujat
//jos muuttujassa oleva numero on 2 tuetetta ei ole ostettu
//jos taas muuttujassa oleva numero on 1 tuote on ostettu ja se näkyy ostettujen listassa
tietokone = 2
näyttö = 2
kaijuttimet = 2
hiiri = 2
näppäimistö = 2
tulostin = 2
Repeat //pääsilmukka
//tuotteiden ostossa käytetään numeronäppäimiä
If KeyHit(cbKey1) Then
If raha > 0 Then //jos rahat ei riitä ostaminen epäonnistuu
tietokone = 1 //laitetaan tietokone ostetuksi
raha -1000 //vähennetään rahaa
hinta = 1000 //määritetään hinta rahojen riittävyyden vuoksi
Else
EndIf
EndIf
//sitten tehdään sama uudestaan jokaiselle tuotteelle
If KeyHit(cbKey2) Then
If raha > 0 Then
näyttö = 1
raha -200
hinta = 200
Else
EndIf
EndIf
If KeyHit(cbKey3) Then
If raha > 0 Then
kaijuttimet = 1
raha -50
hinta = 50
Else
EndIf
EndIf
If KeyHit(cbKey4) Then
If raha > 20 Then
hiiri = 1
raha -30
hinta = 30
Else
EndIf
EndIf
If KeyHit(cbKey5) Then
If raha > 0 Then
näppäimistö = 1
raha -50
hinta = 50
Else
EndIf
EndIf
If KeyHit(cbKey6) Then
If raha > 100 Then
tulostin = 1
raha -150
hinta = 150
Else
EndIf
EndIf
If KeyHit(cbKeyL) Then
If velka < 25000 Then //estetään rahan liiallinen lainaus
raha +1000
velka +1000
Else
EndIf
EndIf
If KeyHit(cbKeyM) Then
If velka > 0 Then //jos ei olla velkaa, velkaa ei voida maksaa
raha -1000
velka -1000
Else
EndIf
EndIf
If KeyHit(cbKeyT) Then
If raha > 0 Then //jos rahaa ei ole tarpeeksi talletus epäonnistuu
talletettu +1000
raha -1000
Else
EndIf
EndIf
If KeyHit(cbKeyO) Then
If talletettu > 0 Then
raha +1000
talletettu -1000
Else
EndIf
EndIf
//muutetaan tekstin väri
Color cbRed
//tulostetaan tekstit
Text 10,10, "Tuotteita voit ostaa käyttämällä numeronäppäimiä."
Text 10,40, "Rahaa: " +raha+ "e"
Text 10,60, "Velkaa: " +velka+ "e"
Text 10,80, "Talletettu: " +talletettu+ "e"
Text 10,120, "1 = Tietokone 1000e"
Text 10,140, "2 = Näyttö 200e"
Text 10,160, "3 = Kaijuttimet 50e"
Text 10,180, "4 = Hiiri 30e"
Text 10,200, "5 = Näppäimistö 50e"
Text 10,220, "6 = Tulostin 150e"
Text 200,160, "L = Ota lainaa"
Text 200,120, "T = Talleta rahaa"
Text 200,140, "O = Ota rahaa"
If velka > 0 Then //jos on otettu velkaa näytetään velan mukso nappi
Text 200,180, "M = Maksa lainaa"
EndIf
//tulostetaan lista ostetuista tuotteista
Text 10,320, "Ostetut tuotteet:"
//jos tietokone on ostettu,...
If tietokone = 1 Then
Text 10,350, "Tietokone"
Else //...jos taas ei tulosteta mitään
EndIf
//sama juttu tehdään myös muille
If näyttö = 1 Then
Text 10,370, "Näyttö"
Else
EndIf
If kaijuttimet = 1 Then
Text 10,390, "Kaijuttimet"
Else
EndIf
If hiiri = 1 Then
Text 10,410, "Hiiri"
Else
EndIf
If näppäimistö = 1 Then
Text 10,430, "Näppäimistö"
Else
EndIf
If tulostin = 1 Then
Text 10,450, "Tulostin"
Else
EndIf
DrawScreen
Forever