mirror of https://github.com/lianthony/NT4.0
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
29 lines
996 B
29 lines
996 B
Global DispCalc As Object ' Calculator object, scope is global to application.
|
|
|
|
Sub Main ()
|
|
|
|
' Get a number to put in calculator.
|
|
x = InputBox("Enter a number to begin with.")
|
|
If x = "" Then Exit Sub ' Check if canceled,
|
|
|
|
Set DispCalc = CreateObject("dispcalc.application") ' Create new instance of calculator.
|
|
|
|
DispCalc = x ' Assign x to DispCalc's default property.
|
|
DispCalc.Display ' Display value.
|
|
|
|
' Initialize data in listbox.
|
|
frmDriver.lstScript.AddItem "Cube"
|
|
frmDriver.lstScript.AddItem "Count down"
|
|
frmDriver.lstScript.AddItem "Decrement"
|
|
frmDriver.lstScript.AddItem "Factorial"
|
|
frmDriver.lstScript.AddItem "Increment"
|
|
frmDriver.lstScript.AddItem "Square"
|
|
frmDriver.lstScript.AddItem "Square root"
|
|
frmDriver.lstScript.AddItem "Tangent"
|
|
frmDriver.lstScript.AddItem "Quit"
|
|
|
|
' Display form.
|
|
frmDriver.Show
|
|
|
|
End Sub
|
|
|