Archief - Visual Basic

i

i386dx

Legacy Member

• 8 mrt 2005

• #1

Ik ben wat aan het prutsen in VB 5.0 (ja, ik weet dat het bucht is, maar het moet nu eenmaal voor school).

Ik zit hier te prutsen met de if then-structuur.
Is het mogelijk om in de conditie een AND te gebruiken? In de helpfile en in mijne boek wordt daar totaal niet over gesproken. Ik kan het wel ingeven en VB lijkt het te accepteren, maar mijn programma gaat totaal de mist in. Apart werken de condities wel, dus ze zijn juist.
Het lijkt mij onwaarschijnlijk dat dit niet zou werken; das toch de basis van de simpelste programmeertaal?

Iemand die kan bevestigen of het al dan niet werkt en of mijn syntax juist is?

Code:

If IsNumeric(EersteTextBox.Text) & EersteTextBox.Text <= 6 Then
  
  hier moet nog wa reutepeteut komen

  ElseIf EersteTextBox.Text = "" Then
    
  Else
    MsgBox ("Geef een waarde in tussen 0 en 6")
  End If

( er moet een getal ingelezen worden tussen 0 en 6, als de gebruiker de textbox leeg laat mag er niets gebeuren, als er een waarde groter dan 7 of bv een letter wordt ingegeven moet de foutmelding op het scherm komen anders moet hij de reutepeteut uitvoeren)

P

Perponcher

Legacy Member

• 8 mrt 2005

• #2

ik heb nooit met vb5.0 gewerkt, enkel met zijn .NET tegenhanger.

Daar wordt & gebruikt voor concatenatie van strings, And wordt gebruikt in logische structuren. Ik zou dat es proberen.

Iets a la:

If (IsNumeric(EersteTextBox.Text)) And (EersteTextBox.Text <= 6) Then

Ik weet trouwens niet of je een string gewoon kunt vergelijken met een integer. Het is altijd het beste om uw waarde van de textbox naar een getal om te zetten en dan te vergelijken, maar dat is waarschijnlijk inherent aan vb5.0

i

i386dx

Legacy Member

• 8 mrt 2005

• #3

Perponcher zei:

If (IsNumeric(EersteTextBox.Text)) And (EersteTextBox.Text <= 6) Then

Klik om te vergroten...

Dit leek mij nogal logisch (had dat ook al gebruikt) maar het werkt dus niet

C

Cakeman

Legacy Member

• 8 mrt 2005

• #4

i386dx zei:

Dit leek mij nogal logisch (had dat ook al gebruikt) maar het werkt dus niet

Klik om te vergroten...

Dit is fout: EersteTextBox.Text <= 6
Moet zijn: Int(EersteTextBox.Text) <= 6

P

Perponcher

Legacy Member

• 8 mrt 2005

• #5

mja, debuggen dan maar he

splits die controle eens op in verschillende iffen om te zien tot hoever hij komt

of laat ze op school eens verder evolueren naar een latere versie van vb

*edit: ah zoals cakeman het dus post, had het ook verteld in men vorige post*

i

i386dx

Legacy Member

• 8 mrt 2005

• #6

@cakeman: werkt nog steeds niet

het niet werken even verklaren:
als ik waarde 7 ingeef roept hij mooi de msgbox op (met of zonder diene int)
als ik niets of een letter ingeef krijg ik de melding

Runtime Error 13
type mismatch
vervolgens gaat em naar deze lijn:
If (IsNumeric(txtEerste.Text)) And (Int(txtEerste.Text) <= 6) Then

@perponcher
als ik elke controle apart uitvoer is er geen probeem en werkt alles; alleen moet het dus samenkomen hé...

C

Cakeman

Legacy Member

• 8 mrt 2005

• #7

De recente programmeertalen gaan de tweede voorwaarde niet controleren wanneer de eerste false is en er AND gebruikt is. VB5 blijkbaar nog wel...

Code:

If IsNumeric(txtEerste.Text) Then
  Select Case Int(txtEerste.Text)
    Case > 0
      MsgBox("Te klein")
    Case < 6
      MsgBox("Te groot")
    Case Else
      MsgBox("OK!")
  End Select
End If

J

Japy

Legacy Member

• 8 mrt 2005

• #8

Cakeman zei:

De recente programmeertalen gaan de tweede voorwaarde niet controleren wanneer de eerste false is en er AND gebruikt is. VB5 blijkbaar nog wel...

Code:

If IsNumeric(txtEerste.Text) Then
  Select Case Int(txtEerste.Text)
    Case > 0
      MsgBox("Te klein")
    Case < 6
      MsgBox("Te groot")
    Case Else
      MsgBox("OK!")
  End Select
End If

Klik om te vergroten...

als het groter is dan nul ist ook kleiner dan 6, dus als ge een getal van 0 tot 6 ingeeft blijft em te klein zeggen !

P

Perponcher

Legacy Member

• 9 mrt 2005

• #9

Conclusie, vb5.0 kent niet het kortsluitingsprinciepe -> met verschillende iffen werken blijft de oplossing

i

iterums

Legacy Member

• 9 mrt 2005

• #10

kent vb geen breaks?

O

Obliv`

Legacy Member

• 9 mrt 2005

• #11

nope, is niet nodig in vb

alleen in de zogenaamde symbolen talen (java, js, php,...) worde er normaal breaks gebruikt

C

Cakeman

Legacy Member

• 9 mrt 2005

• #12

Japy zei:

als het groter is dan nul ist ook kleiner dan 6, dus als ge een getal van 0 tot 6 ingeeft blijft em te klein zeggen !

Klik om te vergroten...

Oops, moest < 0 zijn

iTeRuMs: wanneer één case klopt, dan slaat VB de rest gewoon over.

O

Obliv`

Legacy Member

• 9 mrt 2005

• #13

Code:

If IsNumeric(txtEerste.Text) Then
  Select Case Int(txtEerste.Text)
    Case < 0
      MsgBox("Te klein")
    Case > 6
      MsgBox("Te groot")
    Case Else
      MsgBox("OK!")
  End Select
End If

zo moet het zijn, > en < stonden verkeerd