Ultima versione di linegraf

[andy60]

Ho la 0.0.18 è l'ultima per g3? Grazie  

[fsurfing]

si è l' ultima, le ulteme modifiche non sono state testate su g3 , non dovrebbero eszserci problemi , se ci sono fammi sapere

[andy60]

si è l' ultima, le ulteme modifiche non sono state testate su g3 , non dovrebbero eszserci problemi , se ci sono fammi sapere

grazie, molto gentile

[andy60]

sul grafico a torta mi viene quella linea , mi sai suggerire qualcosa?
questo il codice:

Codice: [Seleziona]

Public Sub Button3_Click()
Dim graf As New Linegraf
Dim valori As New Float[]
Dim valoriy As New String[]
Dim i As Integer
Dim myconn As New Connection
Dim myset As Result
Dim totale As Float
Dim tp As Float
Dim tg As Float
Dim tc As Float
totale = 0
tp = 0
tg = 0
tc = 0
myconn.Type = "sqlite3"
myconn.Host = Application.Path
myconn.Name = "myZone.db"
myconn.Open  
myset = myconn.Exec("Select * from tbPasti") ' where GMA='" & Format$(datebox1.Value, "dd/mm/yy") & "'")


For Each myset
  tp = tp + myset!P
  tg = tg + myset!G
  tc = tc + myset!C
Next

totale = tp + tg + tc
   
    graf.PiePut((tp / totale) * 100, Color.red, "proteine")
    graf.PiePut((tg / totale) * 100, Color.Blue, "grassi")
    graf.PiePut((tc / totale) * 100, Color.yellow, "carboidrati")
          
    PictureBox1.Picture = graf.MakePie("Composizione intake - " & Settings["host/nome"] & " " & Settings["host/cognome"] & " - " & Format$(datebox1.Value, "dd/mm/yyyy"), PictureBox1.w, PictureBox1.h, Color.White, True, 15)
    
myconn.Close
End

grazzzie!!

[fsurfing]

prova a commentare una di queste linee nel codice di linegraft

797
798

877
878

mi raccomendo poi fammi sapere in quale modo si risolve.....se si risolve

[andy60]

prova a commentare una di queste linee nel codice di linegraft

797
798

877
878

mi raccomendo poi fammi sapere in quale modo si risolve.....se si risolve

nunseresolve...detto alla romana...

faccio il punto dell'applicazione di linegraf alla for dei grafici di myZone:
- mi viene la famosa riga sul grafico a torta pur avendo commentato come mi hai suggerito prontamente
- la formattazione delle etichette sul grafico: non riesco a produrre un formato del tipo: 23.45%, mi viene 23.45663830832903%

[fsurfing]

per la formattazione passa a linegra i valori già formattati tramite la funzione round  

prova a commentare una di queste due:

827
828

[andy60]

per la formattazione passa a linegra i valori già formattati tramite la funzione round  

prova a commentare una di queste due:

827
828

grazie di cuore

[andy60]

funge 828

[fsurfing]

ok , grazie

[Ceskho]

Il tag [RISOLTO] 

[andy60]

Il tag [RISOLTO]  

prima devo ancora 'risolvere' una cosa

A) come faccio a restringere il font delle scritte%? Con l'istruzione di creazione del grafico mi sembra che come ultimo parametro possso settare il font, ma solo del  titolo.
B) come faccio ad avvicinare le scritte percentuali? Come vedi quando viene posizionata sopra non si vede del tutto

C) Round(valore): malgrado l'istruzione mi compaiono i decimali...

Codice: [Seleziona]

PictureBox1.Picture = graf.MakePie("Composizione intake - " & Settings["host/nome"] & " " & Settings["host/cognome"] & " - " & datebox1.value, PictureBox1.w, PictureBox1.h, Color.White, True, 9)

[tornu]

Ciao andy,
anchio sto usando la classe creata da fsurfing è ho incontrato i tuoi stessi problemi per quanto riguarda la formatazione dei dati percentuali e il posizionamento degli stessi, comunque se fai una ricerca su linegraf sul forum trovi anche altri suggerimenti che fsurging mi ha dato per effettuare delle modifiche.
Per quanto riguarda la formatazione delle percentuali io ho risolto così alla riga 765:

Codice: gambas [Seleziona]

testo = Format(obj1[i].$valore, "#0.00") & " %" 'Arrotondamento percentuale a due decimali *** nuova modifica

Per il posizionamento degli stessi devi giocare su questi valori alla riga 754

Codice: gambas [Seleziona]

 ' x2 = (dx / 1.5) * Cos(Rad(- parcov)) ' Codice originale - Lunghezza linee dati su torta
 ' y2 = (dy / 1.5) * Sin(Rad(- parcov)) ' Codice originale - Lunghezza linee dati su torta
  x2 = (dx / 1.7) * Cos(Rad(- parcov)) ' Nuova modifica - Lunghezza linee dati su torta
  y2 = (dy / 1.7) * Sin(Rad(- parcov)) ' Nuova modifica - Lunghezza linee dati su torta

vedi un po se ti può aiutare

P.S.: Scusa andy, ma hai risolto il problema della "famigerata" linea sul grafico a torta?
Io per il momento ho dovuto tenermela, non ho risolto neanche con l'aiuto di fsurfing (a lui non appare), ho visto l'ultimo screenshot che hai postato
la linea non c'è, se hai risolto mi puoi dire come. Grazie

[tornu]

dai uno sguardo anche a queste modifiche a partire dalla riga 813

Codice: gambas [Seleziona]

            IF x2 >= cx + dx / 2 THEN
                ' Draw.Line(x2, h - y2, x2 + lt + 5, h - y2) ' Codice originale
                Draw.Line(x2, h - y2, x2 + lt + 10, h - y2) ' Codice modificato
                ' Draw.Text(testo, x2 + 5, h - y2 - Draw.TextHeight(testo) - 3) ' Distanza dati da testata linee - Codice originale
                Draw.Text(testo, x2 + 15, h - y2 - Draw.TextHeight(testo) + 6) ' Distanza dati da testata linee - Codice modificato
              ELSE 
                ' Draw.Line(x2, h - y2, x2 - lt - 5, h - y2) ' Codice originale
                Draw.Line(x2, h - y2, x2 - lt - 10, h - y2) ' Codice modificato
                ' Draw.Font.Bold = TRUE ' *** nuova modifica
                ' Draw.Text(testo, x2 - 5 - lt, h - y2 - Draw.TextHeight(testo) - 3) ' Distanza dati da testata linee - Codice originale
                Draw.Text(testo, x2 - 60 - lt, h - y2 - Draw.TextHeight(testo) + 6) ' Distanza dati da testata linee - Codice modificato
            ENDIF 

[andy60]

@tornu

Grazie moltissimo x l'aiuto, domani provo a sistemare. Per quanto riguarda la riga di ui parli, vai alla riga 828 e commentale, io l'ho fatto e non si vede piu'.

Per quanto riguarda il font delle scritte percentuali e la sua grandezza, non so proprio dove andare a mettere le mani....

Restiamo in contatto x altre modifiche, ciao