Code Module und Klassenmodule

Code Module und Klassenmodule via Function
Herkömmliche Realisierung mit Codemodul Benutzen einer einfachen Klasse
' Referenzierung des Objekts
  Private myObj As CRechne
Private Sub Form_Load()
' Instanzierung des Objekts
Set myObj = New CRechne
End Sub
Private Sub txtTextbox_KeyUp(Index As Integer, _ Private Sub txtTextBox_KeyUp(Index As Integer, _
KeyCode As Integer, Shift As Integer) KeyCode As Integer, Shift As Integer)
Dim brutt!, nett!, mws! Dim brutt!, nett!, mws!
' Textfelder => Variablen (Eingabe) ' Textfelder => Variablen (Eingabe)
brutt = Val(txtTextbox(0)) brutt = Val(txtTextBox(0))
nett = Val(txtTextbox(1)) nett = Val(txtTextBox(1))
mws = Val(txtTextbox(2)) mws = Val(txtTextBox(2))
' Berechnung (Benutzen der Prozeduren des Codemoduls) ' Berechnung (Benutzen der Methoden des Objekts)
Select Case Index Select Case Index
Case 0: nett = netto(brutt, mws) Case 0: nett = myObj.netto(brutt, mws)
Case 1, 2: brutt = brutto(nett, mws) Case 1, 2: brutt = myObj.brutto(nett, mws)
End Select End Select
' Variablen => Textfelder (Ausgabe) ' Variablen => Textfelder (Ausgabe)
If Index <> 0 Then txtTextbox(0) = Format$(brutt, "#,##0.00") If Index <> 0 Then txtTextBox(0) = Format$(brutt, "#,##0.00")
If Index <> 1 Then txtTextbox(1) = Format$(nett, "#,##0.00") If Index <> 1 Then txtTextBox(1) = Format$(nett, "#,##0.00")
End Sub End Sub
Private Sub txtTextbox_KeyPress(Index As Integer, _ Private Sub txtTextBox_KeyPress(Index As Integer, _
KeyAscii As Integer) KeyAscii As Integer)
' korrigiert Dezimalkomma ' korrigiert Dezimalkomma
If KeyAscii = 44 Then KeyAscii = 46 If KeyAscii = 44 Then KeyAscii = 46
End Sub End Sub
Private Sub cmdEnde_Click() Private Sub cmdEnde_Click()
Unload Me Unload Me
End Sub End Sub
Codemodul Klassenmodul CRechne
Option Explicit Option Explicit
Public Function netto(brutto As Single, mwst As Single) _ Public Function netto(brutto As Single, mwst As Single) _
As Single As Single
' Funktionsname wird zugewiesen netto = brutto / (1 + mwst)
netto = brutto / (1 + mwst) End Function
End Function
Public Function brutto(netto As Single, mwst As Single) _ Public Function brutto(netto As Single, mwst As Single) _
As Single As Single
' Funktionsname wird zugewiesen brutto = netto * (1 + mwst)
brutto = netto * (1 + mwst) End Function
End Function
.

Mehr Tipps: Ampel programmieren

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt