Does anyone care about DFS?
polite person
rkc
> I posted a reply to his scatter chart problem over 24 hours ago and still he hasn't replied!
>
Deeply.
Tim Marshall
> I posted a reply to his scatter chart problem over 24 hours ago and still he hasn't replied!
Please restate the problem you're having with Access. Perhaps we can
help you, but right now, we have no idea what your problem is.
8)
--
Tim http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "Whatcha doin?" - Ditto "TIM-MAY!!" - Me
DFS
> I posted a reply to his scatter chart problem over 24 hours ago and
> still he hasn't replied!
Still hasn't...
Lyle Fairfield
> I posted a reply to his scatter chart problem over 24 hours ago and still he hasn't replied!
Sure, I do. He's fine ... a bit prickly and no respecter of experience
or old age (especially mine), but that's OK. He has a mind and tries to
use it. One can actually understand what he writes! More often than not
he's right.Those traits put him in the top 5% of posters here.
polite person
>I posted a reply to his scatter chart problem over 24 hours ago and still he hasn't replied!
>
Well,nobody understood my post either.
Actually I was the only one who actually DID anything but I should have known better.
Lyle Fairfield
Geez! Not only do I know nothing about Scatter Charts but now I learn
that I know nothing about a post about a poster of a post about a post
about a scatter chart.
muttering ...
"Oh, somewhere in this favored land the sun is shining bright.
The band is playing somewhere, and somewhere hearts are light.
And, somewhere men are laughing, and little children shout,
but there is no joy in Mudville --
mighty Casey has struck out."
CDMAP...@fortunejames.com
> polite person wrote:
> > On Wed, 12 Jul 2006 18:55:54 GMT, polite person <sn...@snippers.com> wrote:
> >
> > >I posted a reply to his scatter chart problem over 24 hours ago and still he hasn't replied!
> > >
> >
> > Well,nobody understood my post either.
> > Actually I was the only one who actually DID anything but I should have known better.
>
> Geez! Not only do I know nothing about Scatter Charts but now I learn
> that I know nothing about a post about a poster of a post about a post
> about a scatter chart.
Ha! But that's only two strikes by my count Casey. You've still got
time...for another strike!!
>
> muttering ...
>
> "Oh, somewhere in this favored land the sun is shining bright.
> The band is playing somewhere, and somewhere hearts are light.
> And, somewhere men are laughing, and little children shout,
>
> but there is no joy in Mudville --
> mighty Casey has struck out."
It's interesting that words like 'playing,' 'children,' and 'mighty'
caused the Google Sponsored links all to go to Mighty World toys.
I'll try to find time this week to work on a PDF scatter chart mdb.
Any requests for features DFS? I care.
I'm thinking about small red circles with a black border for that
points. PDF has to use Bezier Curves for circles so I'm thinking along
these lines:
'PDF commands to draw a circle in a given color with the option to fill
in a color-----
Public Function DrawCircle(ByVal dblCenterX As Double, ByVal dblCenterY
As Double, ByVal dblRadius As Double, ByVal dblR As Double, dblG As
Double, dblB As Double, ByVal dblLineWidth, ByVal boolFill As Boolean,
Optional ByVal dblFillR As Double, Optional ByVal dblFillG As Double,
Optional ByVal dblFillB As Double) As String
Dim strTemp As String
Dim strCR As String
Const CRatio = 0.55228475
DrawCircle = ""
If boolFill Then
If IsMissing(dblFillR) Or IsMissing(dblFillG) Or IsMissing(dblFillB)
Then
MsgBox ("Fill color values are required.")
Exit Function
ElseIf Abs(dblFillR - 0.5) > 0.5 Or Abs(dblFillG - 0.5) > 0.5 Or
Abs(dblFillB - 0.5) > 0.5 Then
MsgBox ("Fill color values must be between 0 and 1.")
Exit Function
End If
End If
strCR = Chr(13)
strTemp = "q" & strCR
strTemp = strTemp & CStr(dblLineWidth) & " w" & strCR
If boolFill Then
strTemp = strTemp & CStr(dblFillR) & " " & CStr(dblFillG) & " " &
CStr(dblFillB) & " rg" & strCR
End If
strTemp = strTemp & CStr(dblR) & " " & CStr(dblG) & " " & CStr(dblB) &
" RG" & strCR
strTemp = strTemp & CStr(dblCenterX + dblRadius) & " " &
CStr(dblCenterY) & " m" & strCR
strTemp = strTemp & CStr(dblCenterX + dblRadius) & " " &
CStr(dblCenterY + CRatio * dblRadius) & " " & CStr(dblCenterX + CRatio
* dblRadius) & " " & CStr(dblCenterY + dblRadius) & " " &
CStr(dblCenterX) & " " & CStr(dblCenterY + dblRadius) & " c" & strCR
strTemp = strTemp & CStr(dblCenterX - CRatio * dblRadius) & " " &
CStr(dblCenterY + dblRadius) & " " & CStr(dblCenterX - dblRadius) & " "
& CStr(dblCenterY + CRatio * dblRadius) & " " & CStr(dblCenterX -
dblRadius) & " " & CStr(dblCenterY) & " c" & strCR
strTemp = strTemp & CStr(dblCenterX - dblRadius) & " " &
CStr(dblCenterY - CRatio * dblRadius) & " " & CStr(dblCenterX - CRatio
* dblRadius) & " " & CStr(dblCenterY - dblRadius) & " " &
CStr(dblCenterX) & " " & CStr(dblCenterY - dblRadius) & " c" & strCR
strTemp = strTemp & CStr(dblCenterX + CRatio * dblRadius) & " " &
CStr(dblCenterY - dblRadius) & " " & CStr(dblCenterX + dblRadius) & " "
& CStr(dblCenterY - CRatio * dblRadius) & " " & CStr(dblCenterX +
dblRadius) & " " & CStr(dblCenterY) & " c" & strCR
If boolFill Then
strTemp = strTemp & "b" & strCR
End If
strTemp = strTemp & "S" & strCR
strTemp = strTemp & "Q" & strCR
DrawCircle = strTemp
End Function
'------
The call would be something like:
strXYDataStream = strXYDataStream &
DrawCircle(Round(dblXCenterPoints + DataRS("X") * dblPointsPerUnit, 3),
Round(dblYCenterPoints + DataRS("Y") * dblPointsPerUnit, 3), 2, 0.1,
0.1, 0.1, 0.3, True, 1#, 0#, 0#)
Some of the information found for drawing PDF circles was from
www.tinaja.com. The black border for the circle is actually 0.1 0.1
0.1 instead of 0 0 0 so it's not quite fully black. A small circle in
the center of the Adobe Reader screen can be seen using the following
layout text in my PDFLayoutViewer:
q
0.3 w
1 0 0 rg
0.1 0.1 0.1 RG
308 396 m
308 397.1045695 307.1045695 398 306 398 c
304.8954305 398 304 397.1045695 304 396 c
304 394.8954305 304.8954305 394 306 394 c
307.1045695 394 308 394.8954305 308 396 c
b
S
Q
Huge circles should require more than four Bezier Curves in order to
display properly. I did some autoscaling with the histogram program so
doing that would not be difficult. I think the UI will be the hardest
part. Titles are easy. A light gray grid underneath would be pretty
easy to do. I can also let the user choose landscape or portrait
through toggle buttons on a form and changing one of the PDF functions
(AddPage) to accept a boolean:
If boolPortrait Then
strTemp = strTemp & " /MediaBox [0 0 612 792]" & strCR
strTemp = strTemp & " /CropBox [0 0 612 792]" & strCR
Else
strTemp = strTemp & " /MediaBox [0 0 792 612]" & strCR
strTemp = strTemp & " /CropBox [0 0 792 612]" & strCR
End If
This might bring some joy.
James A. Fortune
CDMAP...@FortuneJames.com
DFS
Are you gabbing about me?
If so, that's [95%] nice of you to say. Wish I could hang out on cdma more,
but I'm swamped with work.
DFS
> I'll try to find time this week to work on a PDF scatter chart mdb.
> Any requests for features DFS? I care.
It's so nice to find people who care... sniff sniff...
But seriously, no need to burn your time unless you can't help yourself. My
hand-coded scatter chart works well for my needs:
http://www.angelfire.com/planet/dfs0/Scatter.PNG
See that datasheet on the right? As you scroll it, the current month is
highlighted in red on the chart. Kewl!
Here's the positioning code (added some height/width kludges to deal with
the labels in the corners). I may work on autoscaling (would be easy), but
the data sets have pretty tight ranges.
'X-AXIS POSITION
XPos = ((rs("X") - 0.8) / 0.2) * (0.5 * frm.scatterBox.Width)
If XPos <= 0 Then
XPos = 10
ElseIf XPos > frm.scatterBox.Width Then
XPos = frm.scatterBox.Width - 100
End If
frm("point" & i).Left = scatterLeft + XPos
'Y-AXIS POSITION
YPos = ((rs("Y") - 0.8) / 0.2) * (0.5 * frm.scatterBox.Height)
If YPos <= 0 Then
YPos = 10
ElseIf YPos > frm.scatterBox.Height Then
YPos = frm.scatterBox.Height - 300
End If
frm("point" & i).Top = scatterBottom - YPos
> I'm thinking about small red circles with a black border for that
> points. PDF has to use Bezier Curves for circles so I'm thinking
> along these lines:
<snip nice code>
Thanks for the offer.
CDMAP...@fortunejames.com
I think I need at least one person to request that I do the scatter
plot to justify spending time on it although it sounds fun. What you
have looks nice. I think the PDF output gives more flexibility
although being able to show a scrollable view of the data next to the
plot is very nice. I'd end up going into the graphics API to retain
the kind of flexibility I like in order to have that feature. The API
calls can handle the red month also, but I agree that it's a nice touch
either way. I'm glad it worked out for you.
James A. Fortune
CDMAP...@FortuneJames.com
Terry Kreft
http://www.dfsonline.co.uk/
They're forever interrupting my TV programmes with their "we've got a sale
on" adverts.
I'm guessing the scatter chart is to work out which 5 days of the year they
haven't got a sale on.
--
Terry Kreft
"polite person" <sn...@snippers.com> wrote in message
news:2ahab2tgt4gtd5sne...@4ax.com...
polite person
>I do
>http://www.dfsonline.co.uk/
Ha!