Graphing program

[Bjwbell]

I've uploaded my graphing program and a ReadMe file so try it out.

Just uploaded a new one with a couple of fixes.

[Good Dreams]

I didn't quite understand how does your program works.
When I press space the error 13 occurs.

And put the form's AutoRedraw property set to True so that the axes won't disappear once in a while.

I also work with graphs and stuff like that and I was curious about this program.

[Bjwbell]

Here's the source.
Thanks for telling me about uploading the source instead of exe's.
the source is a bit different since i've made a couple of improvements.

[parksie]

Does anyone have replacements for Replace, Split and all that lot, please? It doesn't work on mine.

PS: Is modGraph.bas needed?

Damn VB6...I had to change the project file in about 8 places :mad:

[Good Dreams]

I believe that many people don't bother to have the maximum resolution, but you shouldn't think that all have good monitors OR good eyes to support a high resolution.:rolleyes:

If you want your program to be used by others, you should make it accessible to all.
Make a second form with the buttons and the text boxes. That's more practical!

And I don't care if I'm the only one who uses low screen resolution. I'm only caring about my eyes and whoever uses this computer.

I'm 16 years, I don't wear glasses and don't intend to.

[parksie]

I destroy my eyes with 1024x768 on a 14" :D

But you do have a point, and I would suggest having a resizable window that moves everything around as necessary.

[Good Dreams]

That's a good idea of a resizable window.
There are so many things a guy can do, so why to sacrifice our eyes?
Maybe I'm overreacting... but it's very sad, one day, to look at some one out of focus.

[parksie]

I used to wear glasses for a muscle problem in my eyes but I don't need them now...although when I'm tired I go really long-sighted.

[Bjwbell]

Thanks for all the suggestions.
I've made it so all the controls for graphing are on a different form so you can have the graphing for any size you want.

[Bjwbell]

Here's the new program. i forgot too add it too the last post.

[parksie]

Well...does anyone have replacements?

[Bjwbell]

this is the closest i got got.

Function Replace2(Exspression As String, Find As String, Replace As String)
Dim strTheString As String
Dim intLen As Integer
Dim Temp As String
Dim strReturn As String
Dim i As Integer
Dim j As Integer
Dim Bool As Boolean
strTheString = Exspression
intLen = Len(strTheString)
For i = 1 To intLen
Temp = Mid(strTheString, i, 1)
If Temp = Find Then
Temp = Replace
End If
strReturn = strReturn + Temp

Next
Replace2 = strReturn
End Function


It will work for my program because i only replace X with a number.

[[Digital-X-Treme]]

I had a quick look through the source code, and you seem to be 'over complicating' the stack issue with collections and UDTs. Try using the following stack class that i coded for use in my expression calculator. It is nice and simple. Other functions, such as Peek() (to view the top element) cold easily be added.


'CStackNUM.cls - Stack for dealing with numerical elements. All data is stored as doubles.
Option Explicit

Private mArray() As Double
Private mintLevel As Integer 'Store the depth of the stack.

Private Sub Class_Initialize()
mintLevel = 0
End Sub

'Pop the top element from the stack
Public Function Pop() As Double
Dim retDbl As Double

'Check to see if we have any elements to pop
If mintLevel > 0 Then

retDbl = mArray(mintLevel)
mintLevel = mintLevel - 1
ReDim Preserve mArray(mintLevel)
Pop = retDbl

Else
MsgBox "Error. Stack Empty."
Exit Function
End If

End Function

'Push an element onto the stack
Public Sub Push(ByVal Element As Double)

mintLevel = mintLevel + 1
ReDim Preserve mArray(mintLevel)
mArray(mintLevel) = Element

End Sub


Hope this helps.

Laterz

[Bjwbell]

Thanks Digital-X-Treme

I've added some stuff to the prgram, you can graph more than one function and get the intercection between two functions.

[Bjwbell]

You can Now get the Minuimum and Maximum of a function in a given interval.

[Bjwbell]

Just fixed a couple of bugs.

Does anyone know where i can get the Microsoft Script Control?

[[Digital-X-Treme]]

For the MS Script Control, go to PROJECT>>COMPONENTS, and scroll down and select Microsoft Scrip Control. Voila :)

Later

[Bjwbell]

I don't have it so i need too download it.