[mano]

Ich suche ein einfaches Beispiel in Visual Basic, an dem ich die OOP erklären kann. Hat jemand eine Idee wo ich sowas finde?

Dieses Beispiel möchte ich dann als Gegensatz auch in PHP umschreiben, daher sollte es mit beiden Programmiersprachen machbar sein.

[Byrel]

Class Dingsbums
    Public Shared Sub Main()
        MsgBox ("Hello World")
    End Sub
End Class

[WarrenFaith]

Das ist ja sehr einfach
Ich hatte auch mal geschaut, aber für VB hab ich kein einfaches Beispiel gefunden. Ich würde dir eher vorschlagen, erst OOP in PHP und dann auf VB umschreiben.

[Byrel]

Ok :>. Dann halt ein etwas anspruchvolleres Beispiel

Public Class Person
    Public Vorname As String
    Public Nachname As String

    Public ReadOnly Property Name () As String
        Return Me.Vorname & " " & Me.Nachname
     End Property
     
     'Default Konstruktor
     Public Sub New ()
     End Sub

     Public Sub New (ByVal Nachname As String, ByRef Vorname As String)
         Me.Vorname = Vorname
         Me.Nachname = Nachname
      End Sub

      Public Overridable Sub DoSth ()
          'Implement some default behavior
      End Sub
End Class

Class Mano : Inherits Person
    Public Overrides Sub DoSth ()
       'Implement Manos behavior
    End Sub
End Class

//EDIT in PHP vergessen:

PHP-Code:


class Person {
    public $Vorname;
    public $Nachname;

    public function __construct ($Nachname, &$Vorname) {
       $this->Vorname = $Vorname;
       $this->Nachname = $Nachname; 
    }

    // das geht nicht gleich in PHP wie in VB.NET
    public function Name () {
        return $this->Vorname . " " . $this->Nachname;
    }

    public function doSth () {}
}

class Mano extends Person {

   public function doSth () {
      // implement something

   }
} 


[mano]

Wie kann ich bei VB die Klasse mit Werten füllen? Geht das ähnlich wie bei PHP und Wie kann ich sie ausgeben??

[Byrel]

Hää? Wie die Klasse mit Werten füllen?
Was ausgeben?

Auf die Konsole mit System.WriteLine ("blabla")
Das mit den Werte füllen versteh ich net ganz

MfG Byrel