Notifikationer

Markér alle som læst Log ud

mattiasdh Nybegynder

28. april 2006 - 08:32 Der er 9 kommentarer og
1 løsning

Hvad er det galt?

Hej alle sammen.

Jeg vil gerne have et program, hvor det gælder om at indsætte 8 tal i 8 textboxe. Når jeg så trykker på en knap skal computeren begynde at indsætte tal, for hvert sekond.

Det forkerte der sker i min, er at den indsætter tallet 1, når jeg trykker på en knap, og derefter 2, 3, 4 og 5 samtidig, og derfter indsætter den 6, 7 og 8 efter 1 sekond hver.

Hvad er der galt?

Private Sub Command1_Click()
Text8.Text = "1"
End Sub

Private Sub Form_Load()
Timer7.Interval = 1000
Timer6.Interval = 1000
Timer3.Interval = 1000
Timer2.Interval = 1000
Timer4.Interval = 1000
Timer1.Interval = 1000
Timer5.Interval = 1000
End Sub

Private Sub Text5_Change()
If Text5.Text = "8" Then
MsgBox "Desværre, computeren er hurtigere end dig.. Prøv igen!"
Form1.Show
end if
End Sub

Private Sub Text9_Change()
If Text9.Text = "8" Then
MsgBox "Woow, du er hurtigere end computeren..!"
End If
End Sub

Private Sub Timer1_Timer()
If Text4.Text = "6" Then
Text1.Text = "7"
End If
End Sub

Private Sub Timer2_Timer()
If Text3.Text = "4" Then
Text2.Text = "5"
End If
End Sub

Private Sub Timer3_Timer()
If Text6.Text = "3" Then
Text3.Text = "4"
End If
End Sub

Private Sub Timer4_Timer()
If Text2.Text = "5" Then
Text4.Text = "6"
End If
End Sub

Private Sub Timer5_Timer()
If Text1.Text = "7" Then
Text5.Text = "8"
End If
End Sub

Private Sub Timer6_Timer()
If Text7.Text = "2" Then
Text6.Text = "3"
End If
End Sub

Private Sub Timer7_Timer()
If Text8.Text = "1" Then
Text7.Text = "2"
End If
End Sub

Synes godt om

spaceus Nybegynder

28. april 2006 - 11:01 #1

kan du ikke nøjes med en timer og så en switch

case 1: indsæt 2 osv..

Synes godt om

thomaxz Nybegynder

28. april 2006 - 11:03 #2

Ja, når du starter alle dine timer samtidig og de alle er sat til 1 sekund, så går det ene skund lige hurtig for alle timer, og de skrive samtidig.

en måde at løse det på er give de andre de sekunds forsinkelse f.esk

Private Sub Form_Load()
Timer7.Interval = 1000 'etfer 1 skund efter programsstart
Timer6.Interval = 2000 '2 sekunder efter programstart=1 skunder efer timer 7
Timer3.Interval = 3000 'osv.
Timer2.Interval = 4000
Timer4.Interval = 5000
Timer1.Interval = 6000
Timer5.Interval = 7000
End Sub

Synes godt om

mattiasdh Nybegynder

28. april 2006 - 11:34 #3

Jeg prøver det lige thomxz..!

Synes godt om

mattiasdh Nybegynder

28. april 2006 - 11:41 #4

Men når jeg gør sådan, begynder det af sig selv, jeg vil have det sådan at det begynder, når jeg trykker på en knap.

Synes godt om

spaceus Nybegynder

28. april 2006 - 11:43 #5

så skal du ikke starte det på onload, men på en btn_Click

Synes godt om

mattiasdh Nybegynder

28. april 2006 - 11:55 #6

kunne jeg ikke bare skrive:

private sub form1_load()
timer1.enabled = false
timer2.enabled = false
timer3.enabled = false
timer4.enabled = false
timer5.enabled = false
timer6.enabled = false
timer7.enabled = false
timer8.enabled = false
end sub
____________________________________________________________________________________________

Private Sub Command1_Click()
timer1.enabled = true
timer2.enabled = true
timer3.enabled = true
timer4.enabled = true
timer5.enabled = true
timer6.enabled = true
timer7.enabled = true
timer8.enabled = true
End Sub
____________________________________________________________________________________________

