Grafico in VB

[La_DomS]

Ciao, sono una ragazza di 15 anni ed ho appena iniziato ad utilizzare VB.
Ho creato un Form con lo scopo di darmi dei numeri in percentuale ma quando schiaccio il bottone (command1) nella TextBox compare solamente il numero e non il simbolo di Percentuale.
Inoltre mi piacerebbe che nel momento in cui il CommandBotton viene premuto, compaia anche un grafico relativo al numero percentuale dato, ES: 50% con accanto un grafico che rappresenti il 50%.
Spero che qualcuno possa aiutarmi, grazie.

[LeleFT]

VB ha un forum dedicato e, come indicato nel regolamento, è necessario specificare anche la versione di VB che si usa.

Intanto sposto nel forum dedicato a VB, in attesa di conoscere la versione.


Ciao.

[arthas83]

beh per il simbolo percentuale devi semplicemente concatenarlo alla stringa che scrivi nella textbox... esempio:

private perc as decimal = num1/num2*100
textbox1.text = string.format("{0:N2}", perc) & " %"



per quanto riguarda il grafico, che tipo di grafico ti interessa? a torta ad esempio? vorresti segnare la fetta corrispondente alla percentuale rispetto al totale?

[La_DomS]

Scusa se non ho inserito il messaggio nel posto giusto, la mia versione di VB è VB6.
Grazie ad Arthas83 per la risposta; il grafico mi servirebbe a torta e che, come hai detto tu, evidenzi la parte corrispondente alla percentuale rispetto al totale.
Domiziana

[arthas83]

mmm allora se è vb nn so come aiutarti...
io in vb.net, semplice semplice lo farei così:

Dim gr As Graphics = formChiamante.pnlTorta.CreateGraphics
Dim rect As New Rectangle(10, 10, 140, 140)
If CDec(formChiamante.txtPercentualeDaPagare.Text) >= 0 Then
gr.FillPie(Brushes.DarkSeaGreen, rect, 270, 3.6 * CDec (formChiamante.txtPercentualePagato.Text) * 100)
gr.FillPie(Brushes.RosyBrown, rect, 270, -3.6 * CDec (formChiamante.txtPercentualeDaPagare.Text))
formChiamante.txtPercentualeDaPagare.BackColor = Color.IndianRed
End If

If CDec(formChiamante.txtSommaDaPagare.Text) < 0 Then
gr.FillPie(Brushes.Red, rect, 270, 360)
formChiamante.txtPercentualeDaPagare.BackColor = Color.Red
End If

nn credo che ti possa essere molto d'aiuto però

[La_DomS]

Grazie comunque io non conosco VBnet, in ogni caso proverò ad inserire il codice che mi hai dato. Spero che qualcuno che conosce VB6 mi possa aiutare.