 |
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 |
raph ael
Anmeldungsdatum: 12.04.2006 Beiträge: 472
|
Verfasst am: 04.01.2009, 14:10 Titel: |
|
|
Code: | '### HTTP://Forum.QBasic.at - Kettenprogramm - (C) By.: OneCypher/The_Muh/nemored/Lutz Ifer/Jojo/ThePuppetMaster/Devilkevin/*Andy*/Flo/raph_ael
#INCLUDE "tsne_v3.bi"
#UNDEF GOTO 'HARRHARR :p
#DEFINE GOTO PRINT 'sonst geht's nicht mehr
SCREENRES 500,500,32
CONST _PROGRAMMVERSION_ = 0.01
LINE(0,0)-(500,500),RGB(255,0,0),BF
DIM dummy AS INTEGER = 500 'die 500 IS sonst nutzlos...
COLOR 8
COLOR RGB(0, 0, 255) 'Wir sind im 32-Bit Modus!
PRINT _PROGRAMMVERSION_
GOTO 500
IF dummy <> 500 THEN
PRINT "Hello World!"
ELSE
CLS
END IF
dim wtf as single = 500.005
dim as integer ptr wtfbild = imagecreate(500, 5)
END |
_________________
Zitat: | 1000 Yottabytes sind absurd. 640 Yottabytes sollten genug für jeden sein. |
|
|
Nach oben |
|
 |
28398
Anmeldungsdatum: 25.04.2008 Beiträge: 1917
|
Verfasst am: 04.01.2009, 18:21 Titel: |
|
|
Code: | '### HTTP://Forum.QBasic.at - Kettenprogramm - (C) By.: OneCypher/The_Muh/nemored/Lutz Ifer/Jojo/ThePuppetMaster/Devilkevin/*Andy*/Flo/raph_ael/28398
#INCLUDE "tsne_v3.bi"
#UNDEF GOTO 'HARRHARR :p
#DEFINE GOTO PRINT 'sonst geht's nicht mehr
SCREENRES 500,500,32
CONST _PROGRAMMVERSION_ = 0.01
LINE(0,0)-(500,500),RGB(255,0,0),BF
DIM dummy AS INTEGER = 500 'die 500 IS sonst nutzlos...
COLOR 8
COLOR RGB(0, 0, 255) 'Wir sind im 32-Bit Modus!
PRINT _PROGRAMMVERSION_
GOTO 500
IF dummy <> 500 THEN
PRINT "Hello World!"
ELSE
CLS
END IF
dim wtf as single = 500.005
dim as integer ptr wtfbild = imagecreate(500, 5)
circle wtfbild, (1,1), 2
END
|
|
|
Nach oben |
|
 |
frebas
Anmeldungsdatum: 20.06.2008 Beiträge: 245
|
Verfasst am: 06.01.2009, 18:30 Titel: |
|
|
Code: | '### HTTP://Forum.QBasic.at - Kettenprogramm - (C) By.: OneCypher/The_Muh/nemored/Lutz Ifer/Jojo/ThePuppetMaster/Devilkevin/*Andy*/Flo/raph_ael/28398/frebas
#INCLUDE "tsne_v3.bi"
#UNDEF GOTO 'HARRHARR :p
#DEFINE GOTO PRINT 'sonst geht's nicht mehr
SCREENRES 500,500,32
CONST _PROGRAMMVERSION_ = 0.01
LINE(0,0)-(500,500),RGB(255,0,0),BF
DIM dummy AS INTEGER = 500 'die 500 IS sonst nutzlos...
COLOR 8
COLOR RGB(0, 0, 255) 'Wir sind im 32-Bit Modus!
PRINT _PROGRAMMVERSION_
GOTO 500
IF dummy <> 500 THEN
PRINT "Hello World!"
ELSE
CLS
END IF
DO
dim wtf as single = 500.005
dim as integer ptr wtfbild = imagecreate(500, 5)
circle wtfbild, (1,1), 2
END
|
|
|
Nach oben |
|
 |
OneCypher
Anmeldungsdatum: 23.09.2007 Beiträge: 802
|
Verfasst am: 19.01.2009, 15:55 Titel: |
|
|
Code: |
'### HTTP://Forum.QBasic.at - Kettenprogramm - (C) By.: OneCypher/The_Muh/nemored/Lutz Ifer/Jojo/ThePuppetMaster/Devilkevin/*Andy*/Flo/raph_ael/28398/frebas
#INCLUDE "tsne_v3.bi"
#UNDEF GOTO 'HARRHARR :p
#DEFINE GOTO PRINT 'sonst geht's nicht mehr
SCREENRES 500,500,32
CONST _PROGRAMMVERSION_ = 0.01
LINE(0,0)-(500,500),RGB(255,0,0),BF
DIM dummy AS INTEGER = 500 'die 500 IS sonst nutzlos...
COLOR 8
COLOR RGB(0, 0, 255) 'Wir sind im 32-Bit Modus!
PRINT _PROGRAMMVERSION_
GOTO 500
IF dummy <> 500 THEN
PRINT "Hello World!"
ELSE
CLS
END IF
DO
dim wtf as single = 500.005
dim as integer ptr wtfbild = imagecreate(500, 5)
circle wtfbild, (1,1), 2
Print "Hier könnte ihre Werbung stehen!"
END
|
|
|
Nach oben |
|
 |
