Hallo,
vor ein paar Wochen hatte ich ja schon mal ein paar Fragen zur Namensammlung gestellt. Mein Programm funktioniert jetzt so wie es funktionieren soll, allerdings soll ich noch ein paar Änderungen vornehmen.
Zur Erklärung des Programms:
Man gibt am Anfang die Daten (Name, Geburtsdatum, Haarfarbe) von 5 Personen ein. Diese kann man sich dann auf einer 2ten Form anzeigen lassen. Nun hat man 5 Personen mit möglicherweise 5 verschiedenen Nachnamen. Nun gibt es auf der 2ten Form einen Button der "Heiraten" heißt, womit man 2 Personen der 5 Personen "heiraten" lassen kann. Dabei kann man auswählen, ob der Nachname des Mannes übernommen wird, der Nachname der Frau, oder ob ein Doppelname angenommen wird. Das ganze habe ich jetzt relativ umständlich so umgesetzt:
Ich soll das ganze nun in eine Class schreiben (welche schon existiert). Diese sieht immoment so aus:
Am Ende soll man im Prinzip also einfach in den Code schreiben können "Doppelname" und dann wird der Doppelname gebildet. Allerdings weiß ich gar nicht wie das in die Class reingeschrieben werden soll. Als Function oder als Public Sub? Was bietet sich da an?
Mit freundlichem Gruß
vor ein paar Wochen hatte ich ja schon mal ein paar Fragen zur Namensammlung gestellt. Mein Programm funktioniert jetzt so wie es funktionieren soll, allerdings soll ich noch ein paar Änderungen vornehmen.
Zur Erklärung des Programms:
Man gibt am Anfang die Daten (Name, Geburtsdatum, Haarfarbe) von 5 Personen ein. Diese kann man sich dann auf einer 2ten Form anzeigen lassen. Nun hat man 5 Personen mit möglicherweise 5 verschiedenen Nachnamen. Nun gibt es auf der 2ten Form einen Button der "Heiraten" heißt, womit man 2 Personen der 5 Personen "heiraten" lassen kann. Dabei kann man auswählen, ob der Nachname des Mannes übernommen wird, der Nachname der Frau, oder ob ein Doppelname angenommen wird. Das ganze habe ich jetzt relativ umständlich so umgesetzt:
Visual Basic-Quellcode
- Dim p(5) As New Personen
- Dim a As Integer 'Person 1
- Dim b As Integer 'Person 2
- Dim tb(5) As TextBox 'textboxen des Nachnamens
- Dim tbb(5) As TextBox 'textboxen des Geschlechts
- Private Sub cbSpeichern_Click()
- p(a).Geschlecht = tbb(a).Text
- p(b).Geschlecht = tbb(b).Text
- p(a).Nachname = tb(a).Text
- p(b).Nachname = tb(b).Text
- If ob1 = True Then
- If p(a).Geschlecht = 1 Then
- p(b).Nachname = p(a).Nachname
- tb(b).Text = p(b).Nachname
- Else
- p(a).Nachname = p(b).Nachname
- tb(a).Text = p(a).Nachname
- End If
- Else
- End If
- If ob2 = True Then
- If p(a).Geschlecht = 0 Then
- p(b).Nachname = p(a).Nachname
- tb(b).Text = p(b).Nachname
- Else
- p(a).Nachname = p(b).Nachname
- tb(a).Text = p(a).Nachname
- End If
- Else
- End If
- If ob3 = True Then
- p(a).Nachname = p(a).Nachname
- p(b).Nachname = p(b).Nachname
- tb(a).Text = p(a).Nachname & "-" & p(b).Nachname
- tb(b).Text = p(b).Nachname & "-" & p(a).Nachname
- Else
- End If
- End Sub
- Private Sub Form_Load()
- a = InputBox("Gib die Nummer der ersten Person ein, die heiratet.")
- b = InputBox("Gib die Nummer der zweiten Person ein, die heiratet.")
- Set tb(1) = Form2.p1nach
- Set tb(2) = Form2.p2nach
- Set tb(3) = Form2.p3nach
- Set tb(4) = Form2.p4nach
- Set tb(5) = Form2.p5nach
- Set tbb(1) = Form2.p1ges
- Set tbb(2) = Form2.p2ges
- Set tbb(3) = Form2.p3ges
- Set tbb(4) = Form2.p4ges
- Set tbb(5) = Form2.p5ges
- End Sub
Ich soll das ganze nun in eine Class schreiben (welche schon existiert). Diese sieht immoment so aus:
Visual Basic-Quellcode
- Private Kdatum As Date
- Private Khaarfarbe As String
- Private Khaarfarbe1 As String
- Private Kvorname As String
- Private Knachname As String
- Private Kgeschlecht As Integer
- 'geschlecht
- Public Property Let Geschlecht(ByVal Pgeschlecht As Integer)
- Kgeschlecht = Pgeschlecht
- End Property
- Public Property Get Geschlecht() As Integer
- Geschlecht = Kgeschlecht
- End Property
- 'datum
- Public Property Let Datum(ByVal Pdatum As Date)
- Kdatum = Pdatum
- End Property
- Public Property Get Datum() As Date
- Datum = Kdatum
- End Property
- 'haarfarbe
- Public Property Let Haarfarbe(ByVal Phaarfarbe As String)
- Khaarfarbe = Phaarfarbe
- End Property
- Public Property Get Haarfarbe() As String
- Haarfarbe = Khaarfarbe
- End Property
- 'haarfarbe 1
- Public Property Let haarfarbe1(ByVal Phaarfarbe1 As String)
- Khaarfarbe1 = Phaarfarbe1
- End Property
- Public Property Get haarfarbe1() As String
- haarfarbe1 = Khaarfarbe1
- End Property
- 'alter
- Public Function alter() As Integer
- alter = (Date - Datum) / 365
- End Function
- 'vorname
- Public Property Let Vorname(ByVal Pvorname As String)
- Kvorname = Pvorname
- End Property
- Public Property Get Vorname() As String
- Vorname = Kvorname
- End Property
- 'nachname
- Public Property Let Nachname(ByVal Pnachname As String)
- Knachname = Pnachname
- End Property
- Public Property Get Nachname() As String
- Nachname = Knachname
- End Property
Am Ende soll man im Prinzip also einfach in den Code schreiben können "Doppelname" und dann wird der Doppelname gebildet. Allerdings weiß ich gar nicht wie das in die Class reingeschrieben werden soll. Als Function oder als Public Sub? Was bietet sich da an?
Mit freundlichem Gruß