Güncel ve Genel Bilgi Desteği

Titreyen Form

Yazar jawscod2 | 12.02.2008 | Kategori Teknoloji

öncelikle form’a bir adet Timer ve bir adet HscrollBar koyuyoruz.

Sonra timer nesnesinin properties kısmında interval değerini 10 yapıyoruz.

Timer nesnesiyle işimiz bittikten sonra scrollbar’ın properties kısmında max değerine kafamıza göre bir sayı atıyoruz (çok uçmamak lazım ben 500 yaptım). Min değerini ise 0 yapın.

code kısmına gelince…

Dim tt As Boolean
Dim sY As Integer

Private Sub Form_Load()
sY = 100
End Sub
devamı »

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

Otomatik Tamamlama

Yazar jawscod2 | 12.02.2008 | Kategori Teknoloji

Projenize bu modülü ekleyerek kullandığınız textboxlara otomatik tamamlama özelliği katablirsiniz.

öncelikle projemize bir class modüle ekliyoruz ve adını “clsAutoComplete” olarak değiştiriyoruz.

Option Explicit

Const StringL As Long = 20 ‘Tamamlanacak max karakter uzunluğu

Private WithEvents TB As TextBox
Private NumberOfItems As Long, sItems As String, LastFill As String

Public OnlyAllowList As Boolean

Property Set AutoCompleteTextbox(T As TextBox)
Set TB = T
LastFill = “”
TB_GotFocus
End Property

Private Property Get Item(ByVal Index As Long) As String
Item = Mid$(sItems, Index * StringL + 1, StringL)
End Property
devamı »

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

Bilgisayarı Konuşturma

Yazar jawscod2 | 12.02.2008 | Kategori Teknoloji

‘ project>reference bölümünden microsoft speech lib. ekleyin
Dim konus As New SpeechLib.SpVoice
Private Sub Form_Load()
Text1.Text = “buraya istediğini yaz”
End Sub

Private Sub command1_Click()
konus.Speak Text1.Text
End Sub

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

Dll Kullanımı

Yazar jawscod2 | 12.02.2008 | Kategori Teknoloji

DLL içindeki bir yordamın tanımlanması
Windows API dışındaki DLL dosyaları içinden yordam kullanmak veya win32api.txt dosyası içinde yapılmış olan tanımları kendi gereksinimlerimize göre değiştirmek için DLL içindeki bir yordamın nasıl tanımlanabileceğini öğrenmek gerekir.
Bir DLL yordamını tanımlamak için Declare deyimi kullanılır. Eğer yordam bir değer döndürüyorsa Function, döndürmüyorsa Sub olarak tanımlanır. Declare deyiminin kullanışı aşağıdaki biçimdedir.
Declare Function publicname Lib “libname” [Alias “alias”]
[([[ByVal] variable [As type] [,[ByVal] variable [As type]]…])] As Type
Declare Sub publicname Lib “libname” [Alias “alias”]
[([[ByVal] variable [As type] [,[ByVal] variable [As type]]…])]
Kütühane İsmi (libname)
Windows kütüphaneleri için (User32, Kernel32 veya GDI32) dosyanın tam adını ve yolunu belirtmeye gerek yoktur. Örneğin;
Declare Function GetTickCount Lib “kernel32” Alias _
“GetTickCount” () As Long
Diğer DLL dosyaları kullanılırken tam yol ve dosya adı verilmek zorundadır
Declare Function Topla Lib “c:\hesap.dll” _
(ByVal sayi1 As Integer, ByVal sayi2 As Integer) As Long
DLL dosyasının yolu verilmezse bu dosya için;
Programın .EXE dosyasının bulunduğu yere,
Aktif dizine,
Windows’un System dizinine,
Windows dizinine,
PATH değişkeninde tanımlı dizinlere
bakar. devamı »

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

Adodc Bağlantı Yöntemleri

Yazar jawscod2 | 12.02.2008 | Kategori Teknoloji

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.

devamı »

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

Taksitli Satış Programı

Yazar jawscod2 | 12.02.2008 | Kategori Teknoloji

‘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
devamı »

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

Hata Mesajları Anlamları

Yazar jawscod2 | 12.02.2008 | Kategori Teknoloji

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) devamı »

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

Renkli Satırlı Msflexgrid

Yazar jawscod2 | 12.02.2008 | Kategori Teknoloji

Ö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
devamı »

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

Dosyalama İşlemleri ve MsgBox Fonksiyonları

Yazar jawscod2 | 12.02.2008 | Kategori Teknoloji

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
devamı »

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

HDD Seri Numarası

Yazar jawscod2 | 12.02.2008 | Kategori Teknoloji

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
devamı »

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