Tein malliksi vb.net luokan, jossa on tasan yksi metodi: tekstin kääntäminen takaperin. Ylikommentoin, jotta asia menisi perille myös vb.net opiskelijoille.
'määritellään uusi luokka, jossa tekstin kääntö
Public Class RString
' sisäinen muuttuja jossa teksti on tallessa
'public jotta näkyy ulos
Public s As String
' muuttujan dimmausta varten alustus funktio
' asettaa sisäinen muuttujan DIM lauseessa annettuun arvoon
Public Sub New(ByVal st As String)
s = st
End Sub
Public Sub Reverse()
'putetaan sisäinen teksti kirjain taulukkoon
Dim Chars() As Char = s.ToCharArray()
' käännetään kirjaintaulukko takaperin
Chars.Reverse(Chars)
'tehdään käännetystä kirjaintaulukosta uusi teksti
s = New String(Chars, 0, Chars.Length)
End Sub
End Class'Soveltamis esimerkki kääntää sanan Putka takaperin
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' alustetaan ilmentymä luokasta RString
Dim st As RString = New RString("Putka")
st.Reverse() ' tässä teksti kääntyy
TextBox1.Text = st.s 'sisäinen muuttuja luetaan ja sijoitetaan textboxiin
End SubAihe on jo aika vanha, joten et voi enää vastata siihen.