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:

Multipler Bildschirmschoner in FB

 
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
bubu



Anmeldungsdatum: 21.02.2010
Beiträge: 13

BeitragVerfasst am: 05.06.2010, 17:31    Titel: Multipler Bildschirmschoner in FB Antworten mit Zitat

Hi Forum. lächeln Ich habe da mal einen schönen Schoner mit diversen Effekten gebastelt:

http://pferdemist.funpic.de/Saver.bas
http://pferdemist.funpic.de/Saver.scr
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
nemored



Anmeldungsdatum: 22.02.2007
Beiträge: 4699
Wohnort: ~/

BeitragVerfasst am: 05.06.2010, 17:48    Titel: Antworten mit Zitat

Habe nur mal kurz in den Quellcode geblickt. Würde sich statt
Code:
dim as integer rot1,rot2,rot3,rot4,rot5,rot6,rot7,rot8,rot9,rot10,rot11

usw. nicht ein Array anbieten?
Code:
dim as integer rot(1 to 11)

Dann kannst du sowas
Code:
rot11=rot10:rot10=rot9:rot9=rot8:rot8=rot7
rot7=rot6:rot6=rot5:rot5=rot4:rot4=rot3:rot2=rot2:rot2=rot1

auch vereinfacht schreiben durch
Code:
for i = 11 to 2 step -1
  rot(i) = rot(i-1)
next

(sofern rot2=rot2 tatsächlich rot3=rot2 heißen soll)
_________________
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
bubu



Anmeldungsdatum: 21.02.2010
Beiträge: 13

BeitragVerfasst am: 05.06.2010, 19:07    Titel: Antworten mit Zitat

Ja, danke. Da werd ich mal noch etwas machen. zwinkern
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