Programalama > VISUAL BASIC

KULLANILAN ÖĞELER

1 ADET COMMAND BUTONU
1 ADET TEXT BUTONU
1 ADET LABEL BUTONU

...:::KODLAR:::...

Private Sub Command1_Click()
Dim a As Single
If Val(Text1.Text) >= 0 Then
MsgBox "GİRDİĞİNİZ SAYI POZİTİF"
Else
MsgBox "GİRDİĞİNİZ SAYI NEGATİF"
End If
a = Val(Text1) / 2
If a = Int(a) Then
MsgBox "GİRDİĞİNİZ SAYI ÇİFT"
Else
MsgBox "GİRDİĞİNİZ SAYI TEK"
End If
End Sub



Private Sub Form_Load()
Command1.Caption = "KONTROL ET"
Label1.Caption = "BİR SAYI GİRİNİZ"
End Sub