PureBasic

Code : Tout sélectionner

Enumeration
  #WinMain
EndEnumeration

Enumeration
  #Spin_Taille
  #Btn_Police
  #Cmb_Caracteres
  #Image
EndEnumeration

Macro ChangeSpin(Gadget, valeur)
  a = Val(GetGadgetText(Gadget)) : a + valeur
  
  SetGadgetState(Gadget, a)
  SetGadgetText(Gadget, Str(GetGadgetState(Gadget)))
EndMacro

Procedure CreeImage(Font, Lettre.s, Couleur, Fond)
  If CreateImage(0, 400, 400)
    StartDrawing(ImageOutput(0))
    
    Box(0, 0, GadgetWidth(#Image), GadgetHeight(#Image), RGB($FF,$FF,$FF))
    DrawingMode(#PB_2DDrawing_Transparent)
    DrawingFont(Font)
    H = TextHeight(Lettre) : L = TextWidth(Lettre)
    x = 200 - (L/2) : y = 200 - (H/2)
    DrawText(x, y, Lettre, Couleur, Fond)
    StopDrawing()
  EndIf
  SetGadgetState(#Image, ImageID(0))
  
EndProcedure

FontName.s = "Arial"
FontStyle = #PB_Font_Bold
FontSize = 100
FontColor = $000000

If OpenWindow(#WinMain, 0, 0, 515, 410, "ImageGadget",  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
  
  If CreateGadgetList(WindowID(0))
    ImageGadget(#Image, 5, 5, 400, 400, 0)
    ComboBoxGadget(#Cmb_Caracteres, 410, 5, 45, 200)
    ButtonGadget(#Btn_Police, 460, 5, 50, 20, "Police")
    SpinGadget(#Spin_Taille, 410, 35, 100, 20, 0, 400)
  EndIf
  SetGadgetState(#Spin_Taille, FontSize)
  SetGadgetText(#Spin_Taille, Str(GetGadgetState(#Spin_Taille)))
  
  For i = '!' To 'ÿ'
    If i <> 38 And i <> 127 And i <> 129 And i <> 141 And i <> 143 And i <> 144 And i <> 157
      AddGadgetItem(#Cmb_Caracteres, -1, Chr(i))
    EndIf
  Next
  SetGadgetState(#Cmb_Caracteres, 0)
  Lettre.s = GetGadgetItemText(#Cmb_Caracteres, GetGadgetState(#Cmb_Caracteres),0)
  LoadFont(0, FontName, FontSize, FontStyle)
  CreeImage(FontID(0), Lettre, FontColor, RGB($FF,$FF,$FF))

  Repeat
    
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow : Quit = #True
      Case #PB_Event_Gadget
        Select EventGadget()
          Case #Btn_Police
            Font = FontRequester(FontName, GetGadgetState(#Spin_Taille), #PB_FontRequester_Effects, RGB($0,$0,$0))
            
            If Font
              FontName = SelectedFontName()
              FontSize = SelectedFontSize()
              FontStyle = SelectedFontStyle() : Debug FontStyle
              FontColor = SelectedFontColor()
              
              LoadFont(0, FontName, FontSize, FontStyle)
              CreeImage(FontID(0), Lettre, FontColor, RGB($FF,$FF,$FF))
              
              SetGadgetState(#Spin_Taille, FontSize)
              SetGadgetText(#Spin_Taille, Str(GetGadgetState(#Spin_Taille)))
            EndIf
            
          Case #Spin_Taille
            Select EventType() 
              Case -1
                ChangeSpin(#Spin_Taille, -10)
                LoadFont(0, FontName, GetGadgetState(#Spin_Taille), FontStyle)
                CreeImage(FontID(0), Lettre, FontColor, RGB($FF,$FF,$FF))
                
              Case 1
                ChangeSpin(#Spin_Taille, 10)
                LoadFont(0, FontName, GetGadgetState(#Spin_Taille), FontStyle)
                CreeImage(FontID(0), Lettre, FontColor, RGB($FF,$FF,$FF))
                
            EndSelect
          Case #Cmb_Caracteres
            If EventType() = #CBN_SELCHANGE
              Lettre = GetGadgetItemText(#Cmb_Caracteres, GetGadgetState(#Cmb_Caracteres),0)
              CreeImage(FontID(0), Lettre, FontColor, RGB($FF,$FF,$FF))
              
            EndIf
        EndSelect
        
    EndSelect
  Until Quit
EndIf

End


; jaPBe Version=3.7.8.661
; Build=0
; Language=0x0000 Language Neutral
; FirstLine=0
; CursorPosition=11
; EnableXP
; ExecutableFormat=Windows
; DontSaveDeclare
; EOF
; IDE Options = PureBasic Visual Designer v4.0 Alpha 15 build 651
; VD_UsePB_Any = 0
; VD_IncludeBinaryBitmaps = 1
; VD_IncludeXPskins = 0

Code : Tout sélectionner

; SPH(2006-2007)
; PB4 

InitSprite() 
InitMouse() 
InitKeyboard() 

;SetPriorityClass_ ( GetCurrentProcess_ (), #IDLE_PRIORITY_CLASS ) 

If ExamineDesktops() 
   dw.w=DesktopWidth(0) 
   dh.w=DesktopHeight(0) 
Else 
   dw.w=1024 
   dh.w=768 
EndIf 
dw2=dw/2
dh2=dh/2

dw1=dw/4
dw3=(dw/4)*3

OpenScreen(dw,dh,32,"") 

;;;;;;;;;;;
;;;;;;;;;;;
autre:
rr1.f=Random(5)+Random(1000)/1000
rr2.f=Random(5)+Random(1000)/1000
vv1.f=Random(5)+Random(1000)/1000
vv2.f=Random(5)+Random(1000)/1000
bb1.f=Random(5)+Random(1000)/1000
bb2.f=Random(5)+Random(1000)/1000
or1.f=rr1
or2.f=rr2
ov1.f=vv1
ov2.f=vv2
ob1.f=bb1
ob2.f=bb2
cr1.f=0.001+Random(1000)/10000
cr2.f=0.001+Random(1000)/10000
cv1.f=0.001+Random(1000)/10000
cv2.f=0.001+Random(1000)/10000
cb1.f=0.001+Random(1000)/10000
cb2.f=0.001+Random(1000)/10000

a1.f=0.001+Random(1000)/35000
a2.f=0.002+Random(1000)/35000
a3.f=0.003+Random(1000)/35000
a4.f=0.001+Random(1000)/35000
a5.f=0.002+Random(1000)/35000
a6.f=0.003+Random(1000)/35000

;;;;;;;;;;;
Repeat ; Until xmouse<>xmouse2 Or ymouse<>ymouse2 Or KeyboardPushed(#PB_Key_All) 

ExamineMouse() 
xmouse=MouseDeltaX()/55 ; /x : x= sensibilité
ymouse=MouseDeltaY()/55 ; /x : x= sensibilité
;*****
ClearScreen(0)
StartDrawing(ScreenOutput())


;;;;;;;;;;;

For i=0 To dh-1
r1=63+Cos(rr1)*63
r2=63+Sin(rr2)*63
v1=63+Cos(vv1)*63
v2=63+Cos(vv2)*63
b1=63+Sin(bb1)*63
b2=63+Sin(bb2)*63

rr=r1+v1+b1
vv=r2+v2+b2

;LineXY(0,i,dw,i,RGB(b1+b2,r1+r2,v1+v2))
;LineXY(dw2,i,dw,i,RGB(b1+b2,r1+r2,v1+v2))

LineXY(dw2-rr,i,dw2+vv,i,RGB(r1+r2,v1+v2,b1+b2))

rr1+a1
rr2+a2
vv1+a3
vv2+a4
bb1+a5
bb2+a6
Next
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  2



or1+cr1
rr1=or1
or2+cr2
rr2=or2
ov1+cv1
vv1=ov1
ov2+cv2
vv2=ob2
ob1+cb1
bb1=ob1
ob2+cb2
bb2=ob2
;;;;;;;;;;;
StopDrawing() 
;*****
FlipBuffers(1) 

If MouseButton(#PB_MouseButton_Left)<>0
Goto autre
EndIf

ExamineKeyboard() 
Until xmouse<>0 Or ymouse<>0 Or KeyboardPushed(#PB_Key_All) 
End