Thema: Spielerei mit VB Programmieren

[Hans]

Hier hab ich ein kleines Progrämmchen zum Thema VB
ganz einfach zum nach programmieren

Quelltext:

Sub ZeigeMeldung()
      MsgBox "Hallo Forum! Kleine Spielerei", , "Spielerei mit VB Programmieren"
End Sub


sicher das ganze kann man noch besser ausbauen und erweitern wenn ihr mehr so kleine spielerein wissen wollt dann schreibt einfach und ich werde noch ein paar tread einsetzen unteranderem auch ein paar Brauchbare Makros
Um Mit Hilfe wird natürlich gebeten

Gruß Hans

[Hans]

So Wie versprochen noch eine Kleine Spielerei mit VB-Programmieren Das Ganze Nennt sich dann Euro Rechner
Beschreibung:

Man gibt einen Beliebigen DM Betrag ein und Erhält dann den Genauen € Wert das kann man natürlich auch mit anderen Währungen machen

Es ist auch wieder ganz einfach zum Nach Programmieren

Die Zahlen die ich am anfag des Quelltextes geschrieben habe bitte beim Nach Programmieren weg lassen habe ich lediglich nur dazu geschrieben wegen der Erklärung zu den Einzelnen Punkten.

Quellcode:

01     Const DEF_TITEL = "Euro-Umrechner"
02     Const DEF_MSG_EINGABE = "Geben Sie den DM- Betrag ein:"
03     Const DEF_MSG_RESULT1 = "Betrag in DM:  "
04     Const DEF_MSG_RESULT2 = "Betrag in €  :   "
05     Const DEF_KURS = 1.95583
06    '----------------------------------------------------------------------------------------------------------------
07
08  Sub EuroRechner()
09     Dim nEingabe          'Variable zur Eingabespeicherung
10     Dim nFremdWg        'Variable zur Umrechnung der Eingabe
11
12     nEingabe  =  Val (InputBox(DEF_MSG_EINGABE, DEF_TITEL))
13     nFremdWg = nEingabe  / DEF_KURS       'Umrechnung durchführen
14
15     nEingabe  = Format (nEingabe, "#,##0.00")   'Eingabe formatieren
16     nFremdWg = Format (nFremdWg, "#,##0.00" ' Umrechnung formatieren
17
18    MsgBox DEF_MSG_RESULT1 & nEingabe & vbCrLf & _
19               DEF_MSG_RESULT2 & nFremdWg, vbInformation, DEF_TITEL
20 End Sub


Erklärung:

Zeilen 01-07
Hier werden die Konstanten bereitgestellt
Zeile 06
Ist nur zum Zurecht finden beim Programmieren
Zeilen 08 und 20
Hier sind anfang und end Bezeichnung
Zeilen 09 und 10
Das wichtigste schlechthin: die Verarbeitungs Variablen
Zeilen 12-13
Sind die Eingabe Möglichkeit
Zeilen 15-16
Formatierung des Wertes
Zeilen 18 und 19
Die Anzeige Boxen

 Ich wünsche euch noch viel Spaß beim Nach Programmieren:
Gruß Hans