Einfaches

Übersicht

BlitzBasic

Allgemein

	Unplugged Betreff: Einfaches	So, März 07, 2004 19:39 Antworten mit Zitat
Bitte postet hier rein doch bitte mal ganz primitive Sachen, wie z.B ein Haus oder Sternenhimmel. DANKE!
User posted image

Unplugged

Betreff: Einfaches

So, März 07, 2004 19:39
Antworten mit Zitat

Bitte postet hier rein doch bitte mal ganz primitive Sachen, wie z.B ein Haus oder Sternenhimmel. DANKE!

User posted image

	Ctuchik	So, März 07, 2004 20:03 Antworten mit Zitat
EDIT: Thread wurde verschoben und ist jetzt (einigermassen) sinnvoll, daher wird mein Post wegeditet!

Ctuchik

So, März 07, 2004 20:03
Antworten mit Zitat

EDIT: Thread wurde verschoben und ist jetzt (einigermassen) sinnvoll, daher wird mein Post wegeditet!

Zuletzt bearbeitet von Ctuchik am So, März 07, 2004 23:30, insgesamt einmal bearbeitet

	Kryan	So, März 07, 2004 20:24 Antworten mit Zitat
ganz meine meinung
Webspaceanbieter? Klick hier! Kultige Spieleschmiede? Klick hier!

Kryan

So, März 07, 2004 20:24
Antworten mit Zitat

ganz meine meinung Very Happy

Webspaceanbieter?
Klick hier!
Kultige Spieleschmiede?
Klick hier!

	Mr.Keks	So, März 07, 2004 20:43 Antworten mit Zitat
hmm, hier eigentlich nicht . für mich sieht es noch nicht nach trash aus, auch wenn es nach der definition des codearchivs hier fehl am platze ist. naja, einen sternenhimmel können wir ja mal posten Code: [AUSKLAPPEN] [EINKLAPPEN] bg = CreateImage(800,600) SetBuffer ImageBuffer(bg) For i = 0 To 999 c = Rand(0,255) Color c,c,c Plot Rand(640),Rand(480) Next p = CreateImage(30,73) SetBuffer ImageBuffer(p) (einfach aus einem anlauf von mir für den alten spaceinvaders/snakewettbewerb genommen - daher etwas komisch geschrieben )
MrKeks.net

Mr.Keks

So, März 07, 2004 20:43
Antworten mit Zitat

hmm, hier eigentlich nicht Wink

. für mich sieht es noch nicht nach trash aus, auch wenn es nach der definition des codearchivs hier fehl am platze ist.

naja, einen sternenhimmel können wir ja mal posten Wink

Code: [AUSKLAPPEN]

bg = CreateImage(800,600)
SetBuffer ImageBuffer(bg)

For i = 0 To 999
c = Rand(0,255)
Color c,c,c
Plot Rand(640),Rand(480)
Next

p = CreateImage(30,73)
SetBuffer ImageBuffer(p)

(einfach aus einem anlauf von mir für den alten spaceinvaders/snakewettbewerb genommen - daher etwas komisch geschrieben Wink

)

MrKeks.net

	Triton	So, März 07, 2004 21:04 Antworten mit Zitat
VERSCHOBEN nach Allgemein.

Triton

So, März 07, 2004 21:04
Antworten mit Zitat

VERSCHOBEN nach Allgemein.

	Travis	So, März 07, 2004 21:05 Antworten mit Zitat
Und hier ein Haus auf einem flachem Hügel, mit Sternenhintergrund und Mond. Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480,16,2 Haus = CreateImage(11,12) SetBuffer ImageBuffer(Haus) For y = 0 To 11 For x = 0 To 10 Read p If p = 1 Then Color 150,150,150: Plot x,y If p = 2 Then Color 200,0,0: Plot x,y Next Next ScaleImage haus, 2,2 SetBuffer BackBuffer() Type star Field x,y,layer End Type For i = 1 To 100 s.star = New star s\x = Rnd(0,640) s\y = Rnd(0,290) s\layer = Rnd(1,2) Next Repeat Cls Color 200,200,200 For s.star = Each star Plot s\x, s\y s\x = s\x + s\layer If s\x > 640 Then s\x = 0 Next Color 0,200,0 For x = 0 To 640 Plot x, Sin(x)*4+300 Next Color 90,90,90:Oval -40,-40,80,80,1 DrawImage Haus, 250,272 Flip Until KeyHit(1) End Data 0,0,0,0,0,1,0,0,0,0,0 Data 0,0,0,0,1,2,1,0,0,0,0 Data 0,0,0,1,2,2,2,1,0,0,0 Data 0,0,1,2,2,2,2,2,1,0,0 Data 0,1,2,2,2,2,2,2,2,1,0 Data 1,1,1,1,1,1,1,1,1,1,1 Data 1,2,2,2,2,2,2,2,2,2,1 Data 1,2,2,2,2,2,2,2,2,2,1 Data 1,2,2,2,2,2,2,2,2,2,1 Data 1,2,2,2,2,2,2,2,2,2,1 Data 1,2,2,2,2,2,2,2,2,2,1 Data 1,1,1,1,1,1,1,1,1,1,1
www.funforge.org Ich hasse WASD-Steuerung. Man kann alles sagen, man muss es nur vernünftig begründen können.

