Visual Basic + Laskin

Miksi tekisit laskimen uudelleen, jos se kerran löytyy Windows:sta? Voit nimittäin aina käynnistää tarvitessasi ko. laskimen ohjelmastasi käsin Shell-funktiolla ja lähettää (tarvittaessa) laskettavat jutut sille SendKeys-statementillä.

Ohessa ote VB:n SendKeys-helpistä:

Dim ReturnValue, I
ReturnValue = Shell("CALC.EXE", 1) ' Run Calculator.
AppActivate ReturnValue ' Activate the Calculator.
For I = 1 To 100 ' Set up counting loop.
SendKeys I & "{+}", True ' Send keystrokes to Calculator
Next I ' to add each value of I.
SendKeys "=", True ' Get grand total.
SendKeys "%{F4}", True ' Send ALT+F4 to close Calculator.

-Jonttu-

Millaisia ne sun haluamat kunnon kaavat on? Löytyyhän siitä suoraan kaikki sinit, cosinit, logaritmit, neliöjuuret sun muut. Monimutkaisempia kaavoja saa yhdistelemällä yksinkertaisia kaavoja. Siihen saa apua esim. taulukkokirjoista.

ScriptControllilla (MSSCRIPT.OCX)

Lisää Formille
ScriptControl ScriptControl1
CommandButton Command1
TextBox Text1

Koodi:
Private Sub Command1_Click()
   On Error Resume Next
   Text1.Text = ScriptControl1.Eval(Text1.Text)
   If 0 Err.Number Then MsgBox Err.Description
End Sub

Ohjelma käyntiin ja TextBoxiin kaavaksi
5 (22/7)*((6^6)/34*2) 7 Log(5)-Sin(7.2)
Paina CommandButtonia ja ihmettele

Tulokseksi pitäisi tulla
8638,29476164522