folder Tahribat.com Forumları
linefolder Visual Basic - Basic - PicBasic ve Türevleri
linefolder VB6 İle Dakikalık Yapımı



VB6 İle Dakikalık Yapımı

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    DE5TROY3R
    DE5TROY3R's avatar
    Kayıt Tarihi: 04/Nisan/2007
    Erkek 

    Dim simdikidakika, istenendakika As Integer

Private Sub Form_Load()
simdikidakika = Minute(Now)
End Sub

Private Sub Timer1_Timer()
istenendakika = 1
If 58 < simdikidakika + istenendakika Then
simdikidakika = 1
End If
If Minute(Now) = simdikidakika + istenendakika Then
MsgBox istenendakika & " dakika doldu"
simdikidakika = Minute(Now)
End If
End Sub

    Timeri 1 dakikadan fazla kullanmak için

    Lazım olur belki

    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    exception
    exception's avatar
    Kayıt Tarihi: 20/Aralık/2009
    Erkek
    yeniler için güzel eline sağlık .
    A man may be born, but in order to be born he must first die, and in order to die he must first awake.
    Reply With Quote Alıntı yap
Toplam Hit: 1789 Toplam Mesaj: 2