PureBasic

Forums PureBasic - Français
http://forums.purebasic.com/french/

voyez-vous correctement ce code ?

http://forums.purebasic.com/french/viewtopic.php?t=3865

Page 1 sur 2

voyez-vous correctement ce code ?

Publié : sam. 29/oct./2005 12:13
par Backup
tel est la question :D


; ;-Gadget Constants
Enumeration 1
;Window_Form1
#Gadget_Form1_Image4
#Gadget_Form1_Amplitude
#Gadget_Form1_HoriOffset
#Gadget_Form1_VertOffset
#Gadget_Form1_Frequence
#Gadget_Form1_Grille
#Gadget_Form1_UseGrid
#Gadget_Form1_Reset
#Gadget_Form1_Frame3D10
#Gadget_Form1_Text11
#Gadget_Form1_Text12
#Gadget_Form1_Text13
#Gadget_Form1_Text14
#Gadget_Form1_Text15
EndEnumeration
#GadgetIndex=#PB_Compiler_ Enumeration Value
#PI = 3.141592
#D2R = 0.01745329
Grille_Flag=1


Procedure Window_Form1()
If OpenWindow (#Window_Form1,274,161,590,460,#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_Invisible,"Oscilloscope")
If OpenWindowedScreen ( WindowID (#Window_Form1),20,10,550,300,0,0,0)
If CreateGadgetList ( WindowID (#Window_Form1))
TrackBarGadget (#Gadget_Form1_Amplitude,185,365,194,16,0,390)
SetGadgetState (#Gadget_Form1_Amplitude,100)
TrackBarGadget (#Gadget_Form1_HoriOffset,397,365,151,16,0,300)
SetGadgetState (#Gadget_Form1_HoriOffset,0)
TrackBarGadget (#Gadget_Form1_VertOffset,397,405,151,16,0,300)
SetGadgetState (#Gadget_Form1_VertOffset,150)
TrackBarGadget (#Gadget_Form1_Frequence,185,405,194,16,0,300)
SetGadgetState (#Gadget_Form1_Frequence,50)
TrackBarGadget (#Gadget_Form1_Grille,27,405,150,20,10,50)
SetGadgetState (#Gadget_Form1_Grille,20)
CheckBoxGadget (#Gadget_Form1_UseGrid,90,375,80,20,"Grille")
SetGadgetState (#Gadget_Form1_UseGrid,1)
ButtonGadget (#Gadget_Form1_Reset,30,345,135,20,"Reset Valeurs")
Frame3DGadget (#Gadget_Form1_Frame3D10,20,320,555,114,"Controles")
TextGadget (#Gadget_Form1_Text11,185,350,71,12,"Amplitude")
TextGadget (#Gadget_Form1_Text12,397,350,116,12,"Horizontal Offset")
TextGadget (#Gadget_Form1_Text13,397,390,114,12,"Vertical Offset")
TextGadget (#Gadget_Form1_Text14,185,390,89,12,"Fréquence")
TextGadget (#Gadget_Form1_Text15,27,390,60,12,"Dim Grille")
HideWindow (#Window_Form1,0)
Procedure Return WindowID ()
Endif
Endif
Endif
EndProcedure ; ;-Gadget Constants
Enumeration 1
;Window_Form1
#Gadget_Form1_Image4
#Gadget_Form1_Amplitude
#Gadget_Form1_HoriOffset
#Gadget_Form1_VertOffset
#Gadget_Form1_Frequence
#Gadget_Form1_Grille
#Gadget_Form1_UseGrid
#Gadget_Form1_Reset
#Gadget_Form1_Frame3D10
#Gadget_Form1_Text11
#Gadget_Form1_Text12
#Gadget_Form1_Text13
#Gadget_Form1_Text14
#Gadget_Form1_Text15
EndEnumeration
#GadgetIndex= #PB_Compiler_ Enumeration Value
#PI = 3.141592
#D2R = 0.01745329
Grille_Flag=1


Procedure Window_Form1()
If OpenWindow ( #Window_Form1,274,161,590,460, #PB_Window_SystemMenu| #PB_Window_ScreenCentered| #PB_Window_Invisible,"Oscilloscope")
If OpenWindowedScreen ( WindowID ( #Window_Form1),20,10,550,300,0,0,0)
If CreateGadgetList ( WindowID ( #Window_Form1))
TrackBarGadget ( #Gadget_Form1_Amplitude,185,365,194,16,0,390)
SetGadgetState ( #Gadget_Form1_Amplitude,100)
TrackBarGadget ( #Gadget_Form1_HoriOffset,397,365,151,16,0,300)
SetGadgetState ( #Gadget_Form1_HoriOffset,0)
TrackBarGadget ( #Gadget_Form1_VertOffset,397,405,151,16,0,300)
SetGadgetState ( #Gadget_Form1_VertOffset,150)
TrackBarGadget ( #Gadget_Form1_Frequence,185,405,194,16,0,300)
SetGadgetState ( #Gadget_Form1_Frequence,50)
TrackBarGadget ( #Gadget_Form1_Grille,27,405,150,20,10,50)
SetGadgetState ( #Gadget_Form1_Grille,20)
CheckBoxGadget ( #Gadget_Form1_UseGrid,90,375,80,20,"Grille")
SetGadgetState ( #Gadget_Form1_UseGrid,1)
ButtonGadget ( #Gadget_Form1_Reset,30,345,135,20,"Reset Valeurs")
Frame3DGadget ( #Gadget_Form1_Frame3D10,20,320,555,114,"Controles")
TextGadget ( #Gadget_Form1_Text11,185,350,71,12,"Amplitude")
TextGadget ( #Gadget_Form1_Text12,397,350,116,12,"Horizontal Offset")
TextGadget ( #Gadget_Form1_Text13,397,390,114,12,"Vertical Offset")
TextGadget ( #Gadget_Form1_Text14,185,390,89,12,"Fréquence")
TextGadget ( #Gadget_Form1_Text15,27,390,60,12,"Dim Grille")
HideWindow ( #Window_Form1,0)
Procedure Return WindowID ()
Endif
Endif
Endif
EndProcedure

Publié : sam. 29/oct./2005 12:23
par Chris
:?

Ca pique les nyeux 8O

Publié : sam. 29/oct./2005 13:57
par Anonyme2
Tu fourni les lunettes qui vont avec 8O

Publié : sam. 29/oct./2005 14:09
par Backup
en fait c'est pour savoir si vous utilisez le skin d'origine de ce forum
ou bien le model "Dark EQ" comme moi ?

sinon il faut que je modofie mon petit prg ! :D

Publié : sam. 29/oct./2005 18:35
par Backup
et maintenant vous le trouvez plus jolie ce code ? 8O
j'ai piqu" l'idée sur le forum du Dark basic , mais ici ont a plusieurs
skin de forum !! alors c'est pas evident ! :D

;/ Created with PureVisionXP v2.13
;/ Sun, 28 Aug 2005 21:09:01
;/ Adaptation d'un programme en RealBasic by Good07

;-Global Variables and Constants
Global BubbleTipStyle.l:BubbleTipStyle=0
Global width,height,Grille_Flag.b
InitSprite ()
InitKeyboard ()

;-Window Constants
Enumeration 1
#Window_Form1
EndEnumeration
#WindowIndex= #PB_Compiler_ Enumeration Value


;-Gadget Constants
Enumeration 1
;Window_Form1
#Gadget_Form1_Image4
#Gadget_Form1_Amplitude
#Gadget_Form1_HoriOffset
#Gadget_Form1_VertOffset
#Gadget_Form1_Frequence
#Gadget_Form1_Grille
#Gadget_Form1_UseGrid
#Gadget_Form1_Reset
#Gadget_Form1_Frame3D10
#Gadget_Form1_Text11
#Gadget_Form1_Text12
#Gadget_Form1_Text13
#Gadget_Form1_Text14
#Gadget_Form1_Text15
EndEnumeration
#GadgetIndex= #PB_Compiler_ Enumeration Value
#PI = 3.141592
#D2R = 0.01745329
Grille_Flag=1


Procedure Window_Form1()
If OpenWindow ( #Window_Form1 ,274,161,590,460, #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_Invisible ,"Oscilloscope")
If OpenWindowedScreen ( WindowID ( #Window_Form1 ),20,10,550,300,0,0,0)
If CreateGadgetList ( WindowID ( #Window_Form1 ))
TrackBarGadget ( #Gadget_Form1_Amplitude ,185,365,194,16,0,390)
SetGadgetState ( #Gadget_Form1_Amplitude ,100)
TrackBarGadget ( #Gadget_Form1_HoriOffset ,397,365,151,16,0,300)
SetGadgetState ( #Gadget_Form1_HoriOffset ,0)
TrackBarGadget ( #Gadget_Form1_VertOffset ,397,405,151,16,0,300)
SetGadgetState ( #Gadget_Form1_VertOffset ,150)
TrackBarGadget ( #Gadget_Form1_Frequence ,185,405,194,16,0,300)
SetGadgetState ( #Gadget_Form1_Frequence ,50)
TrackBarGadget ( #Gadget_Form1_Grille ,27,405,150,20,10,50)
SetGadgetState ( #Gadget_Form1_Grille ,20)
CheckBoxGadget ( #Gadget_Form1_UseGrid ,90,375,80,20,"Grille")
SetGadgetState ( #Gadget_Form1_UseGrid ,1)
ButtonGadget ( #Gadget_Form1_Reset ,30,345,135,20,"Reset Valeurs")
Frame3DGadget ( #Gadget_Form1_Frame3D10 ,20,320,555,114,"Controles")
TextGadget ( #Gadget_Form1_Text11 ,185,350,71,12,"Amplitude")
TextGadget ( #Gadget_Form1_Text12 ,397,350,116,12,"Horizontal Offset")
TextGadget ( #Gadget_Form1_Text13 ,397,390,114,12,"Vertical Offset")
TextGadget ( #Gadget_Form1_Text14 ,185,390,89,12,"Fréquence")
TextGadget ( #Gadget_Form1_Text15 ,27,390,60,12,"Dim Grille")
HideWindow ( #Window_Form1 ,0)
Procedure Return WindowID ()
Endif
Endif
Endif
EndProcedure

Procedure DrawGrille()
StartDrawing ( ScreenOutput ())
If Grille_Flag=0
Box (0,0,width,height, RGB (255,255,255))
Else
widthSquares = GetGadgetState ( #Gadget_Form1_Grille )
xvalue=0
yvalue=height/2
Box (0,0,width,height, RGB (255,255,255))
DrawingMode (4)
Box (1,0,width-1,height-1, RGB (0,0,0))
LineXY (xvalue,yvalue,width,yvalue, RGB (0,0,255))
While yvalue > 0
yvalue = yvalue - widthSquares
LineXY (xvalue,yvalue, width, yvalue, RGB (255,192,192))
Wend

yvalue=height/2

While yvalue < height
yvalue = yvalue + widthSquares
LineXY (xvalue,yvalue, width, yvalue, RGB (255,192,192))
Wend

yvalue = 0
xvalue = 0

While xvalue < width
LineXY (xvalue, yvalue, xvalue, height, RGB (255,192,192))
xvalue = xvalue + widthSquares
Wend
Endif
StopDrawing ()
EndProcedure

Procedure DrawSinusWave()
StartDrawing ( ScreenOutput ())
amp.f = GetGadgetState ( #Gadget_Form1_Amplitude )*0.7
freq.f = GetGadgetState ( #Gadget_Form1_Frequence ) * #D2R/10
hor.f = GetGadgetState ( #Gadget_Form1_HoriOffset )
ver.f = GetGadgetState ( #Gadget_Form1_VertOffset )

lastY.f = 150
For x = 0 To width
y.f = -amp * ( Sin ((x - hor) * freq)) + ver
LineXY ( x - 1, lastY, x, y, RGB (0,0,0))
lastY = y
Next
StopDrawing ()
EndProcedure






;-Main Loop
If Window_Form1()
quitForm1=0
width=550
height=300
quitForm1=0
DrawGrille()
DrawSinusWave()
Repeat
EventID = WaitWindowEvent ()
MenuID =Event MenuID ()
GadgetID =Event GadgetID ()
WindowID = EventWindowID ()
FlipBuffers ()

Select EventID
Case #PB_Event_CloseWindow
If WindowID= #Window_Form1
quitForm1=1
Endif


Case #PB_Event_Gadget
Select GadgetID
Case #Gadget_Form1_Image4
Select EventType ()
Case #PB_EventType_LeftDoubleClick
Case #PB_EventType_RightDoubleClick
Case #PB_EventType_RightClick
Default
EndSelect
Case #Gadget_Form1_Amplitude
DrawGrille()
DrawSinusWave()
Case #Gadget_Form1_HoriOffset
DrawGrille()
DrawSinusWave()
Case #Gadget_Form1_VertOffset
DrawGrille()
DrawSinusWave()
Case #Gadget_Form1_Frequence
DrawGrille()
DrawSinusWave()
Case #Gadget_Form1_Grille
DrawGrille()
DrawSinusWave()
Case #Gadget_Form1_UseGrid
Grille_Flag= GetGadgetState ( #Gadget_Form1_UseGrid )
DrawGrille()
DrawSinusWave()
Case #Gadget_Form1_Reset
SetGadgetState ( #Gadget_Form1_Amplitude ,100)
SetGadgetState ( #Gadget_Form1_HoriOffset ,0)
SetGadgetState ( #Gadget_Form1_VertOffset ,150)
SetGadgetState ( #Gadget_Form1_Frequence ,50)
SetGadgetState ( #Gadget_Form1_Grille ,20)
DrawGrille()
DrawSinusWave()
EndSelect

EndSelect
Until quitForm1
CloseWindow ( #Window_Form1 )
Endif
End

Publié : sam. 29/oct./2005 18:38
par Chris
Plus jolie, non!

Mais ça pique plus les nyeux :lol:

Publié : sam. 29/oct./2005 18:41
par Backup
bon ! c'est deja ça ! :D

je vais m'attaquer au decalage de lignes ! :?

Publié : sam. 29/oct./2005 19:00
par Jacobus
Avec le thème que tu utilises c'est pas terrible surtout le rouge et le bleu qui brèchent un max et me sortent les yeux de la tête 8O ...sinon ça va

Publié : sam. 29/oct./2005 19:20
par Backup
Avec le thème que tu utilises

heu ! je suis repassé en sub silver (le standar de base !!) :lol: :lol:

puisque tout le monde ralaient , je me suis mis a la norme ! :lol:
je vien de m'occuper des constantes voir ci-dessus ! :D

Publié : sam. 29/oct./2005 19:25
par Jacobus
C'est vrai que c'est pas mal d'avoir la coloration syntaxique directe, encore une bonne idée du sieur Dobro :D

Tiens je viens d'essayer SpacePilot3K en thème, ça change.

Publié : sam. 29/oct./2005 19:30
par Chris
Moi, j'ai BlueDim depuis déjà un bon moment.
J'aime bien, ça ressemble à SubSylver, mais les couleurs sont un peu plus claires.

Publié : sam. 29/oct./2005 19:34
par Chris
Je viens de mettre DarkEQ, il est pas vilain ce skin :)

Publié : sam. 29/oct./2005 19:37
par Backup
encore une bonne idée du sieur Dobro
heu ! j'ai piqué l'idée sur le Forum du Dark basic ! :oops:

la bas l'avantage ( :? ) c'est qu'il n'ont qu'un seul theme ! :D

Mon prg sera un petit prg independant (fenetre) :
tu fait ton bloc de code, a la souris comme d'habitude , ctrl+c comme d'habitude , mais mon prg recupere le contenu du press papier,lors de l'appuis sur son bouton , pour la transformation automatique , ya plus qu'a coller avec Ctrl+v comme d'habitude :D

il ajoute tout seul un Quote et un /Quote pour delimiter le code !
cela va me permettre de gerer les decalages , car sinon
le forum justifie le text a gauche ! :?

voila le plus simple possible !
:D

Publié : sam. 29/oct./2005 19:40
par Backup
Je viens de mettre DarkEQ, il est pas vilain ce skin Smile
c'etait celui que j'avais avant !!

:evil: :evil: :evil: :evil: #jaune :2gunfire: :snipersmile:

je fais comment moi si vous changez votre theme :evil: :evil:

:lol:

Publié : sam. 29/oct./2005 19:42
par Jacobus
:lol: :lol: :lol:
Fuseau horaire sur UTC+01:00
Page 1 sur 2

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru