Bazı Visual Basic Kodları
PCnet Online forumlarına katılmak için hesap açabilirsiniz.
  • Üye girişi:

PCnet Online forumlarına hoş geldiniz

+ Başlığa Yanıt Yaz
Sayfa 1 / 5 12345 SonSon
23 sonuçtan 1 - 5 arası sonuçlar
  1. #1
    Cool Bazı Visual Basic Kodları
    CD-Rom açıp kapatma programı,

    Kod:
    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
    


    Bunu yapmak için,

    Projeye 2 adet command click eklemeliyiz. Biri açma diğeri kapatma.
    __________________________________________________ ____________

    Speakerdan beep çıkarmak,

    Kod:
    Private Sub Command1_Click()
    Beep
    End Sub
    


    Bunu yapmak için,

    Projenize 1 adet command click eklemeliyiz. Basınca beeb : )
    __________________________________________________ ____________

    Windows hesap makinesi ve not defterini çalıştırmak,

    Hesap makinesi için,

    Kod:
    Private Sub Command1_Click()
    Call Shell("calc.exe", 1)
    End Sub
    


    Not defteri için,

    Kod:
    Private Sub Command1_Click()
    Call Shell("notepad.exe", 1)
    End Sub
    
    Bunları yapmak için 1 adet command click koymalıyız.
    __________________________________________________ ____________

    Yazdığını okuyan program,

    Kod:
    Dim speech As SpVoice
    
    Private Sub Command1_Click()
    speech.Speak Text1
    End Sub
    
    Private Sub Form_Load()
    Set speech = New SpVoice
    End Sub
    Bunu yapmak için,
    Bir adet textbox ve command click koyun.

    Dikkat!
    Referanstan speech object libraryi seçmeliyiz olması için.
    __________________________________________________ ____________

    Hangi gün doğduğunu bulan program,

    Kod:
    Private Sub Command1_Click()
    Dim d_tarih, gun
    Do
    d_tarih = InputBox("Doğum Tarihinizi Giriniz :")
    
    Loop While Not IsDate(d_tarih)
    Select Case Weekday(d_tarih)
    Case 1: gun = "Pazar"
    Case 2: gun = "Pazartesi"
    Case 3: gun = "Salı"
    Case 4: gun = "Çarşamba"
    Case 5: gun = "Perşembe"
    Case 6: gun = "Cuma"
    Case 7: gun = "Cumartesi"
    End Select
    MsgBox (gun & " Günü Doğmuşsunuz")
    End Sub


    Bunu yapmak için,

    Bir adet command click koyun ve daha sonra kendisi gelicek diğer tuşlar.



    Kodlar bana ait değildir. Bilgisayarıma kaydettim.(arşivimden çıkardım)

    İyi günler, İyi Forumlar!...





    GTA San Andreas oyunu ile ilgili sorunlarınızı bana pm ile atabilirsiniz. Yardımcı olmaya çalışırım.(Her türlü sorun)

  2. #2
    Varsayılan
    sağolasın,buna benzer visual basic ile ilgili hazır kodlar bende de mevcut pc de aynı şekilde,ama bazı programlar da programın içeriğine uygun olarak kullanacagımız alanlar da karşımıza çıkabilir çoğu zaman,teşekkürler yine de,buna benzer kodlara ihtiyacı olanlara yardımcı olabilirim bende.

  3. #3
    Varsayılan
    Güzel kodlar. Teşekkürler.

  4. #4
    Varsayılan
    Ben teşekkür ederim
    GTA San Andreas oyunu ile ilgili sorunlarınızı bana pm ile atabilirsiniz. Yardımcı olmaya çalışırım.(Her türlü sorun)

  5. #5
    adede2459 Misafir
    Varsayılan
    bunlarda benden

    Başlat yazısını teğiştirme
    Private Const WM_SETTEXT = &HC
    Private Const WM_GETTEXT = &HD
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
    Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
    Public Sub SetStartCaption(str As String)
    Dim StartBar As Long
    Dim StartBarText As Long
    Dim sCaption As String
    StartBar = FindWindow("Shell_TrayWnd", vbNullString)
    StartBarText = FindWindowEx(StartBar, 0&, "button", vbNullString)
    sCaption = Left(str, 6)
    SendMessageSTRING StartBarText, WM_SETTEXT, 256, sCaption
    Exit Sub
    End Sub
    Private Sub Command1_Click()
    SetStartCaption Text1.Text
    End Sub
    Private Sub Command2_Click()
    End
    End Sub
    Kaç gün yaşadım
    Dim a As Data
    Dim b As Data
    Private Sub command2_click()
    If Text1 = "" Then
    MsgBox "Bir Tarih Girin"
    Exit Sub
    End If
    a = Text1
    b = Text2
    Text3 = Val(DateDiff("d", a, b)) 'Burada Kaç Gün Yaşadığınız Hesaplanıyor.
    End Sub
    Private Sub form_load()
    Text2.Enabled = False 'Şimdi Tarih değeri soluk yapılıyor
    Text2 = Date 'Bilgi sayar tarihi yazdırılıyor
    End Sub
    Roma rakamına çeviri
    Dim a As Data
    Dim b As Data
    Private Sub command2_click()
    If Text1 = "" Then
    MsgBox "Bir Tarih Girin"
    Exit Sub
    End If
    a = Text1
    b = Text2
    Text3 = Val(DateDiff("d", a, b)) 'Burada Kaç Gün Yaşadığınız Hesaplanıyor.
    End Sub
    Private Sub form_load()
    Text2.Enabled = False 'Şimdi Tarih değeri soluk yapılıyor
    Text2 = Date 'Bilgi sayar tarihi yazdırılıyor
    End Sub

    Not:Alıntı


 
Benzer Başlıklar
  1. Visual Basic

    malihan_95 tarafından Programlama Dilleri forumunda
    Yanıt: 1
    Son Mesaj: 17.06.2007, 19:18
  2. free microsoft visual basic 6.0 ya da visual c++ 6.0 nerden

    atakurt tarafından Programlama Dilleri forumunda
    Yanıt: 10
    Son Mesaj: 20.09.2005, 22:09
  3. visual basic, visual .net veya c kitap tavsiyesi

    BwT tarafından Programlama Dilleri forumunda
    Yanıt: 11
    Son Mesaj: 15.01.2005, 22:41
  4. Visual Basic

    alpi3333 tarafından Programlama Dilleri forumunda
    Yanıt: 2
    Son Mesaj: 11.10.2004, 14:43
  5. Visual Basiz Yazı kodları

    Toad tarafından Programlama Dilleri forumunda
    Yanıt: 3
    Son Mesaj: 31.08.2004, 21:11