Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe
Liste
Übersicht / Liste
Neu
Datei hochladen
Suche
Quellcode suchen
Download
Dateidownload

Funktionsrechner

Uploader:MitgliedSiedlerchr
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