TimeString Kullanma(VB)

DERS NOTU

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
label1.text = TimeString
label1.text=system.datetime.nom( bu olursa tarihi gösterir)
End Sub

End Class

Doğum günü(VB)

DERS NOTU

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("doğum gününüz" & DateTimePicker1.Text)
MsgBox("yılın kaçinci günü:" & DateTimePicker1.Value.DayOfYear.tostirng())
End Sub

End Class

Radio Düğmesi(VB)

DERS NOTU

Public Class Form1

Dim ilksayi, ikincisayi As Double

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ilksayi = TextBox1.Text
ikincisayi = TextBox2.Text
If RadioButton1.Checked = True Then
textbox3.Text=ilksayi \ ikinci sayi
End If
If RadioButton2.Checked = True Then
textbox3.Text=ilksayi mod ikinci sayi
End If
If RadioButton3.Checked = True Then
textbox3.Text=ilksayi ^ ikinci sayi
End If
If RadioButton2.Checked = True Then
textbox3.Text=ilksayi & ikinci sayi
End If
End Sub
End Class

Zamana Göre Parola Gir(VB)

DERS NOTU

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
MsgBox("Üzgünüz süre doldu...")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "şifre_sır" Then
Timer1.Enabled = False
MsgBox("programa hoşgeldiniz!!")
Else
MsgBox("üzgünüm, parolanız tanımsız..ve yeniden deniyiz.")
End If
End Sub
End Class