PROGRAMDA KULLANILAN NESNELER________________
1 adet form
3 adet Label
2 adet Textbox
2 adet OptionButton
1 adet CommandButton
2 adet image
NESNELERİN ÖZELLİKLERİ VE YERLERİ________________
Form1 için ;
Name : frmTrafik
BorderStyle : fixed Single
Caption : Plakalar
Height : 2580
Left : 0
MaxButton : False
MinButton : True
Top : 0
Width : 2325
option1 için ;
Name : OptNo
Height : 375
Left : 120
Top : 480
Width : 240
Option2 için ;
Name : OptAd
Height : 375
Left : 120
Top : 1200
Width : 240
Label1 için ;
Name : Label1
Alignment : Center
Caption : Label1
Height : 255
Left : 120
Top : 240
Width : 1935
Label2 için ;
Name : Label2
Alignment : Center
Caption : Label2
Height : 495
Left : 120
Top : 1560
Width : 1935
Text1 için ;
Name : Text1
Alignment : Center
BorderStyle : Fixed Single
Data Format : Number
Height : 375
Left : 360
MaxLength : 2
Text : Text1
ToolTipText : İsmini ögrenmek istediginiz sehrin plaka kodunun girilecegi yer.
Top : 480
Width : 1455
CommandButton için ;
Name : cmdOK
Caption : command1
Height : 375
Left : 120
ToolTipText : Yukarıda plaka kodu yazılan sehrin ismini yazar.
Top : 960
Width : 1935
image1 için ;
Name : image1
Height : 240
Left : 1920
Picture : Kaydet ikonu koyun..(Paint ile çizebilirsiniz.)
ToolTipText : Basıldıgında ekrandaki çıktıyı Kayıt.txt olarak kaydeder.
Top : 0
Width : 240
image2 için ;
Name : image2
Height : 315
Left : 0
Picture : Soru isareti ikonu koyun..(Paint ile çizebilirsiniz)
ToolTipText : Kayıt hakkında yardım içerir.
Top : 0
Width : 315
Label3 için ;
Name : Label3
Alignment : Center
Caption : Label3
Height : 255
Left : 360
Top : 960
Width : 1455
Text2 için ;
Name : Text2
Alignment : Center
BorderStyle : Fixed Single
Height : 375
Left : 360
MaxLength : 2
Text : Text1
ToolTipText : Plaka kodunu ögrenmek istediginiz sehrin isminin girilecegi yer.
Top : 1200
Width : 1455
KODLAMA____
Kod: Tümünü seç
Private Sub cmdOK_Click()
If OptNo.Value = True Then
If Text1.Text < 0 Then Text1.Text = Text1.Text * (-1)
If Text1.Text > 81 Then
MsgBox "81'den büyük plaka yoktur.", vbInformation, "Dikkat"
Text1.Text = 81
End If
'01
If Text1.Text = 1 Then Label2.Caption = "ADANA"
'02
If Text1.Text = 2 Then Label2.Caption = "ADIYAMAN"
'03
If Text1.Text = 3 Then Label2.Caption = "AFYON"
'04
If Text1.Text = 4 Then Label2.Caption = "AĞRI"
'05
If Text1.Text = 5 Then Label2.Caption = "AMASYA"
'06
If Text1.Text = 6 Then Label2.Caption = "ANKARA"
'07
If Text1.Text = 7 Then Label2.Caption = "ANTALYA"
'08
If Text1.Text = 8 Then Label2.Caption = "ARTVİN"
'09
If Text1.Text = 9 Then Label2.Caption = "AYDIN"
'10
If Text1.Text = 10 Then Label2.Caption = "BALIKESİR"
'11
If Text1.Text = 11 Then Label2.Caption = "BİLECİK"
'12
If Text1.Text = 12 Then Label2.Caption = "BİNGÖL"
'13
If Text1.Text = 13 Then Label2.Caption = "BİTLİS"
'14
If Text1.Text = 14 Then Label2.Caption = "BOLU"
'15
If Text1.Text = 15 Then Label2.Caption = "BURDUR"
'16
If Text1.Text = 16 Then Label2.Caption = "BURSA"
'17
If Text1.Text = 17 Then Label2.Caption = "ÇANAKKALE"
'18
If Text1.Text = 18 Then Label2.Caption = "ÇANKIRI"
'19
If Text1.Text = 19 Then Label2.Caption = "ÇORUM"
'20
If Text1.Text = 20 Then Label2.Caption = "DENİZLİ"
'21
If Text1.Text = 21 Then Label2.Caption = "DİYARBAKIR"
'22
If Text1.Text = 22 Then Label2.Caption = "EDİRNE"
'23
If Text1.Text = 23 Then Label2.Caption = "ELAZIĞ"
'24
If Text1.Text = 24 Then Label2.Caption = "ERZİNCAN"
'25
If Text1.Text = 25 Then Label2.Caption = "ERZURUM"
'26
If Text1.Text = 26 Then Label2.Caption = "ESKİsEHİR"
'27
If Text1.Text = 27 Then Label2.Caption = "GAZİANTEP"
'28
If Text1.Text = 28 Then Label2.Caption = "GİRESUN"
'29
If Text1.Text = 29 Then Label2.Caption = "GÜMÜsHANE"
'30
If Text1.Text = 30 Then Label2.Caption = "HAKKARİ"
'31
If Text1.Text = 31 Then Label2.Caption = "HATAY"
'32
If Text1.Text = 32 Then Label2.Caption = "ISPARTA"
'33
If Text1.Text = 33 Then Label2.Caption = "İÇEL"
'34
If Text1.Text = 34 Then Label2.Caption = "İSTANBUL"
'35
If Text1.Text = 35 Then Label2.Caption = "İZMİR"
'36
If Text1.Text = 36 Then Label2.Caption = "KARS"
'37
If Text1.Text = 37 Then Label2.Caption = "KASTAMONU"
'38
If Text1.Text = 38 Then Label2.Caption = "KAYSERİ"
'39
If Text1.Text = 39 Then Label2.Caption = "KIRKLARELİ"
'40
If Text1.Text = 40 Then Label2.Caption = "KIRsEHİR"
'41
If Text1.Text = 41 Then Label2.Caption = "İZMİT-KOCAELİ"
'42
If Text1.Text = 42 Then Label2.Caption = "KONYA"
'43
If Text1.Text = 43 Then Label2.Caption = "KÜTAHYA"
'44
If Text1.Text = 44 Then Label2.Caption = "MALATYA"
'45
If Text1.Text = 45 Then Label2.Caption = "MANİSA"
'46
If Text1.Text = 46 Then Label2.Caption = "KAHRAMANMARAs"
'47
If Text1.Text = 47 Then Label2.Caption = "MARDİN"
'48
If Text1.Text = 48 Then Label2.Caption = "MUĞLA"
'49
If Text1.Text = 49 Then Label2.Caption = "MUs"
'50
If Text1.Text = 50 Then Label2.Caption = "NEVsEHİR"
'51
If Text1.Text = 51 Then Label2.Caption = "NİĞDE"
'52
If Text1.Text = 52 Then Label2.Caption = "ORDU"
'53
If Text1.Text = 53 Then Label2.Caption = "RİZE"
'54
If Text1.Text = 54 Then Label2.Caption = "SAKARYA"
'55
If Text1.Text = 55 Then Label2.Caption = "SAMSUN"
'56
If Text1.Text = 56 Then Label2.Caption = "SİİRT"
'57
If Text1.Text = 57 Then Label2.Caption = "SİNOP"
'58
If Text1.Text = 58 Then Label2.Caption = "SİVAS"
'59
If Text1.Text = 59 Then Label2.Caption = "TEKİRDAĞ"
'60
If Text1.Text = 60 Then Label2.Caption = "TOKAT"
'61
If Text1.Text = 61 Then Label2.Caption = "TRABZON"
'62
If Text1.Text = 62 Then Label2.Caption = "TUNCELİ"
'63
If Text1.Text = 63 Then Label2.Caption = "sANLIURFA"
'64
If Text1.Text = 64 Then Label2.Caption = "UsAK"
'65
If Text1.Text = 65 Then Label2.Caption = "VAN"
'66
If Text1.Text = 66 Then Label2.Caption = "YOZGAT"
'67
If Text1.Text = 67 Then Label2.Caption = "ZONGULDAK"
'68
If Text1.Text = 68 Then Label2.Caption = "AKSARAY"
'69
If Text1.Text = 69 Then Label2.Caption = "BAYBURT"
'70
If Text1.Text = 70 Then Label2.Caption = "KARAMAN"
'71
If Text1.Text = 71 Then Label2.Caption = "KIRIKKALE"
'72
If Text1.Text = 72 Then Label2.Caption = "BATMAN"
'73
If Text1.Text = 73 Then Label2.Caption = "sIRNAK"
'74
If Text1.Text = 74 Then Label2.Caption = "BARTIN"
'75
If Text1.Text = 75 Then Label2.Caption = "ARDAHAN"
'76
If Text1.Text = 76 Then Label2.Caption = "IĞDIR"
'77
If Text1.Text = 77 Then Label2.Caption = "YALOVA"
'78
If Text1.Text = 78 Then Label2.Caption = "KARABÜK"
'79
If Text1.Text = 79 Then Label2.Caption = "KİLİS"
'80
If Text1.Text = 80 Then Label2.Caption = "OSMANİYE"
'81
If Text1.Text = 81 Then Label2.Caption = "DÜZCE"
End If
If OptAd.Value = True Then
'01
If Text2.Text = "ADANA" Then Label2.Caption = "01"
'02
If Text2.Text = "ADIYAMAN" Then Label2.Caption = "02"
'03
If Text2.Text = "AFYON" Then Label2.Caption = "03"
'04
If Text2.Text = "AĞRI" Then Label2.Caption = "04"
'05
If Text2.Text = "AMASYA" Then Label2.Caption = "05"
'06
If Text2.Text = "ANKARA" Then Label2.Caption = "06"
'07
If Text2.Text = "ANTALYA" Then Label2.Caption = "07"
'08
If Text2.Text = "ARTVİN" Then Label2.Caption = "08"
'09
If Text2.Text = "AYDIN" Then Label2.Caption = "09"
'10
If Text2.Text = "BALIKESİR" Then Label2.Caption = "10"
'11
If Text2.Text = "BİLECİK" Then Label2.Caption = "11"
'12
If Text2.Text = "BİNGÖL" Then Label2.Caption = "12"
'13
If Text2.Text = "BİTLİS" Then Label2.Caption = "13"
'14
If Text2.Text = "BOLU" Then Label2.Caption = "14"
'15
If Text2.Text = "BURDUR" Then Label2.Caption = "15"
'16
If Text2.Text = "BURSA" Then Label2.Caption = "16"
'17
If Text2.Text = "ÇANAKKALE" Then Label2.Caption = "17"
'18
If Text2.Text = "ÇANKIRI" Then Label2.Caption = "18"
'19
If Text2.Text = "ÇORUM" Then Label2.Caption = "19"
'20
If Text2.Text = "DENİZLİ" Then Label2.Caption = "20"
'21
If Text2.Text = "DİYARBAKIR" Then Label2.Caption = "21"
'22
If Text2.Text = "EDİRNE" Then Label2.Caption = "22"
'23
If Text2.Text = "ELAZIĞ" Then Label2.Caption = "23"
'24
If Text2.Text = "ERZİNCAN" Then Label2.Caption = "24"
'25
If Text2.Text = "ERZURUM" Then Label2.Caption = "25"
'26
If Text2.Text = "ESKİsEHİR" Then Label2.Caption = "26"
'27
If Text2.Text = "GAZİANTEP" Then Label2.Caption = "27"
'28
If Text2.Text = "GİRESUN" Then Label2.Caption = "28"
'29
If Text2.Text = "GÜMÜsHANE" Then Label2.Caption = "29"
'30
If Text2.Text = "HAKKARİ" Then Label2.Caption = "30"
'31
If Text2.Text = "HATAY" Then Label2.Caption = "31"
'32
If Text2.Text = "ISPARTA" Then Label2.Caption = "32"
'33
If Text2.Text = "İÇEL" Then Label2.Caption = "33"
'34
If Text2.Text = "İSTANBUL" Then Label2.Caption = "34"
'35
If Text2.Text = "İZMİR" Then Label2.Caption = "35"
'36
If Text2.Text = "KARS" Then Label2.Caption = "36"
'37
If Text2.Text = "KASTAMONU" Then Label2.Caption = "37"
'38
If Text2.Text = "KAYSERİ" Then Label2.Caption = "38"
'39
If Text2.Text = "KIRKLARELİ" Then Label2.Caption = "39"
'40
If Text2.Text = "KIRsEHİR" Then Label2.Caption = "40"
'41
If Text2.Text = "İZMİT" Or Text2.Text = "KOCAELİ" Then Label2.Caption = "41"
'42
If Text2.Text = "KONYA" Then Label2.Caption = "42"
'43
If Text2.Text = "KÜTAHYA" Then Label2.Caption = "43"
'44
If Text2.Text = "MALATYA" Then Label2.Caption = "44"
'45
If Text2.Text = "MANİSA" Then Label2.Caption = "45"
'46
If Text2.Text = "KAHRAMANMARAs" Then Label2.Caption = "46"
'47
If Text2.Text = "MARDİN" Then Label2.Caption = "47"
'48
If Text2.Text = "MUĞLA" Then Label2.Caption = "48"
'49
If Text2.Text = "MUs" Then Label2.Caption = "49"
'50
If Text2.Text = "NEVsEHİR" Then Label2.Caption = "50"
'51
If Text2.Text = "NİĞDE" Then Label2.Caption = "51"
'52
If Text2.Text = "ORDU" Then Label2.Caption = "52"
'53
If Text2.Text = "RİZE" Then Label2.Caption = "53"
'54
If Text2.Text = "SAKARYA" Then Label2.Caption = "54"
'55
If Text2.Text = "SAMSUN" Then Label2.Caption = "55"
'56
If Text2.Text = "SİİRT" Then Label2.Caption = "56"
'57
If Text2.Text = "SİNOP" Then Label2.Caption = "57"
'58
If Text2.Text = "SİVAS" Then Label2.Caption = "58"
'59
If Text2.Text = "TEKİRDAĞ" Then Label2.Caption = "59"
'60
If Text2.Text = "TOKAT" Then Label2.Caption = "60"
'61
If Text2.Text = "TRABZON" Then Label2.Caption = "61"
'62
If Text2.Text = "TUNCELİ" Then Label2.Caption = "62"
'63
If Text2.Text = "sANLIURFA" Then Label2.Caption = "63"
'64
If Text2.Text = "UsAK" Then Label2.Caption = "64"
'65
If Text2.Text = "VAN" Then Label2.Caption = "65"
'66
If Text2.Text = "YOZGAT" Then Label2.Caption = "66"
'67
If Text2.Text = "ZONGULDAK" Then Label2.Caption = "67"
'68
If Text2.Text = "AKSARAY" Then Label2.Caption = "68"
'69
If Text2.Text = "BAYBURT" Then Label2.Caption = "69"
'70
If Text2.Text = "KARAMAN" Then Label2.Caption = "70"
'71
If Text2.Text = "KIRIKKALE" Then Label2.Caption = "71"
'72
If Text2.Text = "BATMAN" Then Label2.Caption = "72"
'73
If Text2.Text = "sIRNAK" Then Label2.Caption = "73"
'74
If Text2.Text = "BARTIN" Then Label2.Caption = "74"
'75
If Text2.Text = "ARDAHAN" Then Label2.Caption = "75"
'76
If Text2.Text = "IĞDIR" Then Label2.Caption = "76"
'77
If Text2.Text = "YALOVA" Then Label2.Caption = "77"
'78
If Text2.Text = "KARABÜK" Then Label2.Caption = "78"
'79
If Text2.Text = "KİLİS" Then Label2.Caption = "79"
'80
If Text2.Text = "OSMANİYE" Then Label2.Caption = "80"
'81
If Text2.Text = "DÜZCE" Then Label2.Caption = "81"
If Label2.Caption = "" Then MsgBox "Yazdıgınız isimde Türkiye'de bir sehir yoktur.", vbCritical, "Bulunamadı..": Text2.Text = ""
End If
End Sub
Private Sub Form_Load()
frmTrafik.Caption = "TR Plakalar"
Label1.Caption = "Plaka No Girin:"
Label3.Caption = "sehir İsmi Girin:"
OptNo.Value = True
Text2.Enabled = False
cmdOK.Caption = "&Bul"
cmdOK.Default = True
Label2.Caption = ""
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Image1_Click()
Open "Kayıt.txt" For Append As #1
If OptNo.Value = True Then
Write #1, Text1.Text + " " + Label2.Caption
Close #1
End If
If OptAd.Value = True Then
Write #1, Label2.Caption + " " + Text2.Text
Close #1
End If
End Sub
Private Sub Image1_DblClick()
Open "TR Plakaları.txt" For Output As #2
For i = 1 To 81
Text1.Text = i
'01
If Text1.Text = 1 Then Label2.Caption = "ADANA"
'02
If Text1.Text = 2 Then Label2.Caption = "ADIYAMAN"
'03
If Text1.Text = 3 Then Label2.Caption = "AFYON"
'04
If Text1.Text = 4 Then Label2.Caption = "AĞRI"
'05
If Text1.Text = 5 Then Label2.Caption = "AMASYA"
'06
If Text1.Text = 6 Then Label2.Caption = "ANKARA"
'07
If Text1.Text = 7 Then Label2.Caption = "ANTALYA"
'08
If Text1.Text = 8 Then Label2.Caption = "ARTVİN"
'09
If Text1.Text = 9 Then Label2.Caption = "AYDIN"
'10
If Text1.Text = 10 Then Label2.Caption = "BALIKESİR"
'11
If Text1.Text = 11 Then Label2.Caption = "BİLECİK"
'12
If Text1.Text = 12 Then Label2.Caption = "BİNGÖL"
'13
If Text1.Text = 13 Then Label2.Caption = "BİTLİS"
'14
If Text1.Text = 14 Then Label2.Caption = "BOLU"
'15
If Text1.Text = 15 Then Label2.Caption = "BURDUR"
'16
If Text1.Text = 16 Then Label2.Caption = "BURSA"
'17
If Text1.Text = 17 Then Label2.Caption = "ÇANAKKALE"
'18
If Text1.Text = 18 Then Label2.Caption = "ÇANKIRI"
'19
If Text1.Text = 19 Then Label2.Caption = "ÇORUM"
'20
If Text1.Text = 20 Then Label2.Caption = "DENİZLİ"
'21
If Text1.Text = 21 Then Label2.Caption = "DİYARBAKIR"
'22
If Text1.Text = 22 Then Label2.Caption = "EDİRNE"
'23
If Text1.Text = 23 Then Label2.Caption = "ELAZIĞ"
'24
If Text1.Text = 24 Then Label2.Caption = "ERZİNCAN"
'25
If Text1.Text = 25 Then Label2.Caption = "ERZURUM"
'26
If Text1.Text = 26 Then Label2.Caption = "ESKİsEHİR"
'27
If Text1.Text = 27 Then Label2.Caption = "GAZİANTEP"
'28
If Text1.Text = 28 Then Label2.Caption = "GİRESUN"
'29
If Text1.Text = 29 Then Label2.Caption = "GÜMÜsHANE"
'30
If Text1.Text = 30 Then Label2.Caption = "HAKKARİ"
'31
If Text1.Text = 31 Then Label2.Caption = "HATAY"
'32
If Text1.Text = 32 Then Label2.Caption = "ISPARTA"
'33
If Text1.Text = 33 Then Label2.Caption = "İÇEL"
'34
If Text1.Text = 34 Then Label2.Caption = "İSTANBUL"
'35
If Text1.Text = 35 Then Label2.Caption = "İZMİR"
'36
If Text1.Text = 36 Then Label2.Caption = "KARS"
'37
If Text1.Text = 37 Then Label2.Caption = "KASTAMONU"
'38
If Text1.Text = 38 Then Label2.Caption = "KAYSERİ"
'39
If Text1.Text = 39 Then Label2.Caption = "KIRKLARELİ"
'40
If Text1.Text = 40 Then Label2.Caption = "KIRsEHİR"
'41
If Text1.Text = 41 Then Label2.Caption = "İZMİT-KOCAELİ"
'42
If Text1.Text = 42 Then Label2.Caption = "KONYA"
'43
If Text1.Text = 43 Then Label2.Caption = "KÜTAHYA"
'44
If Text1.Text = 44 Then Label2.Caption = "MALATYA"
'45
If Text1.Text = 45 Then Label2.Caption = "MANİSA"
'46
If Text1.Text = 46 Then Label2.Caption = "KAHRAMANMARAs"
'47
If Text1.Text = 47 Then Label2.Caption = "MARDİN"
'48
If Text1.Text = 48 Then Label2.Caption = "MUĞLA"
'49
If Text1.Text = 49 Then Label2.Caption = "MUs"
'50
If Text1.Text = 50 Then Label2.Caption = "NEVsEHİR"
'51
If Text1.Text = 51 Then Label2.Caption = "NİĞDE"
'52
If Text1.Text = 52 Then Label2.Caption = "ORDU"
'53
If Text1.Text = 53 Then Label2.Caption = "RİZE"
'54
If Text1.Text = 54 Then Label2.Caption = "SAKARYA"
'55
If Text1.Text = 55 Then Label2.Caption = "SAMSUN"
'56
If Text1.Text = 56 Then Label2.Caption = "SİİRT"
'57
If Text1.Text = 57 Then Label2.Caption = "SİNOP"
'58
If Text1.Text = 58 Then Label2.Caption = "SİVAS"
'59
If Text1.Text = 59 Then Label2.Caption = "TEKİRDAĞ"
'60
If Text1.Text = 60 Then Label2.Caption = "TOKAT"
'61
If Text1.Text = 61 Then Label2.Caption = "TRABZON"
'62
If Text1.Text = 62 Then Label2.Caption = "TUNCELİ"
'63
If Text1.Text = 63 Then Label2.Caption = "sANLIURFA"
'64
If Text1.Text = 64 Then Label2.Caption = "UsAK"
'65
If Text1.Text = 65 Then Label2.Caption = "VAN"
'66
If Text1.Text = 66 Then Label2.Caption = "YOZGAT"
'67
If Text1.Text = 67 Then Label2.Caption = "ZONGULDAK"
'68
If Text1.Text = 68 Then Label2.Caption = "AKSARAY"
'69
If Text1.Text = 69 Then Label2.Caption = "BAYBURT"
'70
If Text1.Text = 70 Then Label2.Caption = "KARAMAN"
'71
If Text1.Text = 71 Then Label2.Caption = "KIRIKKALE"
'72
If Text1.Text = 72 Then Label2.Caption = "BATMAN"
'73
If Text1.Text = 73 Then Label2.Caption = "sIRNAK"
'74
If Text1.Text = 74 Then Label2.Caption = "BARTIN"
'75
If Text1.Text = 75 Then Label2.Caption = "ARDAHAN"
'76
If Text1.Text = 76 Then Label2.Caption = "IĞDIR"
'77
If Text1.Text = 77 Then Label2.Caption = "YALOVA"
'78
If Text1.Text = 78 Then Label2.Caption = "KARABÜK"
'79
If Text1.Text = 79 Then Label2.Caption = "KİLİS"
'80
If Text1.Text = 80 Then Label2.Caption = "OSMANİYE"
'81
If Text1.Text = 81 Then Label2.Caption = "DÜZCE"
Write #2, Text1.Text + " " + Label2.Caption
Next i
Close #2
Text1.Text = ""
Label2.Caption = ""
MsgBox "Tüm plakalar ve hangi sehirler oldugu TR Plakalar.txt olarak kaydedildi...", vbInformation, "İslem Tamamlandı..."
End Sub
Private Sub Image2_Click()
MsgBox "Eger Kaydet'e 1 kez basarsanız.Ekranda o an olan sehir ve plaka kodunu <Kayıt.txt> olarak kaydedersiniz.Eger 2 kez tıklarsanız tüm sehirleri ve plaka kodlarını <TR Plakalar.txt> olarak kaydedersiniz.", , "Yardım"
End Sub
Private Sub OptAd_Click()
Text1.Text = ""
Text1.Enabled = False
Text2.Enabled = True
MsgBox "sehir ismini BÜYÜK harflerle yazınız..", vbInformation, "Uyarı"
End Sub
Private Sub Text1_Change()
Label2.Caption = ""
End Sub
Private Sub Text2_Change()
Label2.Caption = ""
End Sub
**Kodlar Alıntıdır. Ben DENEDİM