|
Mislio sam da napravim jednostavnu anketu koja podatke zapisuje u txt fajl.
u fajlu sam sacuvao podatke ovako
33 33 33
znaci samo tri broja
Mislio sam da ih ucitam preko streamreadera zatim uradim sledece
Dim Citac As IO.StreamReader = New IO.StreamReader("c:\proba.txt")
Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strTekst() As String = Citac.ReadToEnd.Split(" ")
Citac.Close()
Lb1.Text = "Vrijednost (" & strTekst(1) & ")"
Lb2.Text = "Vrijednost (" & strTekst(2) & ")"
Lb3.Text = "Vrijednost (" & strTekst(3) & ")"
Dim A, B, C As Integer
A = CInt(strTekst(1))
B = CInt(strTekst(2))
C = CInt(strTekst(3))
Bar1.Width = Unit.Pixel(A)
Bar2.Width = Unit.Pixel(B)
Bar3.Width = Unit.Pixel(C)
Dim F As Integer = A + B + C
Response.Write("Ukupno: " & F)
End Sub
Bar1,2 i 3 su slike i to sam mislio da mi bude graficki prikaz
Jel ima neko ideju kako da ovo malo sredim i ako ima neko primjer boljeg koda (hocu da probam samo sa txt fajlom bez baze)
|
