Visual Basic 6.0 Programlama Dersleri (Normal Seviye)

Merhaba Arkadaşlar;

Bende Sizlere Visual Basic 6.0 Programlama konusunda sizlere yardımcı
olmaya çalışacam bu başlık altında, Her zaman yeni bir konu ile ilgili
bilgi bulabileceksiniz bu dersleri sürekli takip ettiğiniz sürece
sizlerde iyi derece de Visual Basic 6.0 'da program yapma yeteneğine
sahip olabilirsiniz.. Sözü fazla uzatmadan önce Lütfen bu başlık altında
yorumlarınızı yazmayınız çünkü burda sadece Sizlere Visual Basic 6.0
hakkında Dersleri aktaracam....

Herkeze Şimdiden Kolay Gelsin


Derslere Hemen Burda Başlıyalım Ne Dersiniz

Visual Basic Çok amaçlı işlemlerde rahatça kullanabiliriz... Yapacağımız
Projede istediğimiz Görselliği Ekleyebilir veya Düzeltebiliriz Mesela
Formumuza Resim ekleyip o resmin sadece çıkması için Formumuzu
Traşlayabiliriz yani sizin anlayacağınız Formumuzu kesebiliriz. Visual
Basic 6.0 kısaca tanımlamaya çalışayım Proje çalışması yani Form
üzerinde butonlar labellar gibi işlemleri yaparız, Modul kısmında ise
Sabit tanımlamaları yaparız ve bu tanımlamaları projenin herhangi bir
forum başlığında kullanabiliriz. Ben ilk derslerimde bunları sizlere
anlatmaya çalışacağım sonraki aşamalarda ise Class Modul, MDI Form, User
Control, Property v.b alt kontrollerimizi sizlerle paylaşacaz ve
öğrenecez....

Bugün ilk öğreneceğimiz konu Text, Label, Buton, Formumuz da kullanma
şekilleri ve içinde bulunan özellikleri kullanmayı öğrenecez.

ilk önce Vbasic de standart exe ile projemizi oluşturalım.

Forum Properties(Ayarlar) kısmı hemen sağ alt köşede bulunmaktadır.
Burda Formun Adı formumuzun Ekran görüntüsü ayarı Arka plan rengi, yazı
rengi, formun üst açıklaması , Ekranı kaplaması yada simge durumu gibi
bir çok ayarları var.

Biz ilk formuzun Keypreview kısmını bulup False olan değişkenimizi True
Yapıyoruz. Burda formumuzda Fonksiyon tuşlarına basıldığında ki
işlemleri yaptıracaz. Sonra startupposition seçeneğinide
"2-CenterScreen" seçelim

Şimdi Formumuza 2 tane Text Box , 4 Tane Etike yani Label, 1 Tanede
Buton ekliyoruz

Aşağıdaki Gibi:


ve Text1 yazılı box sımızı çift tıklayalım kod bölümüne geçelim bize ilk
Text1_Change alt yordamı gelecek, Hemen uste Text1 dropdown menu var
onun yanında da dropdown menu var orayı tıklayıp Keypress 'i seçelim.

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text2.SetFocus
'13 keyascii de enter anlamındadır text2.setfocus ise text2 box mıza
imleci gönderiyoruz.
End Sub

aynı işlemi Text2 Box mızada yapalım

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text1.SetFocus
'13 keyascii de enter anlamındadır text1.setfocus ise text1 box mıza
imleci gönderiyoruz.
End Sub

şimdi forum load açmamız lazım forumu mousla 2 kere tıklayarak forum
load alt yordamını açmış oluyoruz.
tools larımıza açıklamlarımızı giriyoruz.

Private Sub Form_Load()
Label1.Caption = "1. Sayıyı Girin:"
Label2.Caption = "2. Sayıyı Girin:"
Text1.Text = "": Text2.Text = ""
Label3.Caption = "": Label4.Caption = ""
Command1.Caption = "Çıkartma Yap"
End Sub

formumuzda daha işlem bitmedi hemen Formumuzun uste Load Dropdown
menusunu tıklayıp KeyPress 'i seçelim

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then Unload Me
End Sub

Burayı yazdıktan sonra aynen dropdown menuden bu sefer form dan unload
seçelim

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Programdan Çıkmaya eminmisiniz?", 36 + 256, "Program Kapat") =
vbYes Then
Cancel = False
Else
Cancel = True
End If
End Sub

Buraya kadar hem formumuz da genen ince ayarlar yaptık hemde textbox
larımızda gelelim şimdi butonumumuza görev vermeye...

Private Sub Command1_Click()
Dim Sonuc, a1, a2, Mesaj
If Text1.Text = "" Or Text2.Text = "" Then ' text1 veya text2
seçeneklerimizden herhangi biri boş ise hata olduğunu bildir.
a1 = "Lütfen 1. Sayi veya 2. Sayi" + Chr(13) 'chr(13) enter anlamına
geliyor
a2 = "Seçeneklerini Boş bırakmayınız"
Mesaj = a1 & a2
MsgBox Mesaj, 32, "Hata"
Exit Sub
End If

If Text1.Text > Text2.Text Then
Label3.Caption = "Text1=" & Text1.Text & " - Text2=" &
Text2.Text
Sonuc = Text1 - Text2
Label4.Caption = Sonuc & " Çıkmıştır."
Else
Label3.Caption = "Text2=" & Text2.Text & " - Text1=" &
Text1.Text
Sonuc = Text2 - Text1
Label4.Caption = Sonuc & " Çıkmıştır."
End If
End Sub

Programımız Bitmiştir şimdi çalıştırıp deneyebiliriz. Daha da geliştirme
veya Düzeltmeler yapıp görsellik ekleyebiliriz.



Saygılarımla

Güzel Anlatmışın Ama Kendin Yapamıyon Napçaz