kookwekker

[lolsmurf]

Kan iemand mij hiermee helpen? mijn wekker moet als er spaghetti staat vanaf 6 sec aftellen , bij rijst 10 en ei 15.
dit heb ik al. alvast bedankt!Option Explicit
Const kooktijdspaghetti = 6 * 60
Const kooktijdrijst = 15 * 60
Const kooktijdeihardgekookt = 10 * 60
Dim aantalseconden As Integer
Dim kooktijd As Integer
Dim aantalminuten As Integer

Private Sub CmdEnd_Click()
        End
End Sub

Private Sub CmdStart_Click()
        TmrKooktijd.Enabled = True
        
        If CboProdukt.Text = "Spaghetti" Then pctspaghetti.Visible = True
        If CboProdukt.Text = "Rijst" Then pctrijst.Visible = True
        If CboProdukt.Text = "Ei" Then pctei.Visible = True
        If CboProdukt.Text = "spaghetti" Then TmrKooktijd.Enabled = True
        If CboProdukt.Text = "rijst" Then TmrKooktijd.Enabled = True
        If CboProdukt.Text = "ei" Then TmrKooktijd.Enabled = True
        
        Select Case kooktijd
        Case 0
        If CboProdukt.Text = "spaghetti" Then LblMinuten.Caption = "6"
        End Select
        
End Sub

Private Sub Form_Load()
        CboProdukt.AddItem "Spaghetti"
        CboProdukt.AddItem "Rijst"
        CboProdukt.AddItem "Ei"
    End Sub



Private Sub TmrKooktijd_Timer()
        LblSeconden.Caption = LblSeconden.Caption - 1
        aantalminuten = aantalminuten - 1
        LblMinuten.Caption = LblMinuten.Caption - 1
        LblMinuten.Caption = LblSeconden.Caption / 100
    End Sub

 

[edmoor]

Zet je code even in een codetag en vertel tevens wat er nu niet goed gaat.

 

[lolsmurf]

codetag? en de timer telt niet af van het getal dat ik wil .

 

[lolsmurf]

hij begint gewoon van 0 af te tellen en gaat dan nr -1,-2,...

 

[edmoor]

Je topic staat in Visual Basic maar volgens mij werk je in Office VBA. Dus Acces, Word of Excel. Of is het een oude versie van Visual Studio? Of wellicht VB6 nog?

 

[lolsmurf]

ik denk in vb 5.0 ...

 

[edmoor]

Oeps. Dat is wel erg oud. Daar kan ik je helaas niet mee verder helpen.

 

[lolsmurf]

ah jammer mr toch bedankt!

 

[edmoor]

Kijk eens naar Visual Studio 2010 Express. Dan heb je ook Visual Basic maar dan wel een heel moderne omgeving.
En het is gratis:
http://www.microsoft.com/visualstudio/eng/downloads#d-2010-express

 

[lolsmurf]

bedankt maar ik moet het voor school doen met dit programma. is er dan veel verschil tussen VB5 en VB6?

 

[edmoor]

VB5 en 6 zijn dusdanig oud dat ik ze nooit heb gebruikt.
Daar heb ik dus helaas geen antwoord op.

 

[phobia]

verschil is als win 95 en win 7.
VB5 en 6 verschilt niet zo, er zijn alleen tonnen aan libs bijgekomen(ik zeg framework 3 en 4)
Veel vb6 code werkt of bijna in vb2010
Basis is gelijk, ik ben met vb6 begonnen en na paar jaar geen vb naar vb2010.

 

[lolsmurf]

weet gij dan het antw op mijn vraag?

 

[phobia]

Select Case kooktijd
Case 0
If CboProdukt.Text = "spaghetti" Then LblMinuten.Caption = "6"
End Select

waar krijgt kooktijd een value? doe eens bovenaan dim kooktijd as interger = 0

 

[lolsmurf]

merci! en dat krijg ik niet gezet, dat van bovenaan bedoel ik

 

[lolsmurf]

en wat bedoel je eigenlijk met die value aan kooktijd geven?

 

[phobia]

boven in je code staat --> Dim kooktijd As Integer <---
je geeft hier mee aan dat het een 'getal' als waarde krijgt.
Maar nergens in je code krijgt kooktijd een waarde

Later in je code gebruik je de case als kooktijd = 0

Maak van de regel boven in eens ---> Dim kooktijd As Integer = 0 <---
en start de timer eens aan het einde van je functie ---> TmrKooktijd.Enabled = True <---
Want dan kunnen de variabelen gezet worden al voor je de timer start!

 

[lolsmurf]

dat van dim kooktijd as integer = 0 krijg ik niet gezet, dat gaat niet en merci he!

 

[edmoor]

Ik zou eigenlijk zeggen, begin hier eens:
http://www.vbtutor.net/vb6/lesson1.html