Hallo.
Ich hatte mal wieder langeweile und nun Programmieren wir mal einen einfachen Prozentrechner
in VBS und fügen das ganze in eine Benutzeroberfläche (In HTML) ein.
Was wir benötigen:
- Einen Texteditor (Editor tuts da auch)
- Am besten dieses Tutorial
- die Mathematischen Prozentrechnungsformeln (Habe ich schon bereitgelegt)
Ich empfele euch wärmstens einen Ordner bspw. auf dem Desktop für das Script zu erstellen.
Ihr solltet euch mit HTML auch ein kleines bisschen auskennen, falls nicht erkläre ich euch gleich die gröbsten Funktionen.
Legt erstmal eine Datei an, und nennt diese "Text.hta".
Wieso .hta?
Wir schreiben eine Applikation in HTML rein - keine reine HTML-Datei.
HTML bedeutet "HyperTextMarkupLanguane"
und HTA "HyperTextApplikation". Verstanden?
In diese Datei schreibt ihr erstmal folgendes hinein:
<head> <title>Testdatei</title> <HTA:APPLICATION APPLICATIONNAME="Testdatei" SCROLL="no" WINDOWSTATE="normal" > <script language="VBScript"> Sub [b]Operation1[/b] MsgBox "Hallo!" End Sub </script></head><body> <input type="button" value="Prozentsatz berechnen" name="run_button" onClick="[b]Operation1[/b]">
Dies nur einmal um euch dass was dahinter steckt etwas näher zu bringen.
Der erste Tag <HTA>:
<HTA:APPLICATION APPLICATIONNAME="Prozentrechener" SCROLL="no" WINDOWSTATE="normal" >
wird benötigt, um einige Einstellungen festzulegen.
Applicationname ist der Name der Applikation bzw. Anwendung
Scroll gibt an, ob es bei längeren Oberflächen eine Scrollbar geben soll
Windowstate legt die Fenstergröße Fest (Es gibt noch Maximum und einige mehr, ist jetzt aber unwichtig).
Der Script Teil ist dagegen schon etwas komplizierter.
<script language="VBScript"> Sub [b]Operation1[/b] MsgBox "Hallo!" End Sub </script>
Die erste Zeile sagt dem Interpreter, dass es sich um VBScript handelt. Alternative: JScript, ist aber eher unberühmt. Danach, das werden einige schon aus VisualBasic kennen, kommen die einzelnen Sub´s wie bspw. in diesem Falle Operation1. Dieser Teil wird beim drücken des Buttons ausgeführt.
[m]MsgBox "Hallo!"[/m] gibt hingegen einen einfachen Text aus.
Letze Zeile sagt, dass das Script zuende ist.
<input type="button" value="Prozentsatz berechnen" name="run_button" onClick="[b]Operation1[/b]">positioniert den Button, wie in einer normalen HTML Datei auch. type = button ist klar, da wir eine Schaltfläche haben wollen. value = "Prozentsatz berechnen" ist der Titel der dort stehen soll und onClick ist der Name des Sub´s der beim Klick ausgeführt werden soll.
Hier poste ich mal den gesamten Quelltext des ganzen Programms und erklöre ihn dann:
(C) by darkdongle ============ <head> <title>Prozentrechner</title> <HTA:APPLICATION APPLICATIONNAME="Prozentrechener" SCROLL="no" SINGLEINSTANCE="yes" WINDOWSTATE="normal" SysMenu ="Yes" > <script language="VBScript"> Sub Operation1 grundwert = InputBox("Bitte den Grundwert eingeben: ","Prozentwert ausrechnen") prozentsatz = InputBox("Bitte den Prozentsatz eingben: ","Prozentwert ausrechnen") einprozent = 100 / Grundwert prozentwert = einprozent * prozentsatz MsgBox prozentsatz & " Prozent von " & grundwert & " sind: " & vbNewLine & prozentwert,, "Ihr Ergebnis ist Fertig!" End Sub Sub Operation2 prozentsatz = InputBox("Bitte den Prozentsatz eingeben: ","Grundwert ausrechnen") prozentwert = InputBox("Bitte den Prozentwert eingeben: ","Grundwert ausrechnen") einprozent = prozentwert / prozentsatz grundwert = einprozent * 100 MsgBox "Prozentwert: " & prozentwert & vbNewLine & "Prozentsatz: " & prozentsatz & vbNewLine & "Grundwert: " & grundwert,, "Ihr Ergebnis ist Fertig!" End Sub Sub Operation3 grundwert = InputBox("Bitte den Grundwert eingeben: ","Prozentsatz ausrechnen") prozentwert = InputBox("Bitte den Prozentwert eingeben: ","Prozentwert ausrechnen") var1 = grundwert / prozentwert MsgBox "Der Prozentsatz ist: " & var1,, "Ihr Ergebnis ist Fertig!" End Sub </script> </head> <body background="bg.gif"> <br><font face="Verdana" size="3" color="#efefef"><b>Prozentrechner auf HTML-Basis</b></font><p> </p> <p><br><br> <input type="button" value="Prozentwert berechnen" name="run_button" onClick="Operation1"> <br><br><br><br><br><br> <input type="button" value="Grundwert berechnen" name="run_button" onClick="Operation2"> <br><br><br><br><br><br> <input type="button" value="Prozentsatz berechnen" name="run_button" onClick="Operation3"> </p><br>
Die <hta> und <<script> Tags kennen wir bereits von unserem "Hallo!" Beispiel.
Sub Operation1 grundwert = InputBox("Bitte den Grundwert eingeben: ","Prozentwert ausrechnen") prozentsatz = InputBox("Bitte den Prozentsatz eingben: ","Prozentwert ausrechnen") einprozent = Grundwert / 100 prozentwert = einprozent * prozentsatz MsgBox prozentsatz & " Prozent von " & grundwert & " sind: " & vbNewLine & prozentwert,, "Ihr Ergebnis ist Fertig!" End Sub
Der Sub Operation1 wird definiert.
Der Inhalt der InputBox (Eingabemaske) wird in die Variable grundwert geschrieben.
Das Gleiche geschieht mit der Variable Prozentsatz, halt in die entsprechende Variable.
100 / Grundwert wird in die Variable einprozent geschrieben.
Der MsgBox Befehl gibt anschließend das Ergebnis aus.
Der Rest ist so oder so ähnlich schon erklärt worden.
Ich empfele desweiteren SelfHTML (Klick^^
Have Fun!
Viele Grüße,
darkdongle
Dieser Beitrag wurde von darkdongle bearbeitet: 05. April 2007 - 20:22