Hallo!
Folgender Code funktioniert bei mir einwandfrei. (WinXP Prof, Profan 7.5)
windowtitle "RGBFarbe = getpixel-Farbe"
settruecolor 1
cls @rgb(255,0,0) 'rot
print @rgb(255,0,0)," = ",@getpixel(100,100)
print "rot = ",@getrvalue(@getpixel(100,100))
print "grün = ",@getgvalue(@getpixel(100,100))
print "blau = ",@getbvalue(@getpixel(100,100))
waitinput
cls @rgb(0,255,0) 'grün
print @rgb(0,255,0)," = ",@getpixel(100,100)
print "rot = ",@getrvalue(@getpixel(100,100))
print "grün = ",@getgvalue(@getpixel(100,100))
print "blau = ",@getbvalue(@getpixel(100,100))
waitinput
cls @rgb(0,0,255) 'blau
print @rgb(0,0,255)," = ",@getpixel(100,100)
print "rot = ",@getrvalue(@getpixel(100,100))
print "grün = ",@getgvalue(@getpixel(100,100))
print "blau = ",@getbvalue(@getpixel(100,100))
waitinput
MfG
René
|