apua
Yritän tehdä ensimmäisä ohjemiani Visualilla.
onglema
Kun laskimelle syöttää oikeita arvoja se toimii.
Jakaa kolmosen nelosella jne..
Jos syöttää nollan, se ilmoittelee, että nollalla ei voi jakka
Mutta jos ei syötä mitään ja suorittaa, homma ei pelitä...
Haluaisin saada ilmoituksen syötä luku jakajaan vaan miten..
eli miten korjaan tämän:
Sub Command4_Click (Index As Integer)
Dim msg
msg = "valitse toinen luku"
If luku2 = 0 Then
MsgBox msg
ElseIf luku2 0 Then
tulos = Val(luku1) / Val(luku2)
End If
End Sub
EnsiyritysLaskin
PeetXcXX
1711
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 1
Vanhimmat
Kai olet määritellyt, että Luku2 on numero. Esim. dim Luku2 as integer Syöttökenttään syötetään tekstiä ja sen saa numeroksi val-funktiolla. Esim. Luku2=val(TextBox1.Text) ElseIf-käskyssä on ehto turhaan, sillä nollaa testaat jo ekassa if-ehdossa. Joten muuta elseif-rivi pelkäksi else-käskyksi.