Kayit yapma - Papatyam Forum

Papatyam Forum

Go Back   Papatyam Forum > ..::.BİLGİSAYAR & TEKNOLOJİ.::. > Programlama > visual basic.net

Yeni Konu aç  Cevapla
 
Seçenekler
Alt 29 March 2008, 18:08   Mesaj No:1

tamerr89

Papatyam Paylaşımcı Üyesi
Avatar Otomotik
Durumu:tamerr89 isimli Üye şimdilik offline konumundadır
Papatyam No : 1196
Üyelik T.: 09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
Mesaj: 212
Konular:
Beğenildi:
Beğendi:
Takdirleri:10
Takdir Et:
Konu Bu  Üyemize Aittir!
Standart Kayit yapma

Kayit yapma

Dim ad(20) As String

Dim soyad(20) As String

Dim no(20) As Integer

Dim cinsiyet(20) As String

Dim bolum(20) As String

Dim ders(20) As String

Dim i As Integer





Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



End Sub



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

i = i + 1



ad(i) = TextBox1.Text

soyad(i) = TextBox2.Text

no(i) = Val(TextBox3.Text)

If RadioButton1.Checked = True Then

cinsiyet(i) = "Bay"

ElseIf RadioButton2.Checked = True Then

cinsiyet(i) = "Bayan"

End If

If RadioButton3.Checked = True Then

bolum(i) = "Bilgisayar"

ElseIf RadioButton4.Checked = True Then

bolum(i) = "Döküm"

ElseIf RadioButton5.Checked = True Then

bolum(i) = "Tasarym"

ElseIf RadioButton6.Checked = True Then

bolum(i) = "Metal"

End If

If CheckBox1.Checked = True Then

ders(i) = ders(i) + " BLG101"

End If

If CheckBox2.Checked = True Then

ders(i) = ders(i) + " MAT131"

End If

If CheckBox3.Checked = True Then

ders(i) = ders(i) + " FYZ191"

End If

If CheckBox4.Checked = True Then

ders(i) = ders(i) + " GSM123"

End If

If CheckBox5.Checked = True Then

ders(i) = ders(i) + " EDB111"

End If

If CheckBox6.Checked = True Then

ders(i) = ders(i) + " OGM200"

End If



End Sub



Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

For i = 0 To 20

If no(i) = Val(TextBox4.Text) Then

ListBox1.Items.Add("AD:" + ad(i))

ListBox1.Items.Add("SOYAD:" + soyad(i))

ListBox1.Items.Add("NO:" & no(i))

ListBox1.Items.Add("CYNSYYET:" + cinsiyet(i))

ListBox1.Items.Add("BÖLÜM:" + bolum(i))

ListBox1.Items.Add("SEÇTY?Y DERSLER:" + ders(i))

End If

Next

End Sub



Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

ListBox1.Items.Clear()

End Sub
Alıntı ile Cevapla
Cevapla

Bookmarks

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Benzer Konular
Konu Başlıkları Konuyu Başlatan

Papatyam Forum Ana Kategori Başlıkları

Cevaplar Son Mesajlar
HAKEMLİK YAPMA umut Trabzonspor 0 22 December 2009 00:55
Flash Çizim Yapma agasarlinuris flash 0 21 January 2009 23:53
Asp.net ile veri tabanina kayit tamerr89 asp.net 0 29 March 2008 13:02
Datagrid kontrolü yardimiyla kayit düzenlemeupdatecancel ve delete islemleri tamerr89 asp.net 0 29 March 2008 13:01
Reklam Yapma REHA Fıkra Diyarı 0 21 March 2007 11:54

Yeni Sayfa 1

www.papatyam.org Ana Sayfa

Tefekküre Davet Köşesi

Papatyam Sosyal Medya Guruplarımıza Katılın

                       Instagram         

Papatyam alemdarhost.com sunucularında barındırılmaktadır.