Das deutsche QBasic- und FreeBASIC-Forum

[Zeus]

Hallo,
ich habe mit "meinen" Code (habe ihn aus verschiedenen Forenbeiträgen zusammengestellt) ein Problem.
Für meinen AutoPC habe ich eine Ganganzeige erstellt. Klappt gut und arbeitet zuverlässig. Weil ich im Autopc keine Tastatur habe, will ich nun das Programm über den Touchscreen beenden. Dazu habe ich einen Ende- Button eingefügt. Das klappt auch gut, aber leider nicht, wenn Screenres aktiviert ist. Da wird der Button nicht angezeigt. Das Beenden funktioniert aber.
Wer kann mir helfen, was muss ich ändern?
Erstmal besten Dank

#include "vbcompat.bi"
screen 18,32,,0
ScreenRes 112, 190
dim bild1 as any ptr
dim bild2 as any ptr
declare FUNCTION NotSW( BYVAL src AS UINTEGER, BYVAL dest AS UINTEGER ) AS UINTEGER

bild1=IMAGECREATE(103,120) 'Bildgröße
bild2=IMAGECREATE(103,40)
cls

color rgb (255,255,00)
line (1, 6)-(110, 184),, bf 'Rahmen für beide Bilder

COLOR rgb (0,0,0)
LINE (2, 7)-(109, 133), , Bf 'oberes Bild

COLOR rgb (0,0,0)
LINE (2, 140)-(109, 183), , Bf 'unteres Bild
bload "D:\FreeBasic\b2.bmp",bild2
put (3,142),bild2


'----------------------LPT Abfrage-----------------------------------------
do
A = (120 - (INP(889) AND 120)) / 8

IF A = 0 THEN Gosub G0
IF A = 1 THEN Gosub G1
IF A = 2 THEN Gosub G2
IF A = 3 THEN Gosub G3
IF A = 4 THEN Gosub G4
IF A = 5 THEN Gosub G5
IF A = 6 THEN Gosub G6
IF A = 7 THEN Gosub GR

IF INKEY$ = CHR$ (27) THEN Goto ende

getmouse a,b,,buttons
button = buttons and 1

'---------------------------------Button1---------------------------------------
if button=0 and a>7 and a < 140 and b>130 and b<191 then

COLOR rgb (0,0,0)
LINE (2, 140)-(109, 183), , Bf
bload "D:\FreeBasic\b21.bmp",bild2
put (3,142),bild2,CUSTOM, @NotSW
'sleep 100
Else

COLOR rgb (0,0,0)
LINE (2, 140)-(109, 183), , Bf
bload "D:\FreeBasic\b2.bmp",bild2
put (3,142),bild2,CUSTOM, @NotSW
'sleep 100
end if
if button=1 and a>7 and a < 140 and b>130 and b<191 then
goto ende
end if

Sleep 20
loop

FUNCTION NotSW( BYVAL src AS UINTEGER, BYVAL dest AS UINTEGER ) AS UINTEGER
If dest=rgb(0,0,0) then
NotSW=src
else
NotSW=dest
end if
END FUNCTION
ende:
End
'--------------------Bilder zu Parallelport-------------------------------------
G0:
bload "D:\FreeBasic\0.bmp",bild1
put (3,9),bild1,CUSTOM, @NotSW
Return
G1:
bload "D:\FreeBasic\1.bmp",bild1
put (3,9),bild1,CUSTOM, @NotSW
Return
G2:
bload "D:\FreeBasic\2.bmp",bild1
put (3,9),bild1,CUSTOM, @NotSW
Return
G3:
bload "D:\FreeBasic\3.bmp",bild1
put (3,9),bild1,CUSTOM, @NotSW
Return
G4:
bload "D:\FreeBasic\4.bmp",bild1
put (3,9),bild1,CUSTOM, @NotSW
Return
G5:
bload "D:\FreeBasic\5.bmp",bild1
put (3,9),bild1,CUSTOM, @NotSW
Return
G6:
bload "D:\FreeBasic\6.bmp",bild1
put (3,9),bild1,CUSTOM, @NotSW
Return
GR:
bload "D:\FreeBasic\R.bmp",bild1
put (3,9),bild1,CUSTOM, @NotSW
Return

[ytwinky]

Hi Zeus,
zu deinem Jahrestag wünsche ich dir alles Gute(Ja, du bist heute genau ein Jahr dabei )
..und solltest eigentlich wissen, daß ProgrammCode mit Code und nicht mit List als BasicCode dargestellt wird(Nein, dafür brauchst du dich nicht zu bedanken, ist ForenService )
Richtig geschenkt bekommst du meine Version deines Programms:

[volta]

Hi,
ich bin mir nicht sicher, aber durch die Kombination von

[Zeus]

Hallo,
erstaml ein herzliches Dankeschön an Volta und Ytwinky. Nache der ersten Antwort habe wieder versucht, das ganze perfekt zum Laufen zu bringen, wollte aber nicht so wie ich.
Volta hat schließlich die Lösung gefunden.
Also allen noch einen erfolgreichen Tag.