‘Gerekli Araçlar: ’1 Adet TextBox ’1 Adet Command Button ‘İlk önce Project > References Bölümünden Microsoft Speech Object Library i ‘ekliyoruz ve daha sonra forma çift tıklayarak kodu giriyoruz… Dim konus As New SpeechLib.SpVoice Private Sub Form_Load() Text1.Text = "DetailSoft.." End Sub Private Sub command1_Click() konus.Speak Text1.Text End Sub

Project > Components seçeneğinden Microsoft Common Dialog Control 6.0 ı seçiyoruz forma ekliyoruz bir adet button ekleyip br adette textbox ekliyoruz.. Private Sub command1_Click() CommonDialog1.DefaultExt = "TXT" CommonDialog1.Filter = "Text files (*.TXT)|*.TXT" CommonDialog1.ShowSave If CommonDialog1.FileName <> "" Then Open CommonDialog1.FileName For Output As #1 Print #1* text1.Text Close #1 End If End Sub

Sağ tuşa basılırsa kare Sol tuşa basılırsa çember çizer.. Private Sub Form_MouseDown(Button As Integer* Shift As Integer* X As Single* Y As Single) Dim mx* my mx = X my = Y PSet (X* Y) End Sub Private Sub Form_MouseMove(Button As Integer* Shift As Integer* X As Single* Y As Single) Dim mx* my If Button = vbRightButton Then Circle (mx* my)* Abs(mx – X) If Button = vbLeftButton Then Line (mx* my)-(X* Y)* * B End Sub En Kısa Zamanda Size Bunları videolu olarak anlatıcam..

Selam arkadaşlar Hemen Konuya gireyim MYSQL tabanlı db ye bağlanıp k.adı ve şifresi kullarak özel proje hazırlamaya çalışacaz. Bu sistem bir kaç çeşit olabilir birincisi WinSocket işlemini kullanarak en güzelide budur. İkincisi ise Db’lere bağlanarak kullanıcı girişi yaptırabiliriz. Biz şimdi mysql bağlantısı sağlamak için gerekli bilgileri vereyim ondan sonra kaynakların Linklerini vereyim. FreeMySQL.net – Home – Create Free MySQL Databases adresinden de free mysql bağlantısı alıp deniyebiliriz. MYSQL bağlantısı için bu şart bunu bilgisayarımıza kurmalıyız. Kod: http://mysql.oss.eznetsols.org/Downloads/Connector-ODBC/3.51/mysql-connector-odbc-3.51.27-win32.msi Projemden Ufak bir çalışma kaynağı veriyorum. Kod: Grid1.Clear Grid1.ColWidth(0) = 1000 Grid1.ColWidth(1) = 550 Grid1.ColWidth(2) = 550 Grid1.ColWidth(3) = 1300 Grid1.ColWidth(4) = 750...

Forma iki tane command ekleyin ve şu kodları yazın. Kod: Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Private Sub Command1_Click() mciExecute ("set cdaudio door open") 'Cdrom aç End Sub Private Sub Command2_Click() mciExecute ("set cdaudio door closed") ' Cdrom kapat End Sub