< návrat zpět

MS Excel


Téma: Snake - faster rss

Zaslal/a 11.6.2013 12:33

vedel by niekto zrychlit tohoto hada??

pusta sa to cez "StartGame"

ide o funkciu:
Application.OnTime Now() + TimeValue("00:00:01"), "Timer"


aj ked ju prepisem na
Application.OnTime Now + 0.000001, "Timer"


tak bud zblbne alebo minimalna hodnota je 1s

Příloha: zip13871_snake.zip (34kB, staženo 23x)
Zaslat odpověď >

#013898
Opičák
8 ?????

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

a Sleep xxcitovat
icon #013900
eLCHa
Místo OnTime zkuste použít Timer (viz nápověda VBA)

něco jako
Sub subTimer(ByVal nEndPause As Single)
nEndPause = Timer + nEndPause
Do While Timer < nEndPause
Loop
End Sub


Inspiroval jste mně
zkusím svoji verzi ;)citovat
icon #013905
eLCHa
Takhle nějak bych na to šel ;)
tedy 1. nástřel
Příloha: zip13905_excel-snake-by-elcha.zip (53kB, staženo 28x)
citovat
#013912
avatar
dnes dojde notebook vyskusam .))

update: tak som sa k tomu dostal genialne tak nejak som to chcel dorobit .)) ... len bez score .... jedine co by som vytkol je rychlost hada ... zacina priliz pomaly a konci priliz rychlo :)))citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje