Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Bildschirmfehler?

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Progger_X
Mr. Lagg


Anmeldungsdatum: 24.11.2004
Beiträge: 784
Wohnort: Leipzig

BeitragVerfasst am: 13.06.2005, 21:30    Titel: Bildschirmfehler? Antworten mit Zitat

Hallo. Vor kurzem habe ich folgenden Code programmiert:

Code:

declare sub loadPalFromBMP(bild$)
DIM image(64004) AS UBYTE
screen 18,8,2,&H1,60
BLOAD "image.bmp", VARPTR(image(0))
LoadPalFromBMP "Image.BMP"
e=1
SETMOUSE 0,0,0
seite=1
do
   
    IF MULTIKEY(&h4B) AND x > 0 THEN x = x - 1
    IF MULTIKEY(&h4D) AND x < 639 THEN x = x + 1
    IF MULTIKEY(&h48) AND y > 0 THEN y = y - 1
    IF MULTIKEY(&h50) AND y < 479 THEN y = y + 1
    if MULTIKEY(&H01) THEN e=0
    dummy$=inkey$
    screenlock
    cls
    PUT (x,y), image,pset   
    screenunlock
    zahler=0
    do
        zahler=zahler+1
    loop until zahler>800
loop until e=0


sub loadPalFromBMP(bild$)
open bild$ for binary as #9
GET #9, 1, filetyp%
'IF filetyp% <> 19778 THEN CLOSE #9: ?"falsch!":end
GET #9, 19, bmpxt%
GET #9, 23, bmpyt%
GET #9, 29, bmpbpp%
SEEK #9, 55
IF bmpbpp% <= 8 THEN
     bmpcolors% = 2 ^ bmpbpp%
     bmppal$ = SPACE$(bmpcolors% * 4)
     GET #9, 55, bmppal$
     FOR bmpc% = 0 TO bmpcolors% - 1
     OUT &H3C8, bmpc%
     f1% = ASC(MID$(bmppal$, bmpc% * 4 + 3, 1))    'Red
     f2% = ASC(MID$(bmppal$, bmpc% * 4 + 2, 1))    'Green
     f3% = ASC(MID$(bmppal$, bmpc% * 4 + 1, 1))    'Blue
     OUT &H3C9, FIX(f1% / 4)
     OUT &H3C9, FIX(f2% / 4)
     OUT &H3C9, FIX(f3% / 4)
     NEXT bmpc%
     bmppal$ = ""
END IF
close #9
end sub


Das Problem ist, das der Bildschirm bei 18 in der falschen Größe dargestellt wird, d.h. das dings macht sprünge die normalerweise 100 pixel sind, ohne zwischenstufen innerhalb der Pixel.

Was mache ich falsch, bzw. was muss ich ändern?
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Progger_X
Mr. Lagg


Anmeldungsdatum: 24.11.2004
Beiträge: 784
Wohnort: Leipzig

BeitragVerfasst am: 13.06.2005, 21:41    Titel: Antworten mit Zitat

Code:

declare sub loadPalFromBMP(bild$)
DIM image(64004) AS UBYTE
screen 18,8,2,&H1
BLOAD "image.bmp", VARPTR(image(0))
LoadPalFromBMP "Image.BMP"
e=1
SETMOUSE 0,0,0
seite=1
do
   
    IF MULTIKEY(&h4B) AND x > 0 THEN x = x - 1
    IF MULTIKEY(&h4D) AND x < 639 THEN x = x + 1
    IF MULTIKEY(&h48) AND y > 0 THEN y = y - 1
    IF MULTIKEY(&h50) AND y < 479 THEN y = y + 1
    if MULTIKEY(&H01) THEN e=0
    dummy$=inkey$
'    screenlock
    screencopy seite, 1-seite
    seite=1-seite
    cls
    PUT (x,y), image,pset   
'    screenunlock
    zahler=0
'    do
'        zahler=zahler+1
'    loop until zahler>800
loop until e=0


sub loadPalFromBMP(bild$)
open bild$ for binary as #9
GET #9, 1, filetyp%
'IF filetyp% <> 19778 THEN CLOSE #9: ?"falsch!":end
GET #9, 19, bmpxt%
GET #9, 23, bmpyt%
GET #9, 29, bmpbpp%
SEEK #9, 55
IF bmpbpp% <= 8 THEN
     bmpcolors% = 2 ^ bmpbpp%
     bmppal$ = SPACE$(bmpcolors% * 4)
     GET #9, 55, bmppal$
     FOR bmpc% = 0 TO bmpcolors% - 1
     OUT &H3C8, bmpc%
     f1% = ASC(MID$(bmppal$, bmpc% * 4 + 3, 1))    'Red
     f2% = ASC(MID$(bmppal$, bmpc% * 4 + 2, 1))    'Green
     f3% = ASC(MID$(bmppal$, bmpc% * 4 + 1, 1))    'Blue
     OUT &H3C9, FIX(f1% / 4)
     OUT &H3C9, FIX(f2% / 4)
     OUT &H3C9, FIX(f3% / 4)
     NEXT bmpc%
     bmppal$ = ""
END IF
close #9
end sub


So, das hab ich herausgefunden. Wie krieg ich das ruckelfrei?
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
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.

 Impressum :: Datenschutz