XProfan

Dieser Source stammt von http://www.activevb.de
und kann frei verwendet werden. Für eventuelle Schäden
wird nicht gehaftet.
Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
Ansonsten viel Spaß und Erfolg mit diesem Source!
------------- Anfang Projektdatei Project1.vbp -------------
--------- Anfang Formular Form1 alias Form1.frm  ---------
Steuerelement: Timersteuerelement Timer1
Steuerelement: Schaltfläche Command1
Steuerelement: Beschriftungsfeld Label1
Option Explicit
Private Declare Function BlockInput Lib user32 (ByVal fBlock _
As Long) As Long
Const API_FALSE As Long = 0&
Const API_TRUE As Long = 1&
Private Sub Command1_Click()
Timer1.Interval = 500
Timer1.Enabled = True
Call BlockInput(API_TRUE)
End Sub
Private Sub Timer1_Timer()
Static Cnt As Long
Cnt = Cnt + 1

If Cnt > 10 Then

    Cnt = 0
    Timer1.Enabled = False
    Call BlockInput(API_FALSE)
    Label1.Caption =

Else

    Label1.Caption = Verbleibende Zeit bis zur Rückstellung:  _
    & Format$(CStr((10 - Cnt)) / 2, 0.0)
    End If
    End Sub
    ---------- Ende Formular Form1 alias Form1.frm  ----------
    -------------- Ende Projektdatei Project1.vbp --------------

Dieser Source stammt von http://www.activevb.de
und kann frei verwendet werden. Für eventuelle Schäden
wird nicht gehaftet.
Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
Ansonsten viel Spaß und Erfolg mit diesem Source!
------------- Anfang Projektdatei Project1.vbp -------------
--------- Anfang Formular Form1 alias Form1.frm  ---------
Steuerelement: Timersteuerelement Timer1
Steuerelement: Schaltfläche Command1
Steuerelement: Beschriftungsfeld Label1
cls
var Command1& = create(Button, %hWnd, Push Me!, 10, 10,  80, 20)
var Label1&   = create(Text,   %hWnd, ,         10, 40, 400, 20)
var cnt&      = 0
Def BlockInput(1) !user32.dll,BlockInput
Def &API_FALSE 0
Def &API_TRUE  1

Proc Command1_Click

    SetTimer 500
    BlockInput(&API_TRUE)

EndProc

PROC Timer1_Timer

    Cnt& = Cnt& + 1

    If Cnt& > 10

        Cnt& = 0
        KillTimer
        BlockInput(&API_FALSE)
        SetText Label1&,

    Else

        SetText Label1&, Verbleibende Zeit bis zur Rückstellung:  + Format$(0.0, (10 - Cnt&) / 2)

    EndIf

EndProc

---------- Ende Formular Form1 alias Form1.frm  ----------
-------------- Ende Projektdatei Project1.vbp --------------
HAUPTPROGRAMM
-------------

While 1

    WaitInput

    If Clicked(Command1&)

        Command1_Click

    EndIf

    Timer1_Timer

EndWhile

End

s$=378h
var a&=val($+s$)

Declare Mein Port%
MeinPort% = $376
OutP(MeinPort&, 123)