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 öğrenmek istediğiniz şehrin plaka kodunun girileceği yer.
Top : 480
Width : 1455

CommandButton için ;

Name : cmdOK
Caption : command1
Height : 375
Left : 120
ToolTipText : Yukarıda plaka kodu yazılan şehrin 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ığında ekrandaki çıktıyı Kayıt.txt olarak kaydeder.
Top : 0
Width : 240

image2 için ;

Name : image2
Height : 315
Left : 0
Picture : Soru işareti 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 öğrenmek istediğiniz şehrin isminin girileceği yer.
Top : 1200
Width : 1455
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İŞEHİ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ÜŞHANE”
’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 = “KIRŞEHİ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 = “KAHRAMANMARAŞ”
’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 = “MUŞ”
’50
If Text1.Text = 50 Then Label2.Caption = “NEVŞEHİ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 = “ŞANLIURFA”
’64
If Text1.Text = 64 Then Label2.Caption = “UŞAK”
’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 = “ŞIRNAK”
’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İŞEHİ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ÜŞHANE” 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 = “KIRŞEHİ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 = “KAHRAMANMARAŞ” 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 = “MUŞ” Then Label2.Caption = “49″
’50
If Text2.Text = “NEVŞEHİ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 = “ŞANLIURFA” Then Label2.Caption = “63″
’64
If Text2.Text = “UŞAK” 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 = “ŞIRNAK” 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ığınız isimde Türkiye’de bir şehir yoktur.”, vbCritical, “Bulunamadı..”: Text2.Text = “”
End If

End Sub

Private Sub Form_Load()
frmTrafik.Caption = “TR Plakalar”
Label1.Caption = “Plaka No Girin:”
Label3.Caption = “Şehir İ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İŞEHİ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ÜŞHANE”
’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 = “KIRŞEHİ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 = “KAHRAMANMARAŞ”
’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 = “MUŞ”
’50
If Text1.Text = 50 Then Label2.Caption = “NEVŞEHİ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 = “ŞANLIURFA”
’64
If Text1.Text = 64 Then Label2.Caption = “UŞAK”
’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 = “ŞIRNAK”
’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 şehirler olduğu TR Plakalar.txt olarak kaydedildi…”, vbInformation, “İşlem Tamamlandı…”
End Sub

Private Sub Image2_Click()
MsgBox “Eğer Kaydet’e 1 kez basarsanız.Ekranda o an olan şehir ve plaka kodunu <Kayıt.txt> olarak kaydedersiniz.Eğer 2 kez tıklarsanız tüm şehirleri 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 “Şehir 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