Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: czasowe opóżnienia
zibi




Typ: neutral
Postów: 13
Zarejestrowany: Nov 2004
czasowe opóżnienia

jak  zrobić  jakieś  opóżnienia  czasowe  w  wisualu
pisze  w  bascomie  tam  to  prostw  wait  1  i  pasuje
a  w  basicu
chce  żeby  ten  okrąg  migotał
może  jakiś  prosty  przykład  z  timerem  i  pętlami??
FillStyle  =  0
FillColor  =  vbRed
Circle  (5000,  5000),  600,  vbRed

14-11-2004 11:31
Pokaż profil zibi  Wyślij email do zibi   
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Widzę dwa proste sposoby:
1) Procedura Sleep:
Deklaracja:
Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Użycie:

' Twój kod...
Sleep 1000
' Twój kod...

"Usypia" program na 1000 milisekund.

2) Timerem:
Private bStep As Byte


Private Sub Timer1_Timer()
  Select Case bStep
  Case 0
      'Tutaj wpisz to, co ma rysować okrąg
  Case 255
      'Tutaj wpisz to, co ma "znikać" okrąg
  End Select
  bStep = Not(bStep)
End Sub



_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

14-11-2004 13:56
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1