Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: Text6 - Text7

Sivun loppuun

SQ [18.01.2004 17:31:16]

#

Miten saan miinustettua text6 objektin arvot text7? kun text6.text - text7.text ei toiminut?

petrinm [18.01.2004 17:34:56]

#

eli miinustaa Text6:tosen arvosta Text7 arvon

Text6.Text = Text6.Text - Text7.Text

SQ [18.01.2004 17:38:36]

#

ja entä se vastaus et se menis tiettyy nteksti kenttää?

petrinm [18.01.2004 17:42:25]

#

tulos ilmoitetaan Nteksti laatikkoon

Nteksti.Text = Text6.Text - Text7.Text

SQ [18.01.2004 17:51:24]

#

jossei pysty miinustamaan niin miten saan sen silleen et se sanoo vaikka, "et pysty..."

SQ [18.01.2004 17:53:21]

#

entäs miten saa silleen ku mullon semmonen osto jutska, et jos rahat loppuu, niin ei enää pysty ostamaan?

SQ [18.01.2004 18:02:34]

#

mullolis tommonen

Private Sub Command1_Click()

If Option1.Value = True Then Text1.Text = Text1.Text - 25
If Option1.Value = True Then Text2.Text = Text2.Text + 5

If Option2.Value = True Then Text1.Text = Text1.Text - 50
If Option2.Value = True Then Text3.Text = Text3.Text + 5

If Option3.Value = True Then Text1.Text = Text1.Text - 50
If Option3.Value = True Then Text4.Text = Text4.Text + 5

End Sub

toho pitäs se error jutska saada.

petrinm [18.01.2004 18:11:11]

#

Tossa tapauksessa ei ole pakko olla erroria!

Private Sub Command1_Click()

If Option1.Value = True Then
    If Text1.Text < 25 Then
        MsgBox "Rahasi eivät riitä"
    Else
        Text1.Text = Text1.Text - 25
        Text2.Text = Text2.Text + 5
    End If
End If

If Option2.Value = True Then
    If Text1.Text < 50 Then
        MsgBox "Rahasi eivät riitä"
    Else
        Text1.Text = Text1.Text - 50
        Text3.Text = Text3.Text + 5
    End If
End If

If Option3.Value = True Then
    If Text1.Text < 50 Then
        MsgBox "Rahasi eivät riitä"
    Else
        Text1.Text = Text1.Text - 50
        Text4.Text = Text4.Text + 5
    End If
End If

End Sub

SQ [18.01.2004 18:18:36]

#

kiids. entäs, onko kellään ehdotuksia minkälaisen taistelu systeemin voisin tehdä?

remontti-reiska [18.01.2004 18:50:56]

#

Höm. Pistä Command1 niminen commandbox formille. Tää on ai
kamoista purkkaa sitten, että kannattaa optimoida, jos käytät tätä.

Public vihtulos As Integer
Public omatulos As Integer
Public vihluck As Integer
Public vihvoima As Integer
Public omaluck As Integer
Public omavoima As Integer

Private Sub Command1_Click()
Randomize Timer
vihluck = Int(Rnd * (0 - 100)) + 100
vihvoima = Int(Rnd * (0 - 100)) + 100
omaluck = Int(Rnd * (0 - 100)) + 100
omavoima = Int(Rnd * (0 - 100)) + 100
vihtulos = vihluck + vihvoima
omatulos = omaluck + omavoima

If vihtulos > omatulos Then
'tapahtuma
Else
If omatulos > vihtulos Then
'tapahtuma
Else
If omatulos = vihtulos Then
'tapahtuma
Else
End If
End If
End If
End Sub

Tulipas vahingossa annettua jonkinlainen koodi. No tosta sitten muutelemaan :D. Tuollaista aloin ensin väsäämään Ruin baradiin.

Sivun alkuun

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta