Graphiques

Plus d'informations
06 Avr 2014 09:51 #1 par patrick
Graphiques a été créé par patrick
Je suis en train d'ajouter l'affichage des courbes de température enregistrées sur la carte SD du Maxisun. Cette visualisation sera directement accessible par les pages Web intégrées, sans passer par un logiciel tableur externe.
Il manque encore pas mal de fonctionnalités, zoom, panning, tooltips, mais ça avance bien:


Pièces jointes :

Connexion ou Créer un compte pour participer à la conversation.

Plus d'informations
06 Avr 2014 12:50 #2 par Troglo
Réponse de Troglo sur le sujet Graphiques
Super !
J'avais commencé avec Excel, mais ce n'était pas très concluant :(

Jérôme

Connexion ou Créer un compte pour participer à la conversation.

Plus d'informations
06 Avr 2014 19:15 #3 par Lebritish
Réponse de Lebritish sur le sujet Graphiques
Bsoir a tous,

perso je fais ca avec une petite macro sous Excel. Ca prends 3 sec.

Mais si on peut le faire en direct en intégré sur le Maxisun ca sera encore mieux. Merci Patrick ;)

A+

PS: la macro:
Sub MAXISUN3()
'
' MAXISUN3 Macro
' Macro enregistrée le 02/12/2013 par admin
'

'
Range("A1:X1441").Select
Selection.Copy
Sheets.Add
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
Selection.ClearContents
Cells.Select
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("A:W").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterLinesNoMarkers
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A1:W1441"), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveChart.SeriesCollection(7).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
With Selection
.MarkerBackgroundColorIndex = xlAutomatic
.MarkerForegroundColorIndex = xlAutomatic
.MarkerStyle = xlNone
.Smooth = False
.MarkerSize = 5
.Shadow = False
End With
ActiveChart.SeriesCollection(7).AxisGroup = 2
ActiveChart.Axes(xlValue, xlSecondary).Select
With ActiveChart.Axes(xlValue, xlSecondary)
.MinimumScale = 0
.MaximumScale = 250
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = -10
.MaximumScale = 90
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub

Connexion ou Créer un compte pour participer à la conversation.

Plus d'informations
08 Avr 2014 19:02 #4 par Troglo
Réponse de Troglo sur le sujet Graphiques
Merci pour la macro ;) , n'étant pas très doué avec excel je vais patienter jusqu'à la mise à jour de Patrick :whistle:

Jérôme

Connexion ou Créer un compte pour participer à la conversation.

Plus d'informations
27 Avr 2014 11:35 - 27 Avr 2014 11:47 #5 par patrick
Réponse de patrick sur le sujet Graphiques
Petit à petit ça avance, pas aussi rapidement que prévu parce que je refais toutes les pages du serveur intégré. D'une part pour une présentation plus moderne mais surtout pour un design "responsive", cad qui s'adapte automatiquement à la taille et à l'orientation de l'écran de l'appareil utilisé, smartphone, tablette...

Graphique sur PC:


Le même sur petit écran:


Et la nouvelle présentation:
Pièces jointes :
Dernière édition: 27 Avr 2014 11:47 par patrick.

Connexion ou Créer un compte pour participer à la conversation.

Plus d'informations
27 Avr 2014 14:17 #6 par ced31
Réponse de ced31 sur le sujet Graphiques
Ca a l'air au top! :woohoo:

Connexion ou Créer un compte pour participer à la conversation.

Plus d'informations
27 Avr 2014 18:27 #7 par Troglo
Réponse de Troglo sur le sujet Graphiques
Yes, c'est bôôô :lol:

Jérôme

Connexion ou Créer un compte pour participer à la conversation.

Plus d'informations
28 Avr 2014 19:40 #8 par Lebritish
Réponse de Lebritish sur le sujet Graphiques
vivement que l'on puisse jouer avec nous aussi :cheer:

Connexion ou Créer un compte pour participer à la conversation.

Propulsé par Kunena