Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

illerin Plaka Kodları

chopper07
chopper07
Visual Basic 6 Örnekleri ve Uygulamaları
14
7541

illerin Plaka Kodları

#1
chopper07
Uzman
chopper07
www Bul
Uzman
Adı Soyadı: Er....
Yaşı: 48
Konum: Aydın
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 23/12/2024,14:40
Yorumları: 1.825
Konuları: 229
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 376
Mesleğiniz: Otel Müdürü
formumuza bir adet combobox ve altına yada yanına bir adet textbox koyalım ve kodları yapıştıralım.


Kod:
Option Explicit
Dim plaka As Byte
Private Sub Form_Load()



Combo1.AddItem "ADANA"
Combo1.AddItem "ADIYAMAN"
Combo1.AddItem "AFYON"
Combo1.AddItem "AĞRI"
Combo1.AddItem "AMASYA"
Combo1.AddItem "ANKARA"
Combo1.AddItem "ANTALYA"
Combo1.AddItem "ARTVİN"
Combo1.AddItem "AYDIN"
Combo1.AddItem "BALIKESİR"
Combo1.AddItem "BİLECİK"
Combo1.AddItem "BİNGÖL"
Combo1.AddItem "BİTLİS"
Combo1.AddItem "BOLU"
Combo1.AddItem "BURDUR"
Combo1.AddItem "BURSA"
Combo1.AddItem "ÇANAKKALE"
Combo1.AddItem "ÇANKIRI"
Combo1.AddItem "ÇORUM"
Combo1.AddItem "DENİZLİ"
Combo1.AddItem "DİYARBAKIR"
Combo1.AddItem "EDİRNE"
Combo1.AddItem "ELAZIĞ"
Combo1.AddItem "ERZİNCAN"
Combo1.AddItem "ERZURUM"
Combo1.AddItem "ESKİŞEHİR"
Combo1.AddItem "GAZİANTEP"
Combo1.AddItem "GİRESUN"
Combo1.AddItem "GÜMÜŞHANE"
Combo1.AddItem "HAKKARİ"
Combo1.AddItem "HATAY"
Combo1.AddItem "ISPARTA"
Combo1.AddItem "İÇEL"
Combo1.AddItem "İSTANBUL"
Combo1.AddItem "İZMİR"
Combo1.AddItem "KARS"
Combo1.AddItem "KASTAMONU"
Combo1.AddItem "KAYSERİ"
Combo1.AddItem "KIRKLARELİ"
Combo1.AddItem "KIRŞEHİR"
Combo1.AddItem "KOCAELİ"
Combo1.AddItem "KONYA"
Combo1.AddItem "KÜTAHYA"
Combo1.AddItem "MALATYA"
Combo1.AddItem "MANİSA"
Combo1.AddItem "KAHRAMAN MARAŞ"
Combo1.AddItem "MARDİN"
Combo1.AddItem "MUĞLA"
Combo1.AddItem "MUŞ"
Combo1.AddItem "NEVŞEHİR"
Combo1.AddItem "NİĞDE"
Combo1.AddItem "ORDU"
Combo1.AddItem "RİZE"
Combo1.AddItem "SAKARYA"
Combo1.AddItem "SAMSUN"
Combo1.AddItem "SİİRT"
Combo1.AddItem "SİNOP"
Combo1.AddItem "SİVAS"
Combo1.AddItem "TEKİRDAĞ"
Combo1.AddItem "TOKAT"
Combo1.AddItem "TRABZON"
Combo1.AddItem "TUNCELİ"
Combo1.AddItem "ŞANLIURFA"
Combo1.AddItem "UŞAK"
Combo1.AddItem "VAN"
Combo1.AddItem "YOZGAT"
Combo1.AddItem "ZONGULDAK"
Combo1.AddItem "AKSARAY"
Combo1.AddItem "BAYBURT"
Combo1.AddItem "KARAMAN"
Combo1.AddItem "KIRIKKALE"
Combo1.AddItem "BATMAN"
Combo1.AddItem "ŞIRNAK"
Combo1.AddItem "BARTIN"
Combo1.AddItem "ARDAHAN"
Combo1.AddItem "IĞDIR"
Combo1.AddItem "YALOVA"
Combo1.AddItem "KARABÜK"
Combo1.AddItem "KİLİS"
Combo1.AddItem "OSMANİYE"
Combo1.AddItem "DÜZCE"
Combo1.ListIndex = 29
End Sub

Private Sub Combo1_Click()
plaka = Combo1.ListIndex + 1
Text1 = plaka
End Sub
™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

Cevapla
#2
melleq
Üye
melleq
Bul
Üye
Adı Soyadı:
Yaşı: 32
Konum: Ankara
Ofis Versiyonu: Ofis 2003
Son Oturumu: 28/03/2010,21:00
Yorumları: 36
Konuları: 4
Kayıt Tarihi: 24/12/2008
Teşekkür Puanı: 0
bu kodlarda bi hata var bn combobox1.text=("...") diye yaptm buralar oldu fakat
Combo1.ListIndex = 29 ve diğer kodları çalıştıramadm yardımcı olursanız sevinirim..bu kodları nasıl değiştircem
Cevapla
#3
chopper07
Uzman
chopper07
www Bul
Uzman
Adı Soyadı: Er....
Yaşı: 48
Konum: Aydın
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 23/12/2024,14:40
Yorumları: 1.825
Konuları: 229
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 376
Mesleğiniz: Otel Müdürü
melleq hanım şu anda tekrar denedim kodlarda herhangi bir sıkıtı yok.

örnek dosyayı da ekliyorum.
.zip AccessTr.zip (Dosya Boyutu: 57,71 KB | İndirme Sayısı: 88)
™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

Cevapla
#4
assenucler
Aktif Üye
assenucler
Bul
Aktif Üye
Adı Soyadı: A..... Se.... Şe....
Konum: İstanbul
Ofis Versiyonu: -
Son Oturumu: 03/08/2022,13:36
Yorumları: 2.057
Konuları: 125
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 66
Teşekkürler...
Cevapla
#5
melleq
Üye
melleq
Bul
Üye
Adı Soyadı:
Yaşı: 32
Konum: Ankara
Ofis Versiyonu: Ofis 2003
Son Oturumu: 28/03/2010,21:00
Yorumları: 36
Konuları: 4
Kayıt Tarihi: 24/12/2008
Teşekkür Puanı: 0
çok güzel emeğinize sağlık..
fakat bu kodlar bu şekilde bnde çalışmıyo combo1.addıtem olarak çıkmıyo ancak combobox1.text.. olarak yazınca oluyor.
bana şu kodu nasıl değiştireceğimi söylerseniz sevinirim Combo1.ListIndex = 29
Cevapla
#6
chopper07
Uzman
chopper07
www Bul
Uzman
Adı Soyadı: Er....
Yaşı: 48
Konum: Aydın
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 23/12/2024,14:40
Yorumları: 1.825
Konuları: 229
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 376
Mesleğiniz: Otel Müdürü
rica ederim.
sizde nasıl çalışmıyor anlamadım tam olarak. bir şeyi değiştirmenize gerek yok ki.
formunuza bir adet combobox ve altına bir adet textbox yerleştirecesiniz. Ardından formunuzda boş bir yere bilgisayarımızın faresi ile çift tıklayarak kod bölümüne geçip, yukarda verilen kodları yapıştıracaksınız.

ama başka bir kod yapmak için bu kodları kullanmaya çalışıyorsanız, örneğini ekleyin, hep birlikte bakalım.
™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task