[Pytanie] zapisywanie koordów

[Keasr223]

Jak napisać program który po kliknięciu w dane miejsce zapisuje kordy do pliku (najlepiej zwykły notatnik), ma je ciągle dodawać ale nie nadpisywać ?.

[jackraymund]

słabo opisałeś mój problem,

 

hotkeyset
getmousepos
filewriteline
 

 

te 3 funkcje ci w zupełności wystarczą

[JestemPolakiem]

robisz funkcje start i koniec, dajesz zmienną pod fileopen.

 

w funkcji start dajesz taki kod :

 

	Filewrite ($ZMIENNA,MouseGetPos(0)&" , " & MouseGetPos(1) & @CRLF)

 

czyli zapisujesz do pliku otworzonego zmienną MoustGetpo(0) i MouseGetPos(1) czyli x i y

 

a oto cały kod :

 

HotKeySet ("{`}","start")
HotKeySet ("{Esc}","knc")

$zmienna = FileOpen (@ScriptDir & "/TWÓJPLIK.txt",1)

Func knc ()
	Exit
EndFunc

Func start ()
	Filewrite ($zmienna,MouseGetPos(0)&" , " & MouseGetPos(1) & @CRLF)
EndFunc

While 1
ToolTip("Aktualna pozycja to " & MouseGetPos(0)& " , " & MouseGetPos (1)&".",0,0)
Sleep (80)
WEnd

a po endfunc jest taki bajer, że na górze ekranu co 0.08 s wyświetla się twoja aktualna pozycja myszki.

[Phoenix_PL]

masz:

HotKeySet("{F3}", "spos")

 

$fopen = FileOpen("log.txt", 10)

 

Func spos()

$pos = MouseGetPos()

$color = PixelGetColor($pos[0], $pos[1])

FileWrite($fopen, "Pozycja: "&$pos[0]&", "&$pos[1]&@CRLF&"Kolor: "&$color&@CRLF&@CRLF)

EndFunc

 

While 1

$pos = MouseGetPos()

$color = PixelGetColor($pos[0], $pos[1])

ToolTip("Pozycja: "&$pos[0]&", "&$pos[1]&@CRLF&"Kolor: "&$color, 0, 0)

WEnd

zapisuje koordy + kolor w RGB aktualnego piksela, przerób sobie jak ci nie potrzeba koloru.