fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Funktionsrechner

Uploader:	Siedlerchr
Datum/Zeit:	17.08.2007 20:52:08

#INCLUDE "fbeval.bas"  'Eval Zubehör

#INCLUDE "stdeval.bas"

Color 2,0

Dim Result As Eval.Result



Dim i As Double,we As Double, f As String



Print "========================="

Print "Funktionsrechner: Setzt die Zahlen des Wertebereichs in die Funktion ein"

Print "-------------------------"

Print "EINGABEN:"





Input "Funktion";f 'Funktion: z.B x^4+6*x

Input"Wertebereich Anfang"; i 'Wird als x-Wert verwendet

Input "Wertebereich Ende";we

Print "========================="





'Berechnung



For i=i To we

    'Eval Variable setzen und verarbeiten

    Eval.SetVariable("x", i)

    Result = Eval.Execute(f)





    ? "fuer: x= " & i & Chr(10) & f & "=" &Result.Value

    Print "_____________" 'Sieht übersichtlicher aus

    Print "_____________"

Next i



Print  "========================="

Sleep

'Todo: Graphische Darstellung der Funktion

'Ausgabe in Datei?

'Hinweis: Muss im selben Verzeichnis von den SEE Dateien liegen

'Die Dateien sind die, die der Rechner benötigt:

'fbeval.bas

'stdeval.bas



'Die Dateien könnt ihr euch hier runterladen: (für 0.17 tauglich gemacht)

' http://jeak.de/Subpages/siedlerchr/downloads/see_ohne_call.zip

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.