You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Uygulama No: 10 – Kimlik Ekle<br />
VB.Net Örnek Uygulamalar<br />
2 Kasım 2011<br />
Uygulama No : 08<br />
Uygulama Adı : Kimlik Ekle<br />
Açıklama : 1. Alanların her üçünün de girilmiş olması gerekiyor. Aksi halde uyarı mesajı<br />
veriliyor.<br />
2. Kimlik numarası 11 hane olmazsa uyarı mesajı veriliyor.<br />
3. Cinsiyet Kadın seçilirse Askerlik Durumu pasif konuma geçiyor.<br />
4. Bilgileri Ekle butonuna basıldığında bilgiler liste kutusuna alt alta ekleniyor.<br />
Ekran Görüntüsü<br />
Açıklamalı Kodlar<br />
Public Class Form1<br />
Dim cinsiyet, ask As String<br />
Private Sub Radio_kadin_Click(ByVal sender As Object, ByVal e As<br />
System.EventArgs) Handles Radio_kadin.Click<br />
GroupBox2.Enabled = False ‘Grup kutusu pasifize ediliyor.<br />
Dolayısıyla üzerindeki radyo düğmeleri de pasif hale gelmiş oluyor.<br />
End Sub<br />
Private Sub Radio_erkek_Click(ByVal sender As Object, ByVal e As<br />
System.EventArgs) Handles Radio_erkek.Click<br />
GroupBox2.Enabled = True<br />
End Sub<br />
Private Sub Btn_ekle_Click(ByVal sender As System.Object, ByVal e As<br />
System.EventArgs) Handles Btn_ekle.Click<br />
If Strings.Trim(Txt_ad.Text) "" And<br />
Strings.Trim(Txt_soyad.Text) "" And Strings.Trim(Txt_kimlik.Text) ""<br />
Then<br />
If Strings.Trim(Strings.Len(Txt_kimlik.Text)) 11 Then<br />
MsgBox("Kimlik Numarası uygun girilmedi")<br />
Exit Sub<br />
End If<br />
Tolga GÜYER Sayfa 18