|
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
|
