Archived
Initial commit
This commit is contained in:
@@ -0,0 +1,34 @@
|
||||
1 CLS : REM Maus Basic Beispiel
|
||||
2 PRINT"Dies ist ein Beispiel in Basic geschrieben, das den Mouse Driver Aufruf zeigt."
|
||||
3 PRINT" Details entnehmen sie bitte dem Help File [Help.com]."
|
||||
4 PRINT
|
||||
5 PRINT" Funktion:"
|
||||
6 PRINT" Linker Knopf = Ausdruck von Knopfstatus und Cursorposition (x,y)"
|
||||
7 PRINT" Rechter Knopf = Ende."
|
||||
11 PRINT
|
||||
15 DEFINT A-Z
|
||||
18 DEF SEG=0
|
||||
20 MSEG=256*PEEK(51*4+3)+PEEK(51*4+2)
|
||||
30 MOUSE=256*PEEK(51*4+1)+PEEK(51*4)+2
|
||||
40 IF MSEG OR (MOUSE-2) THEN 60
|
||||
50 PRINT " Mouse Driver not found":END
|
||||
60 DEF SEG=MSEG
|
||||
70 IF PEEK(MOUSE-2)=207 THEN 50
|
||||
80 PRINT " Mouse Driver is installed"
|
||||
100 M1%=0
|
||||
110 CALL MOUSE(M1%, M2%, M3%, M4%)
|
||||
120 S$ = "Fehler" : IF M1=-1 THEN S$ = "O.K."
|
||||
140 PRINT "Status = ";S$
|
||||
150 M1=10:M2=1:M3=2:M4=5
|
||||
160 CALL MOUSE(M1%, M2%, M3%, M4%)
|
||||
170 M1=1
|
||||
180 CALL MOUSE(M1%, M2%, M3%, M4%)
|
||||
190 M1 = 3
|
||||
200 CALL MOUSE(M1%, M2%, M3%, M4%)
|
||||
210 IF M2% = 0 THEN 190
|
||||
220 PRINT"Button Status = ";M2,"Cursor Position: x = ";M3," y = ";M4
|
||||
230 M1=2
|
||||
240 CALL MOUSE(M1%, M2%, M3%, M4%)
|
||||
250 IF M2 = 1 THEN 170
|
||||
260 END
|
||||
|
||||
+195
@@ -0,0 +1,195 @@
|
||||
color 7,1
|
||||
laun$="MTLAUNCH.BAT"
|
||||
cls
|
||||
locate 10,1:color 14,1
|
||||
print"ÉÍÍ Abfrage ÍÍÍÍÍÍÍÍÍ»"
|
||||
for a=11 to 16
|
||||
locate a,1:print"º"
|
||||
locate a,22:print"º"
|
||||
next a
|
||||
print"ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
|
||||
locate 13,23:print"ÉÍÍ Tasten ÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
|
||||
locate 14,23:print"º ÚÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄ¿ º"
|
||||
locate 15,23:print"º ³ ³ ³ ³ º"
|
||||
locate 16,23:print"º ³ ³ ³ ³ º"
|
||||
locate 17,23:print"º ÃÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄ´ º"
|
||||
locate 18,23:print"º ³ Artec ³ º"
|
||||
locate 19,23:print"º ³ ³ º"
|
||||
locate 20,23:print"º ³ ³ º"
|
||||
locate 21,23:print"º ³ ³ º"
|
||||
locate 22,23:print"º ------8<-------8<----- º"
|
||||
locate 23,23:print"ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
|
||||
locate 10,23
|
||||
print"ÉÍÍ Koordinaten ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
|
||||
locate 11,23
|
||||
print"º":locate 11,75:print"º"
|
||||
locate 12,23
|
||||
print"ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
|
||||
locate 12,5
|
||||
color 15,7
|
||||
print" OK ";:color 8,1:print"Ü"
|
||||
locate 13,6:print"ßßßßßßßßßßßßßß"
|
||||
locate 15,5:color 15,7
|
||||
print" CANCEL ";:color 8,1:print"Ü"
|
||||
locate 16,6:print"ßßßßßßßßßßßßßß"
|
||||
locate 1,1:color 14,1
|
||||
print"ÉÍÍ Status ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
|
||||
for a=2 to 5
|
||||
locate a,1
|
||||
print"º º"
|
||||
next a
|
||||
print"ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
|
||||
defint a-z
|
||||
def seg=0
|
||||
mseg=256*peek(207)+peek(206)
|
||||
mouse=256*peek(205)+peek(204)+2
|
||||
if mseg or (mouse-2) then DrvInst else DrvNInst
|
||||
|
||||
DrvNInst:
|
||||
status$="Maus-Treiber nicht installiert"
|
||||
status=12
|
||||
gosub WriteStatus
|
||||
delay .5
|
||||
status$="Bitte installieren"
|
||||
status=15
|
||||
gosub WriteStatus
|
||||
delay .5
|
||||
status$="Programm wird unterbrochen!"
|
||||
status=11
|
||||
gosub WriteStatus
|
||||
end
|
||||
|
||||
DrvInst:
|
||||
def seg=mseg
|
||||
if peek(mouse-2)=207 then DrvNInst
|
||||
status=11
|
||||
status$="Suche Treiber..."
|
||||
gosub WriteStatus
|
||||
m1%=0
|
||||
call absolute mouse(m1%,m2%,m3%,m4%)
|
||||
status$="Maustreiber nicht resident!":status=12:if m1=-1 then status$="Maustreiber resident. ("+right$(str$(m2%),1)+" Tasten)":status=10
|
||||
gosub WriteStatus
|
||||
status=11
|
||||
status$="Maus-Cursor einstellen..."
|
||||
gosub WriteStatus
|
||||
m1=10:m2=0:m3=3:m4=5
|
||||
call absolute mouse(m1%,m2%,m3%,m4%)
|
||||
status=11
|
||||
status$="Maus-Cursor sichtbar machen..."
|
||||
gosub WriteStatus
|
||||
m1=1
|
||||
call absolute mouse(m1%,m2%,m3%,m4%)
|
||||
REM Ja, wo is' denn unser M„uschen?
|
||||
ReadKoord:
|
||||
m1=3
|
||||
call absolute mouse(m1%,m2%,m3%,m4%)
|
||||
status=11
|
||||
status$=""
|
||||
if m2%=1 then status$="l "
|
||||
if m2%=2 then status$=" r "
|
||||
if m2%=3 then status$="l r "
|
||||
if m2%=4 then status$=" m "
|
||||
if m2%=5 then status$="l m "
|
||||
if m2%=6 then status$=" m r "
|
||||
if m2%=7 then status$="l m r "
|
||||
if status$="" then goto NoSWrite
|
||||
status$=status$+"bei x"+str$(m3)+", y"+str$(m4)+" gedr�ckt"
|
||||
if status$=oldstat$ then NoSWrite
|
||||
oldstat$=status$
|
||||
gosub WriteStatus
|
||||
NoSWrite:
|
||||
gosub PaintButt
|
||||
butt=m2:x=m3:y=m4
|
||||
gosub WriteKoord
|
||||
if y=88 and x>=32 and x<=136 and butt=1 then LoadProg
|
||||
if y=112 and x>=32 and x<=136 and butt=1 then Beenden
|
||||
goto ReadKoord
|
||||
|
||||
WriteStatus:
|
||||
statusa$=statusb$
|
||||
statusa=statusb
|
||||
statusb$=statusc$
|
||||
statusb=statusc
|
||||
statusc$=statusd$
|
||||
statusc=statusd
|
||||
statusd$=left$(status$,38)
|
||||
if len(statusd$)<38 then for a=len(statusd$) to 38:statusd$=statusd$+" ":next a
|
||||
statusd=status
|
||||
locate 2,3
|
||||
color statusa,1
|
||||
print statusa$
|
||||
locate 3,3
|
||||
color statusb,1
|
||||
print statusb$
|
||||
locate 4,3
|
||||
color statusc,1
|
||||
print statusc$
|
||||
locate 5,3
|
||||
color statusd,1
|
||||
print statusd$
|
||||
return
|
||||
|
||||
WriteKoord:
|
||||
locate 11,25
|
||||
color 11,1
|
||||
print"Knopf-Status: ";butt;" X: ";m3;" Y: ";m4
|
||||
return
|
||||
|
||||
PaintButt:
|
||||
a=0:b=0:c=0
|
||||
if m2=1 then a=1
|
||||
if m2=2 then c=1
|
||||
if m2=3 then a=1:c=1
|
||||
if m2=4 then b=1
|
||||
if m2=5 then a=1:b=1
|
||||
if m2=6 then b=1:c=1
|
||||
if m2=7 then a=1:b=1:c=1
|
||||
ButtA1:
|
||||
if a<>1 then goto ButtA0
|
||||
locate 15,26:print"²²²²²²"
|
||||
locate 16,26:print"²²²²²²"
|
||||
goto ButtB1
|
||||
ButtA0:
|
||||
locate 15,26:print" "
|
||||
locate 16,26:print" "
|
||||
ButtB1:
|
||||
if b<>1 then goto ButtB0
|
||||
locate 15,33:print"²²²²²²"
|
||||
locate 16,33:print"²²²²²²"
|
||||
goto ButtC1
|
||||
ButtB0:
|
||||
locate 15,33:print" "
|
||||
locate 16,33:print" "
|
||||
ButtC1:
|
||||
if c<>1 then goto ButtC0
|
||||
locate 15,40:print"²²²²²²"
|
||||
locate 16,40:print"²²²²²²"
|
||||
return
|
||||
ButtC0:
|
||||
locate 15,40:print" "
|
||||
locate 16,40:print" "
|
||||
return
|
||||
|
||||
Beenden:
|
||||
status=11
|
||||
status$="Maus-Cursor unsichtbar machen..."
|
||||
gosub WriteStatus
|
||||
m1=2
|
||||
call absolute mouse(m1%,m2%,m3%,m4%)
|
||||
status=12
|
||||
status$="Programm beendet."
|
||||
gosub WriteStatus
|
||||
end
|
||||
|
||||
LoadProg:
|
||||
status=11
|
||||
status$="Maus-Cursor unsichtbar machen..."
|
||||
gosub WriteStatus
|
||||
m1=2
|
||||
call absolute mouse(m1%,m2%,m3%,m4%)
|
||||
status=14
|
||||
status$="Beenden und Starten von "+laun$+"..."
|
||||
gosub WriteStatus
|
||||
color 15,0,0
|
||||
cls
|
||||
execute laun$
|
||||
@@ -0,0 +1,4 @@
|
||||
@ECHO OFF
|
||||
ECHO Datei aufgef�hrt!
|
||||
ECHO.
|
||||
mem |find "GrӇ"
|
||||
Reference in New Issue
Block a user