list i graficki dijagram

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pozzz svim

Radim na jednoj aplikicaji koja putem seriskog porta dobija vrednost temperature preko onewire termometra. Sad lepo sam obradio te ulazne podatke i dobijam rezultat u jednom text box ovakav npr. 23.3 C. Eh sad sm odlucio da to snimam na odredjeno vreme u list1. To sam i uradio stavio sma da snima i pored da doda vreme i datum kad je izvrseno merenje. PA mi je palo na pamet da nacrtam grafik za te vrednost, znaci na x osu vreme a na y osu temperaturu, i da bude liniski grafik. Par dana sam se zezao sa mschart iz komponenti, ali sam odustao jer nisam nista uspeo... Moja ideja je bila da stavim 2 liste i u jednu listu ide samo temperatura a u drugu vreme, i da to spajam na grafik, ali nisam uspeo to da uradim...Dali neko moze da mi pomogne ?
puno zahvaljujem unapred!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

http://download.microsoft.com/download/vb60pro/Ctr.....rtSmpl.exe (181Kb).

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

rgdrajko Hvala puno za primer, i očekivao sam odgovor od tebe!
Primer mi je malo previše opširan, pa mi je teško snaći se u njemu,meni 90% tih strani ne treba. Dali imaš nekakav primer koji samo opisuje popunjavanje x i y ose ? na liniskom grafiku.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ma ja sam pre 10 godina uradio slican program i koristio 2D i 3D dijagram. Samo malo da pronadjem program i postavicu kod ovde.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ok, kad nadješ postavi Hvala!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Evo odgovora:

Grafik crta vrednost ULAZ iz fajla.
Klikom na Option button 3D ispod option button 2Ddobijas 3D grafik...



'Autor: Rajko Kuzmanovic 'Zapocet: 24.02.1999 godine 'Verzija: 19.03.2003. godine Dim mesec As String Dim pronadjenjeparametar As Boolean Dim podacizagrafik(24) As String Private Sub Form_Load()     cboParametar.AddItem "PARAMETARX"         cboParametar.ListIndex = 0     For n = 1 To 12         cboMesec.AddItem n     Next n         cboParametar.ListIndex = 0             For n = 1990 To 2009         cboGodina.AddItem n     Next n         cboGodina.ListIndex = 0         frmBilten.Show         Call Otvaranjefajla End Sub Public Sub Otvaranjefajla()     Call Dobijanjeimenameseca         pronadjenjeparametar = False           Open App.Path & "\Blt\" & Left(mesec, 3) & cboGodina.Text & ".blt" For Random As #1 Len = 1         duzinafajla = LOF(1)     Close #1     If duzinafajla = 0 Then         For n = 0 To 23             MSChart1.Data = 0         Next n         Exit Sub     End If     Open App.Path & "\Blt\" & Left(mesec, 3) & cboGodina.Text & ".blt" For Input As #1         Do While Not EOF(1)             Line Input #1, ucitizfajla             If InStr(ucitizfajla, cboParametar.Text) Then                 pronadjenjeparametar = True             End If             If pronadjenjeparametar = True Then                 If Left(ucitizfajla, 4) = "ULAZ" Then                     redsapodacima = Trim(Mid(ucitizfajla, 7))                     rednibrojreci = 1                     pozicija = 0                     noviredsapodacima = redsapodacima                                         Do                         pozicija = InStr(noviredsapodacima, " ")                         nadjenibroj = Mid(noviredsapodacima, 1, pozicija - 1)                         noviredsapodacima = Trim(Mid(noviredsapodacima, pozicija))                         podacizagrafik(rednibrojreci) = nadjenibroj                         rednibrojreci = rednibrojreci + 1                     Loop Until rednibrojreci = 24                 End If                 If Left(ucitizfajla, 3) = "BR " Then                     Exit Do                 End If             End If                     Loop     Close     Label11.Caption = "Mhz"         For n = 0 To 23         MSChart1.RowLabel = n                 Select Case cboParametar.Text             Case Is = "PARAMETARX"                 MSChart1.Data = podacizagrafik(n)                         Case Else                 MSChart1.Data = Val(podacizagrafik(n)) / 10         End Select     Next n End Sub Private Sub opt2D_Click()     Label13.Visible = True     If optLinija.Value = True Then         MSChart1.chartType = 3         Else             MSChart1.chartType = 5     End If End Sub Private Sub opt3D_Click()     Label13.Visible = False     If optLinija.Value = True Then         MSChart1.chartType = 2         Else             MSChart1.chartType = 4     End If End Sub Private Sub optLinija_Click()     If opt2D = True Then         MSChart1.chartType = 3         Else             MSChart1.chartType = 2     End If End Sub Private Sub optPovrsina_Click()     If opt2D = True Then         MSChart1.chartType = 5         Else             MSChart1.chartType = 4     End If End Sub Public Sub Dobijanjeimenameseca()     redbrmeseca = Val(cboMesec.Text)       Select Case redbrmeseca         Case Is = 1         mesec = "JANUAR"         Case Is = 2         mesec = "FEBRUAR"         Case Is = 3         mesec = "MART"         Case Is = 4         mesec = "APRIL"         Case Is = 5         mesec = "MAJ"         Case Is = 6         mesec = "JUN"                 Case Is = 7         mesec = "JUL"         Case Is = 8         mesec = "AVGUST"         Case Is = 9         mesec = "SEPTEMBAR"         Case Is = 10         mesec = "OKTOBAR"         Case Is = 11         mesec = "NOVEMBAR"         Case Is = 12         mesec = "DECEMBAR"     End Select End Sub

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

evo i ja da upadnem ...
Kako si uradio da imas ulazne podatke sa seriskog porta, ako ti nije problem mozes li da okacis program kad ga zavrsis ... Pretpostavljam da taj termometar ili sta je vec ima svoj seriski port, ali kako si ga ucitao u formu, tj u textbox??

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pa ucitavanje podataka sa serijskog port sam uradio odavno, jos u Quick basicu, tada nije postojao visual basic. Kada stignem prepravicu kod za visual basic.