Propeller with a mouse and a monitor
Ahmet YILDIZ
Posts: 4
Hello
I've got a problem
Propeller with a mouse and a monitor I want to use low resulation
I've done in the example works in a normal mouse X, Y kordinatlarını can read, can read Nang button is pressed but the mouse does not appear on the screen.
"VGA_1280x1024_Tile_Driver_With_Cursor" sample program is working with the same routine, but my mouse low resulasyon and letters should be large.
I would be glad if it helps.
CON
_clkmode = xtal1 + pll16x
_xinfreq = 5_000_000
cols = 80
rows = 64
tiles = cols * rows
spacetile = $220
VAR
long col, row, color
long boxcolor, boxptr
long array[noparse][[/noparse]tiles/2]
long cursor[noparse][[/noparse]1+32]
long cursor_x, cursor_y, cursor_col, cursor_def
OBJ
text : "vga_text"
mouse :"mouse"
PUB start | i,flag , Flag2
text.start(16)
'start mouse and set bound parameters
mouse.start(24, 25)
mouse.bound_limits(0, 0, 0, 799, 639, 0)
mouse.bound_scales(1, -1, 0)
mouse.bound_preset(400,320,0)
repeat
'set mouse cursor according to area
cursor_def := 1 '0
cursor_col := $FC 'F0
'update mouse position
cursor_x := mouse.bound_x
cursor_y := mouse.bound_y
text.str(string($A,7,$B,7,"X := "))
text.hex(cursor_x,4)
text.str(string($A,7,$B,8,"Y := "))
text.hex(cursor_y,4)
text.str(string($A,7,$B,9,"Button := "))
text.hex(mouse.buttons,2)
Post Edited By Moderator (Dave Andreae (Parallax)) : 4/30/2010 4:07:19 PM GMT
I've got a problem
Propeller with a mouse and a monitor I want to use low resulation
I've done in the example works in a normal mouse X, Y kordinatlarını can read, can read Nang button is pressed but the mouse does not appear on the screen.
"VGA_1280x1024_Tile_Driver_With_Cursor" sample program is working with the same routine, but my mouse low resulasyon and letters should be large.
I would be glad if it helps.
CON
_clkmode = xtal1 + pll16x
_xinfreq = 5_000_000
cols = 80
rows = 64
tiles = cols * rows
spacetile = $220
VAR
long col, row, color
long boxcolor, boxptr
long array[noparse][[/noparse]tiles/2]
long cursor[noparse][[/noparse]1+32]
long cursor_x, cursor_y, cursor_col, cursor_def
OBJ
text : "vga_text"
mouse :"mouse"
PUB start | i,flag , Flag2
text.start(16)
'start mouse and set bound parameters
mouse.start(24, 25)
mouse.bound_limits(0, 0, 0, 799, 639, 0)
mouse.bound_scales(1, -1, 0)
mouse.bound_preset(400,320,0)
repeat
'set mouse cursor according to area
cursor_def := 1 '0
cursor_col := $FC 'F0
'update mouse position
cursor_x := mouse.bound_x
cursor_y := mouse.bound_y
text.str(string($A,7,$B,7,"X := "))
text.hex(cursor_x,4)
text.str(string($A,7,$B,8,"Y := "))
text.hex(cursor_y,4)
text.str(string($A,7,$B,9,"Button := "))
text.hex(mouse.buttons,2)
Post Edited By Moderator (Dave Andreae (Parallax)) : 4/30/2010 4:07:19 PM GMT
Comments
yildizmuhendislik33@gmail.com
·
I've added a subject line for you Called "Propeller with a mouse and a monitor".
Dave
▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Dave Andreae
Parallax Tech Support
Post Edited (Dave Andreae (Parallax)) : 4/30/2010 4:13:46 PM GMT
Ahmet YILDIZ