Visual Basic

[Sedes]

OK, 'k heb morgen examen visual basic en al een paar vragen hoort van de andere groepen:

één ervan: Een programma dat test of een woord een palindroom is (bv lepel)

ik raak dus echt niet aan de oplossing
Wat ik momenteel heb:

Private Sub Command1_Click()
Dim tekst As String
Dim result As Integer
Dim i As Integer
tekst = Text1.Text
result = 0
n = Len(tekst) \ 2

For i = 0 To n
If Left(tekst, i) = Right(tekst, i) Then
result = result + 1
Else
End If
Next i
If result = n Then
MsgBox "ja"
Else
MsgBox "nee"
End If
End Sub

dit werkt dus enkel maar voor woorden met 4 letters (had gedacht ook voor 6letters maar blijkbaar dus niet :s)

Dus mensen die vb kennen, help me

*edit* klein foutje gemaakt moest integerdeling zijn ipv gewone deling...
maaaar nu werkt het wel voor 4,5,6 letter woorden maar dus nog niet voor 2,3(ligt waarschijnlijk aan die +1) en meer dan 6

[Bazzemans]

Kijk eens op die site:

http://users.pandora.be/stefancr/TT%...alindromen.htm

als je daar wijs uit kan worden wat ze bij Visual Basic 5 doen, dan moet het vast wel lukken!

[ik_ben_de_man]

parterretrap

[Bazzemans]

Oorspronkelijk geplaatst door ik_ben_de_man
parterretrap

Daar heb je d'r echt mee

2002
10-11-01 (10 november 2001)

[Sedes]

Oorspronkelijk geplaatst door Bazzemans
Daar heb je d'r echt mee

2002
10-11-01 (10 november 2001)

sedes


En dat van visual basic 5 is snap de grote lijnen wel (zijn ook die dat ik zelf heb opgeschreven) maar staan dingen in dat we niet hebben gezien in onze curusus en 'kdenk wel dat we enkel maar met de dingen uit onze cursus het zouden moeten kunnen oplossen

[Bazzemans]

Oorspronkelijk geplaatst door Sedes
sedes


En dat van visual basic 5 is snap de grote lijnen wel (zijn ook die dat ik zelf heb opgeschreven) maar staan dingen in dat we niet hebben gezien in onze curusus en 'kdenk wel dat we enkel maar met de dingen uit onze cursus het zouden moeten kunnen oplossen

Ja dat snap ik . Ik heb zelf ook de ballen verstand van Visual Basic, dus ik kan je alleen helpen met dergelijke links, in de hoop dat je daarop op een idee komt om het op te lossen met de stof die je wel gehad hebt. Als ik jou was zou ik ook gewoon daarnaar zoeken..

Ik heb ook niks verstand van visual basic maar wij hebben examen java gehad en daar moesten we ook kijken of het een palindroom was..

hoe ik het opgelost heb is de string inlezen als een rij van karakters, en dan met een lus de rij omgekeerd afgaan en op slaan in een andere rij..
dan heb ik de 2 rijen vergeleken en als ze dezelfde waren waren het palindromen..

ik heb geen idee wat visual basic is maar misschien heb je hierbij een idee om het op een andere manier te doen

[Bazzemans]

Dat klinkt op zich wel logisch! Gewoon een vergelijking maken tussen rij1 en rij 2 dan uiteindelijk of niet?

[Sedes]

Oorspronkelijk geplaatst door Bazzemans
Dat klinkt op zich wel logisch! Gewoon een vergelijking maken tussen rij1 en rij 2 dan uiteindelijk of niet?

nja, nu vergelijk ik de linkerkant met de rechtkant van het woord tot in het midden via een lus...
ongeveer hetzelfde.. enkel snap ik niet waarom het niet werkt bij woorden langer dan 6letters :s

[Bazzemans]

Ja, maar is er geen functie te schrijven die eerst het hele woord omdraait? en dan vergelijken met het oorspronkelijk ingevoerde woord? Als dat dan hetzelfde is dan is het een palindroom en anders niet.. Dan maakt het aantal letters ook niet meer uit..

Nogmaals, geen verstand van VB. Probeer gewoon logisch te beredeneren..

ja dat lijkt me ook gewoon het logischte en het makkelijkst

[Kampie]

Oorspronkelijk geplaatst door Bazzemans
Ja, maar is er geen functie te schrijven die eerst het hele woord omdraait? en dan vergelijken met het oorspronkelijk ingevoerde woord? Als dat dan hetzelfde is dan is het een palindroom en anders niet.. Dan maakt het aantal letters ook niet meer uit..

Nogmaals, geen verstand van VB. Probeer gewoon logisch te beredeneren..

en dat is het hele eieren eten

gewoon de makkelijkste weg kiezen.. is in VB vast wel een functie die dingen omkeert..

[Bazzemans]

tekst = Text1.Text
tekst2 = Iets van een functie om de omgekeerde van text1.Text te realiseren

If tekst = tekst2 Then
MsgBox "ja"
Else
MsgBox "nee"
End If

zoiets ofzo?

[Bazzemans]

Hoe is je examen nu uiteindelijk gegaan?

[koelkast]

zie dit te laat maar de truuk om zo iets op te lossen is dat je een stack functie gebruikt.

last in --> first out.

je propt alle letters in een stack dus het woord:
l-e-p-e-l

en vervolgens haal je de stack weer leeg (gezien deze last in first out is gaat dit achterstevoren (laatste letter eerst enz). vervolgens vergelijk je deze var met de originele var.

Indien gelijk is het een palindroom indien ongelijk dan niet.