Picproje Elektronik Sitesi

PROGRAMLAMA DİLLERİ => Visual Basic => Konuyu başlatan: XNHCX - 02 Kasım 2003, 20:36:17

Başlık: Visual Basicte Çeşitli Örnekler
Gönderen: XNHCX - 02 Kasım 2003, 20:36:17
;)     Hesap Makinesi

(http://sct.mdkgroup.com/1/programlama/form1.JPG)

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

XNHCX
Başlık: Visual Basicte Çeşitli Örnekler
Gönderen: XNHCX - 02 Kasım 2003, 20:40:49
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
Başlık: Visual Basic ile Sayısal Loto Prg.
Gönderen: XNHCX - 02 Kasım 2003, 20:43:41
Visual Basic ile Sayısal Loto  

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

XNHCX
Başlık: Visual Basicte Çeşitli Örnekler
Gönderen: XNHCX - 02 Kasım 2003, 20:45:42
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
Başlık: Visual Basicte Çeşitli Örnekler
Gönderen: XNHCX - 02 Kasım 2003, 20:48:21
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
Başlık: Visual Basicte Çeşitli Örnekler
Gönderen: XNHCX - 02 Kasım 2003, 20:52:28
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
Başlık: Forma kayan bir başlık ekleme...
Gönderen: XNHCX - 02 Kasım 2003, 20:53:53
Forma kayan bir başlık ekleme...

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

XNHCX
Başlık: Yukarı doğru Kayan Yazı
Gönderen: XNHCX - 22 Aralık 2003, 01:28:45
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
Başlık: Visual Basicte Çeşitli Örnekler
Gönderen: XNHCX - 22 Aralık 2003, 01:30:13
KAYAN

YAZI


Alı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
Başlık: Kendi sözlüğünüzü oluşturun!
Gönderen: XNHCX - 22 Aralık 2003, 01:38:24
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
Başlık: QBasic Seri Port İletişimi
Gönderen: XNHCX - 22 Aralık 2003, 01:41:28
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
Başlık: Vb6.0 Seri Port Örnek Programı
Gönderen: XNHCX - 22 Aralık 2003, 01:44:19
Vb6.0 Seri Port Örnek

Programı


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

Vb6.0 seri port örnek programı.zip
Başlık: LED Işıklarla Kayan Yazı
Gönderen: XNHCX - 22 Aralık 2003, 01:46:39
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
Başlık: Kayan Yazı
Gönderen: XNHCX - 22 Aralık 2003, 01:48:07
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şlık: Kayan Yazı
Gönderen: XNHCX - 22 Aralık 2003, 01:50:38
Başka bir Kayan Yazı kaynak kodları daha...

Feridun

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