voyez-vous correctement ce code ?

Backup · Message par **Backup** » sam. 29/oct./2005 12:13

tel est la question

; ;-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

Chris · Message par **Chris** » sam. 29/oct./2005 12:23

Ca pique les nyeux

Anonyme2 · Message par **Anonyme2** » sam. 29/oct./2005 13:57

Tu fourni les lunettes qui vont avec

Backup · Message par **Backup** » sam. 29/oct./2005 14:09

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 !

Backup · Message par **Backup** » sam. 29/oct./2005 18:35

et maintenant vous le trouvez plus jolie ce code ?

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 !

;/ 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

Chris · Message par **Chris** » sam. 29/oct./2005 18:38

Plus jolie, non!

Mais ça pique plus les nyeux

Backup · Message par **Backup** » sam. 29/oct./2005 18:41

bon ! c'est deja ça !

je vais m'attaquer au decalage de lignes !

Jacobus · Message par **Jacobus** » sam. 29/oct./2005 19:00

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

...sinon ça va

Backup · Message par **Backup** » sam. 29/oct./2005 19:20

Avec le thème que tu utilises

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

puisque tout le monde ralaient , je me suis mis a la norme !

je vien de m'occuper des constantes voir ci-dessus !

Jacobus · Message par **Jacobus** » sam. 29/oct./2005 19:25

C'est vrai que c'est pas mal d'avoir la coloration syntaxique directe, encore une bonne idée du sieur Dobro

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

Chris · Message par **Chris** » sam. 29/oct./2005 19:30

Moi, j'ai BlueDim depuis déjà un bon moment.
J'aime bien, ça ressemble à SubSylver, mais les couleurs sont un peu plus claires.

Chris · Message par **Chris** » sam. 29/oct./2005 19:34

Je viens de mettre DarkEQ, il est pas vilain ce skin

Backup · Message par **Backup** » sam. 29/oct./2005 19:37

encore une bonne idée du sieur Dobro

heu ! j'ai piqué l'idée sur le Forum du Dark basic !

la bas l'avantage (

) c'est qu'il n'ont qu'un seul theme !

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

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 !

Backup · Message par **Backup** » sam. 29/oct./2005 19:40

Je viens de mettre DarkEQ, il est pas vilain ce skin Smile

c'etait celui que j'avais avant !!

je fais comment moi si vous changez votre theme

Jacobus · Message par **Jacobus** » sam. 29/oct./2005 19:42