2 - Wilke Technology

4
BASIC-Tiger ® Graphic-Toolkit
Programmbeispiel:
'---------------------------------------------------------------------
' Name: MOUSE1.TIG
' Demonstriert, wie Mausdaten gelesen werden.
' Zeigt Mausdaten an (auf Textbildschirm)
'---------------------------------------------------------------------
' L71 mit LCD-Reset verbinden
'---------------------------------------------------------------------
user_var_strict ' Vars deklarieren!
#include DEFINE_A.INC ' allgemeine Definitionen
#include UFUNC3.INC ' User-Function-Codes
#include LCD_4.INC ' Definitionen fuer LCD Typ 4
#include GR_TK1.INC ' Definitionen fuer Graphic Toolkit
LONG key ' Maustasten
LONG mx,my ' Mauskoordinaten
'---------------------------------------------------------------------
' Hauptprogramm
'---------------------------------------------------------------------
TASK Main
LONG x, y
call Init_LCDpins ' init LCD
' LCD-4=240x128, 150 KB/s
install_device #LCD2,"LCD-6963.TDD",0,0,0EEH,4,150,11H
' spezieller ser. Treiber fuer Maus
install_device #SER,"SER1C_K1.TDD",&
"M", DP_8N, YES, BD_38_400, DP_8E, YES
print #LCD2, "Aplease move mouse";
print #LCD2, "Aand press mouse keys";
while 0 = 0 ' Endlosschleife
get #SER, #12H, 4, key ' Mausstatus lesen
if key bitand 4 0 then ' wenn gueltiges erstes Mausbyte
get #SER, #10H, 4, x ' Maus-Increments
get #SER, #11H, 4, y ' Maus-Increments
print #LCD2, "Ax:";x;" y:";y;" ";
if key bitand 1 0 then ' pruefe auf rechte Maustaste
print #LCD2, "Aright key";
else
print #LCD2, "A ";
endif
if key bitand 2 0 then ' pruefe auf linke Maustaste
print #LCD2, "Aleft key";
else
print #LCD2, "A ";
endif
endif
wait_duration 50
endwhile
END
' zur Information
'---------------------------------------------------------------------
' Mausdaten
'---------------------------------------------------------------------
422
Wilke Technology GmbH web: www.wilke.de eMail: info@wilke.de