| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
alfonsospringer
Anmeldungsdatum: 27.04.2006
Beiträge: 445
|
 Verfasst am: 29.06.2006, 16:08 Titel: maus in freebasic |
 |
|
kennt ihr ein gutes tutorial zur einbindung der maus in freebasic programme?
_________________
Die Antworten zu fast allen Fragen des Lebens findest du entweder im MonsterFAQ oder der Befehlsreferenz - Und wenn du gar nicht mehr weiter weisst ? -> Wikipedia
ALLE RECHTSCHREIBFEHLER DIE ICH MACHE SIND BEABSICHTIGT, DAMIT DIE LEUTE, DIE SPAß DARAN HABEN SOLCHE ZU FINDEN, ETWAS ZU TUN HABEN |
|
| Nach oben |
|
 |
The real Agent D
Anmeldungsdatum: 24.11.2005
Beiträge: 605
Wohnort: Hall i. T.
|
| Verfasst am: 29.06.2006, 16:13 Titel: |
|
|
| Das ist das lustige an FB. Du brauchst kein Tutorial, da es bereits Befehle zur Einbindung der Maus gibt. Schau in der FB Hilfe einfach mal unter GETMOUSE un SETMOUSE nach. |
|
| Nach oben |
|
|
alfonsospringer
Anmeldungsdatum: 27.04.2006
Beiträge: 445
|
| Verfasst am: 29.06.2006, 16:15 Titel: |
|
|
das ist krank: kein tutorial? Die spinnen doch (Im positiven Sinne)
_________________
Die Antworten zu fast allen Fragen des Lebens findest du entweder im MonsterFAQ oder der Befehlsreferenz - Und wenn du gar nicht mehr weiter weisst ? -> Wikipedia
ALLE RECHTSCHREIBFEHLER DIE ICH MACHE SIND BEABSICHTIGT, DAMIT DIE LEUTE, DIE SPAß DARAN HABEN SOLCHE ZU FINDEN, ETWAS ZU TUN HABEN |
|
| Nach oben |
|
|
The real Agent D
Anmeldungsdatum: 24.11.2005
Beiträge: 605
Wohnort: Hall i. T.
|
| Verfasst am: 29.06.2006, 16:16 Titel: |
|
|
| alfonsospringer hat Folgendes geschrieben: | | das ist krank: kein tutorial? Die spinnen doch (Im positiven Sinne) |
Wie ist denn das zu verstehen? |
|
| Nach oben |
|
|
alfonsospringer
Anmeldungsdatum: 27.04.2006
Beiträge: 445
|
| Verfasst am: 29.06.2006, 16:23 Titel: |
|
|
| alfonsospringer hat Folgendes geschrieben: | | (Im positiven Sinne) |
Absolut genial.
DO
' Get mouse x, y and buttons. Discard wheel position.
GETMOUSE x, y,, buttons
'buttons
LOCATE 1, 1
IF x < 0 THEN
PRINT "Mouse not available or not on window"
ELSE
PRINT USING "Mouse position: ###:### Buttons: "; x; y;
IF buttons AND 1 THEN PRINT "L";
IF buttons AND 2 THEN PRINT "R";
IF buttons AND 4 THEN PRINT "M";
PRINT " "
END IF
LOOP WHILE INKEY$ = ""
END
kannst du mir mal die variable buttons und die and verknüpfungen erklären ? ich versteh nicht was die machen.
_________________
Die Antworten zu fast allen Fragen des Lebens findest du entweder im MonsterFAQ oder der Befehlsreferenz - Und wenn du gar nicht mehr weiter weisst ? -> Wikipedia
ALLE RECHTSCHREIBFEHLER DIE ICH MACHE SIND BEABSICHTIGT, DAMIT DIE LEUTE, DIE SPAß DARAN HABEN SOLCHE ZU FINDEN, ETWAS ZU TUN HABEN |
|
| Nach oben |
|
|
The real Agent D
Anmeldungsdatum: 24.11.2005
Beiträge: 605
Wohnort: Hall i. T.
|
| Verfasst am: 29.06.2006, 16:29 Titel: |
|
|
Wenn buttons 1 ist, dann wird die linke Taste gedrückt.
Wenn buttons 2 ist, dann wird die mittlere Taste gedrückt.
Wenn buttons 3 ist, dann wird die rechte Taste gedrückt.
Wozu das AND da ist, weiß ich selber nicht. |
|
| Nach oben |
|
|
alfonsospringer
Anmeldungsdatum: 27.04.2006
Beiträge: 445
|
| Verfasst am: 29.06.2006, 16:36 Titel: |
|
|
wenn ich einen einzelnen pixel als button verwenden will müsste es ja so funktionieren:
| Code: |
cls
do
getmouse x,y,,buttons
loop until buttons = 1
if x=5 and y=5 then
print "Hello World"
endif
|
wenn ich jedoch ein ganzes rechteck als button verwenden möchte wie muss die if abfrage dann aussehen?
_________________
Die Antworten zu fast allen Fragen des Lebens findest du entweder im MonsterFAQ oder der Befehlsreferenz - Und wenn du gar nicht mehr weiter weisst ? -> Wikipedia
ALLE RECHTSCHREIBFEHLER DIE ICH MACHE SIND BEABSICHTIGT, DAMIT DIE LEUTE, DIE SPAß DARAN HABEN SOLCHE ZU FINDEN, ETWAS ZU TUN HABEN |
|
| Nach oben |
|
|
The real Agent D
Anmeldungsdatum: 24.11.2005
Beiträge: 605
Wohnort: Hall i. T.
|
| Verfasst am: 29.06.2006, 16:42 Titel: |
|
|
| Code: |
SCREEN 12
CLS
LINE (5,5)-(10,10), 7, BF
DO
GETMOUSE x, y, , buttons
IF buttons = 1 THEN
SELECT CASE x
CASE 5 to 10
SELECT CASE y
CASE 5 to 10
PRINT "HELLO WORLD!"
SLEEP 200
END SELECT
END SELECT
END IF
LOOP
|
Nur SELECT CASE lässt Vergleiche mit TO zu.
Zuletzt bearbeitet von The real Agent D am 29.06.2006, 16:45, insgesamt einmal bearbeitet |
|
| Nach oben |
|
|
alfonsospringer
Anmeldungsdatum: 27.04.2006
Beiträge: 445
|
| Verfasst am: 29.06.2006, 16:44 Titel: |
|
|
macht sinn, danke
_________________
Die Antworten zu fast allen Fragen des Lebens findest du entweder im MonsterFAQ oder der Befehlsreferenz - Und wenn du gar nicht mehr weiter weisst ? -> Wikipedia
ALLE RECHTSCHREIBFEHLER DIE ICH MACHE SIND BEABSICHTIGT, DAMIT DIE LEUTE, DIE SPAß DARAN HABEN SOLCHE ZU FINDEN, ETWAS ZU TUN HABEN |
|
| Nach oben |
|
|
alfonsospringer
Anmeldungsdatum: 27.04.2006
Beiträge: 445
|
| Verfasst am: 29.06.2006, 17:04 Titel: |
|
|
was macht die 32 ?
wie kann man in screen 18 die hintergrundfarbe festlegen?
_________________
Die Antworten zu fast allen Fragen des Lebens findest du entweder im MonsterFAQ oder der Befehlsreferenz - Und wenn du gar nicht mehr weiter weisst ? -> Wikipedia
ALLE RECHTSCHREIBFEHLER DIE ICH MACHE SIND BEABSICHTIGT, DAMIT DIE LEUTE, DIE SPAß DARAN HABEN SOLCHE ZU FINDEN, ETWAS ZU TUN HABEN |
|
| Nach oben |
|
|
Mecki
Igel
Anmeldungsdatum: 10.09.2004
Beiträge: 985
Wohnort: Niederbayern
|
|
| Nach oben |
|
|
MisterD
Anmeldungsdatum: 10.09.2004
Beiträge: 3071
Wohnort: bei Darmstadt
|
| Verfasst am: 29.06.2006, 18:09 Titel: |
|
|
| The real Agent D hat Folgendes geschrieben: | Wenn buttons 1 ist, dann wird die linke Taste gedrückt.
Wenn buttons 2 ist, dann wird die mittlere Taste gedrückt.
Wenn buttons 3 ist, dann wird die rechte Taste gedrückt.
Wozu das AND da ist, weiß ich selber nicht. |
Da hast du was falsch verstanden oO
| Code: | (0 = keine taste)
1 = linke taste
2 = rechte taste
4 = mittlere taste |
die teile kannst du nach bedarf addieren
| Code: | 3=linke und rechte taste (1+2)
5=mittlere und linke taste (4+1)
6=mittlere und rechte taste (4+2)
7=alle drei tasten (4+2+1) |
sieht folgendermaßen aus:
(&b heißt binär, das wie man die zahlen nur mit 1 und 0 angibt)
| Code: | (0 = &b000 = keine taste )
1 = &b001 = linke taste
2 = &b010 = rechte taste
4 = &b100 = mittlere taste |
die additionen entsprechend:
| Code: | 3 = &b011 = &b001 (linke) + &b010 (rechte) = linke und rechte
5 = &b101 = &b001 (linke) + &b100 (mittlere)= linke und mittlere
6 = &b110 = &b010 (rechte) + &b100 (mittlere) = rechte und mittlere
7 = &b111 = &b001 (linke) + &b010 (rechte)+ &b100 (mittlere) = alle drei zusammen |
(gleich gerechnet wie im dezimalsystem, (00)1 + (0)10 = (0)11, geht so einfach, da es keine stelle gibt wo zwei einsen auf der selben position liegen, daher auch 1 2 und 4 als zahlen.)
jetzt zu dem AND:
zahl1 AND zahl2 funktioniert im prinzip so, dass zahl1 und zahl2 in jener &b****-binärnotation untereinander geschrieben werden und AND heißt und, sprich da wo bei beiden zahlen eine 1 ist kommt am ende auch ne 1 raus:
wird gerechnet:
| Code: | &b011 ( 3 )
&b110 ( 6 )
----- (AND)
&b010 ( 2 ) |
Damit kannst du also sozusagen die Bits (einzelnen 1 und 0 stellen) "extrahieren", auf unsere Mausbuttons angewand:
die ausgelesene zahl wäre beispielsweise
| Code: | | mittlere + rechte taste = &b100 + &b010 = &b110 = 6 |
dann berechnest du die knöpfe:
| Code: | 6 (ausgelesene zahl) AND 1 (linke taste) = &b110 AND &b001 = &b000 = 0
6 (ausgelesene zahl) AND 2 (rechte taste) = &b110 AND &b010 = &b010 = 2
6 (ausgelesene zahl) AND 4 (mittlere taste) = &b110 AND &b100 = &b100 = 4 |
0 heißt "passt nicht", die linke taste ist also in der Kombination nicht gedrückt, alles andere außer 0 heißt "passt" wenn mans mit IF abfragt, sprich die rechte und die mittlere taste sind in der kombination vorhanden. So kannst du daher mit AND die einzelnen tasten aus der empfangen zahl auslesen.
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra |
|
| Nach oben |
|
|
alfonsospringer
Anmeldungsdatum: 27.04.2006
Beiträge: 445
|
| Verfasst am: 29.06.2006, 20:54 Titel: |
|
|
soweit so gut (danke fuer den aufwand)
warum kann ich im modus
screen 18,32
nicht normal mit print text ausgeben?
_________________
Die Antworten zu fast allen Fragen des Lebens findest du entweder im MonsterFAQ oder der Befehlsreferenz - Und wenn du gar nicht mehr weiter weisst ? -> Wikipedia
ALLE RECHTSCHREIBFEHLER DIE ICH MACHE SIND BEABSICHTIGT, DAMIT DIE LEUTE, DIE SPAß DARAN HABEN SOLCHE ZU FINDEN, ETWAS ZU TUN HABEN |
|
| Nach oben |
|
|
Michael Frey
Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz
|
| Verfasst am: 29.06.2006, 20:57 Titel: |
|
|
Geht doch?
| Code: | screen 18,32
dim bild as any ptr
datei$="bild1.bmp"
breite=200
hoehe=200
bild=IMAGECREATE(hoehe,breite) 'eigenschaften des bildes eingeben
bload datei$,bild
put (100,100),bild
color 15
? "Hallo Welt"
sleep 5000,1 |
Vielleicht Farbe nicht/falsch gesetzt wegen Bild laden?
Dann einfach Color 15 und es sollte gehen.
Edit:
Ich glaube ich verwechsle die Threads  .
Naja, das
| Code: | Color 15
? "Hallo Welt |
"
sollte auch hier passen.
_________________
http://de.wikibooks.org/wiki/FreeBasic Jede Hilfe für dieses Buch ist Willkommen!
http://de.wikibooks.org/wiki/FreeBasic:_FAQ FAQ zu Freebasic (im Aufbau, hilfe Willkommen)
Neu mit Syntax Highlight |
|
| Nach oben |
|
|
alfonsospringer
Anmeldungsdatum: 27.04.2006
Beiträge: 445
|
| Verfasst am: 29.06.2006, 21:04 Titel: |
|
|
danke
_________________
Die Antworten zu fast allen Fragen des Lebens findest du entweder im MonsterFAQ oder der Befehlsreferenz - Und wenn du gar nicht mehr weiter weisst ? -> Wikipedia
ALLE RECHTSCHREIBFEHLER DIE ICH MACHE SIND BEABSICHTIGT, DAMIT DIE LEUTE, DIE SPAß DARAN HABEN SOLCHE ZU FINDEN, ETWAS ZU TUN HABEN |
|
| Nach oben |
|
|
alfonsospringer
Anmeldungsdatum: 27.04.2006
Beiträge: 445
|
| Verfasst am: 29.06.2006, 21:09 Titel: |
|
|
1.) was macht
RGB(123,123,255)?
2.) Kann man auch mehrere Bilder anzeigen?
_________________
Die Antworten zu fast allen Fragen des Lebens findest du entweder im MonsterFAQ oder der Befehlsreferenz - Und wenn du gar nicht mehr weiter weisst ? -> Wikipedia
ALLE RECHTSCHREIBFEHLER DIE ICH MACHE SIND BEABSICHTIGT, DAMIT DIE LEUTE, DIE SPAß DARAN HABEN SOLCHE ZU FINDEN, ETWAS ZU TUN HABEN
Zuletzt bearbeitet von alfonsospringer am 29.06.2006, 21:30, insgesamt einmal bearbeitet |
|
| Nach oben |
|
|
Michael Frey
Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz
|
| Verfasst am: 29.06.2006, 21:14 Titel: |
|
|
| Code: | screen 18,32
for r = 0 to 255
for g = 0 to 255
for b=0 to 255
locate 1,1
color rgb(r,g,b)
? "Hallo Welt"
sleep 1
next b
next g
next r |
zu deinem Beispiel:
123 von 255 Rot Anteilen
123 von 255 Grün Anteilen
255 von 255 Blau Anteil
_________________
http://de.wikibooks.org/wiki/FreeBasic Jede Hilfe für dieses Buch ist Willkommen!
http://de.wikibooks.org/wiki/FreeBasic:_FAQ FAQ zu Freebasic (im Aufbau, hilfe Willkommen)
Neu mit Syntax Highlight |
|
| Nach oben |
|
|
alfonsospringer
Anmeldungsdatum: 27.04.2006
Beiträge: 445
|
| Verfasst am: 29.06.2006, 21:32 Titel: |
|
|
aso, aber ich kann die hintergrundfarbe im grafikmodus nicht einfach mit
color 2,4
cls
bestimmen, oder ? Das hat bei mir nicht gefunzt.
Kann man Grafiken eigentlich auch irgendwie in die exe einbinden, sodass man die nicht in dem ordner haben muss?
_________________
Die Antworten zu fast allen Fragen des Lebens findest du entweder im MonsterFAQ oder der Befehlsreferenz - Und wenn du gar nicht mehr weiter weisst ? -> Wikipedia
ALLE RECHTSCHREIBFEHLER DIE ICH MACHE SIND BEABSICHTIGT, DAMIT DIE LEUTE, DIE SPAß DARAN HABEN SOLCHE ZU FINDEN, ETWAS ZU TUN HABEN |
|
| Nach oben |
|
|
Michael Frey
Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz
|
| Verfasst am: 30.06.2006, 19:39 Titel: |
|
|
| Zitat: | aso, aber ich kann die hintergrundfarbe im grafikmodus nicht einfach mit
color 2,4
cls
bestimmen, oder ? Das hat bei mir nicht gefunzt. |
| Code: | screen 18,32
color rgb(0,255,0),rgb(255,0,0)
cls
? "Hallo"
sleep |
| Zitat: | | Kann man Grafiken eigentlich auch irgendwie in die exe einbinden, sodass man die nicht in dem ordner haben muss? |
Wenn es denn sein soll ... 
Ich such den Thread gleich raus.
_________________
http://de.wikibooks.org/wiki/FreeBasic Jede Hilfe für dieses Buch ist Willkommen!
http://de.wikibooks.org/wiki/FreeBasic:_FAQ FAQ zu Freebasic (im Aufbau, hilfe Willkommen)
Neu mit Syntax Highlight |
|
| Nach oben |
|
|
Michael Frey
Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz
|
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
)
)