|
Poslao: 03 Avg 2009 18:44
|
offline
- Error_92
- Novi MyCity građanin
- Pridružio: 22 Sep 2008
- Poruke: 29
- Gde živiš: Srbija
|
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!
|
|
|
|
|
Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
|
|
|
|
|
Poslao: 06 Avg 2009 19:11
|
offline
- Error_92
- Novi MyCity građanin
- 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.
|
|
|
|
|
|
|
Poslao: 06 Avg 2009 19:41
|
offline
- rgdrajko
- Građanin
- 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.
|
|
|
|
|
|
|
|
|
Poslao: 16 Apr 2010 23:29
|
offline
- rgdrajko
- Građanin
- 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
|
|
|
|
|
|
|
|
|
Poslao: 18 Apr 2010 09:26
|
offline
- rgdrajko
- Građanin
- 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.
|
|
|
|
|
|
