Visual Basicte Çeşitli Örnekler

[XNHCX]

    Hesap Makinesi



http://sct.mdkgroup.com/1/programlama/vbasic.htm

XNHCX

[XNHCX]

Basit bir program tasarımı....



Ayrıntılar...
http://sct.mdkgroup.com/2/programlama/blue_devil/vb.htm

XNHCX

[XNHCX]

Visual Basic ile Sayısal Loto  

http://sct.mdkgroup.com/3/programlama/blue_devil/vb.htm

XNHCX

[XNHCX]

Daha çok yeni başlayanlara yönelik basit bazı komutları operatörleri kullanmasını pekiştirmesi amacıyla ufak bir program...



http://sct.mdkgroup.com/4/programlama/blue_devil/vb.htm

XNHCX

[XNHCX]

KeyDown, KeyPress ve ScrollBarlar ile ilgili bir proje...





http://sct.mdkgroup.com/5/programlama/blue_devil/vb.htm

XNHCX

[XNHCX]

Değişkenler ve Prosedürler - 1

Değişkenler ve Prosedürler - 2

XNHCX

[XNHCX]

Forma kayan bir başlık ekleme...

http://sct.mdkgroup.com/8/programlama/blue_devil/vb.htm

XNHCX

[XNHCX]

Yukarı doğru Kayan

Yazı

runtime msg ekleyebileceğiniz hoş bir kayan yazı ocx i..ayrıca ocx hazırlama konusunda oldukça faydalı olacağını

düşünüyorum..kodlar açıklamalıdır saygılar

Proje sahibi:Murat Çapanoğlu (cpu)

http://www.programlama.com/Main/files/1946_textkay.zip

[XNHCX]

KAYAN

YAZI

KAYAN YAZI ÖRNEĞİ. PROGRAMLAMA.COM VE VB'ye GÖNÜL VERENLER İÇİN. BİR GÜN

BÖYLE BİR UYGULAMAYA İHTİYACIM OLDU
HAZIRCILIK EDEYİM DEDİM FAKAT ADAM GİBİ YAZILMIŞ BİR ÖRNEK BULAMADIM BENDE OTURDUM KENDİM

YAZDIM UMARIM BEĞENİRSİNİZ

Proje Sahibi: Murat Küçük

http://www.mtksoft.net/Kayany.zip

[XNHCX]

Kendi sözlüğünüzü

oluşturun!

İlk önce form üzerine bir Toolbar nesnesi,Toolbar üzerindeki komut düğmelerinin resimlendirilmesi için bir

ImageList,Timer,iki tane Label,iki tane TextBox,MsFlexGrid,Data ve StatusBar nesnelerini çiziniz.
Şimdi form üzerine eklediğimiz nesnelerin özelliklerini biraz değiştirelim. İngilizce kelimenin

Türkçe karşılığını gireceğiniz Textbox ın genişliğini arttırın ve MultiLine özelliğini True atayın.Timer kontrolünün Interval özelliğini 100 girin.Data nesnesini Sozluk adlı Access veritabanı ile

ilişkilendirin.MsFlexGrid nesnesinin DataSource özelliği ile data nesnesini ilişkilendirin. Programın kodlarında görüldüğü gibi veritabanının yolunu "C:BelgelerimSozluk" olarak belirtiğim için

Sozluk veritabanını kendi bilgisayarınızda C:Belgelerim" dizinine kopyalayınız.
Herkeze iyi çalışmalar.

Private Sub Form_Load()
Dim dosya As Database
Dim kayit As

Recordset
Dim i, cevap
Set dosya = OpenDatabase("c:BelgelerimSozluk")
Set kayit = dosya.OpenRecordset("Kelimeler")
StatusBar1.Panels(3).Text =

kayit.RecordCount
MSFlexGrid1.Col = 1
MSFlexGrid1.ColWidth(0) = 2000
MSFlexGrid1.ColWidth(1) = 5000
End Sub

Private Sub Text1_Change()
If Text1

= "" Then
 Toolbar1.Buttons(3).Enabled = False
 Toolbar1.Buttons(2).Enabled = False
 Toolbar1.Buttons(4).Enabled = False
 Toolbar1.Buttons(5).Enabled =

False
Else
 Toolbar1.Buttons(3).Enabled = True
 Toolbar1.Buttons(2).Enabled = True
 Toolbar1.Buttons(4).Enabled = True
 Toolbar1.Buttons(5).Enabled =

True
End If
End Sub

Private Sub Text1_Click()
If Text1 = "" Then
 Toolbar1.Buttons(3).Enabled = False
 Toolbar1.Buttons(2).Enabled = False
 

Toolbar1.Buttons(4).Enabled = False
 Toolbar1.Buttons(5).Enabled = False
Else
 Toolbar1.Buttons(3).Enabled = True
 Toolbar1.Buttons(2).Enabled = True
 

Toolbar1.Buttons(4).Enabled = True
 Toolbar1.Buttons(5).Enabled = True
End If
End Sub

