İKİ DAKİKA GÜNCEL HABER MERKEZİ

Adodc Bağlantı Yöntemleri

Yazar jawscod2 | 12.02.2008 | Kategori Programlama

Microsoft Ado Data Control ünü ekleriz.
Adodc üzerinde farenin sağ tuşuna basıp Properties komutuna tıklarız.
Karşımıza gelen pencereden Use Connection String ifadesinin hemen sağındaki Build komutuna tıklayarak sihirbaz yardımıyla veritabanı bağlantımızı yaparız.
Recordsource tabına tıklarız.
CommandType seçeneğinden adcmdTable seçeneğini
Hemen altındaki Table or Stroed Procedure Name açılır kutusundan Tablo adımızı seçeriz.
Eğer SQL ifadeleri kendimiz yazmak istiyorsak. CommandType kısmından adcmdText seçtikten sonra Command Text (SQL) kısmına SQL kodumuzu yazarız.
Tamam düğmesine basarız.
Adodc1 kontrolümüzün bağlantısını yapmış olduk.
Bundan sonraki işlemlerimiz gayet basit
İstediğimiz kontrolü formumuza ekleyebiliriz. Örneğin ben datagrid kontrolünü formuma eklemek istiyorum.
Bunun için yine Microsoft Datagrid Controlünü formumuza ekledikten sonra
Bunun datasource özelliğini Adodc1 yapıyoruz.

haberin devamı »

Bu yazı toplamda 62, bugün ise 0 kez görüntülenmiş

Bu Yazıyı Paylaşın

Taksitli Satış Programı

Yazar jawscod2 | 12.02.2008 | Kategori Programlama

‘Belki o kadar iyi değil ama yinede taksitlendirme yapabiliyor.

Forma bir tane list box ekledim kopyalayarak 10 tane listbox oluşturdum 10 tane butonumuz,yine kopyalayarak 11 tane checkbox (buna ayları yazıyosunuz),13 tane label,11 tane text box yine kopyaayarak malzemeler bu kadar ;)

aşağıdaki kod form bölümüne yazılacak
——————————————————————————–

Private Sub Command1_Click(Index As Integer)
Dim i
For i = 0 To 9
List1(i).AddItem Text1(i)
Next
Text1(0).SetFocus
Label12 = List1(0).ListCount

End Sub

Private Sub Command10_Click(Index As Integer)
Dim i
For i = 0 To 9
List1(i).List(List1(i).ListIndex) = CVar(Text1(i).Text)
Next

End Sub
haberin devamı »

Bu yazı toplamda 23, bugün ise 0 kez görüntülenmiş

Bu Yazıyı Paylaşın

Hata Mesajları Anlamları

Yazar jawscod2 | 12.02.2008 | Kategori Programlama

Kod Mesaj
3 Return without GoSub (GoSub’sız Return)
5 Invalid procedure call (geçersiz procedure çağırması)
6 Overflow (taşma)
7 Out of memory (bellek yetersiz)
9 Subscript out of range (dizi dışı)
10 This array is fixed or temporarily locked (dizi sabit ya da kilitli)
11 Division by zero (sıfıra bölme)
13 Type mismatch (tip uyumsuzluğu)
14 Out of string space (string alanı yetersiz)
16 Expression too complex (ifade çok karışık)
17 Can’t perform requested operation (işlem işletilemiyor)
18 User interrupt occurred (kullanıcı kesmesi oluştu)
20 Resume without error (hatasız devam) haberin devamı »

Bu yazı toplamda 31, bugün ise 0 kez görüntülenmiş

Bu Yazıyı Paylaşın

Renkli Satırlı Msflexgrid

Yazar jawscod2 | 12.02.2008 | Kategori Programlama

Öncelikle Formunuzun Üzerine Bir Msflexgrid Ekleyiniz. Örneğin 1 Satır Sarı 1 Satır Gri Yapalım. Önce 1. Renk Olan Sarı Rengi Msflexgrid Özelliklerini Kullanarak Backcolor Kısmından Seçelim.Msflexgridimizin Arka Planının Komple Sarı Olduğunu Göreceksiniz. Şimdi 2. Rengimiz İle Satır Satır Doldurma Yapacağız. Bunun İçin Aşağıdaki Kodu Formun Load Olayına Yazalım. Ben Msflexgrid Nesnemin Adını msflx Olarak Değiştirdim. Siz Kendiniz Göre Uyarlayınız
haberin devamı »

Bu yazı toplamda 35, bugün ise 0 kez görüntülenmiş

Bu Yazıyı Paylaşın

Dosyalama İşlemleri ve MsgBox Fonksiyonları

Yazar jawscod2 | 12.02.2008 | Kategori Programlama

