Lijftijsmeter

[wakmen]

Met deze programma kan je iemand zijn leeftijd heel snel te weten komen vul alleen zijn geboorte maand en jaar in en je komt het direct te weten.
Heb je nog vragen of weet je hoe ik het kan verbeteren plaats dan een reactie.
Download het hier.
http://www.mediafire.com/?eovic3bvty738sn

 

[JoZ1]

Grappig hoor

Hier wat verbeterpunten:

- Probeer dit soort fouten te voorkomen:

- Gebruik dat Infovenster als dialoog (child) van het Algemene venster.

 

[wakmen]

Hoe kan ik de 2 fout oplossen?
En weet je ook hoe ik vb dat je niet meer dan 2 cijfer in een textbox mag schrijven?
en dat je alleen cijfer kan schrijven?

 

[JoZ1]

Sowieso een Try-Catch blok toevoegen.

Dan zou je ook nog zo'n constructie kunnen plaatsen:

[cpp]'//Maand
If IsNumeric(TextBox1.Text) Then
If Int(TextBox1.Text) >= 1 And Int(TextBox1.Text) <= 12 Then
''//code
Else
MsgBox("Ongeldige maand.", 48, "Leeftijdmseter")
End If
Else
MsgBox("Ongeldige maand.", 48, "Leeftijdmseter")
End If

'//jaar
If IsNumeric(TextBox1.Text) Then
If Int(TextBox1.Text) >= 1 And Int(TextBox1.Text) <= Date.Today.Year + 1 Then
''//code
Else
MsgBox("Ongeldig jaar.", 48, "Leeftijdmseter")
End If
Else
MsgBox("Ongeldige jaar.", 48, "Leeftijdmseter")
End If[/cpp]

 

[wakmen]

ik heb de code bij button 1 "meet" geplaatst.
Maar nu heeft die telkens het melding van ongeldige maand en jaar.

 

[JoZ1]

Je hebt de naam van de TextBoxen veranderd in de code??

 

[wakmen]

Nee
Ik bedoel als ik het programma start dan moet ik eerst de geboortedatum enz invullen en ik klik om meet dan heeft hij ongeldige maand en jaar en daarna heeft hij pas aan hou oud je bent.

 

[JoZ1]

Dus wat werkt er niet? Je hebt de code toch zeker wel in het Click Event van je 'meet'-button gezet?

 

[wakmen]

Ja daar heb ik het gezet.Het werkt maar ik krijg eerst een melding van "Ongeldige maand".En daarna krijg je pas te zien hoe oud je bent

 

[MartinJM]

Volgens mij is er een klein foutje gemaakt:

Je 'kijkt' voor het jaar en voor de maand naar dezelfde textbox...

Ik denk dat het zo wel werkt:
[CPP]'//Maand
If IsNumeric(TextBox2.Text) Then
If Int(TextBox2.Text) >= 1 And Int(TextBox2.Text) <= 12 Then
''//code
Else
MsgBox("Ongeldige maand.", 48, "Leeftijdmseter")
End If
Else
MsgBox("Ongeldige maand.", 48, "Leeftijdmseter")
End If

'//jaar
If IsNumeric(TextBox1.Text) Then
If Int(TextBox1.Text) >= 1 And Int(TextBox1.Text) <= Date.Today.Year + 1 Then
''//code
Else
MsgBox("Ongeldig jaar.", 48, "Leeftijdmseter")
End If
Else
MsgBox("Ongeldige jaar.", 48, "Leeftijdmseter")
End If[/CPP]

En dan moet het jaar in textbox1 laten invullen en de maand in textbox2 laten invullen.

Succes!:thumb:

 

[JoZ1]

Oh, natuurlijk

Ik testte het met dezelfde TextBox

 

[wakmen]

ER ZIT NOG STEEDS EEN FOUTE IN.
NU HEFT HIJ TELKENS EEN MELDING "ONGELDIGE MAAND"
NOG IETS.
IN TEXTBOX 1 MOET JE JE NAAM INVULLEN
IN TEXTBOX 2 JE GEBOORTEMAAND
EN IN TEXTBOX 3 JE GEBOORTEJAAR.MartinJM JE HEBT TEXTBOX 1 EN TEXTBOX 3 VERWISSELD DENK IK!

 

