29 March 2008, 18:08 | Mesaj No:1 |
Durumu:
Papatyam No :
1196
Üyelik T.:
09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
|
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 |
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 |
Tefekküre Davet Köşesi |
|
Papatyam Sosyal Medya Guruplarımıza Katılın |