raph ael
Anmeldungsdatum: 12.04.2006 Beiträge: 472
|
Verfasst am: 19.01.2009, 17:21 Titel: |
|
|
Code: |
'### HTTP://Forum.QBasic.at - Kettenprogramm - (C) By.: OneCypher/The_Muh/nemored/Lutz Ifer/Jojo/ThePuppetMaster/Devilkevin/*Andy*/Flo/raph_ael/28398/frebas
#INCLUDE "tsne_v3.bi"
#UNDEF GOTO 'HARRHARR :p
#DEFINE GOTO PRINT 'sonst geht's nicht mehr
SCREENRES 500,500,32
CONST _PROGRAMMVERSION_ = 0.01
LINE(0,0)-(500,500),RGB(255,0,0),BF
DIM dummy AS INTEGER = 500 'die 500 IS sonst nutzlos...
COLOR 8
COLOR RGB(0, 0, 255) 'Wir sind im 32-Bit Modus!
PRINT _PROGRAMMVERSION_
GOTO 500
IF dummy <> 500 THEN
PRINT "Hello World!"
ELSE
CLS
END IF
DO
dim wtf as single = 500.005
dim as integer ptr wtfbild = imagecreate(500, 5)
circle wtfbild, (1,1), 2
Print "Genervt von der Stabilität ihres Betriebssystems? NEU! Steigen sie um auf Windows 7 und erfreuen sie sich an einer Auswahl von über 10000 möglichen Fehlermeldungen!"
Print "Hier könnte ihre Werbung stehen!"
END
|
_________________
Zitat: | 1000 Yottabytes sind absurd. 640 Yottabytes sollten genug für jeden sein. |
|
|
Nach oben |
|
 |
nemored

Anmeldungsdatum: 22.02.2007 Beiträge: 4704 Wohnort: ~/
|
Verfasst am: 19.01.2009, 17:21 Titel: |
|
|
Code: |
'### HTTP://Forum.QBasic.at - Kettenprogramm - (C) By.: OneCypher/The_Muh/nemored/Lutz Ifer/Jojo/ThePuppetMaster/Devilkevin/*Andy*/Flo/raph_ael/28398/frebas
#INCLUDE "tsne_v3.bi"
#UNDEF GOTO 'HARRHARR :p
#DEFINE GOTO PRINT 'sonst geht's nicht mehr
SCREENRES 500,500,32
CONST _PROGRAMMVERSION_ = 0.01
LINE(0,0)-(500,500),RGB(255,0,0),BF
DIM dummy AS INTEGER = 500 'die 500 IS sonst nutzlos...
COLOR 8
COLOR RGB(0, 0, 255) 'Wir sind im 32-Bit Modus!
PRINT _PROGRAMMVERSION_
GOTO 500
IF dummy <> 500 THEN
PRINT "Hello World!"
ELSE
CLS
END IF
DO
dim wtf as single = 500.005
dim as integer ptr wtfbild = imagecreate(500, 5)
circle wtfbild, (1,1), 2
Print "Hier könnte ihre Werbung stehen!"
imagedestroy wtfbild ' NICHT VERGESSEN!
END
|
_________________ Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1. |
|
Nach oben |
|
 |
