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

Ülkelere göre Selamlaşma (VB)

DERS NOTLARI

Public Class form1

Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lstulkekutusu.Items.Add("ingiltere")
lstulkekutusu.Items.Add("almanya")
lstulkekutusu.Items.Add("meksika")
lstulkekutusu.Items.Add("italya")
End Sub

Private Sub lstulkekutusu_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstulkekutusu.MouseHover
If lstulkekutusu.SelectedIndex <> 4 Then
lblselamlama.Text= ülke adını tıklayın"
End If

End Sub

Private Sub lstulkekutusu_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstulkekutusu.SelectedIndexChanged
lblulke.text = lstulkekutusu.SelectedIndex
Select Case lstulkekutusu.SelectedIndex

Case 0
lblselamlama.Text = "hello, programmer"
Case 1

lblselamlama.Text = "hallo, programmer"
Case 2

lblselamlama.Text = "hola, programmer"
Case 3
lblselamlama.Text = "ciao, programmer"
End Select
End Sub
End Class

ASP ÖRNEĞİ

Yukarınadaki kodu ch1.asp olarak kaydetin.

Seçtiğiniz bölümler
<% if request.form("asp")="on" then response.write("ASP, ") end if if request.form("html")="on" then response.write("HTML, ") end if if request.form("vis")="on" then response.write("VISUAL BASIC, ") end if if request.form("java")="on" then response.write("JAVASCRIPT, ") end if if request.form("cprog")="on" then response.write("C PROGRAMLAMA ") end if %>
. Teşekkürler


Yukarınadaki kodu ch2.asp olarak kaydetin.
Bu Kodlar checkbox internet sayfasına ekler ve çalıştır.

Hangi bölümde program yazmasını seversiniz.

ASP
HTML
VISUAL BASIC
JAVASCRIPT
C PROGRAMLAMA

Yorum

Bu sayfa yorum ekleyebilirsin