login  Naam:   Wachtwoord: 
Registreer je!
 Forum

MsVB6: Laad-delay

Offline cracker - 27/07/2005 18:20
Avatar van crackerOnbekend 'lo.
Ik wou al lang programma's kunnen schrijven maar ik ben nog volop n00b in C++ dus startte ik een project in Visual Basic 6. (Professional)

Het benodigde:
ik heb een custom splash venster gemaakt met een ProgressBar erin.
php code - Bekijk de code zonder highlighting - Klap code in 
  1. ProgressBar1.min = 0
  2. ProgressBar.max = 100
  3. ProgressBar.value = 0

Ik zou graag willen dat deze progressbar iedere 250mS +10 als waarde krijgt en eens het de 100 bereikt, het gehele splash screen zich sluit en er een ander venster (de main) zich toont.

Na 2 dagen experimenteren en volop tutorials lezen ben ik nog niets wijzer geworden.
Ik weet één ding: ik heb een timer nodig.

Eigenlijke vraag: How TF moet ik dit nu schrijven in VB ?
Ik hoop dat er toch enkele VB-scripters zijn hier op Sitemasters welke mij dit alles zouden kunnen uitleggen.

note: maak het begrijpbaar voor een n00b a.u.b.

14 antwoorden

Gesponsorde links
Offline Ontani - 27/07/2005 19:15
Avatar van Ontani Gouden medailleGouden medailleGouden medailleGouden medaille

-1		 k ben een vb.net scripter. maar het zou op deze mannier moeten lukken:

voeg een timer in uw form zet de waarde van de timer op 250.
zet in de timer sub:

If PrograssBar.value <> 100 Then
ProgressBar.value += 10
Else
form2.show
me.close()
End If

het zal iets in die aard zijn.
Offline remcobers - 27/07/2005 21:34
Avatar van remcobers PHP expert www.vbfreakz.nl (sorry als het reclame is:P)
Offline cracker - 27/07/2005 21:35 (laatste wijziging 27/07/2005 21:52)
Avatar van cracker Onbekend ik heb er dit van gemaakt omdat ik anders telkens fouten kreeg maar nu werkt het ook niet 
php code - Bekijk de code zonder highlighting - Klap code in 
  1. Private Sub load_Timer()
  2. If ProgressBar1.Value <> 100 Then
  3. waarde = 0
  4. ProgressBar1.Value = waarde
  5. waarde = waarde + 10
  6. Else
  7. form2.Show
  8. Me.Hide
  9. End If
  10. End Sub

edit:
verbeterde code:
php code - Bekijk de code zonder highlighting - Klap code in 
  1. Private Sub load_Timer()
  2. If ProgressBar1.Value <> 100 Then
  3. ProgressBar1.Value = waarde
  4. waarde = waarde + 10
  5. Else
  6. form2.Show
  7. Me.Hide
  8. End If
  9. End Sub
Offline Ontani - 27/07/2005 21:51
Avatar van Ontani Gouden medailleGouden medailleGouden medailleGouden medaille

-1		 zeker dat je timer op enable staat?
Offline cracker - 27/07/2005 21:53 (laatste wijziging 27/07/2005 22:57)
Avatar van cracker Onbekend timer is enabled
@Ontani: zou jij dit kunnen oplossen via NetMeeting ?
Offline Ontani - 28/07/2005 00:30
Avatar van Ontani Gouden medailleGouden medailleGouden medailleGouden medaille

-1		 ik wil wel proberen, k heb wel nooit vb 6.0 gehad maar 't zal wel niet zoveel schelen. ge voegt me maar toe: thefallenangel ad beer dot com
Offline cracker - 28/07/2005 03:10 (laatste wijziging 28/07/2005 05:38)
Avatar van cracker Onbekend Als ge mijn probleem niet kunt oplossen, niet erg want dit programma is grotendeels als test voor mijn VB-kennis.
Later zou ik wel verder willen doen met VB en heuse programma's ermee maken.
daarom dat ik toch met iets moet beginnen ae 

Edit: momenteel kan ik werken met hide, show, msgbox en een if...else constructor.

Edit:
thx to Ontani the man 
Probleem opgelost !
Form1:
php code - Bekijk de code zonder highlighting - Klap code in 
  1. Public i As Integer
  2.  
  3. Private Sub Form_Load()
  4.  i = 1
  5. End Sub
  6.  
  7. Private Sub load_Timer()
  8.  i = i + 1
  9.  If ProgressBar1.Value = 100 Then
  10.   Me.Hide
  11.   Form2.Show
  12.   load.Enabled = False
  13.   Exit Sub
  14.  Else
  15.   ProgressBar1.Value = i * 10
  16.  End If
  17.  End Sub


Form2:
php code - Bekijk de code zonder highlighting - Klap code in 
  1. Private Sub Form_Unload(Cancel As Integer)
  2. Unload Form1
  3. End Sub
Offline Ontani - 28/07/2005 05:39
Avatar van Ontani Gouden medailleGouden medailleGouden medailleGouden medaille

-1		 Opgelost sé :

php code - Bekijk de code zonder highlighting - Klap code in 
  1. Sub load_Timer()
  2. If Progressbar1.value = 100 Then
  3.  form1.hide
  4.  form2.show
  5.  load.enabled = false
  6. Else
  7.  Progressbar1.value = Progressbar1.value + 10
  8. End Sub
Offline cracker - 28/07/2005 08:28 (laatste wijziging 29/07/2005 00:46)
Avatar van cracker Onbekend stukske korter 
of het nu i*10 of 10^10 is, blijft toch gelijk? 

Edit: @Ontani: If without end if ! 
Offline Ontani - 28/07/2005 17:43 (laatste wijziging 29/07/2005 03:00)
Avatar van Ontani Gouden medailleGouden medailleGouden medailleGouden medaille

-1		 10^10 = "10 tot de macht 10" = 100
Offline Joel - 29/07/2005 03:01
Avatar van Joel Eigenaar Waar heb jij wiskunde gehad????

10^10 = 10 x 10 x 10 x 10 x 10 x 10 x 10 x 10 x 10 x 10

jij bedoelt 10^2 = 10² = 100
Offline cracker - 29/07/2005 04:19 (laatste wijziging 31/07/2005 03:36)
Avatar van cracker Onbekend damn ae ik ben daar altijd fout in 
Ge hebt gelijk, Joel.

edit: lol, Ontani was ook fout 
Offline Ontani - 31/07/2005 03:44 (laatste wijziging 31/07/2005 03:45)
Avatar van Ontani Gouden medailleGouden medailleGouden medailleGouden medaille

-1		 k was nie fout zalle, k dacht da ge met mijn post wel zou inzien wa ge fout had
Offline cracker - 31/07/2005 04:01
Avatar van cracker Onbekend ook goed lol 
Gesponsorde links
Dit onderwerp is gesloten.
Actieve forumberichten
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.215s