• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Snake - faster

Zaslal/a Palooo 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: 13871_snake.zip (34kB, staženo 23x)

Zaslat odpověď >

---

Opičák(11.6.2013 21:56)#013898

?????

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

a Sleep xxcitovat

eLCHa(12.6.2013 8:18)#013900

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

eLCHa(12.6.2013 13:44)#013905

Takhle nějak bych na to šel ;)
tedy 1. nástřel

Příloha: 13905_excel-snake-by-elcha.zip (53kB, staženo 28x)

citovat

Palooo(14.6.2013 8:28)#013912

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse