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:

Kettenprogramm
Gehe zu Seite Zurück  1, 2
 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Off-Topic-Forum
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
raph ael



Anmeldungsdatum: 12.04.2006
Beiträge: 472
BeitragVerfasst am: 04.01.2009, 14:10    Titel: Antworten mit Zitat
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
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
28398



Anmeldungsdatum: 25.04.2008
Beiträge: 1917
BeitragVerfasst am: 04.01.2009, 18:21    Titel: Antworten mit Zitat
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
Benutzer-Profile anzeigen Private Nachricht senden
frebas



Anmeldungsdatum: 20.06.2008
Beiträge: 245
BeitragVerfasst am: 06.01.2009, 18:30    Titel: Antworten mit Zitat
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
Benutzer-Profile anzeigen Private Nachricht senden
OneCypher



Anmeldungsdatum: 23.09.2007
Beiträge: 802
BeitragVerfasst am: 19.01.2009, 15:55    Titel: Antworten mit Zitat
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
Benutzer-Profile anzeigen Private Nachricht senden
raph ael



Anmeldungsdatum: 12.04.2006
Beiträge: 472
BeitragVerfasst am: 19.01.2009, 17:21    Titel: Antworten mit Zitat
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
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
nemored



Anmeldungsdatum: 22.02.2007
Beiträge: 4704
Wohnort: ~/
BeitragVerfasst am: 19.01.2009, 17:21    Titel: Antworten mit Zitat
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
Benutzer-Profile anzeigen Private Nachricht senden
Flo
aka kleiner_hacker


Anmeldungsdatum: 23.06.2006
Beiträge: 1210
BeitragVerfasst am: 19.01.2009, 17:44    Titel: Antworten mit Zitat
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 happy
_________________
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
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
frebas



Anmeldungsdatum: 20.06.2008
Beiträge: 245
BeitragVerfasst am: 19.01.2009, 21:09    Titel: Antworten mit Zitat
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
Benutzer-Profile anzeigen Private Nachricht senden
ALWIM



Anmeldungsdatum: 08.08.2006
Beiträge: 1048
Wohnort: Niederbayern
BeitragVerfasst am: 28.11.2009, 19:40    Titel: Antworten mit Zitat
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
Benutzer-Profile anzeigen Private Nachricht senden
Jojo
alter Rang


Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
BeitragVerfasst am: 28.11.2009, 20:13    Titel: Antworten mit Zitat
das einzige, was den code am kompilieren hindert, sind die beiden zeilen mit imagedestroy... ansonsten läuft der. Zunge rausstrecken
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Off-Topic-Forum Alle Zeiten sind GMT + 1 Stunde
Gehe zu Seite Zurück  1, 2
Seite 2 von 2

 
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