Benutzerprofil von darksider3

Öffentliches Profil

Allgemeine Informationen

Nutzergruppe:	Mitglieder
E-Mail-Adresse:	darksider3@live.de

Weitere Informationen sind nur für eingeloggte Benutzer sichtbar.

Statistische Informationen

Registriert seit:	23.09.2011
Letzter Besuch:	05.01.2013
Uploads:	0
Projekte:	1 [Auflisten]

Benutzerseite

NoPaste

Mein-FB-Space[Wichtige Uploads]

GTK-dlls

Tutorials

Kate für FreeBasic Optimieren

Meine "werke"

Momentan hab ich meinen mini taschenrechner:

#INCLUDE "vbcompat.bi"

#IFDEF __FB_WIN32__

    #PRINT Dieser Code ist zu allem kompatibel!

#ELSE

    #PRINT Dieser Code ist zu allem kompatibel!

Dim As Integer zahlen(1 To 2), ergebnis, i, wahl,a



Dim Verb(1 To 3) As String = { "subtrahieren", "dividieren", "addieren" }



Dim ReZe(1 To 3) As String = { "-"           , "/"         , "+"        }



Dim Zeit As String ' Ist fuer die Log-Datei



Dim ff As Integer 'fuer das freefile kommando



Dim buffing As String 'Fuer die Daten die in die Datei geschrieben werden sollen



Dim Rechnung As String 'Rechnung fuer den buffer

''-------------------------------------------------Funktionen

Declare function Plus(one AS INTEGER,two AS INTEGER) AS INTEGER

Declare function Minus(one AS Integer,two As Integer) AS INTEGER

Declare function Geteilt(one AS Integer,two As Integer) AS Integer



function Plus(one AS Integer, two As Integer) AS INTEGER

    DIM As Integer Erg

    Erg = one + two

    return Erg

End function

function Minus(one AS Integer, two As Integer) AS INTEGER

    DIM As Integer Erg

    Erg = one - two

    return Erg

End function

function Geteilt(one AS Integer, two As Integer) AS INTEGER

    DIM As Integer Erg

    Erg = one / two

    return Erg

End function

''------------------------------------------------Das Programm

COLOR 10



Print "Willkommen zu darksiders Rechenprogramm!"

Print



Do

    PRINT "M"; chr(148); "chten Sie etwas rechnen?"

    PRINT "0) Nein, lieber beenden."

    'Menue-Eintraege ausgeben:

    For i = 1 To UBound(Verb)

        PRINT Str(i); ") "; Verb(i)

    Next

    PRINT "Wahl (0-"; Str(UBound(Verb)); "): ";

    INPUT "",wahl

    'Fehlerueberpruefung:

    IF (wahl < 0) Or (wahl > UBound(Verb)) Then

        BEEP

        COLOR 12

        PRINT "Fehler! Diese Auswahl gibt es nicht!"

        PRINT

        COLOR 10

        CONTINUE DO  'Zurueck zum Schleifenanfang

    ELSEIF (wahl = 0) Then

        EXIT DO

    ELSE

        'OK, wenn wir hier ankommen, wurde etwas zwischen 1 und der hoehsten erlaubten

        'Zahl eingegeben, d.h. wir wollen etwas rechnen. Dazu brauchen wir Operanden.

        Print 'Leerzeile

        For i = 1 To UBound(zahlen)

            Print "Geben Sie die "; Str(i); ". Zahl ein, die Sie "; Verb(wahl); " wollen: ";

            Input "", zahlen(i)

        Next i

        Print

        'Aufgabe ausgeben:

        For i = 1 To UBound(zahlen)

            Print Str(zahlen(i)); " ";

            'Kommt noch eine Zahl?

            If (i < UBound(zahlen)) Then

                Print ReZe(wahl); " "; 'Rechenzeichen ausgeben

            End If

        Next i

        'Gleichheitszeichen:

        Print "= ";

        'Jetzt muessen wir es nur noch ausrechnen:

        ergebnis = zahlen(1)

        'Fuer alle eingegebenen Zahlen (ausser der ersten, die haben wir schon) machen wir:

        For i = 2 To Ubound(zahlen)

            If (wahl = 1) then

                Rechnung &= ergebnis

                Rechnung &= "-"

                Rechnung &= zahlen(i)

                Rechnung &= "="

                ergebnis = Minus(ergebnis,zahlen(i)) 'Neue Funktion Minus'

                Rechnung &= ergebnis

                Rechnung += " Next  "

                Rechnung += "\n"

            ElseIf (wahl = 2) Then

                Rechnung &= ergebnis

                Rechnung &= "/"

                Rechnung &= zahlen(i)

                Rechnung &= "="

                ergebnis = Geteilt(ergebnis,zahlen(i)) 'Neue funktion Geteilt'

                Rechnung &= ergebnis

                Rechnung += " Next  "

                Rechnung += "\n"

            ElseIf (wahl = 3) Then

                Rechnung &= ergebnis

                Rechnung &= "+"

                Rechnung &= zahlen(i)

                Rechnung &= "="

                ergebnis = Plus (ergebnis,zahlen(i)) 'Neue Funktion Plus von mua :o'

                Rechnung &= ergebnis

                Rechnung += " Next  "

                Rechnung += "\n"

            End If

        Next i

        'Fertig. Jetzt ausgeben:

        Print ergebnis

        Print 'wider leerzeile :p'

    END IF

Loop

'Konsole leeren'

CLS

PRINT "Zum beenden bitte eine Taste dr";WSTR("Ã¼");"cken "

'Uhrzeit speichern'

a = NOW

'Zeit umwandeln

Zeit = FORMAT( a, "dd.mm.yyyy, hh:mm:ss" )

'Datei oeffnen

buffing = "At "

buffing &= Zeit

buffing &= " was calculated "

buffing &= Rechnung

buffing &= "calculation"

buffing &= "||"

buffing += "\n"

ff = FREEFILE

OPEN "taschenrechner-log.log" FOR Append AS #ff

PUT #ff, ,buffing

CLOSE #ff

'Ende, auf tastendruck warten'



SLEEP:END

Anmerkung

Dieser Code ist nicht wirklich der von mir aktuellste stand dieses Taschenrechners, da ich ihn grade modifiziere ;) Ausserdem hat Sebastian dabei geholfen ;)

Letzte Bearbeitung: 20.11.2011