Ana Sayfa   Hikayeler...   Anketler ?   Araba resimleri   Aşk   Romantizm   İtiraf   Rüya Tabirleri   Zeka Soruları   Sağlık Merkezi   Biliyormuydunuz?   Ders Nasıl Çalışılır   Şarkı Sözleri   Din Ve Tasavvuf   Dini Hikayeler   Dini Konular   Dini şiirler   Doğa ve Manzara   Dualar ve hadisler   Efsaneler   Erkekler Dünyası   Aşk sevgi şiirleri   İnanılmaz Gerçekler   Biyografi   Slayt Bölümü   Donanım Merkezi   E - Kitap (E-Book)   Windows Hakkında   Genel Bölüm   Geyik Bölümü   Duvar Kağıdı   Güzel Sözler   Güzellik & Diyet   Her Telden   Yemek TarifLeri   Kadın Dünyası   Kahkaha Merkezi   Komik Fıkralar   Komik Karikatürler   Komik Resimler   Komik Yazılar   Kopya Nasıl Çekilir.   Korku Odası   Kızlar Nasıl Tavlanır ?   M.Kemal Atatürk   MSN Hakkında   Msn Nickleri   MSN Programlar   Msn Space   Msn İfadeleri   Müzik Hakkında   Network ve internet   Program Download   Tarih   Teknoloji & BiLim   İşletim Sistemleri   Magazin   Moda Bakım Makyaj   Modifiye ve Sanal

Bu kodlar ile kimlik numarası bulunur öncelikle bu iş için formunuza 8 adet textbox 1 adet buton ve web referans ekleyin textbox isimleri: ______________ TxtTCno txtAdi 'string olacak txtSoyadi 'string olacak txtAnadi 'string olacak txtBabadi 'string olacak txtCinsii '1 veya 2 olacak 1=erkek 2 = kadın anlamında txtDyili '4 basamaklı yıl olacak (integer, ör:198 txtIlceListi '4 basamaklı ilçe numarası olacak(integer) not: tüm ilçe numaralarına ulaşamadım. belki hazırda bulunan bi siteden hepsini indirerek bu textbox u select box haline çevirerek tüm illeri burda yerleşik olarak kullanmayı deneyebilirsiniz ben kullanırken Tıklayın sayfasının kaynak kodlarından yaralanarak birkaç defa test yapmıştım sadece, bu kaynak kodlarından kullanacağım ilçenin ID sine ulaşmıştım buton ismi: ______________ btnSorgula webreferans: ______________ webreferans eklemeyi bilmeyen visual studio kullanan arkadaşlara daha anlaşılır olsun diye çok yalın anlatıcam. visual studio da yeni projemizi açtıkdan sonra sağ köşedeki solution explorer menüsünde "web references" maddesine sağ tıklayarak "add web references" i seçin sonra web referans adresi olarak Tıklayın adresini girin ve ekleyin _________________________________________________ ************************************************* yukardaki işlemleri eksiksiz bi şekilde yaptıysanız Inherits System.Windows.Forms.Form satırını formunuzun >public class form1 ve >end class satırlarının ARASINDA ve EN ÜST e ekleyni ve yine bu public class ın içine aşağıdaki kodları ekleyin _________________________________________________ ************************************************* Function GetTcNo(ByVal ad As String, ByVal Soyad As String, ByVal Anad As String, ByVal Babad As String, ByVal ilceList As Integer, ByVal cinsi As Integer, ByVal dYil As Integer) Dim serv As tr.gov.nvi.tckimlik.KPSPublicWebService = New tr.gov.nvi.tckimlik.KPSPublicWebService Dim getirVeri As tr.gov.nvi.tckimlik.TemelBilgilerdenKimlikBilgisi = New tr.gov.nvi.tckimlik.TemelBilgilerdenKimlikBilgisi getirVeri.Ad = ad getirVeri.Soyad = Soyad getirVeri.AnaAd = Anad getirVeri.BabaAd = Babad getirVeri.IlceKod = CInt(ilceList) getirVeri.Cinsiyet = CInt(cinsi) getirVeri.DogumYil = CInt(dYil) Try TxtTCno.Text = "Bekleyin" Dim tcNo1 As tr.gov.nvi.tckimlik.KimlikBilgisi = serv.KisiBilgisindenKimlikBilgisiSorgula(getirVeri ) TxtTCno.Text = tcNo1.TCKimlikNo txtAdi.Text = tcNo1.Ad txtSoyadi.Text = tcNo1.Soyad txtAnadi.Text = tcNo1.AnaAd txtBabadi.Text = tcNo1.BabaAd txtDyili.Text = tcNo1.DogumYil Select Case tcNo1.Cinsiyet Case tr.gov.nvi.tckimlik.CinsiyetTipi.Erkek cinsi = 1 Case tr.gov.nvi.tckimlik.CinsiyetTipi.Kadin cinsi = 2 End Select MsgBox("TC. Kimlik Nunmarası: " & tcNo1.TCKimlikNo, 64, "Tc Kimlik No,SimasheR") Catch ex As Exception MsgBox("Girilen Verilere Uyan Vatandaş Bulunamadı", 64, "Tc Kimlik No") End Try End Function Private Sub sorgula_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSorgula.Click Call GetTcNo(txtAdi.Text, txtSoyadi.Text, txtAnadi.Text, txtBabadi.Text, txtIlceListi.Text, txtCinsii.Text, txtDyili.Text) End Sub