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