Pomeranje misa na odredjenu koordinatu?
Potpis
I don't need a girl for sex , All I Need is Binary and HEX
Pomeranje misa na odredjenu koordinatu?
Zaključano
Zakačeno
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.
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.
Mislim da je covek mislio na pomeranje kursora na ekranu.
A ako jeste evo odgovora:
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
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
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 :)
Ma vazno da se mi druzimo.... 
Malo interesantnije ...
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 px As Long
px = 50
While px < 500
SetCursorPos px, px
px = px + 1
Sleep 10
Wend
End Sub
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 px As Long
px = 50
While px < 500
SetCursorPos px, px
px = px + 1
Sleep 10
Wend
End Sub
Potpis
HomePage http://www.eurora3d.com
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
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
Hvala, ali ti si me inspirisao sa tvojim kodom.
Pozz.
Pozz.
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...
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...
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.
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.
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
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