Private Sub Form_Load()
command1.caption = "START!"
Timer1.interval = 1000
timer2.interval = 2000
timer3.interval = 3000
timer4.interval = 4000
timer5.interval = 5000
timer6.interval = 6000
timer7.interval = 7000
timer8.interval = 8000
End Sub
____________________________________________________________________________________________

Private Sub Text5_Change()
If Text5.Text = "8" Then
MsgBox "Desværre, computeren er hurtigere end dig.. Prøv igen!"
Form1.Show
end if
End Sub
____________________________________________________________________________________________

Private Sub Text9_Change()
If Text9.Text = "8" Then
MsgBox "Woow, du er hurtigere end computeren..!"
End If
End Sub
____________________________________________________________________________________________

private sub timer1_timer()
text1.text = "1"
end sub
____________________________________________________________________________________________

private sub timer2_timer()
text2.text = "2"
end sub
____________________________________________________________________________________________

private sub timer3_timer()
text3.text = "3"
end sub
____________________________________________________________________________________________

private sub timer4_timer()
text4.text = "4"
end sub
____________________________________________________________________________________________

private sub timer5_timer()
text5.text = "5"
end sub
____________________________________________________________________________________________

private sub timer6_timer()
text6.text = "6"
ens sub
____________________________________________________________________________________________

private sub timer7_timer()
text7.text = "7"
end sub
____________________________________________________________________________________________

private sub timer8_timer()
text8.text = "8"
end sub
____________________________________________________________________________________________

Synes godt om

thomaxz Nybegynder

28. april 2006 - 12:45 #7

Synes godt om

mattiasdh Nybegynder

28. april 2006 - 13:50 #8

Nej, det virker ikke, det begynder af sig selv. Hvordan kan man få programmet til at lægge tallene ind, EFTER man trykker på knappen??

Synes godt om

thomaxz Nybegynder

28. april 2006 - 16:47 #9

Ahh, der skal bare en lille ændring til.

____________________________________________________________________________________________

Private Sub Command1_Click()
timer1.enabled = true
timer2.enabled = true
timer3.enabled = true
timer4.enabled = true
timer5.enabled = true
timer6.enabled = true
timer7.enabled = true
timer8.enabled = true
End Sub
____________________________________________________________________________________________

Private Sub Form_Load()
timer1.enabled = false
timer2.enabled = false
timer3.enabled = false
timer4.enabled = false
timer5.enabled = false
timer6.enabled = false
timer7.enabled = false
timer8.enabled = false
command1.caption = "START!"
Timer1.interval = 1000
timer2.interval = 2000
timer3.interval = 3000
timer4.interval = 4000
timer5.interval = 5000
timer6.interval = 6000
timer7.interval = 7000
timer8.interval = 8000
End Sub
____________________________________________________________________________________________

Private Sub Text5_Change()
If Text5.Text = "8" Then
MsgBox "Desværre, computeren er hurtigere end dig.. Prøv igen!"
Form1.Show
end if
End Sub
____________________________________________________________________________________________

Private Sub Text9_Change()
If Text9.Text = "8" Then
MsgBox "Woow, du er hurtigere end computeren..!"
End If
End Sub
____________________________________________________________________________________________

private sub timer1_timer()
text1.text = "1"
end sub
____________________________________________________________________________________________

private sub timer2_timer()
text2.text = "2"
end sub
____________________________________________________________________________________________

private sub timer3_timer()
text3.text = "3"
end sub
____________________________________________________________________________________________

private sub timer4_timer()
text4.text = "4"
end sub
____________________________________________________________________________________________

private sub timer5_timer()
text5.text = "5"
end sub
____________________________________________________________________________________________

private sub timer6_timer()
text6.text = "6"
ens sub
____________________________________________________________________________________________

private sub timer7_timer()
text7.text = "7"
end sub
____________________________________________________________________________________________

private sub timer8_timer()
text8.text = "8"
end sub

Det burde hjælpe.

Synes godt om

mattiasdh Nybegynder

28. april 2006 - 18:59 #10

Mange tak for hjælpen!

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic	5	29/08/202512:28	04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic	0	05/08/202510:10	-
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic	0	16/05/202512:31	-
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic	1	22/04/202514:55	25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS