Leerlingen.com Forum - Visual Basic

Leerlingen.com Forum (https://forum.leerlingen.com/vbb/index.php)

- Computers & Internet (https://forum.leerlingen.com/vbb/forumdisplay.php?f=23)

- - Visual Basic (https://forum.leerlingen.com/vbb/showthread.php?t=47755)

Sedes

24 June 2004 15:01

Visual Basic

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 8|
Wat ik momenteel heb:

Citaat:

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

24 June 2004 15:21

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

24 June 2004 15:22

parterretrap 8)

Bazzemans

24 June 2004 15:26

Citaat:

Oorspronkelijk geplaatst door ik_ben_de_man
parterretrap 8)

Daar heb je d'r echt mee :+

2002
10-11-01 (10 november 2001)

Sedes

24 June 2004 15:56

Citaat:

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

2002
10-11-01 (10 november 2001)

sedes :loser: :p

En dat van visual basic 5 is :huh: 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

24 June 2004 16:57

Citaat:

Oorspronkelijk geplaatst door Sedes
sedes :loser: :p

En dat van visual basic 5 is :huh: 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 :D. 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..

BlauweWolf

24 June 2004 17:13

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

24 June 2004 17:47

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

Sedes

24 June 2004 18:02

Citaat:

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

24 June 2004 18:10

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..

BlauweWolf

24 June 2004 18:28

ja dat lijkt me ook gewoon het logischte en het makkelijkst :+

Kampie

24 June 2004 18:30

Citaat:

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 :thumbsup:

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

Bazzemans

24 June 2004 22:13

Code:

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

29 June 2004 16:19

Hoe is je examen nu uiteindelijk gegaan?

koelkast

29 June 2004 23:39

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.

Alle tijden zijn GMT +1. De tijd is nu 03:04.