🚀 go-pugleaf

"Sjoerd Schreuder" <sa_schreuder@wanadoo.nl> wrote in message
news:3C730AE7.40FF0F97@wanadoo.nl...
> De vraag is hartstikke compleet. En inderdaad: je moet OO kennis
> hebben om hem te beantwoorden. Laten we daarom eens kijken waarom
> Serve die vraag stelde. Hij reageerde op de volgende bewering van
> Jasper Simmer:
> * En op laag niveau kun je in VB net zo goed OO programmeren als
> * in JAVA of C.
> Serve (en ik ook) was het niet met die bewering eens, en vroeg
> om feiten voor die bewering door te vragen naar C of VB code
> voor een simpele OO opdracht.
>
> Dus eigenlijk wachten we nog steeds op Jasper Simmer, die eerst
> een zeer vergaande uitspraak doet en vervolgens nooit meer
> wat van zich laat horen als we hem vragen die bewering waar
> te maken.
>
> Zeker als het gaat om advies aan beginners, kun je onterechte
> claims niet onbestreden laten. En dat is wat hier gebeurde:
> een beginner vraagt advies, iemand geeft een totaal ongefundeerd
> antwoord, en wordt vervolgens teruggefloten. Dat jij je daarna
> aangevallen voelt, tja....
>
> [knip: C code die totaal geen antwoord op de vraag is]
>
> > Of was dit niet wat je bedoelde? Leg dan even uit wat je nog mist in
deze
> > code. Of geef de code eens in C++, dat zal het ook wel wat duidelijker
> > maken.

[knip C++ sample code]

> Verwachte output:
> BCBCBCBCBC
> Of afhankelijk van je vulalgorithme elke andere volgorde van B's en C's.
>
> Succes met je implementatie in C!
Ik las ergens anders dat het ook voor VB werd gevraagd, dus hier komt het.

'  Class A:
Option Explicit

Public Sub Foo()
End Sub

'  Class B
Option Explicit

Implements A

Private Sub A_Foo()
  Debug.Print "B"
End Sub

'  Class C
Option Explicit

Implements A

Private Sub A_Foo()
  Debug.Print "C"
End Sub

'  Module
Option Explicit

Const Size As Integer = 10

Sub Main()
  Dim col(Size) As A
  Dim i As Integer

  Vul col(), Size
  For i = 0 To Size - 1
      col(i).Foo
  Next i
End Sub

Sub Vul(Collection() As A, Size As Integer)
  Dim i As Integer

  For i = 0 To Size - 1
      Select Case i Mod 2
        Case 0
          Set Collection(i) = New B
        Case 1
          Set Collection(i) = New C
      End Select
  Next i
End Sub

Overigens beweer ik niet dat VB helemaal OO is, er is geen eens een
mogelijkheid tot inheritance. VB.Net is overigens helemaal OO.

  Salar