 |
Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
WinterStorm
Anmeldungsdatum: 14.11.2005
Beiträge: 198
Wohnort: Linz
|
 Verfasst am: 03.04.2006, 19:55 Titel: bild statt cursor |
 |
|
moin,
bin grad dabei von qb auf fb umzusteigen, und da wollt ich gleich mal
ein bild statt dem cursor laden.
bis jetzt hab ichs so:
| Code: |
Screenres 800,600, 24
Dim As Integer x,y
Dim As Any Ptr cursor
cursor=Imagecreate(11,11)
Line cursor,(5,1)-(5,10),&H00ff00
Line cursor,(1,5)-(10,5),&H00ff00
Setmouse ,,0
Do
color 0
screenlock
cls
Getmouse x,y
Put (x,y),cursor,pset
screenunlock
if inkey$ = chr$(27) then end
Loop
|
aber ich möcht ein bild statt dem quadrat laden, das auf C:\a.bmp heißt/ist.
mit bload müsste das doch funzen oder? aber ich weiß nicht genau wie...
thx schon mal im voraus,
mfg
_________________
Me
lastfm...
 |
|
| Nach oben |
|
 |
MisterD
Anmeldungsdatum: 10.09.2004
Beiträge: 3071
Wohnort: bei Darmstadt
|
| Verfasst am: 03.04.2006, 20:18 Titel: |
|
|
http://referenz.freebasic.de/?s=bload
_________________
"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 |
|
|
Devilkevin
aka Kerstin
Anmeldungsdatum: 11.11.2004
Beiträge: 2532
Wohnort: nähe Mannheim
|
|
| Nach oben |
|
|
WinterStorm
Anmeldungsdatum: 14.11.2005
Beiträge: 198
Wohnort: Linz
|
| Verfasst am: 03.04.2006, 21:36 Titel: |
|
|
sry ich hab mich wohl nicht sehr gut ausgedrückt,
ich weiß ja wie man bilder lädt usw..., das hab ich ja schon öfters gemacht, doch ich weiß nicht wie ich es als cursor verwenden kann.
_________________
Me
lastfm...
|
|
| Nach oben |
|
|
MisterD
Anmeldungsdatum: 10.09.2004
Beiträge: 3071
Wohnort: bei Darmstadt
|
| Verfasst am: 04.04.2006, 01:28 Titel: |
|
|
genauso o_O
guggsuhier:
Put (x,y),cursor,pset
hast du schon, jetzt musst du nur statt deinen
Line cursor,(5,1)-(5,10),&H00ff00
Line cursor,(1,5)-(10,5),&H00ff00
das file nehmen
bload "bild.bmp", cursor
und schon sollte der cursor dem bild entsprechen.
_________________
"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 |
|
|
WinterStorm
Anmeldungsdatum: 14.11.2005
Beiträge: 198
Wohnort: Linz
|
| Verfasst am: 04.04.2006, 12:41 Titel: |
|
|
ja genau da liegt ja mein problem, 
wahrscheinlichliegts wiederan meinem pc...
hier nochmalder code:
| Code: |
Screenres 800,600, 24
Dim As Integer x,y
Dim As Any Ptr cursor
cursor=Imagecreate(11,11)
bload "C:\a.bmp",cursor
Setmouse ,,0
Do
color 0
screenlock
cls
Getmouse x,y
Put (x,y),cursor,pset
screenunlock
if inkey$ = chr$(27) then end
Loop
|
ich binschon amverzweifeln...
mfg
_________________
Me
lastfm...
|
|
| Nach oben |
|
|
jb
Anmeldungsdatum: 14.01.2005
Beiträge: 2010
|
| Verfasst am: 04.04.2006, 12:45 Titel: |
|
|
Hast du's mal mit
| Code: |
screen 18, 2, 24
screenset 1, 2
[...]
|
probiert?
jb
_________________
Elektronik und Programmieren |
|
| Nach oben |
|
|
Michael712
aka anfänger, programmierer
Anmeldungsdatum: 26.03.2005
Beiträge: 1593
|
| Verfasst am: 04.04.2006, 13:21 Titel: |
|
|
| jb hat Folgendes geschrieben: | Hast du's mal mit
| Code: |
screen 18, 2, 24
screenset 1, 2
[...]
|
probiert?
jb |
o_O?
| Code: | | SCREEN Modus[,[ Farbtiefe][,[ ZahlDerSeiten][, Flags[, Bildwiederholrate]]]] |
Farbtiefe 2, und 24 Seiten?
Hast wohl was vertauscht, und ausserdem sollte es so auch klappen, wie es bis jetzt ist, ich denke aber mal, dass das geladene Bild evtl zu groß ist.
Aber mal ne andere Frage: WAS klappt nicht? Kommt ein Fehler oder bleibt der Bildschirm schwarz?
_________________
| Code: | | #include "signatur.bi" |
|
|
| Nach oben |
|
|
volta
Anmeldungsdatum: 04.05.2005
Beiträge: 1876
Wohnort: D59192
|
| Verfasst am: 04.04.2006, 13:32 Titel: |
|
|
Hi,
versuch mal:
| Code: | Option Explicit
Dim As Integer breit, hoch, x, y
Dim As Integer Ptr cursor
Screen 18, 32 'Bit per Pixel = 32
breit = 52 'Bildbreite und
hoch = 86 'Bildhöhe sind bekannt
cursor = ImageCreate (breit, hoch) 'Image bilden
BLoad "bruno.bmp",cursor 'BMP-Datei in das Image laden
Setmouse ,,0
Getmouse x,y
Do
screenlock
If x>=0 And y>=0 Then Put (x,y),cursor,Xor
Getmouse x,y
If x>=0 And y>=0 Then Put (x,y),cursor,PSet
ScreenUnlock
if inkey$ = chr$(27) then end
Loop
|
natürlich mit deiner bmp Datei und deiner Bildgröße 
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater. |
|
| Nach oben |
|
|
WinterStorm
Anmeldungsdatum: 14.11.2005
Beiträge: 198
Wohnort: Linz
|
| Verfasst am: 05.04.2006, 08:54 Titel: |
|
|
moin,
thx jetzt funzts...
mfg
_________________
Me
lastfm...
|
|
| Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
