+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Örnekleri ve Uygulamaları (https://accesstr.net/forum-visual-basic-6-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: illerin Plaka Kodları (/konu-illerin-plaka-kodlari.html)
illerin Plaka Kodları - chopper07 - 30/11/2008
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 SubCvp: illerin Plaka Kodları - melleq - 17/04/2009
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
Cvp: illerin Plaka Kodları - chopper07 - 18/04/2009
melleq hanım şu anda tekrar denedim kodlarda herhangi bir sıkıtı yok.
örnek dosyayı da ekliyorum.
Cvp: illerin Plaka Kodları - assenucler - 18/04/2009
Teşekkürler...
Cvp: illerin Plaka Kodları - melleq - 18/04/2009
ç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
Cvp: illerin Plaka Kodları - chopper07 - 19/04/2009
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.