Log In
Home
October 6, 2003
Offline
Hejsan! Jag har kodat en enkel sak till miniräknare. Alla knappar funkar fint, det är bara en funktion som jag inte fattar mig på. Den är uppbyggd av tre textrutor. I de 2 första skriver man i talen som man vill få adderade, subtraherade osv osv. Nu vill jag fixa en funktion som säger till om man delar Första talet med 0 så säger den ifrån!
Private Sub cmdDelat_Click()
txtText3.Text = Val(txtText1.Text) / Val(txtText2.Text)
If Val(txtText2.Text) = 0 Then
MsgBox "Division med noll ej tillåten!"
Else
txtText3.Text = Val(txtText1.Text) / Val(txtText2.Text)
End If
End Sub
Jag ser inga fel i den koden, varför funkar den inte?
EDIT: Tabbarna syns inte, men de finns där.
October 6, 2003
Offline
Never mind, jag bytte plats på raderna. Då funkar det. Tack ändå 🙂
June 19, 2002
Offline
Problemet kanske är att du inte har heltal utan decimaltal (single/double), då kommer talet inte att vara exakt noll utan bara ungefär vilket är väldigt irriterande.
Testa att spara värdet på text2.text eller vad det var i en variabel som är ett heltal och kolla mot den variabeln och se om det funkar då.
October 6, 2003
Offline
[NH wrote: Noddan]Problemet kanske är att du inte har heltal utan decimaltal (single/double), då kommer talet inte att vara exakt noll utan bara ungefär vilket är väldigt irriterande.
Testa att spara värdet på text2.text eller vad det var i en variabel som är ett heltal och kolla mot den variabeln och se om det funkar då.
Japp, correcta mundo!
Men det funkar nu som sagt. Men tack ändå 🙂
1 Guest(s)
