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:1981
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
[Sadece Kayıtlı Kullanıcılar Linkleri Görebilir. Üye Olmak İçin 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
[Sadece Kayıtlı Kullanıcılar Linkleri Görebilir. Üye Olmak İçin 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

__________________

saol paylaşım için teşekkürler

eline sağlık kardeş

__________________

saol emeğine sağlık