Kauppa ja pankkiesimerkki

Oletko tehnyt jotain, mistä muut voisivat hyötyä. Postita vinkit tänne.
Post Reply
FuJi
Member
Posts: 70
Joined: Tue Aug 28, 2007 3:09 pm

Kauppa ja pankkiesimerkki

Post by FuJi » 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.

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 
 
Jos tämä ei toimi niin ilmoittakaa. Palaute on myös tervetullutta ;)

User avatar
otto90x
Advanced Member
Posts: 349
Joined: Mon Aug 27, 2007 9:00 pm
Location: Lapinjärvi, Finland
Contact:

Re: Kauppa ja pankkiesimerkki

Post by otto90x » Sat Sep 08, 2007 8:19 pm

No olethan sinä tuossa vähän saanut tutustua siihen miten coolbasic toimii, mutta suosittelen kuitenkin mieluummin käyttämään taulukoita tai tyyppejä.

Tässä sama ilman pankkipalveluja ja paljon helpommin hallittavana ja ennenkaikkea siistimpänä ja lyhyenä.

Code: Select all

SCREEN 800,600

raha# = 5000.0 //rahaa aloitettaessa

esinetiedot$="näyttö,225.50 näppäimistö,19.95 tulostin,129 hiiri,59.90"

esinemäärä=Int(CountWords(esinetiedot))

Dim esine(esinemäärä,2) As String

Const HINTA = 1
Const NIMI = 0
Const MÄÄRÄ = 2


For i=1 To esinemäärä
    txt$=GetWord(esinetiedot$,i)
    esine(i,HINTA)=GetWord(txt$,2,",")
    esine(i,NIMI)=GetWord(txt$,1,",")
    esine(i,MÄÄRÄ)=0
Next i


Repeat //pääsilmukka

    Text 250,20,"Rahaa jäljellä :"+raha#+"e"

    For i=1 To esinemäärä
    
        Text 20,20*i,esine(i,NIMI)+" "+Float(esine(i,HINTA))+"e "+": "+Int(esine(i,MÄÄRÄ))
    
        If KeyHit(1+i) And Float(esine(i,HINTA))<=raha#  Then 
            esine(i,MÄÄRÄ)=Int(Int(esine(i,MÄÄRÄ))+1)
            raha#=raha#-Float(esine(i,HINTA))
        EndIf
    Next i

    DrawScreen
Forever 
Otto Martikainen a.k.a. MetalRain, otto90x, kAATOSade.
Runoblogi, vuodatusta ja sekoiluja.

ihannyyppä
Newcomer
Posts: 47
Joined: Tue Oct 16, 2007 5:28 pm
Location: Varkaus
Contact:

Re: Kauppa ja pankkiesimerkki

Post by ihannyyppä » Sun Oct 21, 2007 4:51 pm

Mitenkäs sitten se myynti puoli?

Nyt olette tehneet tavaroiden oston mutta entäs niiden myynti? :roll:


Toisaalta tämän kommentin voitte unohtaa sillä itse en osaisi tehdä edes tällaisia ;)
Valmiit pelit: 0 muahaha
Projekteina:
Vivarium (beta saattaa tulla lähi-aikoina)
Crusher Bastard (vasta suunnitteluvaiheessa)
Rattijuoppo (Projekti jäässä)

FuJi
Member
Posts: 70
Joined: Tue Aug 28, 2007 3:09 pm

Re: Kauppa ja pankkiesimerkki

Post by FuJi » Mon Oct 22, 2007 5:25 pm

ihannyyppä wrote:Mitenkäs sitten se myynti puoli?

Nyt olette tehneet tavaroiden oston mutta entäs niiden myynti? :roll:


Toisaalta tämän kommentin voitte unohtaa sillä itse en osaisi tehdä edes tällaisia ;)
Meinaat pyytää toisia tekemään pelisi?
Opettele CoolBasicia ennen kun rupeat pelejä tekemään tuollainen myynti ominaisuus on aika helppo toteuttaa ; )

ihannyyppä
Newcomer
Posts: 47
Joined: Tue Oct 16, 2007 5:28 pm
Location: Varkaus
Contact:

Re: Kauppa ja pankkiesimerkki

Post by ihannyyppä » Sun Oct 28, 2007 4:08 pm

FuJi wrote:
ihannyyppä wrote:Mitenkäs sitten se myynti puoli?

Nyt olette tehneet tavaroiden oston mutta entäs niiden myynti? :roll:


Toisaalta tämän kommentin voitte unohtaa sillä itse en osaisi tehdä edes tällaisia ;)
Meinaat pyytää toisia tekemään pelisi?
Opettele CoolBasicia ennen kun rupeat pelejä tekemään tuollainen myynti ominaisuus on aika helppo toteuttaa ; )
Nythän on selvästikkin niin että minut tulkittiin väärin,
en ole pyytämässä toisilta tekemään itselleni mitään peliä valmiiksi!!!

Minä vain kattelin ja testasin noita ja tuli vain mieleeni sellanen myyntipuoli joskos niitä voisi myydäkin!!!
Ei ole mitään taka-ajatuksia!!! :x
Valmiit pelit: 0 muahaha
Projekteina:
Vivarium (beta saattaa tulla lähi-aikoina)
Crusher Bastard (vasta suunnitteluvaiheessa)
Rattijuoppo (Projekti jäässä)

Post Reply