Thema Datum  Von Nutzer Rating
Antwort
27.12.2016 19:18:07 LindaK
NotSolved
Blau Countdown/ Schleife
 28.12.2016 07:45:35 SJ
Solved
16.05.2017 13:21:30 LindaK
NotSolved
16.05.2017 14:42:47 SJ
NotSolved

Ansicht des Beitrags:
Von:
SJ		 Datum:
28.12.2016 07:45:35		 Views:
751		 Rating:
     
Antwort:
 Nein
Thema:
Countdown/ Schleife

Guten Morgen,

nun wird es etwas komplexer.

Modul1:

Option Explicit

Public Declare Sub Sleep Lib "kernel32" (ByVal Milliseconds As Long)

UserForm1:

Option Explicit

Private Sub CommandButton1_Click()
    Dim datWaitTime As Date
    Dim datTimeToWait As Date, datEnde As Date
    Dim intValue As Integer
    
    datWaitTime = TimeValue("00:00:05") 'Wartezeit, die je Durchlauf addiert wird
    
    datTimeToWait = datWaitTime
    datEnde = Now + datTimeToWait
    Call warten(datEnde)
    
    intValue = get_Input()
    
    Do While intValue > 8
        datTimeToWait = datTimeToWait + datWaitTime
        datEnde = Now + datTimeToWait
        Call warten(datEnde)
        intValue = get_Input()
    Loop
    
    MsgBox "Eingegebene Wert war kleiner als 8!", vbInformation
End Sub

Private Sub warten(ByVal TimerEnde As Date)
    If TimerEnde < Now Then
        MsgBox "Ende TimerEnde ist bereits erreicht.."
        Exit Sub
    End If
    
    Do While Now < TimerEnde
        Call Sleep(1000)
        With Me
            .TextBox1.Value = Format(TimerEnde - Now, "Hh:Nn:Ss")
            .Repaint
        End With
        DoEvents
    Loop
End Sub

Private Function get_Input() As Integer
    Dim strInput As String
    
    strInput = InputBox("Bitte geben Sie einen numerischen Wert ein:")
    
    If Not IsNumeric(strInput) Then
        MsgBox "Der eingegebene Wert ist nicht nummerisch, beende Programm."
        get_Input = 0
        Exit Function
    Else
        get_Input = CInt(strInput)
    End If
End Function

Auf der UserForm1 befinden sich 2 Steuerelemente:

  1. TextBox1
  2. CommandButton1

Viel Spaß beim Anpassen :)

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.12.2016 19:18:07 LindaK
NotSolved
Blau Countdown/ Schleife
 28.12.2016 07:45:35 SJ
Solved
16.05.2017 13:21:30 LindaK
NotSolved
16.05.2017 14:42:47 SJ
NotSolved