 |
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 |
Jojo alter Rang

Anmeldungsdatum: 12.02.2005 Beiträge: 9736 Wohnort: Neben der Festplatte
|
Verfasst am: 03.08.2007, 18:41 Titel: [QB / FB] Absolut sinnlose Textspielerei |
|
|
Nachdem ich grad in meinem QB-Folder gestöbert hab, ist mir ein alter Effekt aufgefallen, der recht hübsch aussieht. Absolut sinnfrei, aber ich poste den Source einfach mal hier rein, weil's mich überrascht hat, dass er ohne Änderungen auch in FB funzt Mal wieder ein Beispiel für portablen Sourcecode also.
Code: |
'Defint A-Z 'Für QBasic
Screen 12
Palette 15, 0
Palette 4, 32
Palette 1, 15
Locate 1
Print "!HALLO!"
Dim I As Integer, X As Integer, Y As Integer
For I = 2 To 5
For Y = 80 To 95
For X = 0 To 400
If Point(X, Y - 80) = 15 Then
Circle (X * 10, Y * I - 50), 10, 4
Paint (X * 10, Y * I - 50), 4
Circle (X * 10 + 1, Y * I + 1 - 50), 11, 1
Paint (X * 10 + 1, Y * I + 1 - 50), 1
End If
Next X
Next Y
Next I
Sleep
|
wer mit diesem "3d-text" was machen will, darf's machen.
--- Public Domain ---
ich hab daraus z.B. mal ein animiertes GIF gemacht:
 _________________ » Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.

Zuletzt bearbeitet von Jojo am 03.08.2007, 20:36, insgesamt einmal bearbeitet |
|
Nach oben |
|
 |
AndT
Anmeldungsdatum: 02.04.2007 Beiträge: 481
|
Verfasst am: 03.08.2007, 18:55 Titel: |
|
|
Point ist ein mächtiger Befehl, wenn man weiss wie  _________________ Bis irgendwann...  |
|
Nach oben |
|
 |
Eternal_pain

Anmeldungsdatum: 08.08.2006 Beiträge: 1783 Wohnort: BW/KA
|
Verfasst am: 03.08.2007, 19:00 Titel: |
|
|
Sieht nett aus, etwas dunkel, aber sonst klasse gemacht...
allserdings hat mich das vertauschen von X und Y etwas irritiert
nett waers mit einer 360grad rotation
AndT hat Folgendes geschrieben: | Point ist ein mächtiger Befehl, wenn man weiss wie |
gibt maechtigers  _________________
 |
|
Nach oben |
|
 |
Jojo alter Rang

Anmeldungsdatum: 12.02.2005 Beiträge: 9736 Wohnort: Neben der Festplatte
|
Verfasst am: 03.08.2007, 20:36 Titel: |
|
|
Hab mal X und Y vertauscht. Das war wohl damals, weil ja bei Locate die Werte auch vertauscht sind  _________________ » Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
Nach oben |
|
 |
volta
Anmeldungsdatum: 04.05.2005 Beiträge: 1876 Wohnort: D59192
|
Verfasst am: 04.08.2007, 13:37 Titel: |
|
|
Hi Jojo,
finde ich garnicht so sinnlos
Man kann daraus immer noch eine größere Schrift basteln, wie zu QB-Zeiten .
Hier mal eine Textspielerei mit kompakten FB-Code
Code: | Screen 18,32
Dim As Integer Ptr Hallo = imagecreate(56,14,0)
Draw String Hallo,(0,0),"!Hallo!",,,Pset
For i As Integer = 50 To 127
For x As Integer= 2 To 53
For y As Integer = 2 To 11
If Hallo[(y*56+x)+8] Then
Circle (x*i\11, y*i\5), i\8, Rgb(2*i,20*y,255-2*i),,,i/70,F
if i = 127 then Circle (x*i\11, y*i\5), i\10, Rgb(2*i,y*18,150-i),,,i/70
End If
Next
Next
Screensync
Next
Sleep |
_________________ Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater. |
|
Nach oben |
|
 |
Jojo alter Rang

Anmeldungsdatum: 12.02.2005 Beiträge: 9736 Wohnort: Neben der Festplatte
|
Verfasst am: 04.08.2007, 13:40 Titel: |
|
|
hehe, sieht cool aus
btw @eternalpain: einen großen rotationswinkel erreichst du, wenn du Screen 21 verwendest und I von 1 bis 8 laufen lässt  _________________ » Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
Nach oben |
|
 |
Paul aka ICC, HV-Freak
Anmeldungsdatum: 11.09.2004 Beiträge: 588 Wohnort: Uelzen
|
Verfasst am: 04.08.2007, 15:06 Titel: |
|
|
Sieht nett aus.
Womit hast du das .GIF erstellt? _________________
 |
|
Nach oben |
|
 |
Jojo alter Rang

Anmeldungsdatum: 12.02.2005 Beiträge: 9736 Wohnort: Neben der Festplatte
|
Verfasst am: 04.08.2007, 15:20 Titel: |
|
|
auch ma wieder da?
Die GIF-Datei habe ich mit Ulead Gif Animator 4 erstellt. _________________ » Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
Nach oben |
|
 |
Paul aka ICC, HV-Freak
Anmeldungsdatum: 11.09.2004 Beiträge: 588 Wohnort: Uelzen
|
Verfasst am: 05.08.2007, 13:32 Titel: |
|
|
@Jojo: Ich schau hier regelmäßig rein Nur irgendwie geht hier in letzter Zeit besonders im OT nur noch Spam ab
Ok danke, werd das Programm auch mal ausprobieren^^ _________________
 |
|
Nach oben |
|
 |
Mao
Anmeldungsdatum: 25.09.2005 Beiträge: 4409 Wohnort: /dev/hda1
|
Verfasst am: 05.08.2007, 15:12 Titel: |
|
|
Ja, das ist eine Sache, gegen die ich auch vergeblich kämpfe.  _________________ Eine handvoll Glück reicht nie für zwei.
--
 |
|
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.
|
|