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:

Optische Täuschung?

 
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
hhr



Anmeldungsdatum: 15.07.2020
Beiträge: 84

BeitragVerfasst am: 13.05.2022, 19:00    Titel: Optische Täuschung? Antworten mit Zitat

Damit die Klicks nicht ins Leere gehen...
Läuft mit der neuesten Version von FreeBASIC, bei älteren Versionen kann es Fehlermeldungen geben.
Code:
#include "windows.bi" ' ShowWindow, SetWindowPos
#include "fbgfx.bi"   ' FB.GFX_SHAPED_WINDOW, FB.GFX_ALWAYS_ON_TOP

dim as long radius,colour,w,h
dim as FB.EVENT evt ' screenevent
screeninfo w,h
screenres(w,h,8,,FB.GFX_SHAPED_WINDOW or FB.GFX_ALWAYS_ON_TOP)
SetWindowPos(GetConsoleWindow,0,10,10,0,0,SWP_NOSIZE)
ShowWindow(GetConsoleWindow,SW_HIDE) ' [ SW_HIDE | SW_MINIMIZE ]

do
   radius=int((rnd/2)*h)
   colour=int(rnd*15)
   circle(w\2,h\2),radius,colour
   if (screenevent(@evt)) then
      if evt.type>4 and evt.type<9 then end
   end if
loop until len(inkey)

end
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
grindstone



Anmeldungsdatum: 03.10.2010
Beiträge: 1208
Wohnort: Ruhrpott

BeitragVerfasst am: 14.05.2022, 11:04    Titel: Antworten mit Zitat

Und das mit nur ein paar Programmzeilen, beeindruckend. lächeln

Erinnert mich irgendwie an Kaa aus dem "Dschungelbuch": "Schau mir in die Augen...tiiiief...tiiiiiiiiefer!" grinsen

Gruß
grindstone
_________________
For ein halbes Jahr wuste ich nich mahl wie man Proggramira schreibt. Jetzt bin ich einen!
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 -> 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