|
|||||||||
|
|||||||||
| |||||||||
|
|||||||||
|
|||||||||
| |||||||||
|
|
|
| |||||||||
 |
|
|
«
Previous Thread
|
Next Thread
»
|
Thread Tools | Search this Thread | Rate Thread | Display Modes |
Dev Shed Forums Sponsor:
|
|
|
|
#1
November 23rd, 2003, 01:22 AM
|
|||
|
|||
|
mschart problems
when i make my chart, the x-axis has days, 1-7, when i refresh the graph after updating it, the graph gets really squished together, why?
Last edited by spikeddem : November 23rd, 2003 at 01:55 AM.
|
|
#2
November 23rd, 2003, 03:30 PM
|
|||
|
|||
|
Code:
If (Time.Text = "This Week") Then
Open (App.Path & "\records\records.tkf.txt") For Input As #1
While iLines < 7
Line Input #1, temp$
sCurrentRecord = temp$
iLines = iLines + 1
iPos = InStr(sCurrentRecord, ">")
sMoney = Right(sCurrentRecord, (Len(sCurrentRecord) - iPos))
sMoney2 = Val(Right(sMoney, (Len(sMoney) - 1)))
iMoney = Val(sMoney2)
If (Left(sMoney, 1) = "+") Then
iMoneyOverTime = iMoneyOverTime + iMoney
Else
iMoneyOverTime = iMoneyOverTime - iMoney
End If
MSChart1.RowCount = 7
MSChart1.Column = 2
MSChart1.Row = iLines
MSChart1.Data = iMoneyOverTime
Wend
Close #1
iLines = 1
While iLines < 7
MSChart1.RowCount = 8
MSChart1.Column = 1
MSChart1.Row = iLines
MSChart1.Data = iLines
iLines = iLines + 1
Wend
the graph should sort the money, over days, the graph ends up looking like this: --------- | \ | | / | | / | | \ | | \ | | \ | -------- very skinny, and no labels(but it appears that the points that are put on are correct
|
|
| Viewing: Dev Shed Forums > Programming Languages - More > Visual Basic Programming > mschart problems |
| Thread Tools | Search this Thread |
| Display Modes | Rate This Thread |
|
|
 |
|
|
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