Dosya Açmak

Visual Basic’de bir dosya 5 farklı biçimde açılabilir.

* Input
* Random
* Output
* Append
* Binary

Şimdi bu modları nasıl kullanacağımızı görelim.

Input Erişim Modu
Input modunda dosya, üzerinde değişiklik yapılmadan sadece okunmak için açılır.

Örnek olarak:

Private Sub Form_Load()
Open “c:\deneme.txt” For Input As #1
Input #1, a
MsgBox a
Close #1
End Sub
haberin devamı »

Bu yazı toplamda 37, bugün ise 0 kez görüntülenmiş

Bu Yazıyı Paylaşın

HDD Seri Numarası

Yazar jawscod2 | 12.02.2008 | Kategori Programlama

Option Explicit
Private Declare Function GetVolumeInformation Lib “kernel32.dll” Alias “GetVolumeInformationA” (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As _
String, ByVal nVolumeNameSize As Integer, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength _
As Long, lpFileSystemFlags As Long, ByVal _
lpFileSystemNameBuffer As String, ByVal _
nFileSystemNameSize As Long) As Long

Function SeriNoAl(strDrive As String) As Long
Dim SerialNum As Long
Dim Res As Long
Dim Temp1 As String
Dim Temp2 As String
Temp1 = String$(255, Chr$(0))
Temp2 = String$(255, Chr$(0))
Res = GetVolumeInformation(strDrive, Temp1, _
Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
SeriNoAl = SerialNum
End Function
haberin devamı »

Bu yazı toplamda 26, bugün ise 0 kez görüntülenmiş

Bu Yazıyı Paylaşın

Tarih Fonksiyonları

Yazar jawscod2 | 12.02.2008 | Kategori Programlama

Formunuza 11 adet CommandButton 2 adet Label ve 2 adet TextBox ekleyiniz ve aşağıdaki kodu olduğu gibi kopyala yapıştır yapınız.

Private Sub Command1_Click()
Label1 = DateDiff(”d”, Text1, Text2)
End Sub

Private Sub Command10_Click()
deger = InputBox(”Eklenecek gün sayısını giriniz..”)
If deger = “” Then Exit Sub
Label1 = DateAdd(”d”, deger, Date)

End Sub

Private Sub Command11_Click()
gun = Array(”Pazar”, “Pazartesi”, “Salı”, “Çarşamba”, “Perşembe”, “Cuma”, “Cumartesi”)
tarih = InputBox(”Bir tarih giriniz..”, “”, Date)
If tarih = “” Then Exit Sub
Label1 = gun(Weekday(tarih) - 1)

End Sub
haberin devamı »

Bu yazı toplamda 20, bugün ise 0 kez görüntülenmiş

Bu Yazıyı Paylaşın

Menü Editör Örneği

Yazar jawscod2 | 12.02.2008 | Kategori Programlama

Private Sub cikis_Click()
End
End Sub

Private Sub daire_Click()
mx = Rnd * Form1.ScaleWidth
my = Rnd * Form1.ScaleHeight
For i = 1 To 10
Circle (mx, my), i * 100, , B
Next
End Sub
haberin devamı »

Bu yazı toplamda 35, bugün ise 0 kez görüntülenmiş

Bu Yazıyı Paylaşın

PicturuBox Örneği

Yazar jawscod2 | 12.02.2008 | Kategori Programlama

Private Sub Command1_Click()
Clipboard.Clear ‘panoyu sil
Clipboard.SetData Picture1.Picture ‘resmi panoya kopyala
End Sub

Private Sub Command2_Click()
Picture1.Picture = Clipboard.GetData ‘panodan resim al
End Sub

Private Sub Command3_Click()
‘dosya adı sor ve o dosyaya kaydet
SavePicture Picture1.Picture, InputBox(”dosya adı”)
End Sub
haberin devamı »

Bu yazı toplamda 24, bugün ise 0 kez görüntülenmiş

Bu Yazıyı Paylaşın

Timer Uygulaması

Yazar jawscod2 | 12.02.2008 | Kategori Programlama

Option Explicit
Dim ad
Dim yazi As String
Private Sub Command1_Click()
Text1.ForeColor = ad
yazi = String(30, ” “) + “serdar daloğlu”
Timer1.Enabled = True
End Sub

Private Sub Option1_Click()
ad = vbRed
Command1_Click
End Sub

Private Sub Option2_Click()
ad = vbBlue
Command1_Click
End Sub

Private Sub Option3_Click()
ad = vbBlack
Command1_Click
End Sub
haberin devamı »

Bu yazı toplamda 23, bugün ise 0 kez görüntülenmiş

Bu Yazıyı Paylaşın