;) Hesap Makinesi
(http://sct.mdkgroup.com/1/programlama/form1.JPG)
http://sct.mdkgroup.com/1/programlama/vbasic.htm
XNHCX
Basit bir program tasarımı....
(http://sct.mdkgroup.com/2/programlama/blue_devil/vb/vbresim1.jpg)
Ayrıntılar...
http://sct.mdkgroup.com/2/programlama/blue_devil/vb.htm
XNHCX
Visual Basic ile Sayısal Loto
http://sct.mdkgroup.com/3/programlama/blue_devil/vb.htm
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/vbresim1.JPG)
http://sct.mdkgroup.com/4/programlama/blue_devil/vb.htm
XNHCX
KeyDown, KeyPress ve ScrollBarlar ile ilgili bir proje...
(http://sct.mdkgroup.com/5/programlama/blue_devil/vbana.jpg)
http://sct.mdkgroup.com/5/programlama/blue_devil/vb.htm
XNHCX
Değişkenler ve Prosedürler - 1 (http://sct.mdkgroup.com/6/programlama/blue_devil/vb.htm)
Değişkenler ve Prosedürler - 2 (http://sct.mdkgroup.com/7/programlama/blue_devil/vb.htm)
XNHCX
Forma kayan bir başlık ekleme...
http://sct.mdkgroup.com/8/programlama/blue_devil/vb.htm
XNHCX
Yukarı doğru Kayan
YazıAlıntı Yapruntime 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
KAYAN
YAZIAlıntı YapKAYAN 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
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
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
Vb6.0 Seri Port Örnek
Programı
http://groups.yahoo.com/group/PicProjeUP/files/MHK/
Vb6.0 seri port örnek programı.zip
LED Işıklarla Kayan
YazıAlıntı YapLED 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
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
Başka bir Kayan Yazı kaynak kodları daha...
Feridun
Akın
http://www.programlama.com/Main/vb/examples/kayan.zip