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:

Bildschirmschoner

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu QBasic.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Spongebob Schwamm



Anmeldungsdatum: 31.10.2004
Beiträge: 40
BeitragVerfasst am: 27.11.2004, 21:07    Titel: Bildschirmschoner Antworten mit Zitat
Hi! lächeln
Also ich wollt mal was Fragen(Was soll ich auch sonst tun lachen )
Also das ist so ich habe dieses einfache Progi. gemacht und das wollt ich jetzt als Bildschirmschoner speichern.
Erstmal der Code
Code:

Cls
Screen 12
Do
Randomize Timer
x = Int(rnd  (Sternchen geht nicht?) 1000)
y = Int(rnd  (Sternchen geht nicht?) 1000)
F = Int(rnd  (Sternchen geht nicht?) 14)
Line (320, 200)-(x, y), F
Sleep 1
Loop until Inkey$ = Chr$(27)

So und das wollt ich als Bildschirmschoner speichern(Ich glaube das sind .scr Dateien).
Geht das?
Und wen-Wie?!
Danke im voraus
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Kai Bareis



Anmeldungsdatum: 10.09.2004
Beiträge: 545
Wohnort: Baden Würtemberg
BeitragVerfasst am: 27.11.2004, 21:27    Titel: Antworten mit Zitat
im Alten Forum wurde diese frage auch mal gestellt!
dazu musst du in Visualbasic (32Bit) die Dos anwendung starten)
und die EXE die von Visualbasic erstellt wird kann man dann als *.SCR umbenennen
_________________
MfG Kai Bareis
Es ist noch kein Meister vom Himmel gefallen! Warum einfach wens auch umständlich geht!
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Sebastian
Administrator


Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
BeitragVerfasst am: 27.11.2004, 22:00    Titel: VB Antworten mit Zitat
Hallo.

Wenn du Fragen zur Umsetzung eines Bildschirmschoners in VB/QB hast, schreib mir eine eMail. Ich hab da einen tollen Artikel aus dem "VB Kochbuch". lächeln

Viele Grüße!
Sebastian
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Mecki
Igel


Anmeldungsdatum: 10.09.2004
Beiträge: 985
Wohnort: Niederbayern
BeitragVerfasst am: 28.11.2004, 10:47    Titel: Antworten mit Zitat
Frage am Rande: Gabs nicht auch mal ne Datei von Windows, in die man einfach nur den Pfad der EXE reinschreiben musste?
_________________
» Yodl.de: So sucht man gestern. verwundert
» Geld verdienen im Netz + ICQ.
» Firefox!
» 100€ zu gewinnen
» FreeBASIC.de
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen AIM-Name Yahoo Messenger MSN Messenger
Sebastian
Administrator


Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
BeitragVerfasst am: 28.11.2004, 13:45    Titel: WIN.INI Antworten mit Zitat
Hallo.

Das könnte die WIN.INI gewesen sein. Das klappt aber nur noch bei alten Windowsversionen.

Viele Grüße!
Sebastian
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Devilkevin
aka Kerstin


Anmeldungsdatum: 11.11.2004
Beiträge: 2532
Wohnort: nähe Mannheim
BeitragVerfasst am: 28.11.2004, 14:21    Titel: Antworten mit Zitat
Nebenbei, wen du den
Code:
 sleep 1
Befehl wegläst, dann is der Effekt viel cooler, dann sollte man aber die Farben zu einander passend machen ! Zum Beispiel so :

Code:

Cls
Screen 12
Do
Randomize Timer
x = Int(rnd*1000)
y = Int(rnd*1000) 
Line (320, 200)-(x, y), 1
Line (320, 200)-(x, y), 15
Line (320, 200)-(x, y), 11
Loop until Inkey$ = Chr$(27)

_________________
www.piratenpartei.de
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu QBasic. 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