- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
Gerekenler:
1 TEXTBOX
1 BUTON
----
Buton1.Click...
Dim tekcift As Integer
tekcift = Val(TextBox1.Text)
If tekcift Mod 2 = 0 Then
MsgBox("Çift")
Else : MsgBox("Tek") End If
End Sub
End Class
1 TEXTBOX
1 BUTON
----
Buton1.Click...
Dim tekcift As Integer
tekcift = Val(TextBox1.Text)
If tekcift Mod 2 = 0 Then
MsgBox("Çift")
Else : MsgBox("Tek") End If
End Sub
End Class