Why is me VB 6 coding not working to find out the concert with 13,000 ticket sales. I have not shown arrays.?

Question

Dim Band(1 To 10) As String
Dim TotalTickets As Long
Dim X As Integer
Dim SoldOut As Boolean
Dim TicketsSold(1 To 10) As Integer
Dim Counter As Integer

Private Sub cmdSoldOut_Click()
Counter = 1
Counter = Counter + 1
If TicketsSold(Counter) = 13000 Then
SoldOut = True
If True Then
txtSoldOut = "Sold Out"
Else
SoldOut = False
If False Then
txtSoldOut = "Not sold out"
Do
Loop Until SoldOut = True Or Counter = 10

End If
End Sub

Answer 1

Dim Band(1 To 10) As String
Dim TotalTickets As Long
Dim X As Integer
Dim SoldOut(1 to 10) As Boolean
Dim TicketsSold(1 To 10) As Integer
Dim Counter As Integer

Private Sub cmdSoldOut_Click()
Counter = 0
Do
Counter = Counter + 1
If TicketsSold(Counter) = 13000 Then
SoldOut(Counter) = True
txtSoldOut = "Sold Out"
Else
SoldOut(Counter) = False
txtSoldOut = "Not sold out"
End If
Loop Until Counter = 10
End Sub

Answer 2

Below is the solution to your question:

Dim Band(1 To 10) As String
Dim TotalTickets As Long
Dim X As Integer
Dim SoldOut As Boolean
Dim TicketsSold(1 To 10) As Integer
Dim Counter As Integer

Private Sub cmdSoldOut_Click()
Counter = 1
SoldOut = False
TicketsSold(5) = 13000
Do
If TicketsSold(Counter) = 13000 Then
SoldOut = True
End If
Counter = Counter + 1
Loop Until SoldOut = True Or Counter = 10

If SoldOut = True Then
txtSoldOut = "Sold out"
Else
txtSoldOut = "Not sold out"
End If
End Sub

More free VB source codes here: http://smartcoder.awardspace.com


KaBalweg
http://smartcoder.awardspace.com

Answer 3

1. Your "code" is pseudo-code - not true code

2. Your Do..... Loop did nothing at all

3. Your Counter would always start at 2 as written.

Private Sub cmdSoldOut_Click()
Counter = 0
Do
Counter = Counter + 1
If TicketsSold(Counter) = 13000 Then
SoldOut = True
txtSoldOut = "Sold Out"
Else
SoldOut = False
txtSoldOut = "Not sold out"
End If
Loop Until SoldOut = True Or Counter = 10

End Sub