DRAWAREA - variation de gbchart( Temps de lecture estimé à 1 min 35 sec )
Bonjour,
aujourd'hui nous allons voir quelques petites astuces du composant GB.chart.
Préparation
Nous allons creer un nouveau projet avec une drawarea et le composant GB.chart coché.
Maintenant nous allons tracer une courbe avec 21 valeurs en X.
Les valeurs en Y sont placées dans un tableau dans une fonction toute faite genre ceci:
PUBLIC SUB initcourbech() tableaucourbe[0] = 0 tableaucourbe[1] = 0 tableaucourbe[2] = 0 tableaucourbe[3] = 0 tableaucourbe[4] = 0 tableaucourbe[5] = 0 tableaucourbe[7] = 0 tableaucourbe[7] = 0 tableaucourbe[8] = 0 tableaucourbe[9] = 0 tableaucourbe[10] = 0 tableaucourbe[11] = 0 tableaucourbe[12] = 0 tableaucourbe[13] = 0 tableaucourbe[14] = 0 tableaucourbe[15] = 0 tableaucourbe[17] = 0 tableaucourbe[17] = 0 tableaucourbe[18] = 0 tableaucourbe[19] = 0 tableaucourbe[20] = 0 END |
n'oubliez pas de declarer d'abord votre tableau par :
tableaucourbe[21] AS Float |
chart.countdatasets = 1 chart[1].color = &hffff00& chart.headers.values = ["0", "1", "2", "3", "4", "5", "7", "7", "8", "9", "10", "11", "12", "13", "14", "15", "17", "17", "18", "19", "20"] |
vous pouvez modifier la valeur de l'axe des Y de cette facon :
chart[0].values = [0.01] |
0 est la 1ere courbe
0.01 est la valeur de notre axe Y pour le point 0
Dessinons notre courbe par :
PUBLIC SUB drawingarea1_draw() 'pour tracer le graphique dans la drawingarea chart.width = drawingarea1.width chart.height = drawingarea1.height chart.draw END |
Voila.
Maintenant nous allons nous amuser a faire varier des valeurs de cette courbe
maintenant nous allons creer un dial,une valuebox et un slider sur notre form.
Le slider nous permet de choisir la valeur en X de notre courbe et le dial la valeur Y.
PUBLIC SUB dial1_change() valuebox1.value = dial1.value / 10 majcourbe(slider1.value, valuebox1.value) END PUBLIC SUB slider1_change() label3.text = slider1.value lavaleur = fmain.lamodif(slider1.value) valuebox1.value = lavaleur dial1.value = lavaleur * 10 END 'mise a jour de la courbe modifée PUBLIC SUB majcourbe(lindex AS Integer, donnee AS variant) chart[0].values[lindex] = donnee drawingarea1.clear drawingarea1.refresh END |
vous pouvez modifier la courbe facilement de cette facon.
La ligne en rouge est très importante. Elle vous permet de modifier une valeur de cette courbe. détaillons la :
chart[numero de la courbe] . Values[coordonnées en X] = Coordonnée en Y
voici ce que cela donne en video.
Pas mal non ?
voila pour aujourd'hui.