B12f13
Anmeldungsdatum: 17.09.2011
Beiträge: 4
|
 Verfasst am: 24.09.2011, 17:59 Titel: E85-Rechner |
 |
|
Hi @ all
ich habe mithilfe von Qbasic einen Rentabilitätsrechner für Autofahrer gemacht die mit E85 fahren. E85-Wiki
Hier der Quellcode
| Code: |
CLS
SCREEN 12
PRINT "Rentabilitaetsrechner E85"
PRINT "Aktueller Preis Benzin/Super (Bsp. 1.65)"
INPUT " Preis -> ", K
PRINT "Aktueller Preis Bioethanol E85 (Bsp. 1.08)"
INPUT " Preis -> ", A
PRINT "Verbrauch auf 100 KM (Bsp. 9)"
INPUT " Liter -> ", L
PRINT ""
PRINT "Prozentualer Mehrverbrauch ca. 20%"
PRINT ""
PRINT "Tankinhalt (Bsp. 50)"
INPUT "Liter -> ", T
PRINT "Fahrleistung (Bsp. 25000)"
INPUT "KM/Jahr -> ", F
PRINT "Umbaukosten (Bsp. 570)"
INPUT "Preis -> ", U
LET b = K * L
LET e = A * L * 1.20
LET rb = T / L * 100
LET re = (T / (L * 1.20) * 100)
LET vb = K * T
LET ve = A * T
LET s = T * K - A * T
LET fb = (b / 100) * F
LET fe = (e / 100) * F
LET J1 = fb - fe - U
LET J2 = J1 + (fb - fe)
LET J3 = J2 + (fb - fe)
LET Z = U / (b - e) * 100
LET Z1 = Z / F
e = INT(e * 10 + .5) / 10
rb = INT(rb * 10 + .5) / 10
re = INT(re * 10 + .5) / 10
J1 = INT(J1 * 10 + .5) / 10
J2 = INT(J2 * 10 + .5) / 10
J3 = INT(J3 * 10 + .5) / 10
Z1 = INT(Z1 * 10 + .5) / 10
'Ergebnis'
COLOR 10, 0
MKDIR "c:\E85"
OPEN "c:\E85\E85.txt" FOR OUTPUT AS #1
PRINT "Benzin kosten auf 100 KM/ "; b; "Euro"
PRINT #1, "Benzin kosten auf 100 KM/ "; b; "Euro"; name$
WRITE #1, name$
PRINT "E85 kosten auf 100 KM/ "; e; "Euro"
PRINT #1, "E85 kosten auf 100 KM/ "; e; "Euro"; name$
WRITE #1, name$
PRINT "Reichweite mit Benzin -> "; rb; "Km *"
PRINT #1, "Reichweite mit Benzin -> "; rb; "Km *"; name$
WRITE #1, name$
PRINT "Reichweite mit E85 -> "; re; "Km *"
PRINT #1, "Reichweite mit E85 -> "; re; "Km *"; name$
WRITE #1, name$
PRINT "Preis Benzin/Tankinhalt -> "; vb; "Euro"
PRINT #1, "Preis Benzin/Tankinhalt -> "; vb; "Euro"; name$
WRITE #1, name$
PRINT "Preis E85/Tankinhalt -> "; ve; "Euro"
PRINT #1, "Preis E85/Tankinhalt -> "; ve; "Euro"; name$
WRITE #1, name$
PRINT "Ersparnis Benzin/E85 -> "; s; "Euro"
PRINT #1, "Ersparnis Benzin/E85 -> "; s; "Euro"; name$
WRITE #1, name$
PRINT "Benzin kosten pro Jahr -> "; fb; "Euro"
PRINT #1, "Benzin kosten pro Jahr -> "; fb; "Euro"; name$
WRITE #1, name$
PRINT "E85 kosten pro Jahr -> "; fe; "Euro"
PRINT #1, "E85 kosten pro Jahr -> "; fe; "Euro"; name$
WRITE #1, name$
PRINT "Ersparnis im 1.Jahr -> "; J1; "Euro"
PRINT #1, "Ersparnis im 1.Jahr -> "; J1; "Euro"; name$
WRITE #1, name$
PRINT "Ersparnis im 2.Jahr -> "; J2; "Euro"
PRINT #1, "Ersparnis im 2.Jahr -> "; J2; "Euro"; name$
WRITE #1, name$
PRINT "Ersparnis im 3.Jahr -> "; J3; "Euro"
PRINT #1, "Ersparnis im 3.Jahr -> "; J3; "Euro"; name$
WRITE #1, name$
PRINT "Rentabilitaet der Umruestung -> "; Z; "Km *"
PRINT #1, "Rentabilitaet der Umruestung -> "; Z; "Km *"; name$
WRITE #1, name$
PRINT "Rentabilitaet der Umruestung-> "; Z1; "Jahren **"
PRINT #1, "Rentabilitaet der Umruestung-> "; Z1; "Jahren **"; name$
WRITE #1, name$
PRINT ""
PRINT " * Kilometer sind vor dem Punkt, Meter hinterm Punkt."
PRINT #1, " * Kilometer sind vor dem Punkt, Meter hinterm Punkt."; name$
WRITE #1, name$
PRINT " ** Jahr/e vor dem Punkt, Monate (1 Zahl) hinterm Punkt."
PRINT #1, " ** Jahr/e vor dem Punkt, Monate (1 Zahl) hinterm Punkt."; name$
WRITE #1, name$
CLOSE #1
PRINT ""
COLOR 12, 0
PRINT " Powered by B12f13"
OPEN "c:\E85\E85.txt" FOR INPUT AS #1
INPUT #1, t$
CLOSE #1
PRINT
COLOR 14, 0
PRINT "Ergebnis gespeichert unter C:\E85 "
|
Das einzige Problem ist, ich haben in auf Win7 mit Qbasic für 64bit
Qbasic 64bit - Win7 geschrieben. Das Programm läuft nur wenn ich ungefähr die 15- 20 *dll datein mit hinzufüge. Die einzelne *exe funktioniert nicht, weil es nach den *dll fragt.
Gibt es eine möglichkeit die *dll mit der *exe zu verbinden.
P.s. Bin noch Anfänger mit Qbasic
MFG |
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
