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 |
|
 |
|