Fikse "delay" i For-Next kommando i VB..

[colakork]

Jeg driver på å lager et program ut ifra en oppgave i boka mi her. Skal få alle farger (RGB 0-255) til å printe i formen.

 

 

 Private Sub Command1_Click()
Dim iTeller As Integer
Dim iWait As Integer
   For iTeller = 0 To 255
   For iWait = 0 To 100

   Form1.BackColor = RGB(iTeller, 255 - iTeller, iTeller / 5)
   
   Print iWait
Next
Next

End Sub

 

Her printer den ut alle fargene, men den eneste måten å få delay på som jeg har funnet ut er å la den telle til et tall(nå 100) i hver gjentakelse...

 

Problemet da er at den bruker så mye prosessorkraft, så finnes det noen annen metode å få delay på?

 

tænks

 

 

colakork

[Bytex]

Vet ikke svaret, men når vi hadde Assembler på skolen fant vi kjapt ut at ei typisk For/next sløyfe var en dårlig ting å bruke som delay. Tida vil nemlig være forskjellig fra maskin til maskin som kjører programmet. En pentium 100 brukte kanskje 5 sekunder på å gå gjennom tellinga, mens en 500Mhz brukte 1 sekund.

I assembly regna vi ut tellinga ut fra prosessor cycles. Finne spec'sene til CPU'n i maskinen, hvor lang tid den brukte på hver cycle..så gange opp til antall sekunder man ville ha...håpløs måte.

Endret 18. oktober 2004 av Bitex

[Jonas]

Sånn:

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

Private Sub Command1_Click()
Dim iTeller As Integer
Dim iWait As Integer
  For iTeller = 0 To 255
  For iWait = 0 To 100

  Form1.BackColor = RGB(iTeller, 255 - iTeller, iTeller / 5)
  
  Print iWait
  
  Sleep 100

Next
Next

End Sub

[colakork]

hva nøyaktig er det det gjør?

[Jonas]

Sleep? Den venter. Altså når den har ventet x antall millisekkunder end'er subben, og ditt program fortsetter.

[colakork]

allright. tænks.

[colakork]

Sånn:

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

Private Sub Command1_Click()
Dim iTeller As Integer
Dim iWait As Integer
  For iTeller = 0 To 255
  For iWait = 0 To 100

  Form1.BackColor = RGB(iTeller, 255 - iTeller, iTeller / 5)
  
  Print iWait
  
  Sleep 100

Next
Next

End Sub

Fikk den først til å fungere etter at jeg skiftet public declare til private declare, har ikke helt skjønt hvorfor den fungerte, kan noen si meg det?

[Jonas]

Public-API kan ikke ligge i en form. Da må den ligge i en modul

[colakork]

Da har jeg den som neste ting på lista over ting jeg må lære meg.

 

 

 

API. Wuhu.

Endret 22. oktober 2004 av colakork

[Jonas]

API Text Viewer

 

Sånn hvis du ikke har den fra før. SINSYKT nyttig spør du meg!

API_Text_Viewer.zip

[colakork]

Den var ny for meg. Skjønner at API har med .dll filer å gjøre. Hvis jeg har rett, kanskje du kan si noen nyttige dll filer som allerede finnes i windows(xp)?

 

takk for hjelpen

[colakork]

hmm, tror jeg må lære meg å se igjennom ting litt før jeg skriver neste spørsmål. Sorry, står jo dritmange sånne kommandoer i det programmet. Dumme meg...

Endret 22. oktober 2004 av colakork

[GeirGrusom]

Dim lTeller As Long

lTeller = Timer + 1000

 

Do : Loop Until Timer() > lTeller