hhr
Anmeldungsdatum: 15.07.2020
Beiträge: 79
|
 Verfasst am: 13.05.2022, 20:00 Titel: Optische Täuschung? |
 |
|
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 |
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
