Program ve Projeni Paylaş

Kendi yazmış olduğunuz yada başkasının yazmış olduğu nadir bulunan beğendiniz programları ve projeleri paylaşabilirsiniz.

Projenizi hakkında açıklayıcı bir bilgi ile isterseniz ekran görüntüsü ve proje açık kaynak kodlarıyla paylaşın lütfen. Diğer sitelerden video ve resim linkide paylaşabilirsiniz.

 


 

www.byjoehackal.com


 

Yorumlar 1

  • HOCAM KOMPLE PROGRAMI NASIL GÖNDERECEĞİM ŞİMDİLİK KODLARI GÖNDERİYORUM

    İL VE İLÇELER PROGRAMI

    Imports System.Data
    Imports System.Data.OleDb
    Public Class Form1
    Public bag As New OleDbConnection(“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\veriler.mdb”)
    Public kmt As New OleDbCommand()
    Public adtr As New OleDbDataAdapter
    Public dtst As New DataSet()
    Public durum As [Boolean] = False
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ‘TODO: This line of code loads data into the ‘VerilerDataSet.ilceler’ table. You can move, or remove it, as needed.
    ‘Me.IlcelerTableAdapter.Fill(Me.VerilerDataSet.ilceler)
    ComboBox1.Items.Add(“ADANA”)
    ComboBox1.Items.Add(“ADIYAMAN”)
    ComboBox1.Items.Add(“AFYONKARAHİSAR”)
    ComboBox1.Items.Add(“AĞRI”)
    ComboBox1.Items.Add(“AMASYA”)
    ComboBox1.Items.Add(“ANKARA”)
    ComboBox1.Items.Add(“ANTALYA”)
    ComboBox1.Items.Add(“ARTVİN”)
    ComboBox1.Items.Add(“AYDIN”)
    ComboBox1.Items.Add(“BALIKESİR”)
    ComboBox1.Items.Add(“BİLECİK”)
    ComboBox1.Items.Add(“BİNGÖL”)
    ComboBox1.Items.Add(“BİTLİS”)
    ComboBox1.Items.Add(“BOLU”)
    ComboBox1.Items.Add(“BURDUR”)
    ComboBox1.Items.Add(“BURSA”)
    ComboBox1.Items.Add(“ÇANAKKALE”)
    ComboBox1.Items.Add(“ÇANKIRI”)
    ComboBox1.Items.Add(“ÇORUM”)
    ComboBox1.Items.Add(“DENİZLİ”)
    ComboBox1.Items.Add(“DİYARBAKIR”)
    ComboBox1.Items.Add(“EDİRNE”)
    ComboBox1.Items.Add(“ELAZIĞ”)
    ComboBox1.Items.Add(“ERZİNCAN”)
    ComboBox1.Items.Add(“ERZURUM”)
    ComboBox1.Items.Add(“ESKİŞEHİR”)
    ComboBox1.Items.Add(“GAZİANTEP”)
    ComboBox1.Items.Add(“GİRESUN”)
    ComboBox1.Items.Add(“GÜMÜŞHANE”)
    ComboBox1.Items.Add(“HAKKARİ”)
    ComboBox1.Items.Add(“HATAY”)
    ComboBox1.Items.Add(“ISPARTA”)
    ComboBox1.Items.Add(“MERSİN”)
    ComboBox1.Items.Add(“İSTANBUL”)
    ComboBox1.Items.Add(“İZMİR”)
    ComboBox1.Items.Add(“KARS”)
    ComboBox1.Items.Add(“KASTAMONU”)
    ComboBox1.Items.Add(“KAYSERİ”)
    ComboBox1.Items.Add(“KIRKLARELİ”)
    ComboBox1.Items.Add(“KIRŞEHİR”)
    ComboBox1.Items.Add(“KOCAELİ”)
    ComboBox1.Items.Add(“KONYA”)
    ComboBox1.Items.Add(“KÜTAHYA”)
    ComboBox1.Items.Add(“MALATYA”)
    ComboBox1.Items.Add(“MANİSA”)
    ComboBox1.Items.Add(“KAHRAMANMARAŞ”)
    ComboBox1.Items.Add(“MARDİN”)
    ComboBox1.Items.Add(“MUĞLA”)
    ComboBox1.Items.Add(“MUŞ”)
    ComboBox1.Items.Add(“NEVŞEHİR”)
    ComboBox1.Items.Add(“NİĞDE”)
    ComboBox1.Items.Add(“ORDU”)
    ComboBox1.Items.Add(“RİZE”)
    ComboBox1.Items.Add(“SAKARYA”)
    ComboBox1.Items.Add(“SAMSUN”)
    ComboBox1.Items.Add(“SİİRT”)
    ComboBox1.Items.Add(“SİNOP”)
    ComboBox1.Items.Add(“SİVAS”)
    ComboBox1.Items.Add(“TEKİRDAĞ”)
    ComboBox1.Items.Add(“TOKAT”)
    ComboBox1.Items.Add(“TRABZON”)
    ComboBox1.Items.Add(“TUNCELİ”)
    ComboBox1.Items.Add(“ŞANLIURFA”)
    ComboBox1.Items.Add(“UŞAK”)
    ComboBox1.Items.Add(“VAN”)
    ComboBox1.Items.Add(“YOZGAT”)
    ComboBox1.Items.Add(“ZONGULDAK”)
    ComboBox1.Items.Add(“AKSARAY”)
    ComboBox1.Items.Add(“BAYBURT”)
    ComboBox1.Items.Add(“KARAMAN”)
    ComboBox1.Items.Add(“KIRIKKALE”)
    ComboBox1.Items.Add(“BATMAN”)
    ComboBox1.Items.Add(“ŞIRNAK”)
    ComboBox1.Items.Add(“BARTIN”)
    ComboBox1.Items.Add(“ARDAHAN”)
    ComboBox1.Items.Add(“IĞDIR”)
    ComboBox1.Items.Add(“YALOVA”)
    ComboBox1.Items.Add(“KARABÜK”)
    ComboBox1.Items.Add(“KİLİS”)
    ComboBox1.Items.Add(“OSMANİYE”)
    ComboBox1.Items.Add(“DÜZCE”)

    ComboBox3.Items.Add(“01”)
    ComboBox3.Items.Add(“02”)
    ComboBox3.Items.Add(“03”)
    ComboBox3.Items.Add(“04”)
    ComboBox3.Items.Add(“05”)
    ComboBox3.Items.Add(“06”)
    ComboBox3.Items.Add(“07”)
    ComboBox3.Items.Add(“08”)
    ComboBox3.Items.Add(“09”)
    ComboBox3.Items.Add(“10”)
    ComboBox3.Items.Add(“11”)
    ComboBox3.Items.Add(“12”)
    ComboBox3.Items.Add(“13”)
    ComboBox3.Items.Add(“14”)
    ComboBox3.Items.Add(“15”)
    ComboBox3.Items.Add(“16”)
    ComboBox3.Items.Add(“17”)
    ComboBox3.Items.Add(“18”)
    ComboBox3.Items.Add(“19”)
    ComboBox3.Items.Add(“20”)
    ComboBox3.Items.Add(“21”)
    ComboBox3.Items.Add(“22”)
    ComboBox3.Items.Add(“23”)
    ComboBox3.Items.Add(“24”)
    ComboBox3.Items.Add(“25”)
    ComboBox3.Items.Add(“26”)
    ComboBox3.Items.Add(“27”)
    ComboBox3.Items.Add(“28”)
    ComboBox3.Items.Add(“29”)
    ComboBox3.Items.Add(“30”)
    ComboBox3.Items.Add(“31”)
    ComboBox3.Items.Add(“32”)
    ComboBox3.Items.Add(“33”)
    ComboBox3.Items.Add(“34”)
    ComboBox3.Items.Add(“35”)
    ComboBox3.Items.Add(“36”)
    ComboBox3.Items.Add(“37”)
    ComboBox3.Items.Add(“38”)
    ComboBox3.Items.Add(“39”)
    ComboBox3.Items.Add(“40”)
    ComboBox3.Items.Add(“41”)
    ComboBox3.Items.Add(“42”)
    ComboBox3.Items.Add(“43”)
    ComboBox3.Items.Add(“44”)
    ComboBox3.Items.Add(“45”)
    ComboBox3.Items.Add(“46”)
    ComboBox3.Items.Add(“47”)
    ComboBox3.Items.Add(“48”)
    ComboBox3.Items.Add(“49”)
    ComboBox3.Items.Add(“50”)
    ComboBox3.Items.Add(“51”)
    ComboBox3.Items.Add(“52”)
    ComboBox3.Items.Add(“53”)
    ComboBox3.Items.Add(“54”)
    ComboBox3.Items.Add(“55”)
    ComboBox3.Items.Add(“56”)
    ComboBox3.Items.Add(“57”)
    ComboBox3.Items.Add(“58”)
    ComboBox3.Items.Add(“59”)
    ComboBox3.Items.Add(“60”)
    ComboBox3.Items.Add(“61”)
    ComboBox3.Items.Add(“62”)
    ComboBox3.Items.Add(“63”)
    ComboBox3.Items.Add(“64”)
    ComboBox3.Items.Add(“65”)
    ComboBox3.Items.Add(“66”)
    ComboBox3.Items.Add(“67”)
    ComboBox3.Items.Add(“68”)
    ComboBox3.Items.Add(“69”)
    ComboBox3.Items.Add(“70”)
    ComboBox3.Items.Add(“71”)
    ComboBox3.Items.Add(“72”)
    ComboBox3.Items.Add(“73”)
    ComboBox3.Items.Add(“74”)
    ComboBox3.Items.Add(“75”)
    ComboBox3.Items.Add(“76”)
    ComboBox3.Items.Add(“77”)
    ComboBox3.Items.Add(“78”)
    ComboBox3.Items.Add(“79”)
    ComboBox3.Items.Add(“80”)
    ComboBox3.Items.Add(“81”)
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    ComboBox2.Items.Clear()
    ComboBox2.Text = “”
    ComboBox3.SelectedIndex = ComboBox1.SelectedIndex

    Dim durum As Integer
    bag.Open()
    kmt.Connection = bag
    kmt.CommandText = (“SELECT * FROM ilceler WHERE (plaka LIKE ‘%”) + ComboBox3.Text & “%’ )”
    Dim oku As OleDbDataReader
    oku = kmt.ExecuteReader()
    While oku.Read()

    durum = ComboBox2.FindString(oku(2).ToString())
    If durum = -1 Then
    ComboBox2.Items.Add(oku(2).ToString())
    End If
    End While
    bag.Close()
    oku.Dispose()
    End Sub
    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged
    Dim index As Integer
    index = ComboBox3.FindString(ComboBox3.Text)
    ComboBox1.SelectedIndex = index
    End Sub
    End Class

Bir cevap yazın

Araç çubuğuna atla