[RESOLVED] anybody using VB6?i need ur help!!

[chinating]

the question is:
the software should request that the passenger selects a seat number from 1 to 5. if a passenger selects a seat number which is already booked an error messenge should be displayed and the passenger asked to make another seat selection.This process should continue until an available seat is selected.


who can write the code of this bit 4 me? thanks very much!
ps:I have only learnt VB6 for a month, so it is very difficult for me!

[si_the_geek]

Moved from CodeBank forum (which is for code examples, not questions)

Welcome to VBForums!

I'm afraid we dont write peoples homework for them, but we will help with specific questions you have.

See how much of it you can do yourself, then ask us for help on specific issues when you get stuck (also showing us the code you have so far).

[chinating]

Private Sub cmdseat_Click()
Dim seatnumber As Integer
seat = txtnumber.Text
If seatnumber < 1 And seatnumber > 5 Then
MsgBox ("Please re-enter the seat number")
End If
End Sub


anything wrong with my code?

[MartinLiss]

If seatnumber < 1 And seatnumber > 5 Then

can never be True. You probably want Or instead of And.

[computafreak]

That code only works once per button click. Try using a Do While Loop instead. For your input mechanism, use Val() to filter out text

[MartinLiss]

Here is what computafreak and I are talking about

Private Sub cmdseat_Click()
 
Dim bValid As Boolean
 
Do Until bValid
    If Val(txtnumber.Text) < 1 Or Val(txtnumber.Text) > 5 Then
        MsgBox ("Please re-enter the seat number")
    Else
        bValid = True
    End If
Loop
 
End Sub

[MartinLiss]

Oh, and

Also to get your code to look like mine in a post do this

[vbcode]
'Your code
[/vbcode]

which will cause it to show up like this.

' Your code

[chinating]

but i havent learnt val bvalid etc.
i dont think i can use that in my code

[MartinLiss]

Okay then

Private Sub cmdseat_Click()
 
Do
    If txtnumber.Text < "1" Or txtnumber.Text > "5" Then
        MsgBox "Please re-enter the seat number"
    Else
        Exit Do
    End If
Loop
 
End Sub

[chinating]

the problem which i dont understand is

if i enter a number 4, assume that number 4 has already been booked by other passenger, how can i write the code that let the software know number 4 has been booked?? that is the point

[chinating]

can we use sub-program or parameter passing ???

[MartinLiss]

Without Boolean flags this is the best I can do

Private Sub cmdseat_Click()
 
Dim lngIndex As Long
Dim intSeatsTaken As Integer
 
Do
    If txtNumber.Text < "1" Or txtNumber.Text > "5" Then
        MsgBox "Please re-enter the seat number"
    Else
        For lngIndex = 0 To 4
            If strTakenSeats(lngIndex) = txtNumber.Text Then
                MsgBox "Sorry that seat is already taken"
                Exit Do
            Else
                strTakenSeats(intSeatsTaken) = txtNumber.Text
                intSeatsTaken = intSeatsTaken + 1
                Exit Do
            End If
        Next
    End If
Loop
 
End Sub

[chinating]

thank you very much! that does help me!

[MartinLiss]

You're welcome and BTW I should have also posted this piece.

Option Explicit
Private strTakenSeats(4) As String

You can help us now by pulling down the Thread Tools menu and clicking the Mark Thread Resolved button which will let everyone know that you have your answer.