🚀 go-pugleaf

In article <9hl0vo$en7$1@ctb-nnrp2.saix.net>, Daniel
<graceln@lantic.net> writes
>Hi.  Does anybody know how i can stop the program for a few milliseconds in
>a do..loop.  The pascal syntax is:
>
>delay(Time in millisends)
>
>does anybody know the visual basic equivalent for this.  If you do please
>email me at graceln@lantic.net

Daniel, if you're prepared to wait multiples of ~55msecs then try this.

In the General section of the Form...

Dim goflag as Boolean

'In the Form code when delay required

goflag=false
Timer1.Interval = ???
Timer1.Enabled = True
While not goflag: Doevents: Wend
Timer1.Enabled = False
'Continue here after the delay

Not the prettiest of code but might give you a start.

(Forwarded by e-mail)

Regards.

-- 
Martin Trump

Daniel,

The easiest way to stop the program for a few milliseconds is to use the
Sleep Api :

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

Good luck

@+
Pierre ALEXIS
E-mail : alexispierre@hotmail.com.nospam (enlever .nospam pour m'�crire)
--------------------------------------
"What we do in life echoes in Eternity"
Gladiator

"Daniel" <graceln@lantic.net> a �crit dans le message news:
9hl0vo$en7$1@ctb-nnrp2.saix.net...
> Hi.  Does anybody know how i can stop the program for a few milliseconds
in
> a do..loop.  The pascal syntax is:
>
> delay(Time in millisends)
>
> does anybody know the visual basic equivalent for this.  If you do please
> email me at graceln@lantic.net
>
> Thankyou
> Daniel

this is an abusive cross post !!
no english in FR.comp.lang.basic !!

--
--------------------------
      Philippe MAIRE
  philippe.maire@evc.net
    www.philiweb.fr.fm
      ICQ : 59264316
--------------------------
"Daniel" <graceln@lantic.net> a �crit dans le message news:
9hl0vo$en7$1@ctb-nnrp2.saix.net...
> Hi.  Does anybody know how i can stop the program for a few milliseconds
in
> a do..loop.  The pascal syntax is:
>
> delay(Time in millisends)
>
> does anybody know the visual basic equivalent for this.  If you do please
> email me at graceln@lantic.net
>
> Thankyou
> Daniel
>
>

Oh pleeeez....like I really feel abused now... here is some pseudo code for ya
MAIRE:

If Language <> whatever you prefer then
  DON'T READ IT
Else
  GO AHEAD AND READ IT
End If
MsgBox("Jeez!","What a Dupe!")

Philippe MAIRE wrote:

> this is an abusive cross post !!
> no english in FR.comp.lang.basic !!
>
> --
> --------------------------
>       Philippe MAIRE
>   philippe.maire@evc.net
>     www.philiweb.fr.fm
>       ICQ : 59264316
> --------------------------
> "Daniel" <graceln@lantic.net> a �crit dans le message news:
> 9hl0vo$en7$1@ctb-nnrp2.saix.net...
> > Hi.  Does anybody know how i can stop the program for a few milliseconds
> in
> > a do..loop.  The pascal syntax is:
> >
> > delay(Time in millisends)
> >
> > does anybody know the visual basic equivalent for this.  If you do please
> > email me at graceln@lantic.net
> >
> > Thankyou
> > Daniel
> >
> >

!!!
if Language <> "Fr" and left(NgName, 3) = "fr." then
    dont_post
else
    post
endif

et, pour les fran�ais qui me lisent :
'a bas les ricains' :o)
--
--------------------------
      Philippe MAIRE
  philippe.maire@evc.net
    www.philiweb.fr.fm
      ICQ : 59264316
--------------------------
"Some Guy" <sumgie@pop.spkn.qwest.net> a �crit dans le message news:
3B422016.20CB8F06@pop.spkn.qwest.net...
> Oh pleeeez....like I really feel abused now... here is some pseudo code
for ya
> MAIRE:
>
> If Language <> whatever you prefer then
>   DON'T READ IT
> Else
>   GO AHEAD AND READ IT
> End If
> MsgBox("Jeez!","What a Dupe!")
>
> Philippe MAIRE wrote:
>
> > this is an abusive cross post !!
> > no english in FR.comp.lang.basic !!
> >
> > --
> > --------------------------
> >       Philippe MAIRE
> >   philippe.maire@evc.net
> >     www.philiweb.fr.fm
> >       ICQ : 59264316
> > --------------------------
> > "Daniel" <graceln@lantic.net> a �crit dans le message news:
> > 9hl0vo$en7$1@ctb-nnrp2.saix.net...
> > > Hi.  Does anybody know how i can stop the program for a few
milliseconds
> > in
> > > a do..loop.  The pascal syntax is:
> > >
> > > delay(Time in millisends)
> > >
> > > does anybody know the visual basic equivalent for this.  If you do
please
> > > email me at graceln@lantic.net
> > >
> > > Thankyou
> > > Daniel
> > >
> > >
>

On Wed, 4 Jul 2001 11:43:09 +0200, "Philippe MAIRE"
<philippe.maire@evc.net> wrote:

>!!!
>if Language <> "Fr" and left(NgName, 3) = "fr." then
>    dont_post
>else
>    post
>endif
>
>et, pour les fran�ais qui me lisent :
>'a bas les ricains' :o)


Which just proves the old Chinese proverb: If you save somebody's
life, they will hate you forever.

John

lol

--
--------------------------
      Philippe MAIRE
  philippe.maire@evc.net
    www.philiweb.fr.fm
      ICQ : 59264316
--------------------------
"John Larkin" <jjlarkin@highlandSNIPTHIStechnology.com> a �crit dans le
message news: tn1DOyFKNfzoAEf5tsfxtpVQzn6U@4ax.com...
> On Wed, 4 Jul 2001 11:43:09 +0200, "Philippe MAIRE"
> <philippe.maire@evc.net> wrote:
>
> >!!!
> >if Language <> "Fr" and left(NgName, 3) = "fr." then
> >    dont_post
> >else
> >    post
> >endif
> >
> >et, pour les fran�ais qui me lisent :
> >'a bas les ricains' :o)
>
>
> Which just proves the old Chinese proverb: If you save somebody's
> life, they will hate you forever.
>
> John
>