folder Tahribat.com Forumları
linefolder Visual Basic - Basic - PicBasic ve Türevleri
linefolder VB 6'Da Bunları Nasıl Yapabilirim?



VB 6'Da Bunları Nasıl Yapabilirim?

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Lathedarkman
    Lathedarkman's avatar
    Kayıt Tarihi: 05/Mayıs/2007
    Erkek

    beyler ufak bir iş için vb kullanılacak fakat vb den nerdeyse hiç anlamam vb bilenler için çok basit sorulardır yardımlarınız için teşekkür ederim

    1) bir butona tıklandığı zaman program kapansın? c# daki Application.Exit(); ile formu kapatmak gibi ?

    2) timeri kullanarak sistem saati atıyorum 16:45 olunca ekrana mesaj diyalog kutusundan hello world yazdırsın

    3) 2 komut arasında nasıl geciktirme yapabilirim ? mesela

    komut1;

    bekle(100)ms

    komut2;

    gibi

    oradaki bekle nin karşılığı ney vb de bunları merak ediyorum

    4-) mesela bi for döngüsünden belli bi koşul sağlanınca çıksın istiyorum döngü devam etmesin istiyorum

    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    sokoban
    sokoban's avatar
    Kayıt Tarihi: 23/Ocak/2010
    Erkek

    timer koy

    formun loaduna timer1.interval=100 yaz

    timerin içinede bi sayac koy sayac tek sayı olduğunda birinci komut çift sayı olduğunda ikinci komut çalışsın.

    .
    Reply With Quote Alıntı yap
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    DE5TROY3R
    DE5TROY3R's avatar
    Kayıt Tarihi: 04/Nisan/2007
    Erkek

     

    1) 

    end

    ---

    2)

     

    If Hour(Now) & ":" & Minute(Now) = "0:35" Then
MsgBox "hellow world"
End If

     

    ---

    3) 

    Sleep(500)

    var ama pencere donuyor

     

    alttaki apiyi kullanınca donmuyor

     

    Public Declare Function GetTickCount Lib "kernel32" () As Long

Public Sub wait(ByVal dblMilliseconds As Double)
    Dim dblStart As Double
    Dim dblEnd As Double
    Dim dblTickCount As Double
    dblTickCount = GetTickCount()
    dblStart = GetTickCount()
    dblEnd = GetTickCount + dblMilliseconds
    Do
    DoEvents
    dblTickCount = GetTickCount()
    Loop Until dblTickCount > dblEnd Or dblTickCount < dblStart
End Sub


    ---

     

    4)

     

    for tahribat = 0 to 5

if tahribat = 3 then

Exit For

end if

next tahribat
    Reply With Quote Alıntı yap
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Lathedarkman
    Lathedarkman's avatar
    Kayıt Tarihi: 05/Mayıs/2007
    Erkek

    Eyvallah hocam sağolasın

    Reply With Quote Alıntı yap
Toplam Hit: 2184 Toplam Mesaj: 4