|
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 |
ytwinky
Anmeldungsdatum: 28.05.2005 Beiträge: 2624 Wohnort: Machteburch
|
Verfasst am: 05.04.2007, 20:09 Titel: |
|
|
Naja, er hatte es ja auch nicht ausprobiert..
..er wollte es ja erst probieren, wenn er wieder zu Hause ist..
..solange müssen wir halt warten
Ich geh mal davon aus, daß der nicht mir galt ?
Gruß
ytwinky _________________
v1ctor hat Folgendes geschrieben: | Yeah, i like INPUT$(n) as much as PRINT USING.. | ..also ungefähr so, wie ich GOTO.. |
|
Nach oben |
|
|
volta
Anmeldungsdatum: 04.05.2005 Beiträge: 1875 Wohnort: D59192
|
Verfasst am: 05.04.2007, 22:11 Titel: |
|
|
ytwinky hat Folgendes geschrieben: | Ich geh mal davon aus, daß der nicht mir galt ? | nö, der galt mir, wegen "alles versucht"
Ich hatte mit "' mit "" mit \" mit allem Kombinationen probiert, aber nichts ging .
So, jetzt habe ich die Adresse, wieder so ein dummer Denkfehler
(extra für dich ytwinky habe ich das GOTO entfernt ...äh... umgangen )
Mal sehen wie man das jetzt anwenden kann? _________________ Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater. |
|
Nach oben |
|
|
ytwinky
Anmeldungsdatum: 28.05.2005 Beiträge: 2624 Wohnort: Machteburch
|
Verfasst am: 06.04.2007, 00:12 Titel: |
|
|
volta hat Folgendes geschrieben: | ..habe ich das GOTO entfernt ...äh... umgangen.. | ..da hamwers doch, offensichtlich gehts eben nicht ganz ohne
Gruß
ytwinky _________________
v1ctor hat Folgendes geschrieben: | Yeah, i like INPUT$(n) as much as PRINT USING.. | ..also ungefähr so, wie ich GOTO.. |
|
Nach oben |
|
|
Eternal_pain
Anmeldungsdatum: 08.08.2006 Beiträge: 1783 Wohnort: BW/KA
|
Verfasst am: 18.05.2007, 19:33 Titel: |
|
|
zum Thema Bild im Programm einbinden hatte ich kurz bevor das Forum down ging ein kleines Testprogramm geschrieben....
Das Programm soll eine Bilddatei, in diesem Fall eine BMP an eine Exe anhängen...
Kompilieren und aufruf mit Pic2Exe Bilddatei.bmp Exedatei.exe
Pic2Exe.Bas
Code: |
Dim BMP_File as string
Dim EXE_File as string
Dim as integer rr,gg,bb
Dim as ubyte r,g,b
Dim FF as Integer
Dim File_length as UInteger
Dim End_Exe as UInteger
BMP_File=Command(1)
EXE_File=Command(2)
?BMP_File
?Exe_File
FF=FreeFile
Open EXE_file for binary as #FF
End_Exe=Lof(FF)+1
If End_Exe<1 Then Close #FF : Kill EXE_File : ?"Exe not found" : End ''
Screen 18,32
Bload BMP_File
for y=0 to 479
for x=0 to 639
Read_Pix=Point(x,y)
rr=int(Read_Pix/&h010000) : Read_Pix-=rr*&h010000
gg=int(Read_Pix/&h000100) : Read_Pix-=gg*&h000100
bb=Read_Pix
r=rr
g=gg
b=bb
put #FF,end_exe+file_length,r
put #FF,end_exe+file_length+1,g
put #FF,end_exe+file_length+2,b
File_length+=3
next x
next y
?File_length
put #FF,,File_length
close #FF
|
PicInExe.Bas
da das Bild ja auch vom Programm wieder geladen werden soll, hier eine Test datei... ebenfalls kompilieren und später als Exe Datei bei Pic2Exe eingeben... anschliessend aufrufen...
Code: |
Dim FF as Integer
Dim load_byte as ubyte
Dim File_length as UInteger
Dim as integer r,g,b
FF=FreeFile
open command(0) for binary access read as #FF
Get #FF,(lof(ff)-3),File_length
Get #FF,(lof(ff)-3)-(File_length+1),load_Byte 'leer byte zum File-Cursor setzen...
Screen 18,32
screenlock
for y=0 to 479
for x=0 to 639
get #FF,,load_byte
r=load_byte
get #FF,,load_byte
g=load_byte
get #FF,,load_byte
b=load_byte
Pset (x,y),RGB(r,g,b)
next x
next y
screenunlock
close #FF
locate 1,1:?"ok..."
sleep
|
_________________
|
|
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.
|
|