Bauinformatik Teil 1 - Baustatik-Info-Server
Bauinformatik Teil 1 - Baustatik-Info-Server
Bauinformatik Teil 1 - Baustatik-Info-Server
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
Seite 16 <strong>Bauinformatik</strong> - <strong>Teil</strong> 1 - Übungsskript / 2011<br />
4.1.3 Schritt 3: Generieren eines Moduls für Funktion Summe<br />
Mit einem Rechtsklick auf den Objektbrowser<br />
öffnet sich ein Menü mit der<br />
Funktion Einfügen/Modul. In den eingefügten<br />
Modul ist der Programmcode<br />
einzutragen. Der Name des Moduls wird<br />
in den Eigenschaften auf Beispiel1 abgeändert.<br />
Das noch zu implementierende Programm<br />
Summe wird nun aus der<br />
Ereignisfunktion für das Klickereignis<br />
Abbildung 14: Beispiel: Schritt 3<br />
CommandButton1_Click() aufgerufen. Dazu ist die Zeile Beispiel1.Summe in die Ereignisfunktion<br />
einzutragen.<br />
Damit ergibt sich für die Ereignisfunktion folgender Code.<br />
Private Sub CommandButton1_Click()<br />
Beispiel1.Summe<br />
End Sub<br />
4.1.4 Schritt 4: Das Programm Summe<br />
Um das Programm Summe zu implementieren, ist der Modulordner Beispiel1 zu öffnen und der<br />
Programmcode im Editor wie folgt einzugeben.<br />
’ Summation aller ganzer Zahlen aus einem Zahlenintervall<br />
Public Sub Summe()<br />
’ Öffentliches Programm "Public Sub"<br />
Dim ivon As Integer<br />
Dim ibis As Integer<br />
Dim isum As Integer<br />
Dim i As Integer<br />
’ Deklarationen mit Dim<br />
’ Initialisierung<br />
isum = 0<br />
ivon = Range("VON")<br />
ibis = Range("BIS")<br />
’ Schleife über das Intervall<br />
For i = ivon To ibis<br />
isum = isum + i<br />
Next<br />
’ Rückgabe des Summenwerts nach EXCEL-Tabelle<br />
Range("SUM") = isum<br />
End Sub<br />
E. Baeck
Change language