[MartinJM]

Even rustig, je kan aan de buitenkant niet zien welke textbox welke naam heeft. Daarom had ik er ook bijgezet dat het jaar in textbox1 moest zetten en de maand in textbox2..

 

[JoZ1]

@wakmen: Als je in hoofdletters je post typt, lijkt het net of je staat te schreeuwen...
Geef je code eens (en zeg hoe je textboxen heten).

Wij kunnen niet aanvoelen hoe jij je controls noemt.

 

[gast0224]

Misschien is het handig om eerst je objecten (tekstvelden, buttons etc) herkenbare namen.

 

[wakmen]

Sorry voor de hoofdletters.Ik had op de hoofdletters niet opgelet
Code die ik gebruik

code

   Dim message As String
            message = TextBox1.Text

            Dim message2 As Integer
            message2 = TextBox2.Text
            If TextBox2.Text <= 4 Then
            message2 = (2011 - TextBox3.Text)
            ElseIf TextBox2.Text >= 4 Then
                message2 = (2010 - TextBox3.Text)

De code die jullie hebben gegeven heb in onder de code die hier boven staat geplaatst!

Bekijk bijlage 148251

 

[JoZ1]

Dat kan niet je complete code zijn...

[edit] Hier overheen gelezen: De code die jullie hebben gegeven heb in onder de code die hier boven staat geplaatst![/edit]

 

[wakmen]

Ja wel hoor
allen end if ben ik vergeten er bij te zetten

 

[JoZ1]

[CPP]'//Maand
If IsNumeric(TextBox2.Text) Then
If Not Int(TextBox2.Text) >= 1 And Not Int(TextBox2.Text) <= 12 Then
MsgBox("Ongeldige maand.", 48, "Leeftijdsmeter")
Exit Sub
End If
Else
MsgBox("Ongeldige maand.", 48, "Leeftijdsmeter")
Exit Sub
End If

'//jaar
If IsNumeric(TextBox1.Text) Then
If Int(TextBox1.Text) >= 1 And Int(TextBox1.Text) <= Date.Today.Year + 1 Then
Dim message As String = TextBox1.Text
Dim message2 As Integer = TextBox2.Text
If message2 <= 4 Then message2 = (2011 - Int(TextBox3.Text))
ElseIf TextBox2.Text >= 4 Then message2 = (2010 - TextBox3.Text)
Else
MsgBox("Ongeldig jaar.", 48, "Leeftijdsmeter")
Exit Sub
End If
Else
MsgBox("Ongeldig jaar.", 48, "Leeftijdsmeter")
Exit Sub
End If[/CPP]

Kijk nog even naar de namen van de TextBoxen, die heb je nog steeds niet gegeven

 

[wakmen]

Jawel hoor de namen van de textboxen staan er wel zie bericht 16 titel "textboxen" het is een foto!
En nu krijg ik een error "End of statement expected."
Het foute heb ik vetgedrukt!

CPP Code:
'

//Maand
       If IsNumeric(TextBox2.Text) Then
            If Not Int(TextBox2.Text) >= 1 And Not Int(TextBox2.Text) <= 12 Then
                MsgBox("Ongeldige maand.", 48, "Leeftijdsmeter")
                Exit Sub
            End If
        Else
            MsgBox("Ongeldige maand.", 48, "Leeftijdsmeter")
            Exit Sub
        End If
 
'//jaar
        If IsNumeric(TextBox1.Text) Then
            If Int(TextBox1.Text) >= 1 And Int(TextBox1.Text) <= Date.Today.Year + 1 Then
                Dim message As String = TextBox1.Text
                Dim message2 As Integer  = TextBox2.Text
                If message2 <= 4 Then message2 = (2011 - Int(TextBox3.Text))
                ElseIf TextBox2.Text >= 4 Then [B]message2 = (2010 - TextBox3.Text)[/B]
            Else
                MsgBox("Ongeldig jaar.", 48, "Leeftijdsmeter")
                Exit Sub
            End If
        Else
            MsgBox("Ongeldig jaar.", 48, "Leeftijdsmeter")
           Exit Sub
        End If