Can anyone help me do the conversion of a piece of code to vb.net? Would really appreciate as i'm so cut for time. Cheers.
Option Explicit
Dim flight(1 To 10, 1 To 4) As String
Dim waiting(1 To 50) As String
Dim waitinglist As Integer
Private Sub cmdAddToFlight_Click()
Dim person As String, a As Integer, b As Integer
person = Trim(txtPerson.Text)
person = Left(UCase(person), 1) + Mid(person, 2)
For a = 1 To 10
For b = 1 To 4
If UCase(person) = UCase(flight(a, b)) Then
MsgBox "The person you entered is already on the list"
Exit Sub
End If
Next b
Next a
a = Val(InputBox("Which row does this person want?", "Row"))
If a > 10 Or a <= 0 Then
MsgBox "I am sorry, but there is no row assigned to that number"
Exit Sub
End If
b = Val(InputBox("Which seat does this person want?", "Seat"))
If b > 4 Or b <= 0 Then
MsgBox "I am sorry, but there is no seat assigned to that number"
Exit Sub
End If
flight(a, b) = person
Call cmdShow_Click
End Sub
Private Sub cmdAddWaitingList_Click()
Dim person As String, a As Integer
person = Trim(txtPerson.Text)
person = Left(UCase(person), 1) + Mid(person, 2)
If waitinglist > 0 Then
For a = 1 To waitinglist
If UCase(person) = UCase(waiting(a)) Then
MsgBox "The person you just entered is already on the list"
Exit Sub
End If
Next a
End If
waitinglist = waitinglist + 1
waiting(waitinglist) = person
Call cmdWaiting_Click
End Sub
Private Sub cmdEnd_Click()
End
End Sub
Private Sub cmdRemoveFromTheFlight_Click()
Dim a As Integer, b As Integer, person As String
Dim answer As String, c As Integer
person = Trim(txtPerson.Text)
person = Left(UCase(person), 1) + Mid(person, 2)
For a = 1 To 10
For b = 1 To 4
If UCase(person) = UCase(flight(a, b)) Then
answer = InputBox("Are you sure you want to delete this person from the passenger list (Y/N)")
If UCase(Left(answer, 1)) = "Y" Then
flight(a, b) = waiting(1)
For c = 1 To waitinglist
waiting(c) = waiting(c + 1)
Next c
waitinglist = waitinglist - 1
Call cmdWaiting_Click
Call cmdShow_Click
Else
Exit Sub
End If
End If
Next b
Next a
End Sub
Private Sub cmdRemoveFromTheWaitingList_Click()
Dim person As String, a As Single, b As Integer
person = Trim(txtPerson.Text)
person = Left(UCase(person), 1) + Mid(person, 2)
For b = 1 To waitinglist
If (UCase(person) = UCase(waiting(b))) Then
For a = b To waitinglist
waiting(a) = waiting(a + 1)
Next a
waitinglist = waitinglist - 1
Call cmdWaiting_Click
Exit Sub
End If
Next b
Call cmdWaiting_Click
End Sub
Private Sub cmdShow_Click()
Dim a As Integer, b As Integer
picFlight.Cls
For a = 1 To 10
For b = 1 To 4
picFlight.Print flight(a, b),
Next b
picFlight.Print
Next a
End Sub
Private Sub cmdWaiting_Click()
Dim a As Integer
picWaiting.Cls
If waitinglist = 0 Then
picWaiting.Print "There is no-one on the"
picWaiting.Print Tab(13); "waiting list"
End If
For a = 1 To waitinglist
picWaiting.Print a; ": "; waiting(a)
Next a
End Sub
Private Sub Form_Load()
Dim a As Integer, b As Integer
For a = 1 To 10
For b = 1 To 4
flight(a, b) = 0
Next b
Next a
End Sub
Option Explicit
Dim flight(1 To 10, 1 To 4) As String
Dim waiting(1 To 50) As String
Dim waitinglist As Integer
Private Sub cmdAddToFlight_Click()
Dim person As String, a As Integer, b As Integer
person = Trim(txtPerson.Text)
person = Left(UCase(person), 1) + Mid(person, 2)
For a = 1 To 10
For b = 1 To 4
If UCase(person) = UCase(flight(a, b)) Then
MsgBox "The person you entered is already on the list"
Exit Sub
End If
Next b
Next a
a = Val(InputBox("Which row does this person want?", "Row"))
If a > 10 Or a <= 0 Then
MsgBox "I am sorry, but there is no row assigned to that number"
Exit Sub
End If
b = Val(InputBox("Which seat does this person want?", "Seat"))
If b > 4 Or b <= 0 Then
MsgBox "I am sorry, but there is no seat assigned to that number"
Exit Sub
End If
flight(a, b) = person
Call cmdShow_Click
End Sub
Private Sub cmdAddWaitingList_Click()
Dim person As String, a As Integer
person = Trim(txtPerson.Text)
person = Left(UCase(person), 1) + Mid(person, 2)
If waitinglist > 0 Then
For a = 1 To waitinglist
If UCase(person) = UCase(waiting(a)) Then
MsgBox "The person you just entered is already on the list"
Exit Sub
End If
Next a
End If
waitinglist = waitinglist + 1
waiting(waitinglist) = person
Call cmdWaiting_Click
End Sub
Private Sub cmdEnd_Click()
End
End Sub
Private Sub cmdRemoveFromTheFlight_Click()
Dim a As Integer, b As Integer, person As String
Dim answer As String, c As Integer
person = Trim(txtPerson.Text)
person = Left(UCase(person), 1) + Mid(person, 2)
For a = 1 To 10
For b = 1 To 4
If UCase(person) = UCase(flight(a, b)) Then
answer = InputBox("Are you sure you want to delete this person from the passenger list (Y/N)")
If UCase(Left(answer, 1)) = "Y" Then
flight(a, b) = waiting(1)
For c = 1 To waitinglist
waiting(c) = waiting(c + 1)
Next c
waitinglist = waitinglist - 1
Call cmdWaiting_Click
Call cmdShow_Click
Else
Exit Sub
End If
End If
Next b
Next a
End Sub
Private Sub cmdRemoveFromTheWaitingList_Click()
Dim person As String, a As Single, b As Integer
person = Trim(txtPerson.Text)
person = Left(UCase(person), 1) + Mid(person, 2)
For b = 1 To waitinglist
If (UCase(person) = UCase(waiting(b))) Then
For a = b To waitinglist
waiting(a) = waiting(a + 1)
Next a
waitinglist = waitinglist - 1
Call cmdWaiting_Click
Exit Sub
End If
Next b
Call cmdWaiting_Click
End Sub
Private Sub cmdShow_Click()
Dim a As Integer, b As Integer
picFlight.Cls
For a = 1 To 10
For b = 1 To 4
picFlight.Print flight(a, b),
Next b
picFlight.Print
Next a
End Sub
Private Sub cmdWaiting_Click()
Dim a As Integer
picWaiting.Cls
If waitinglist = 0 Then
picWaiting.Print "There is no-one on the"
picWaiting.Print Tab(13); "waiting list"
End If
For a = 1 To waitinglist
picWaiting.Print a; ": "; waiting(a)
Next a
End Sub
Private Sub Form_Load()
Dim a As Integer, b As Integer
For a = 1 To 10
For b = 1 To 4
flight(a, b) = 0
Next b
Next a
End Sub