WinFuture-Forum.de: Einfaches Vbscript Mit Gui - WinFuture-Forum.de

Zum Inhalt wechseln

Hinweis

Alle neuen Themen werden vor der Veröffentlichung durch einen Moderator geprüft und sind deshalb nicht sofort sichtbar.
Seite 1 von 1

Einfaches Vbscript Mit Gui Wir Programmieren einen einfachen Prozentrechner in VBS mit GUI


#1 Mitglied ist offline   darkdongle 

  • Gruppe: aktive Mitglieder
  • Beiträge: 53
  • Beigetreten: 05. April 07
  • Reputation: 0
  • Wohnort:Dortmund
  • Interessen:Programmierung in vb6 un vbs.<br />Internetseitengestaltung (Referenz: http://g-gamer.tk)

geschrieben 05. April 2007 - 09:16

Vorab: Habe vorhin ausversehen auf Absenden geklickt und nciht mehr Zeit gehabt es fertig zu stellen.
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)
Die GUI werden wir auf HTML-Basis realisieren, mithilfe von einer *.hta Datei.
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"
	
>

&lt;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.
&lt;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"
>


&lt;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>&nbsp;</p>
<p><br><br>
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
<input type="button" value="Prozentwert berechnen" name="run_button"  onClick="Operation1">
<br><br><br><br><br><br>
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
<input type="button" value="Grundwert berechnen" name="run_button"  onClick="Operation2">
<br><br><br><br><br><br>
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
<input type="button" value="Prozentsatz berechnen" name="run_button"  onClick="Operation3">
</p><br>


Die <hta> und <&lt;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

0

Anzeige



Thema verteilen:


Seite 1 von 1

1 Besucher lesen dieses Thema
Mitglieder: 0, Gäste: 1, unsichtbare Mitglieder: 0