A.İ.BÜ Bil.Prog. ve Teknolojisi II ARA SINAV TARİHLERİ
16.04.07	C Programlama II	11.00	bitti
16.04.07	Kalite Güvence	10.00	bitti
17.04.07	Mesleki Yabancı Dil II	15.00	bitti
18.04.07	Görsel Programlama II	9.00	bitti
20.04.07	İşletme Yönetimi	15.00	bitti
26.04.07	İnternet Programlama	13.00	bitti
26.04.07	Mikrobilgisayar ve assembly dili	10.00	bitti
07.05.07	Araştırma teknikleri	16.00	bitti
01.05.07	Sistem Analizi	10.00	bitti

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