Flo aka kleiner_hacker
Anmeldungsdatum: 23.06.2006 Beiträge: 1210
|
Verfasst am: 19.01.2009, 17:44 Titel: |
|
|
Code: |
'### HTTP://Forum.QBasic.at - Kettenprogramm - (C) By.: OneCypher/The_Muh/nemored/Lutz Ifer/Jojo/ThePuppetMaster/Devilkevin/*Andy*/Flo/raph_ael/28398/frebas
#INCLUDE "tsne_v3.bi"
#UNDEF GOTO 'HARRHARR :p
#DEFINE GOTO PRINT 'sonst geht's nicht mehr
#define imagedestroy '
SCREENRES 500,500,32
CONST _PROGRAMMVERSION_ = 0.01
LINE(0,0)-(500,500),RGB(255,0,0),BF
DIM dummy AS INTEGER = 500 'die 500 IS sonst nutzlos...
COLOR 8
COLOR RGB(0, 0, 255) 'Wir sind im 32-Bit Modus!
PRINT _PROGRAMMVERSION_
GOTO 500
IF dummy <> 500 THEN
PRINT "Hello World!"
ELSE
CLS
END IF
DO
dim wtf as single = 500.005
dim as integer ptr wtfbild = imagecreate(500, 5)
circle wtfbild, (1,1), 2
Print "Hier könnte ihre Werbung stehen!"
imagedestroy wtfbild ' NICHT VERGESSEN!
loop 'hätte was, oder?
END
|
siehe auch die define. so ists lustiger  _________________ MFG
Flo
Satoru Iwata: Wer Spaß am Spielen hat, fragt nicht nach Grafik.
zum korrekten Verstaendnis meiner Beitraege ist die regelmaessige Wartung des Ironiedetektors unerlaesslich. |
|
Nach oben |
|
 |
frebas
Anmeldungsdatum: 20.06.2008 Beiträge: 245
|
Verfasst am: 19.01.2009, 21:09 Titel: |
|
|
Code: | '### HTTP://Forum.QBasic.at - Kettenprogramm - (C) By.: OneCypher/The_Muh/nemored/Lutz Ifer/Jojo/ThePuppetMaster/Devilkevin/*Andy*/Flo/raph_ael/28398/frebas
#INCLUDE "tsne_v3.bi"
#UNDEF GOTO 'HARRHARR :p
#DEFINE GOTO PRINT 'sonst geht's nicht mehr
#define imagedestroy '
SCREENRES 500,500,32
CONST _PROGRAMMVERSION_ = 0.01
LINE(0,0)-(500,500),RGB(255,0,0),BF
DIM dummy AS INTEGER = 500 'die 500 IS sonst nutzlos...
COLOR 8
COLOR RGB(0, 0, 255) 'Wir sind im 32-Bit Modus!
PRINT _PROGRAMMVERSION_
GOTO 500
IF dummy <> 500 THEN
PRINT "Hello World!"
ELSE
CLS
END IF
DO
dummy -=1
dim wtf as single = 500.005
dim as integer ptr wtfbild = imagecreate(500, 5)
circle wtfbild, (1,1), 2
Print "Hier könnte ihre Werbung stehen!"
imagedestroy wtfbild ' NICHT VERGESSEN!
loop 'hätte was, oder?
END |
|
|
Nach oben |
|
 |
ALWIM

Anmeldungsdatum: 08.08.2006 Beiträge: 1048 Wohnort: Niederbayern
|
Verfasst am: 28.11.2009, 19:40 Titel: |
|
|
Code: | '### HTTP://Forum.QBasic.at - Kettenprogramm - (C) By.: OneCypher/The_Muh/nemored/Lutz Ifer/Jojo/ThePuppetMaster/Devilkevin/*Andy*/Flo/raph_ael/28398/frebas
#INCLUDE "tsne_v3.bi"
#UNDEF GOTO 'HARRHARR :p
#DEFINE GOTO PRINT 'sonst geht's nicht mehr
#define imagedestroy '
SCREENRES 500,500,32
CONST _PROGRAMMVERSION_ = 0.01
LINE(0,0)-(500,500),RGB(255,0,0),BF
DIM dummy AS INTEGER = 500 'die 500 IS sonst nutzlos...
COLOR 8
COLOR RGB(0, 0, 255) 'Wir sind im 32-Bit Modus!
PRINT _PROGRAMMVERSION_
GOTO 500
IF dummy <> 500 THEN
PRINT "Hello World!"
ELSE
CLS
END IF
DO
dummy -=1
dim wtf as single = 500.005
dim as integer ptr wtfbild = imagecreate(500, 5)
circle wtfbild, (1,1), 2
Print "Hier könnte ihre Werbung stehen!"
imagedestroy wtfbild ' NICHT VERGESSEN!
'***********************************
SLEEP 5000
'***********************************
loop 'hätte was, oder?
END |
Kann man den Quellcode überhaubt noch ausführen oder kommt da jetzt mittlerweile schon eine Fehlermeldung?
Wäre mal interressant!
Mit freundlichen Grüßen
ALWIM _________________ SHELL SHUTDOWN -s -t 05 |
|
Nach oben |
|
 |
Jojo alter Rang

Anmeldungsdatum: 12.02.2005 Beiträge: 9736 Wohnort: Neben der Festplatte
|
Verfasst am: 28.11.2009, 20:13 Titel: |
|
|
das einzige, was den code am kompilieren hindert, sind die beiden zeilen mit imagedestroy... ansonsten läuft der.  _________________ » Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
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.
|
|