ForumTayfa  

Go Back   ForumTayfa > Güvenlik & Bilgisayar & İnternet & Webmaster & Programlama Bölümü > Güvenlik & Bilgisayar & İnternet & Webmaster & Programlama > Programlama

Programlama Programlama hakkında herşeyi paylaştığımız, soru ve sorunlarımızı tartıştığımız bölüm...

Yeni Konu aç  Cevapla
 
LinkBack Seçenekler Stil
Alt 27.12.06, 16:37   #1 (permalink)
Deneyimli Tayfa
 
silentwolf - ait Kullanıcı Resmi (Avatar)
 
Üyelik Tarihi: Dec 2006
Nereden: burada
Mesaj Sayısı: 3.964
Konu Sayısı: 157
Takım: Fenerbahçe
Rep Gücü: 196650
Rep Puanı: 19663395
Rep Derecesi : silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000
Ruh Hali:

Standart TC Kimlik No Alan VB Kodu




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.Kayıt Olmak İçin Tıklayınız...]
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.Kayıt Olmak İçin Tıklayınız...]
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


__________________
bir silahım olsaydı...




hiç bir farklılık ayrımcılığa neden olamaz.
Hürriyet Hürriyettir.


Konu silentwolf tarafından (27.12.06 Saat 16:40 ) değiştirilmiştir.
silentwolf isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 07.01.07, 19:15   #2 (permalink)
Yeni Tayfa
 
G.A.F - ait Kullanıcı Resmi (Avatar)
 
Üyelik Tarihi: Jan 2007
Mesaj Sayısı: 23
Konu Sayısı: 4
Rep Gücü: 0
Rep Puanı: 10
Rep Derecesi : G.A.F 0-250000
Standart Cevap: TC Kimlik No Alan VB Kodu




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


G.A.F isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 08.01.07, 01:09   #3 (permalink)
28:06:42:12
 
-BuRAk- - ait Kullanıcı Resmi (Avatar)
 
Üyelik Tarihi: Dec 2006
Nereden: Ankara
Mesaj Sayısı: 11.490
Konu Sayısı: 2068
Takım: Galatasaray
Rep Gücü: 543106
Rep Puanı: 54308119
Rep Derecesi : -BuRAk- 0-10000000-BuRAk- 0-10000000-BuRAk- 0-10000000-BuRAk- 0-10000000-BuRAk- 0-10000000-BuRAk- 0-10000000-BuRAk- 0-10000000-BuRAk- 0-10000000-BuRAk- 0-10000000-BuRAk- 0-10000000-BuRAk- 0-10000000
Ruh Hali:

Standart Cevap: TC Kimlik No Alan VB Kodu




eline sağlık kardeş


__________________


Forumla ilgili aklınıza takılan sorular için [Sadece Kayıtlı Kullanıcılar Linkleri Görebilir.Kayıt Olmak İçin Tıklayınız...].

[Sadece Kayıtlı Kullanıcılar Linkleri Görebilir.Kayıt Olmak İçin Tıklayınız...]

-BuRAk- isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 16.02.07, 17:51   #4 (permalink)
Yeni Tayfa
 
CaPTaNBLaCK - ait Kullanıcı Resmi (Avatar)
 
Üyelik Tarihi: Dec 2006
Mesaj Sayısı: 35
Konu Sayısı: 2
Rep Gücü: 56
Rep Puanı: 4275
Rep Derecesi : CaPTaNBLaCK 0-250000CaPTaNBLaCK 0-250000CaPTaNBLaCK 0-250000CaPTaNBLaCK 0-250000CaPTaNBLaCK 0-250000CaPTaNBLaCK 0-250000CaPTaNBLaCK 0-250000CaPTaNBLaCK 0-250000CaPTaNBLaCK 0-250000CaPTaNBLaCK 0-250000CaPTaNBLaCK 0-250000
Ruh Hali:

Standart Cevap: TC Kimlik No Alan VB Kodu




saol emeğine sağlık


CaPTaNBLaCK isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Cevapla


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 13:18.


Powered by vBulletin® Version 3.8.0
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Search Engine Optimization by vBSEO 3.6.0
User Alert System provided by Advanced User Tagging v3.0.6 (Lite) - vBulletin Mods & Addons Copyright © 2020 DragonByte Technologies Ltd.
ForumTayfa

Arşiv: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 16 22 23 24 25 26 27 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 95 96 97 98 99 100 102 103 104 105 106 155 156 157 158 159 160 161 162 163 164 167 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271


ForumTayfa - Link Değişimi
Telinka İletişim | Voip Ürünleri | Link Değişimine Katılın |

Sitemiz bir forum sitesi olduğundan dolayı, kullanıcılar her türlü görüşlerini önceden onay olmadan anında siteye yazabilmektedir. ForumTayfa Yöneticileri mesajları itina ile kontrol etse de, bu yazılardan dolayı doğabilecek her türlü sorumluluk yazan kullanıcılara aittir. Yine de sitemizde yasalara aykırı unsurlar bulursanız [email protected] email adresine bildirebilirsiniz, şikayetiniz incelendikten sonra en kısa sürede gereken yapılacaktır.

Any member of our web site has the right of adding comments instantly without getting permisson due to the forum structure of our site basis. Althought, our site modarators check comments with care, all the responsibilities sourced from these comments directly belong to the members. If you still find any illegal content in our site ( A.buse, H.arassment, S.camming, H.acking, W.arez, C.rack, D.ivx, Mp.3 or any Illegal Activity ), please report us via [email protected] .Your reports will be evaluated as soon as the arrival of your e-mail.