list i graficki dijagram

list i graficki dijagram

offline
  • Pridružio: 22 Sep 2008
  • Poruke: 29
  • Gde živiš: Srbija

Pozzz svim Smile

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! Smile



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

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



offline
  • Pridružio: 22 Sep 2008
  • Poruke: 29
  • Gde živiš: Srbija

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.

offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

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

offline
  • Pridružio: 22 Sep 2008
  • Poruke: 29
  • Gde živiš: Srbija

Ok, kad nadješ postavi Smile Hvala!

offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

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

offline
  • Nemanja
  • Web Designer and Developer
  • Pridružio: 24 Jan 2007
  • Poruke: 266

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

offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

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.

Ko je trenutno na forumu
 

Ukupno su 703 korisnika na forumu :: 33 registrovanih, 4 sakrivenih i 666 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: _Sale, A.R.Chafee.Jr., Albin0, aleksmajstor, amaterSRB, Apok, Atomski čoban, comi_pfc, Cufo, danilopu, djboj, dragon986, Drug pukovnik, goflja76, goxin, ILGromovnik, janezek67, Jovan Nenad, lekso, Mar_ko, Mikulino, Mitogna, mnn2, moldway, nemkea71, pein, raketaš, Sale.S, Srle993, vasa.93, vathra, vlvl, x9