Курсовая работа: Программирование в Бейсике

Text5.Enabled = True

Text6.Enabled = True

End Sub

Private Sub Combo7_Click()

Text9.Enabled = True

Text9.Text = nama(LinesCount - 1, Combo7.ListIndex)

End Sub

Private Sub Command1_Click()

IfLen(Dir("c:\Курсовая моя\Свободные автобусы.txt")) = 0 Then

MsgBox "Файл свободных автобусов не найден!!!" + vbCrLf + _

"Проверьте его наличие : 'c:\ Курсовая моя\Свободные автобусы.txt'"

Exit Sub

End If

Combo3.Enabled = True

i = 0

Open "c:\ Курсовая моя\Свободные автобусы.txt" ForInputAs 3

Do While Not EOF(3)

Input #3, arFreeBuses(i)

Combo3.AddItem arFreeBuses(i)

i = i + 1

Loop

Close 3

End Sub

Private Sub Command10_Click()

IfCommand10.Caption = "Начать последовательность остановок" Then

Command7.Enabled = False

food = True

q = 0

Else