Programlarımızı Güzelleştirelim

1.Mutlaka grafik olmasına özen gösterin
Evet.Mutlaka grafik olmasına özen gösterin.Eğer yapabilirseniz formunuza bir arkaplan koyun.Textboxlar ve buttonlar grafikli olsun.Böylece programınız güzel görünecektir ve satışı artacaktır.
2.Textbox püfleri
Textboxa eğer;
1.Tarih
2.Para birimi
3.Saat
4.Telefon numarası
girilecekse Textbox yerine MUTLAKA MaskEditBox kullanın.Böylece Kullanıcı daha güçlük çekecek ve o işi yapmaktan daha az sıkılacaktır :D.Tabi bu patronunda hoşuna gider.
MaskEditBox özellikleri;
Format kısmına eğer "#" yazılırsa sadece sayı yazılabilir anlamındadır."A" yazılırsada sadece harf yazılabilir anlamındadır.
Tarih için:##.##.####
(kolay olsun diye)Tarih için:##.##.20##
saat için: ##:##
telefon için:0(###) ### ## ##
MaskEditBox tanıtımı bukadar. 3.Açılış Olsun!
Program açılırken mutlaka koca harflerle program ismi ve küçük haflerle isminiz olsun.Bu çk hoş görünür.Açılışa yapacağınız 1-2 satırlık kod ile yönlendirmeyi yapabilirsiniz.
---------
Load Form1
Form1.Show
Unload Me
---------
Böylece bir açılışınız oldu!. 4.Hatalar
Kullanıcı işini yaparken anlamadığı "Run-Time" hataları çok canını sıkar.muhtemelen yaptığı onca iş kayıp olduğu için üzelecektir.O yüzden Hata Ayıklama olayını yapmanızı mutlaka tavsiye ediyorum. 5.Yedekleme
Kulanıcın anlamadığı anda bir hata çıkıp programın çökmesi sonucu o iş yeri için ciddi zarar olabilir.O yüzden mutlaka yedekleme olayını yapın.Örnek kod verirsek;
----------
Formun unload olayına
Filecopy "dbadresi" , "yedekleme adresi"
----------
Amaç her program kapandığında database i yedeklemek
----------
Şeklindedir.
Bu makalemde bu kadar.Umarım işinize yarar.
Unutmayın!Müşteri Kraldır :D

Yazıları Kaydıralım || VB

Dim yazi
Dim X
Dim z
Private Sub Form_Load()
yazi = "Kaysın Yazılar,Oynasın Dansözler :P" 'Buarayı Değiştirebilirsiniz
X = 0
z = Len(dene) 'yazımızın Uzunluğu
End Sub

Private Sub Timer1_Timer()
'kayan form basligi
Dim yazi1
118
z = z - 1
X = X + 1
yazi1 = Right(yazi, z) + " - " + Left(yazi, X)
Caption = yazi1
If z < 1 Then
z = Len(yazi)
X = 0
GoTo 118
End If
End Sub

Yukarıdaki kodları açıklamak gerekirse.Form_load gerçekleştiğinde yazı belirleniyor.ve formunuza koyduğunuz timer devreye giriyor.Z değişkenine yazımızın uzunluğu yükleniyor.daha sonrasında her timer dönüşü kodumuz devreye giriyor.daha sonrasında caption olarak bu yaziyi gösteriyoruz.Küçük bir kod parçasıdır.istediğiniz gibi değiştirebilir kullanabilirsiniz.

yazi1 = Right(yazi, z) + " - " + Left(yazi, X)
Kodu ile Z değeri kadar yazımızın sağından ve x değeri kadar yazimizin sol tarafından bilgilerimi alarak arayada bir tire atıyoruz

Text Olarak Verileri Kaydetmek | VB

Verilerimizi metin olarak kaydedeceğiz,bunun içinde listboxda bulunan verilerimizi kaydedeceğiz

aşağıdaki kodları bir module içine yazmanız gerekmektedir.

Public Sub listk(FileName As String, List As ListBox)
On Error Resume Next
Dim lngSave As Long

If FileName$ = "" Then Exit Sub

Open FileName$ For Output As #1
For lngSave& = 0 To List.ListCount - 1
Print #1, List.List(lngSave&)
Next lngSave&
Close #1
End Sub

Artık Fonksiyonumuzu Çağırabilirsiniz

Call listk("yalanmismeger.txt", List1)

Bu kod ile List1 in içeriğini programla aynı klasor içinde yalanmismeger.txt klasörüne kaydediyoruz.

Rasgele Sayılar | VB

VB de örneğin istediğinizde rasgele sayı üretmek istiyorsanız.Aşağıdaki kodlara bakabilirsiniz...

Önce dediğim gibi formunuza bir command ve bir de label ekleyin sonra command1.click kodu olarak bunları yazın

Private Sub Command1_Click()
Label1 = Int(Rnd * 10)
End Sub

Arkadaşlar işte kodumuz bu yalnız bir iki açıklama yapmak istiyorum

kodu yazarken önce sayının nerde belirmesini istiyorsanız onu yazın(Ör: Label1 yada bu bir değişkende olabilir) arkasından eşittir koyup "int" yazın bu komut 0-1 arasında bir sayı üretir

sonra parantez açıpta rnd(random) yazdığınızda VB o 0-1 arasındaki üretilen sayılardan birini alır sonrada sizin "*" işareti koyup yazdığınız rakamla çarpıp onu size verir bu rakam aynı zamanda sizin ürettirmek istediğiniz sayıların sınırıdır(Örnek için 10 yazdık bu demektir ki v.b. 0,1,2,3,4,5,6,7,8,9 sayılarından birini üreticek eğer 50 yazsaydık 1,2,3,4,5........47,48,49 sayılarından birini üretecekti).

Sayıları Sıralayalım | VB

Düşünüki Elinizdeki Sayıları Sıralatmak istiyorsunuz.

Mesela dizideki sayıları dizinin indeksine göre küçükten büyüğe dizmek istiyoruz.

Dizimizin adı Sayılar() olsun ve toplam 50 sayı depolasın yani

ReDim Sayılar(50)

Buyrun Kod;

For x=1 to 50
For y=x+1 to 50

If Sayılar(x)>Sayılar(y) Then '1.Sayı 2.Sayıdan büyükse yerlerini değiştirme.Yani küçük sayı başa gelir

m_s=Sayılar(x)
Sayılar(x)=Sayılar(y)
Sayılar(y)=m_s

End If

Next y
Next x

Hepisi Bu =).If satırındaki büyüktür (>) işaretini, küçüktür (<) ile değiştirirseniz diziniz büyükten küçüğe sıralanmış olur.