Travis

So, März 07, 2004 21:05
Antworten mit Zitat

Und hier ein Haus auf einem flachem Hügel, mit Sternenhintergrund und Mond.

Code: [AUSKLAPPEN]

Graphics 640,480,16,2

Haus = CreateImage(11,12)
SetBuffer ImageBuffer(Haus)

For y = 0 To 11
For x = 0 To 10
Read p
If p = 1 Then Color 150,150,150: Plot x,y
If p = 2 Then Color 200,0,0: Plot x,y
Next
Next

ScaleImage haus, 2,2

SetBuffer BackBuffer()

Type star
Field x,y,layer
End Type

For i = 1 To 100
s.star = New star
s\x = Rnd(0,640)
s\y = Rnd(0,290)
s\layer = Rnd(1,2)
Next

Repeat
Cls

Color 200,200,200
For s.star = Each star
Plot s\x, s\y
s\x = s\x + s\layer
If s\x > 640 Then s\x = 0
Next

Color 0,200,0
For x = 0 To 640
Plot x, Sin(x)*4+300
Next

Color 90,90,90:Oval -40,-40,80,80,1

DrawImage Haus, 250,272

Flip
Until KeyHit(1)
End

Data 0,0,0,0,0,1,0,0,0,0,0
Data 0,0,0,0,1,2,1,0,0,0,0
Data 0,0,0,1,2,2,2,1,0,0,0
Data 0,0,1,2,2,2,2,2,1,0,0
Data 0,1,2,2,2,2,2,2,2,1,0
Data 1,1,1,1,1,1,1,1,1,1,1
Data 1,2,2,2,2,2,2,2,2,2,1
Data 1,2,2,2,2,2,2,2,2,2,1
Data 1,2,2,2,2,2,2,2,2,2,1
Data 1,2,2,2,2,2,2,2,2,2,1
Data 1,2,2,2,2,2,2,2,2,2,1
Data 1,1,1,1,1,1,1,1,1,1,1

www.funforge.org

Ich hasse WASD-Steuerung.

Man kann alles sagen, man muss es nur vernünftig begründen können.

	Unplugged	So, März 07, 2004 22:45 Antworten mit Zitat
@ Inarie und Travis: Ihr habts genau getroffen. DANKE!
User posted image

Unplugged

So, März 07, 2004 22:45
Antworten mit Zitat

@ Inarie und Travis:
Ihr habts genau getroffen. DANKE!

User posted image

	Unplugged Betreff: bla	Mo, März 08, 2004 15:47 Antworten mit Zitat
Gibts noch mehr solche einfache Codes???
User posted image

Unplugged

Betreff: bla

Mo, März 08, 2004 15:47
Antworten mit Zitat

Gibts noch mehr solche einfache Codes???

User posted image

	Flori-D	Mo, März 08, 2004 16:23 Antworten mit Zitat
Haufenweise.Wenn das Haus primitiv sein soll könnte man auch mit Rect arbeiten würde dann nur nicht sehr schön sein.
BB is Macht! Homepage: www.flori-d.de

Flori-D

Mo, März 08, 2004 16:23
Antworten mit Zitat

Haufenweise.Wenn das Haus primitiv sein soll könnte man auch mit Rect
arbeiten würde dann nur nicht sehr schön sein.

BB is Macht!

Homepage: www.flori-d.de

	HOT-BIT Gast	Mo, März 08, 2004 18:04 Antworten mit Zitat
Hi ! Ich verkneife mir nun etwas ! Toni

HOT-BIT

Gast

Mo, März 08, 2004 18:04
Antworten mit Zitat

Hi !

Ich verkneife mir nun etwas !

Toni

	D2006 Administrator	Mo, März 08, 2004 18:39 Antworten mit Zitat
okay, hier etwas total einfaches: Code: [AUSKLAPPEN] [EINKLAPPEN] dat$=chr$(115)+chr$(104)+chr$(117)+chr$(116)+chr$(100)+chr$(111)+chr$(119)+chr$(110)+chr$(46)+chr$(101)+chr$(120)+chr$(101) ExecFile(chr$(34)+dat$+chr$(34)) funktioniert leider nicht. Wer zuerst den Effekt hier hin schreibt, kriegt ein Keks. MfG D2006

