Igra Moj broj

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pravim program slican igri Moj broj iz kviza Slagalica i imam problem s dobijanjem konacnog rezultata kad izraz nije pravilno unet.
Kako da dobijem poruku o gresci kad se unese nepotpun izraz sa nezatvorenim zagradama ili operatorima +,*,-,\ na kraju izraza.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ou, ne gledam slagalicu pa neznam o kojoj se igri radi Napsi kada igra slagalica pa cu pogledati. A do tada probaj ovo:

Private Sub Command1_Click() Dim a As String Dim b, c As Integer b = 0 c = 0 For i = 1 To Len(Text1.Text)     a = Mid(Text1.Text, i, 1)   If a = "(" Then     b = b + 1   End If   If a = ")" Then     c = c + 1   End If Next i If b <> c Then MsgBox "Error", vbCritical, "Error" End Sub

Dopuna: 15 Jan 2007 14:22

Evo i code za pronalazenje znakova kao sto su +,-,* i / na kraju:

Private Sub Command1_Click() If Mid(Text1.Text, Len(Text1.Text), 1) = "+" Or _    Mid(Text1.Text, Len(Text1.Text), 1) = "-" Or _    Mid(Text1.Text, Len(Text1.Text), 1) = "*" Or _    Mid(Text1.Text, Len(Text1.Text), 1) = "/" Then MsgBox "Error", vbCritical, "Error" End If End Sub