Erbaa Myo Öğrencisi

Visual Basic 6.0 da Kod kullanarak Database oluşturmak

Hacker — Sun, 02 Nov 2008 13:02:58 GMT

-------------------------------------------------------------------------------- Kodlarla Database oluşturmak ve varolan bir database’e yeni alan eklemek ’Project/Reference menüsünden Microsoft DAO 3.61 Library i _ ekle ve aşağıdaki kodları kullan. Bir tane de Command button ekleyin...kodlarda şu şekilde; Private Sub Form_Load() Dim NewDB As Database Set NewDB = CreateDatabase("db1.mdb", dbLangGeneral, dbVersion70) Dim NewTbl As ...

Listbox eklenti

Hacker — Sun, 02 Nov 2008 13:34:04 GMT

Option Explicit Dim gerial As Boolean Private Sub cmdEkle_Click() If txtEkleme.Text "" Then ' eger txtekleme bos ise ekleme yapmasin kombo.AddItem txtEkleme.Text txtEkleme.Text = "" 'eklendikten sonra textbox'u temizle End If End Sub Private Sub Form_Load() 'Burada item'lar ekleniyor With kombo .AddItem "cilek" .AddItem "incir" .AddItem "elma" .AddItem "armut" .AddItem "uzum" .AddItem "karpuz" .AddItem "seftali" End With End Sub Private Sub ...

Cd kapağını açıp kapamak

Hacker — Sun, 02 Nov 2008 13:17:07 GMT

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub Command1_Click()
mciExecute ("Set CDAudio door Open")
End Sub

Private Sub Command2_Click()
mciExecute ("Set CDAudio door closed")
End Sub

Yazdığınız Sayıdaki Banknot Adetlerini Gösterme

Hacker — Sun, 02 Nov 2008 13:05:01 GMT

-------------------------------------------------------------------------------- Private Sub Command1_Click() Dim i, j Cls i = Val(Text1.Text) 'text kutusuna yazılanı sayıya cevirir.' j = Int(i / 10000000) Print j; "tane 10000000 tl" i = i Mod 10000000 j = Int(i / 5000000) Print j; "tane 5000000 tl" i = i Mod 5000000 j = Int(i / 1000000) Print j; "tane 1000000 tl" i = i Mod 1000000 j = Int(i / 500000) Print j; "tane ...

Kayan Yazı Kodları Bakmadan Geçmeyinnnnn

Hacker — Sun, 02 Nov 2008 12:41:14 GMT

-------------------------------------------------------------------------------- Option Explicit Private m_bDoEffect As Boolean Private Declare Function timeGetTime Lib "winmm.dll" () As Long Private Declare Function SetTextCharacterExtra Lib "gdi32" (ByVal hdc As Long, ByVal nCharExtra As Long) As Long Private Type RECT left As Long tOp As Long Right As Long Bottom As Long End Type Private Declare Function OffsetRect Lib "user32" ...

Boş Kodlara Son

Hacker — Sun, 02 Nov 2008 12:36:01 GMT

-------------------------------------------------------------------------------- Hepimiz kodla bir nesnenin özelliklerini değiştiririz.Ama bu bazen çok seviyeye çıktığında boşuna nesneyi onlarca kez kullanmak gerekmez.Aşağıyı incelerseni With fonksiyonunun ne kadar yararlı olduğunu öğrenirsiniz. 'önceki hal command1.default=true command1.height=124 command1.style=1 command1.mousepointer=2 ----------------------- 'sonraki hal with command1 .default=true .height=124 .style=1 .mousepointer=2 end ...

Formu Ortalamak

Hacker — Sun, 02 Nov 2008 12:34:31 GMT

--------------------------------------------------------------------------------

Formunuzu ortaya getirmek istiyorsanız 2 satırlık bir kod yazmanız gerekiyor.Kod çok açık:

Private Sub Form_Load()
Left = (Screen.Width - Width) \ 2
Top = (Screen.Height - Height) \ 2
End Sub

Status Bar'daki panelin özelliklerini değiştirmek

Hacker — Sun, 02 Nov 2008 12:33:07 GMT

Uygulama çalışırken status bar nesnesinde panel özelliklerini değiştirmek çok kolaydır.Aşağıda bir kaçını görebilirsiniz.Sadece önemli olan panelin INDEX numarasıdır.Değiştirme buna göre gerçekleşir.