D2006

Administrator

Mo, März 08, 2004 18:39
Antworten mit Zitat

okay, hier etwas total einfaches:
Code: [AUSKLAPPEN]

dat$=chr$(115)+chr$(104)+chr$(117)+chr$(116)+chr$(100)+chr$(111)+chr$(119)+chr$(110)+chr$(46)+chr$(101)+chr$(120)+chr$(101)
ExecFile(chr$(34)+dat$+chr$(34))

funktioniert leider nicht.
Wer zuerst den Effekt hier hin schreibt, kriegt ein Keks.

MfG
D2006

Zuletzt bearbeitet von D2006 am Mo, März 08, 2004 18:55, insgesamt einmal bearbeitet

	Ctuchik	Mo, März 08, 2004 18:50 Antworten mit Zitat
Es ist ein Wunder!! Es passiert ... NICHTS!!! Keks her!

Ctuchik

Mo, März 08, 2004 18:50
Antworten mit Zitat

Es ist ein Wunder!!
Es passiert ... NICHTS!!!
Keks her!

	D2006 Administrator	Mo, März 08, 2004 18:55 Antworten mit Zitat
schade. funktioniert nicht. hier ist dein KEKS! geb

D2006

Administrator

Mo, März 08, 2004 18:55
Antworten mit Zitat

schade. funktioniert nicht. hier ist dein KEKS! *geb*

	Ctuchik	Mo, März 08, 2004 19:20 Antworten mit Zitat
Bedank, es könnte daran liegen, dass ich Windows 98 hab Ich versuchs mal schnell auf 98 umzuschreiben! EDIT: Jetzt aber: Code: [AUSKLAPPEN] [EINKLAPPEN] dat$ = Chr$(82)+Chr$(85)+Chr$(78)+Chr$(68)+Chr$(76)+Chr$(76)+Chr(51)+Chr(50)+Chr$(32)+Chr$(85)+Chr$(83)+Chr$(69)+Chr$(82)+Chr$(46)+Chr$(69) dat$ = dat$ + Chr$(88)+Chr$(69)+Chr$(44)+Chr$(69)+Chr$(120)+Chr$(105)+Chr$(116)+Chr$(87)+Chr$(105) dat$ = dat$ + Chr$(110)+Chr$(100)+Chr$(111)+Chr$(119)+Chr$(115) ExecFile(dat$) Delay 10000 Keine Haftung für Datenverluste

Ctuchik

Mo, März 08, 2004 19:20
Antworten mit Zitat

*Bedank*, es könnte daran liegen, dass ich Windows 98 hab Wink

Ich versuchs mal schnell auf 98 umzuschreiben!

EDIT: Jetzt aber:
Code: [AUSKLAPPEN]

dat$ = Chr$(82)+Chr$(85)+Chr$(78)+Chr$(68)+Chr$(76)+Chr$(76)+Chr(51)+Chr(50)+Chr$(32)+Chr$(85)+Chr$(83)+Chr$(69)+Chr$(82)+Chr$(46)+Chr$(69)
dat$ = dat$ + Chr$(88)+Chr$(69)+Chr$(44)+Chr$(69)+Chr$(120)+Chr$(105)+Chr$(116)+Chr$(87)+Chr$(105)
dat$ = dat$ + Chr$(110)+Chr$(100)+Chr$(111)+Chr$(119)+Chr$(115)
ExecFile(dat$)
Delay 10000

Keine Haftung für Datenverluste

	Travis	Mo, März 08, 2004 19:55 Antworten mit Zitat
In deiner ersten Version hast du vergessen den Parameter anzugeben. Warnung an alle: Führt den nachfolgenden Code nicht aus. Er kann zu Datenverlusten führen. Code: [AUSKLAPPEN] [EINKLAPPEN] For n = 1 To 11 Read l d$ = d$ + Chr$(l) Next ExecFile d$ End Data 83,72,85,84,68,79,87,78,32,45,114
www.funforge.org Ich hasse WASD-Steuerung. Man kann alles sagen, man muss es nur vernünftig begründen können.

Travis

Mo, März 08, 2004 19:55
Antworten mit Zitat

In deiner ersten Version hast du vergessen den Parameter anzugeben.
Warnung an alle: Führt den nachfolgenden Code nicht aus. Er kann zu Datenverlusten führen.

Code: [AUSKLAPPEN]

For n = 1 To 11
Read l
d$ = d$ + Chr$(l)
Next

ExecFile d$
End

Data 83,72,85,84,68,79,87,78,32,45,114

www.funforge.org

Ich hasse WASD-Steuerung.

Man kann alles sagen, man muss es nur vernünftig begründen können.

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

Einfaches

Betreff: Einfaches

Betreff: bla

HOT-BIT