Keskustelu: Ohjelmointikysymykset: VB6: Potti.textistä pitäisi saada (rahat) omiin rahoihin tai vastustajan

'ekaks moduuliin vaikkapa näin..
Global Potti As Variant, pelaaja As Integer, panos As Variant, orahat As Variant, vrahat As Variant

'ja sit aliohjelmat...
Private Sub Satsaus_aliohjelma
 'Potti kasvaa...
 Select Case pelaaja
  Case 0: 'omat rahat vähenee
   orahat = orahat - panos: omatr.Text = Str$(orahat)
  Case 1: 'vastustajan rahat vähenee
   vrahat = vrahat - panos: vastr.Text = Str$(vrahat)
  End Select
   Potti = Potti + panos: Potti.Text = Str$(Potti)
 End Sub

Private Sub Voitto_aliohjelma
  'Potti tyhjenee...
 Select Case pelaaja
  Case 0 'jos voittaa itse
   orahat = orahat + Potti: Potti = 0: omatr.Text = Str$(orahat)
  Case 1 'jos vatustaja voitaa
   vrahat = vrahat + Potti: Potti = 0: vastr.Text = Str$(vrahat)
 End Select
   Potti.Text = ""
End Sub

Dim potti_luku As Integer, omatrahat As Integer  'tarvitaan pari muuttujaa, potin oma luku sekä omatrahat

Private Sub Command1_Click()
    onkorahaa 'mennään tarkistamaan onko meillä rahaa enään pelaamista varten
    pelaas 'hypätään aliohjelmaan

End Sub

Private Sub Form_Load()
    Randomize Timer 'alustetaan randomimimimimimi
    omatrahat = 0 'meidän rahat
    onkorahaa 'tarkistetaan voidaanko ylipäätänsä pelata enään
End Sub

Sub pelaas()
        'randomilla joku potti vain
        potti_luku = Int(Rnd * 100) - 80 'eli -50 ... +50 -väliltä jotain randomilla
        potti.Text = potti_luku 'tulostetaan luku

        If potti_luku > 0 Then 'arvo on enemmän kuin nolla
            potti.Text = potti.Text & ". plussalle men" 'näytetään miten kävi (meni plussan puolelle)
        ElseIf potti_luku < 0 Then 'arvo on vähemmän kuin nolla
            potti.Text = potti.Text & ". miinuksel men" 'näytetään miten kävi (miinukselle meni)
        Else 'jos ei muutakaan niin...
            potti.Text = potti.Text & ". et hävinyt, etkä voittanut" 'näytetään miten kävi (tuli nolla)
        End If

        omatrahat = omatrahat + potti_luku 'lisätään muuttujaan voitettu/hävitty summa. ja jos meni miinukselle silloin negatiivinen luku plussataan päälle, eli meidän potista miinustetaan se tietty määrä
        omatr.Text = omatrahat 'näytetään nykyinen tilanne

        onkorahaa 'mennään tarkistamaan onko meillä rahaa enään, pelin jälkeen
End Sub

Function onkorahaa()
    If omatrahat <= 0 Then 'jos rahaa ei ole enään, ehto toteutuu
        MsgBox "sulta on rahat loppu, et voi pelata!" 'huudellaas vähän
        End 'lopetamme itsemme
    End If
End Function

Dim koko_potti As Integer, mun_rahat As Integer, vastustajan_rahat As Integer
Dim vastustajan_rahat_pottiin As Integer, mun_rahat_pottiin As Integer 'pottiin laitettavat rahat

Private Sub Command1_Click()

    mun_rahat = mun_rahat - mun_rahat_pottiin 'nää nyt tulee pottiin, eli miinustetaan sen verran kuin pottiin pistetään
    vastustajan_rahat = vastustajan_rahat - vastustajan_rahat_pottiin

    koko_potti = vastustajan_rahat_pottiin + mun_rahat_pottiin 'laitetaan pottiin tietty määrä rahaa, joka tässä tapauksessa on kummaltakin 50, eli 100 yhteensä
    potti.Text = koko_potti 'näytetään koko roska

    randomi = Int(Rnd * 2)

    MsgBox koko_potti

    If randomi = 0 Then 'voitettiin
        MsgBox "voitettiin!"
        mun_rahat = mun_rahat + koko_potti 'saatiin kaikki rahat tottakai
        'vastustajan_rahat = vastustajan_rahat - vastustajan_rahat_pottiin 'vastustaja joutuu luopumaan, rahasta jotka laittoi pottiin
    Else
        MsgBox "hävittiin :(((((((((((!" 'eli ei saada mitään takaisin, pelkästään vihu saa rahaa, meidän ei enään tarvii maksaa mitään kun se tehtiin jo aikaisemmin, kun tungettiin rahaa pottiin
        vastustajan_rahat = vastustajan_rahat + koko_potti
    End If

    kokopotti = 0

    Form1.Caption = "tilanne: meillä on rahaa: " & mun_rahat & ". ja vihulla on rahaa: " & vastustajan_rahat

End Sub

Private Sub Form_Load()
    mun_rahat = 50
    vastustajan_rahat = 50
    mun_rahat_pottiin = 10 'annetaan jänskät arvot
    vastustajan_rahat_pottiin = 10
End Sub

'Moduuliin
Global Potti As Variant, panos As Variant, orahat As Variant, vrahat As Variant, pelaaja As Integer

'Tapahtumiin
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If pelaaja = 0 Then
pelaaja = 1: Satsaus_aliohjelma: Exit Sub
ElseIf pelaaja = 1 Then
pelaaja = 0: Satsaus_aliohjelma:  Exit Sub
End If
End Sub
Private Sub Command2_Click()
 Voitto_aliohjelma
End Sub

Private Sub Form_Load()
orahat = 100: vrahat = 100: Potti = 0
End Sub

Private Sub Text1_Change()
panos = Val(Text1.Text)
End Sub

'aliohjelmat
Private Sub Satsaus_aliohjelma()
 'Potti kasvaa...
 Select Case pelaaja
   Case 0: 'omat rahat vähenee
   orahat = orahat - panos: omatr.Text = Str$(orahat)
   Case 1: 'vastustajan rahat vähenee
   vrahat = vrahat - panos: vastr.Text = Str$(vrahat)
   End Select
   Potti = Potti + panos: panos = 0: Text1.Text = "0": Potti.Text = Str$(Potti)
 End Sub

Private Sub Voitto_aliohjelma()
  'Potti tyhjenee...
 Select Case pelaaja
  Case 0 'jos voittaa itse
   orahat = orahat + Potti: Potti = 0: omatr.Text = Str$(orahat)
  Case 1 'jos vatustaja voitaa
   vrahat = vrahat + Potti: Potti = 0: vastr.Text = Str$(vrahat)
 End Select
   Potti.Text = "0"
End Sub