Private Sub Timer1_Timer()
MSFlexGrid1.Col =

0
MSFlexGrid1.Sort = 5
Timer1.Enabled = False
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Local Error GoTo

hata
Dim dosya As Database
Dim kayit As Recordset
Dim i, cevap
Set dosya = OpenDatabase("c:BelgelerimSozluk")
Set kayit =

dosya.OpenRecordset("Kelimeler")
Select Case Button.Key
 Case "Yeni"
  Text1 = ""
  Text2 = ""
 Case "Kaydet"
  kayit.MoveFirst
   For i =

1 To kayit.RecordCount
    If Text1 = kayit.Fields("Ingilizce") Then
     StatusBar1.Panels(1).Text = "Bu kelime sözlükte zaten var"
     Exit Sub
    Else
     

kayit.MoveNext
    End If
   Next i
    kayit.AddNew
    kayit.Fields("Ingilizce") = Text1
    kayit.Fields("Turkce") = Text2
    kayit.Update
   

Data1.Refresh
    StatusBar1.Panels(3).Text = kayit.RecordCount
    Text1 = ""
    Text2 = ""
    Text1.SetFocus
    MSFlexGrid1.Col = 0
   

MSFlexGrid1.Sort = 5
 Case "Bul"
  kayit.MoveFirst
  For i = 1 To kayit.RecordCount
   If Text1 = kayit.Fields("Ingilizce") Then
    Text2 =

kayit.Fields("Turkce")
    StatusBar1.Panels(1).Text = ""
    Exit Sub
   Else
    kayit.MoveNext
   End If
  Next i
 Case "Sil"
  cevap =

MsgBox("Bu kelime sözlükten silinecek!Emin misiniz?", 4, "Dikkat")
   If cevap = vbYes Then
    kayit.MoveFirst
    For i = 1 To kayit.RecordCount
     If Text1 =

kayit.Fields("Ingilizce") Then
      kayit.Delete
      Data1.Refresh
      StatusBar1.Panels(3).Text = kayit.RecordCount
      MSFlexGrid1.Col = 0
     

MSFlexGrid1.Sort = 5
      Text1 = ""
      Text2 = ""
      Text1.SetFocus
      Exit Sub
     Else
      kayit.MoveNext
     End If
    Next i
   

Else
    Exit Sub
   End If
 Case "Duzenle"
  kayit.MoveFirst
  For i = 1 To kayit.RecordCount
   If Text1 = kayit.Fields("Ingilizce") Then
   

kayit.Edit
    kayit.Fields("Ingilizce") = Text1
    kayit.Fields("Turkce") = Text2
    kayit.Update
    Data1.Refresh
    MSFlexGrid1.Col = 0
   

MSFlexGrid1.Sort = 5
    Exit Sub
   Else
    kayit.MoveNext
   End If
  Next i
  End Select
hata:
  If Err = 3021 Then
   StatusBar1.Panels(1).Text

= "Aradiginiz kelime sozlukte yok"
  End If
End Sub

-------

Proje Sahibi: Devrim Kırgız



http://www.programlama.com/Main/vb/examples/Sozluk.zip

[XNHCX]

QBasic Seri Port

İletişimi

Bir seri por transfer programı. Bilgisayarlar arasında kullanılması gerek ise com porta uygun bir cros kablo. Bu program yalnızca

Com1 ve Com2 yi kullanabilir.Baya bi uğraşmıştım.Umarım
birilerinin işine yarar

Proje Sahibi:Erencan

Sağıroğlu

http://www.programlama.com/Main/vb/examples/seriport.zip

[XNHCX]

Vb6.0 Seri Port Örnek

Programı

http://groups.yahoo.com/group/PicProjeUP/files/MHK/

Vb6.0 seri port örnek programı.zip

[XNHCX]

LED Işıklarla Kayan

Yazı

LED Lambalarla yapılmış bir panoda kayan yazı görmüşsünüzdür. İşte bu program da

bunun simulasyonunu yapıyor. Programlarınıza çeşitli efektler ekliyerek kullanabilirsiniz. Eğer bug bulursanız (eklemediğim karakterler hariç) bana bildirin. Eğer Program Formunun üzerindeki iki

picture içinde resim yoksa buları yüklemelisiniz demektir. Bu dosyalar (Led0.bmp ve Led1.bmp) Sıkıştırılmış Paket Dosya içinde var.  
Umarım Beğenirsiniz. E-Mail lerinizi

Bekliyorum....

Ali Polat OLU
(alipolatolu@hotmail.com)



http://www.programlama.com/Main/vb/examples/Ledler.zip

[XNHCX]

Kayan Yazı

Text box içindeki yazıyı istene bir renkte

kaydırmayı sağlıyor.
Sezer Islakoğlu

http://www.programlama.com/Main/vb/examples/kayyaz.zip

[XNHCX]

Başka bir Kayan Yazı kaynak kodları daha...

Feridun

Akın
http://www.programlama.com/Main/vb/examples/kayan.zip