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:

[QB / FB] Absolut sinnlose Textspielerei

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Projektvorstellungen
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Jojo
alter Rang


Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte

BeitragVerfasst am: 03.08.2007, 18:41    Titel: [QB / FB] Absolut sinnlose Textspielerei Antworten mit Zitat

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 happy 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
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
AndT



Anmeldungsdatum: 02.04.2007
Beiträge: 481

BeitragVerfasst am: 03.08.2007, 18:55    Titel: Antworten mit Zitat

Point ist ein mächtiger Befehl, wenn man weiss wie zwinkern
_________________
Bis irgendwann... grinsen
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Eternal_pain



Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA

BeitragVerfasst am: 03.08.2007, 19:00    Titel: Antworten mit Zitat

Sieht nett aus, etwas dunkel, aber sonst klasse gemacht...
allserdings hat mich das vertauschen von X und Y etwas irritiert grinsen

nett waers mit einer 360grad rotation zwinkern

AndT hat Folgendes geschrieben:
Point ist ein mächtiger Befehl, wenn man weiss wie zwinkern


gibt maechtigers zwinkern
_________________
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
Jojo
alter Rang


Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte

BeitragVerfasst am: 03.08.2007, 20:36    Titel: Antworten mit Zitat

Hab mal X und Y vertauscht. Das war wohl damals, weil ja bei Locate die Werte auch vertauscht sind zwinkern
_________________
» 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
volta



Anmeldungsdatum: 04.05.2005
Beiträge: 1876
Wohnort: D59192

BeitragVerfasst am: 04.08.2007, 13:37    Titel: Antworten mit Zitat

Hi Jojo,
finde ich garnicht so sinnlos cool
Man kann daraus immer noch eine größere Schrift basteln, wie zu QB-Zeiten grinsen .
Hier mal eine Textspielerei mit kompakten FB-Code zwinkern
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
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Jojo
alter Rang


Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte

BeitragVerfasst am: 04.08.2007, 13:40    Titel: Antworten mit Zitat

hehe, sieht cool aus happy
btw @eternalpain: einen großen rotationswinkel erreichst du, wenn du Screen 21 verwendest und I von 1 bis 8 laufen lässt happy
_________________
» 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
Paul
aka ICC, HV-Freak


Anmeldungsdatum: 11.09.2004
Beiträge: 588
Wohnort: Uelzen

BeitragVerfasst am: 04.08.2007, 15:06    Titel: Antworten mit Zitat

Sieht nett aus. lächeln

Womit hast du das .GIF erstellt?
_________________
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Jojo
alter Rang


Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte

BeitragVerfasst am: 04.08.2007, 15:20    Titel: Antworten mit Zitat

auch ma wieder da? happy
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
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Paul
aka ICC, HV-Freak


Anmeldungsdatum: 11.09.2004
Beiträge: 588
Wohnort: Uelzen

BeitragVerfasst am: 05.08.2007, 13:32    Titel: Antworten mit Zitat

@Jojo: Ich schau hier regelmäßig rein cool Nur irgendwie geht hier in letzter Zeit besonders im OT nur noch Spam ab peinlich
Ok danke, werd das Programm auch mal ausprobieren^^
_________________
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Mao



Anmeldungsdatum: 25.09.2005
Beiträge: 4409
Wohnort: /dev/hda1

BeitragVerfasst am: 05.08.2007, 15:12    Titel: Antworten mit Zitat

Ja, das ist eine Sache, gegen die ich auch vergeblich kämpfe. durchgeknallt
_________________
Eine handvoll Glück reicht nie für zwei.
--
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Projektvorstellungen Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
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