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.
Last edited by Bjwbell; Mar 2nd, 2001 at 02:07 AM.
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.
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.
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.
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.
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.
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.
Code:
'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
Reply With Quote
Screen Resolution!!
Try this...?
