Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Exstasy PUR
| Uploader: |  Emporea1997 |
| Datum/Zeit: | 25.09.2011 01:01:55 |
#define WIN_INCLUDEALL
#include "fbgfx.bi"
#Include "windows.bi"
#define RGBA_R( c ) ( CUInt( c ) Shr 16 And 255 )
#define RGBA_G( c ) ( CUInt( c ) Shr 8 And 255 )
#define RGBA_B( c ) ( CUInt( c ) And 255 )
#Define MB_V 4096
Dim As CHOOSECOLOR PTR cc
Dim As UInteger PTR acrCustClr
Dim As HWND hwnd
Dim As HBRUSH hbrush
Dim As UInteger rgbCurrent
Dim As UInteger r, g, b
Dim As UInteger col
DIM Shared As Integer w, h, depth,iresult
Dim Shared As Integer Farbe,Farbe2,Farbe1
Dim Shared As Integer a
a = 1
Sub Kreis()
For i As Integer = 1 To 65
Circle(w/2,h/2),i,Farbe
Circle((w/2)+(w/5),h/2),i,Farbe
Circle((w/2)-(w/5),h/2),i,Farbe
Circle(w/2,(h/2)+(h/5)),i,Farbe
Circle(w/2,(h/2)-(h/5)),i,Farbe
Circle((w/2)+(w/10),h/2),i,Farbe
Circle((w/2)-(w/10),h/2),i,Farbe
Circle(w/2,(h/2)+(h/10)),i,Farbe
Circle(w/2,(h/2)-(h/10)),i,Farbe
Circle((w/2)+(w/4),(h/2)-(w/4)),i,Farbe
Circle((w/2)-(w/4),(h/2)-(w/4)),i,Farbe
Circle((w/2)-(w/4),(h/2)+(w/4)),i,Farbe
Circle((w/2)+(w/4),(h/2)+(w/4)),i,Farbe
Sleep 1,1
Next
End Sub
iresult = Messagebox(0,"Gib nun die Farbe der Kreise an","xD",MB_OK Or MB_V)
rgbCurrent = &HFF00FF 'Rosa als Voreinstellung
cc = CAllocate(sizeof(CHOOSECOLOR))
acrCustClr = CAllocate(64)
cc->lStructSize = Cast(UInteger,sizeof(CHOOSECOLOR))
cc->hwndOwner = hwnd
cc->lpCustColors = CAST(LPDWORD, acrCustClr)
cc->rgbResult = rgbCurrent
cc->Flags = CC_FULLOPEN Or CC_RGBINIT
if (ChooseColor(cc) = TRUE) Then
hbrush = CreateSolidBrush(cc->rgbResult)
rgbCurrent = cc->rgbResult
col = rgbcurrent
r = RGBA_R( col )
g = RGBA_G( col )
b = RGBA_B( col )
Farbe = RGB(b,g,r)
End if
iresult = Messagebox(0,"Gib nun die Erste Hintergrund an!","xD",MB_OK Or MB_V)
rgbCurrent = &HFF00FF 'Rosa als Voreinstellung
cc = CAllocate(sizeof(CHOOSECOLOR))
acrCustClr = CAllocate(64)
cc->lStructSize = Cast(UInteger,sizeof(CHOOSECOLOR))
cc->hwndOwner = hwnd
cc->lpCustColors = CAST(LPDWORD, acrCustClr)
cc->rgbResult = rgbCurrent
cc->Flags = CC_FULLOPEN Or CC_RGBINIT
if (ChooseColor(cc) = TRUE) Then
hbrush = CreateSolidBrush(cc->rgbResult)
rgbCurrent = cc->rgbResult
col = rgbcurrent
r = RGBA_R( col )
g = RGBA_G( col )
b = RGBA_B( col )
Farbe1 = RGB(b,g,r)
End If
iresult = Messagebox(0,"Gib nun die zweite Hintergrund an!","xD",MB_OK Or MB_V)
rgbCurrent = &HFF00FF 'Rosa als Voreinstellung
cc = CAllocate(sizeof(CHOOSECOLOR))
acrCustClr = CAllocate(64)
cc->lStructSize = Cast(UInteger,sizeof(CHOOSECOLOR))
cc->hwndOwner = hwnd
cc->lpCustColors = CAST(LPDWORD, acrCustClr)
cc->rgbResult = rgbCurrent
cc->Flags = CC_FULLOPEN Or CC_RGBINIT
if (ChooseColor(cc) = TRUE) Then
hbrush = CreateSolidBrush(cc->rgbResult)
rgbCurrent = cc->rgbResult
col = rgbcurrent
r = RGBA_R( col )
g = RGBA_G( col )
b = RGBA_B( col )
Farbe2 = RGB(b,g,r)
End If
ScreenInfo w, h, depth
SCREENres w,h, depth,,&h08
Do
cls
COLOR Farbe1,Farbe1
cls
Kreis ()
Sleep a,1
COLOR Farbe2,Farbe2
Cls
Kreis ()
Sleep a,1
Loop Until InKey = "e"