StatusBar1.Panels(1).Text = "Gokhan"
StatusBar1.Panels(1).ToolTipText = "Gokhan"

Forma şifre

Hacker — Sun, 02 Nov 2008 12:29:37 GMT

Private Sub Form_Load()
If InputBox("şifreyi giriniz") <> "Gokhan_ozturk" Then
MsgBox ("şifreyi bilemediniz.bilgiler üzerinde degişiklik yapamazsınız.")
Text1.Locked = True
End If
End Sub

Formunuz İçin Güzel Kapanış

Hacker — Sun, 02 Nov 2008 12:28:03 GMT

Formlarınıza güzel bir kapanış eklemek isteyenlerinimiz vardır herhalde.Öyleyse aşağıdaki anlaşılır kodu kopyalayınız ve uygulamanıza yerleştiriniz.Program için bir adet Timer nesnesi gerekiyor. Private sub form_load() timer1.interval=50 timer1.enabled=false end sub Private Sub Timer1_Timer() Form1.Width = Form1.Width - 30 Form1.Height = Form1.Height - 30 Form1.Top = Form1.Top + 50 Form1.Left = Form1.Left + 5 End Sub Private Sub Form_Unload(Cancel As ...

Visual Basic 6'da Ses Dosyalarının Çalınması

Hacker — Sun, 02 Nov 2008 12:26:35 GMT

Programınızda *.wav formatındaki ses dosyalarını mı çalmak istiyorsunuz?Çok kolay.Bunu bir Windows Multimedia API'sı çözer.Yanlız Ses Dosyası Başka Bir Klasördeyse Klasörüde Belirtiniz. 'Formun Declarations Bölümüne Private Declare Function sndPlaySound Lib "winmm.dll" Alias_ "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal_ uFlags As Long) As Long 'Formun Ana Kısmına private sub form_load() sndPlaySound "ses.wav",0 end ...

Modbus rtu örnek haberleşme

Hacker — Wed, 22 Oct 2008 08:41:08 GMT

Modbus rtu örnek haberleşme Konumuz git gide daha komplike hale geliyor. Bu noktadan itibaren bir çok dala ayrılması gerekiyor. Plc’de nasıl yapılır,Bilgisayarda nasıl yapılır, Chip ile nasıl yapılır konunun ana başlıklarıdır. Biz örnek bir modbus stringi oluşturma ve sitemin genel işleyişi hakkında bilgi vermekle yetineceğiz. Sistem bir master ve isteğe bağlı bir veya daha çok slave modülden oluşur. Master slave modüllere sorgu gönderir ve sorguyu alan modüllerden ...

MsgBox ( ) Komutu (Bugün başladım diyenler buraya)

Hacker — Wed, 22 Oct 2008 08:38:56 GMT

MsgBox ( ) Komutu (Bugün başladım diyenler buraya) Aslında çok basit bir bilgi ama yeni başlayanları düşünmek lazım . Dim Mesaj ' Değişkeni tanımlar. Mesaj = MsgBox("Mesaj yazısı", 64, "Mesaj başlığı") 'MsgBox ( ) deyimiyle verilen parametreler doğrultusunda mesaj değeri döndürür. Tuş Dizilim Parametreleri 0 – Tamam (vbOKOnly) 1 - Tamam ve İptal (vbOKCancel) 2 - Durdur, Yeniden Dene ve Yoksay ...

Visual Basic ile Dosya Silme ve Kopyalama Komutu

Hacker — Wed, 22 Oct 2008 08:37:03 GMT

dosya silmek için kill komutu kullanılır. dosya kopyalamak için filecopy komutu kullanılır. dosya silmek: komutun kullanımı. kill "dosyanın_parametresi" not: Geri dönüşüm kutusuna yollamaz. tamamen siler. örnek c: içine deneme.doc diye dosya kaydedin. Private Sub Command1_Click() kill "c:\deneme.doc" 'deneme.doc dosyasını siler. end sub dosya kopyalamak: komutun kullanımı: filecopy "dosyanın_kaynağı","dosyanın_hedefi" örnek: Private ...

Visual Basic 6.0 da değişken oluşturma

Hacker — Wed, 22 Oct 2008 08:33:46 GMT

Örneğin oluşturacağımız değişken bir tam sayı olacaksa;

Dim x as integer

x = 18

veya

Dim x as integer = 18 şeklinde tek satırda tanımlayabiliriz.

Visualbasic 6.0 Egitim Seti CD leri

Hacker — Wed, 22 Oct 2008 08:30:38 GMT

Visualbasic Egitim Setleri CD1-1 http://rapidshare.com/files/39299078/VB.Professional.Goersel.Egitim.CD1.part1.rar CD1-2 http://rapidshare.com/files/39365630/VB.Professional.Goersel.Egitim.CD1.part2.rar CD1-3 http://rapidshare.com/files/39344297/VB.Professional.Goersel.Egitim.CD1.part3.rar CD2-1 http://rapidshare.com/files/39381473/VB.Professional.Goersel.Egitim.CD2.part1.rar CD2-2 http://rapidshare.com/files/39397052/VB.Professional.Goersel.Egitim.CD2.part2.rar CD2-3 http://rapidshare.com/files/39415634/VB.Professional.Goersel.Egitim.CD2.part3.rar CD2-4 http://rapidshare.com/files/39557047/VB.Professional.Goersel.Egitim.CD2.part4.rar CD2-5 http://rapidshare.com/files/39568008/VB.Professional.Goersel.Egitim.CD2.part5.rar CD3-1 http://rapidshare.com/files/39686524/VB.Professional.Gorsel.Egitim.CD3.part1.rar CD3-2 http://rapidshare.com/files/39736369/VB.Professional.Gorsel.Egitim.CD3.part2.rar CD3-3 http://rapidshare.com/files/39832603/VB.Professional.Gorsel.Egitim.CD3.part3.rar CD3-4 http://rapidshare.com/files/39854526/VB.Professional.Gorsel.Egitim.CD3.part4.rar CD4-1 http://rapidshare.com/files/39973595/VB.Professional.Goersel.E_itim.CD4.part1.rar CD4-2 http://rapidshare.com/files/39986128/VB.Professional.Goersel.E_itim.CD4.part2.rar CD4-3 http://rapidshare.com/files/40001742/VB.Professional.Goersel.E_itim.CD4.part3.rar CD4-4 http://rapidshare.com/files/40019076/VB.Professional.Goersel.E_itim.CD4.part4.rar CD5-1 http://rapidshare.com/files/40162549/VB.Professional.Gorsel.Egitim.CD5.part1.rar CD5-2 http://rapidshare.com/files/40175642/VB.Professional.Gorsel.Egitim.CD5.part2.rar CD5-3 http://rapidshare.com/files/40191664/VB.Professional.Gorsel.Egitim.CD5.part3.rar Not: ...

Visualbasic 6.0 Pro Türkçe Kitap Download

Hacker — Wed, 22 Oct 2008 08:25:12 GMT

Visualbasic 6.0 Pro Hakkında Türkçe E-Kitap buyrun
download: www.vb-forum.net/ornek/ekitap.rar

Visual Basic Giriş

Hacker — Fri, 17 Oct 2008 14:53:55 GMT

] Eğer Visual Basic'e yeni başlıyorsanız bu makale tam size göre eğer Visual Basicde uzman yada aşina iseniz size biraz hafif gelebilir bunun yerine diğer makaleleleri okumanızı öneririm. Programlama'ya ilk başlayanların yapmak istediği ilk şey ekrana istedikleri bir metni yada mesjaı yazdırmaktır, bu istek sihirli bir şekilde kişiyi programlamaya aşık eder diyebilim, işte bizde ilk önce ekrana bir mesaj kutusunun nasıl çıkartılacağıyla Visual Basic derslerimize ...

İlk konunuz

Hacker — Fri, 17 Oct 2008 11:07:30 GMT

Forumunuzun yönetimini kullanmaya başlamadan önce bu bilgiyi okuyunuz: Yönetim Paneli'ne nasıl erişilir ?En üstteki menüde Giriş yap'a tıklayın, yeni bir pencere açılacaktır. "Admin" kullanıcı adını ve kayıt esnasında belirlediğiniz şifreyi girin. Kaybettiyseniz veya unuttaysanız buraya tıklayın. Giriş yaptıktan sonra sayfanın en altındaki "Yönetim Paneli" linkine tıklayın..Görünüş nasıl değiştirilir ?Forumunuzun görünüşünü bir tema seçerek değiştirebilirsiniz ...