Pomeranje misa na odredjenu koordinatu?

[ Milan M. Radovic @ 15.02.2008. 13:43 ] @

[ Shadowed @ 15.02.2008. 14:08 ] @

Uzmes pravougaonu podlogu za misa, na donjoj ivici obelezis vrednosti za X osu a na levoj za Y. Nabavis dva laserska pointer-a (one priveske za kljuceve) i zalepis jedan na levu stranu misa (moze selote(j)pom) a jedan na prednju (ispred tastera).
Zatim drzeci misa tako okrenutog da laserski zrak iz pointera na levoj strani bude paralelan sa levom ivicom podloge (koja je, jelde Y osa) pomeras misa dok laserski zraci ne padaju na odgovarajuce koordinate.

Tips & tricks:
-Za lakse namestanje ovog paralelnog polozaja mozes da koristis jos jedan laser na levoj strani (ako stane) koji pokazuje u suprotnom smeru i obelezis X osu i na gornjoj ivici podloge.
-Umesto da obelezavas po podlozi, mozes da zalepis lenjir.

[ stefanpn @ 15.02.2008. 14:46 ] @

Mislim da je covek mislio na pomeranje kursora na ekranu.

A ako jeste evo odgovora:

Code:

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Private Sub Command1_Click()
SetCursorPos 100, 100
End Sub

[ Shadowed @ 15.02.2008. 14:50 ] @

Slazem se, ali neka pita ono sto je mislio a ne ovako. Mogu iz tog pitanja razne stvari da se pretpostave, ja sam samo uzeo najekstremniji primer. Kakvo pitanje - takav odgovor :)

[ stefanpn @ 15.02.2008. 17:42 ] @

Ma vazno da se mi druzimo....

[ Eurora3D Team @ 15.02.2008. 22:35 ] @

Malo interesantnije ...

[ stefanpn @ 15.02.2008. 22:49 ] @

E sad bas da ga fenserisemo...

Code:

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Dim MaxX As Integer
Dim MaxY As Integer
MaxX = Screen.Width / Screen.TwipsPerPixelX
MaxY = Screen.Height / Screen.TwipsPerPixelY
Dim Px As Integer
Dim Py  As Integer
For Px = 0 To MaxX
       Py = MaxY/2 + MaxY/2 * Sin(Px * 3.14 / 180)
       SetCursorPos Px, Py
       Sleep 5
next Px
End Sub

[ Eurora3D Team @ 16.02.2008. 22:37 ] @

Dobar ti je ovaj kod

[ stefanpn @ 16.02.2008. 23:13 ] @

Hvala, ali ti si me inspirisao sa tvojim kodom.

Pozz.

[ Aleksandar Ružičić @ 18.02.2008. 12:45 ] @

evo i ja da okacim nesto, bilo mi dosadno pa sam resio da pomeram kursor koristeci easing funkcije :)
mada se easing efekti ne vide bas lepo iz razloga sto je kursor mali... a i nije toliko fensi kao pomeranje po sinusu :p

inace, ne znam sto kod nekih easing funkcija se kursor "zalepi" na (0,0) al nikako da zavrsim ovu Easing klasu i da je lepo izdebagujem...

[ stefanpn @ 18.02.2008. 14:55 ] @

Ja sam nekada davno imao ideju, koju sam znao kako ali me je jednostavno mrzelo da je realizujem ( nije bilo svrhe ). Pa cu je sad podeliti s' vama. Ideja je bila da se na svakih 10 ms snima pozicija kursora u datoteku, dok je ukljuceno snimanje. A da posle na play moze da se rekonstruise pomeranje kursora, ideja je bila da se prati neciji rad sa najmanje moguce snimanja i zauzimanja memorije...

P.S. Sve bi to lepo funkcionisalo da je okruzenje staticko... Ovako nema svrhe jer ako se jedna ikona pomeri sve pada u vodu...

@Ruzicic

Klasa ti je super, samo kao i mojoj ideji ne vidim joj primenu...

Sem ako neces da se dobro nasalis sa nekim.

[ Aleksandar Ružičić @ 18.02.2008. 19:53 ] @

ma ta klasa nije napisana da bih njom pomerao kursor :) nego da bih imao easing efekte u vb-u ako mi zatreba za neke animacije (a trebalo mi jednom)

e da, i ovde me dosta njih zna pod nadimkom 'krcko' (menjao sam nik ovde na forumu to mi je bio "originalni") mada mozes da me oslovljavas kako hoces :D