Wekker Maken In Vb maar hij werkt niet

Status
Niet open voor verdere reacties.
O

oscarthys

Gebruiker
Lid geworden
2 mrt 2004
Berichten
21
Code: 
Dim blnGemeld As Boolean
Dim blnGezt As Boolean
Dim dtmWektijd As Date

Private Sub Form_Load()

End Sub

Private Sub optAan_Click()
  blnGemeld = False
  blnGezet = True
  dtmWektijd = Format(dtpWekker.Value, "Short Time")
End Sub

Private Sub optUit_Click()
  blnGezet False
  dtpWekker.SetFocus
  End Sub

Code: 
Private Sub timWekker_Timer()
If blnGezet And Not blnGemeld And _
  Time >= dtmWektijd Then
  Beep
  MsgBox "Het is nu " & Format(Time, "Short Time") & " uur.", , "Wekker"
    blnGemeld = True
    optUit.Value = True
    End If
 End Sub
 
Laatst bewerkt door een moderator:
Is "Private Sub timWekker" een timer?
 
Misschien moet je er:
Code: 
Handles Timer1.Tick
achter te zetten om hem daadwerkelijk uit te laten voeren als de Timer (Timer1?) 'tickt'.
 
Private Sub timWekker_Timer()handles timer tick dan krijg ik error :expected statement
 
Gebruik je soms het hopeloos verouderde Visual Basic 6 of het veel nieuwere Visual Basic .NET 2008/2010?
 
het verouderde Visual Basic 5.0 want in 2008 vind ik deze zaken niet en daarom boek uit BIb geleend met het progr
 
5.0 zelfs. Poehey.
Ik zou je toch willen adviseren om over te stappen naar een nieuwere versie van Visual Basic, want een wekker maken in Visual Basic .NET is prima mogelijk.
 
Ja, ik ben het volledig met The Mighty Atom eens. Waarom gebruik je nog steeds Visual Basic 5.0? Komt die niet uit 1997? :eek:
 
bedankt voor uw raad maar :welke code is verkeerd zodat het programma niet kan uitgevoerd worden?
in 2008 zit er toch ook code.
 
ok ik heb die 2010 Express,maar dat verandert toch niets aan de code? Een commando knop,radiobutton enz ,de tools op het toolpanel blijven toch hetzelfde;dus volgens mij toch ook de code,een IF blijft toch een IF,een SUB blijft toch een SUB zowel in het begin van VB als in deze 2010?
Of heb ik het mis?
 
Public Class frmWekker
Dim blnGemeld As Boolean
Dim blnGezet As Boolean
Dim dtmWektijd As Date

Private Sub optAan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles optAan.Click
blnGemeld = False
blnGezet = True
dtmWektijd = Format(dtpWekker.Value, "Time")
End Sub

Private Sub optUit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles optUit.Click
blnGezet = False
dtpWekker.Focus()
End Sub

Private Sub timWekker_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles timWekker.Tick
If blnGezet And Not blnGemeld And _
TimeOfDay > dtmWektijd Then
Beep()
MsgBox("Het is nu " & _
Format(TimeOfDay) & _
" uur.", , "Wekker")
blnGemeld = True
optUit.Text = True
End If
End Sub
End Class

In VB Express maar toch krijg ik geen MsgBox te zien en kan ik mijn wekker niet zetten,hoewel de debugger geen fout weergeeft.
 
De code in Visual Basic 2010 Express is anders dan Visual Basic 5.0.

Heb je VB 2010 al gedownload of niet?? Zo ja : gebruik dan de codes die we eerder hebben gepost of kijk even naar CaptainBri's project.
 
De laatste code is nu in de Express mode en niet Visual Basic 5.0.
Het is de code voor uw berichtje van 16:04
 
Ik krijg een error als volgt:System.InvalidCastException: De conversie van tekenreeks Ti12e naar type Date is ongeldig.
Wat moet ik nu doen?
 
Hier de code in vb 2010

Code: 
Public Class Form1

    Dim insteltijd
    Dim Tijd1, Tijd2
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            Tijd1 = LBingesteldetijd.Text
            Tijd2 = LBklok.Text
            LBverlopentijd.Text = (DateDiff(DateInterval.Hour, Tijd2, Tijd1) & " Uren " & DateDiff(DateInterval.Minute, Tijd2, Tijd1) & " min ") _
            & DateDiff(DateInterval.Second, Tijd2, Tijd1) & " Sec"
        Catch ex As Exception
            MsgBox("Geef een tijd op", MsgBoxStyle.Critical)
        End Try
        If LBverlopentijd.Text = "0 Uren 0 min 0 Sec" Then
            Beep()
            Timer1.Enabled = False
            MsgBox("U wilde om " & LBingesteldetijd.Text & "Gewektworden")

        End If

    End Sub

    Private Sub BTsettijd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTsettijd.Click
        insteltijd = InputBox("Geef de tijd")
        LBingesteldetijd.Text = insteltijd
        Timer1.Enabled = True
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = False
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        LBklok.Text = TimeOfDay
    End Sub
End Class

2x een button
en 3x een label
 
Bedankt CaptainBri en old Hippy hier heb ik wat aan;zal het bestuderen en uitproberen:-)
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan