Geum.ru

Автоматическое управление железнодорожными путями

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

/p>

 

 

 

 

 

 

 

5. Листинг программы

 

Option Explicit

Dim w, hk, dlmass() As Single, i%, j%, sv%, sv1%, ti%, fl As Booleany1(x As Single) As Single= 0Functiony2(x As Single) As Single= (x - w / 2)Functiony3(x As Single) As Single= -(x - w / 2)Function

Sub Combo1_Click()= Combo1mass(1 To 2, 1 To k)j = 0 To 9(j).Visible = Falsejj = 0 To k - 1(j).Visible = TruejSub

Sub Combo2_Click()= Combo2.ListIndex + 1SubSub Command2_Click().Enabled = Not (Timer1.Enabled)Sub

Sub Form_Load().AutoRedraw = True.Width = 2 * Picture1.Height.Scale (0, -500)-(1000, 500).DrawWidth = 4: Picture1.ForeColor = &HC0C0C0

= Picture1.ScaleWidth: h = Picture1.ScaleHeight.Width = w: Shape2.Height = h.FillColor = Picture1.BackColor.Width = Picture1.Width + 100.Height = Picture1.Height + 1000.Enabled = False.Interval = 10

i = 0 To 2(i).Left = (Picture2.ScaleWidth - Shape1(i).Width) / 2(i).Top = Shape1(i).Height / 2 + 1.5 * i * Shape1(i).Height(i).BackStyle = 1(i).BackColor = vbRed(i).BackColor = Me.BackColor(i).Visible = Falsei

.Left = w / 2 + Picture2.Width.Top = -Picture2.Height / 2= 17.Line (0, 0)-(w, 0).Line (w / 2, 0)-(w, h / 2).Line (w / 2, 0)-(w, -h / 2)

i = 1 To 10.AddItem i.AddItem i * 10 + 40 & " km/u"i.ListIndex = 7= Combo1mass(1 To 2, 1 To k)j = 0 To 9(j).Visible = Falsejj = 1 To k(j - 1).Visible = Truej.ListIndex = 4= Combo2.ListIndex + 1

= FalseSub

Sub Option1_Click(Index As Integer)= Index(sv).Value = True.Left = Option1(Index).Lefti = 0 To 2(i).Visible = IndexiSub

Sub Option2_Click(Index As Integer)fl = True Then sv1 = IndexSub

Sub Timer1_Timer()mass(1, UBound(mass) - 1) > w * 1.1 Then

mass(1 To 2, 1 To k)If

(1, 1) = mass(1, 1) + ti(2, 1) = mass(1, 1) - dli = 2 To k(1, i) = mass(1, 1) - (i - 1) * (dl + 10)(2, i) = mass(1, i) - dli

mass(1, 1) < w / 4 Then

fl = False Then: sv = Int(Rnd * 3)= sv1Ifi = 0 To 2(i).BackColor = vbRedi(sv).BackColor = vbGreenIf

i = 1 To kmass(1, i) - dl / 2 <= w / 2 Then(i - 1).X1 = mass(1, i)(i - 1).X2 = mass(2, i)(i - 1).y1 = y1(mass(1, i))(i - 1).y2 = y1(mass(2, i))

Case sv0(i - 1).X1 = mass(1, i)(i - 1).X2 = mass(2, i)(i - 1).y1 = y3(mass(1, i))(i - 1).y2 = y3(mass(2, i))

1(i - 1).X1 = mass(1, i)(i - 1).X2 = mass(2, i)(i - 1).y1 = y1(mass(1, i))(i - 1).y2 = y1(mass(2, i))

2(i - 1).X1 = mass(1, i)(i - 1).X2 = mass(2, i)(i - 1).y1 = y2(mass(1, i))(i - 1).y2 = y2(mass(2, i))

SelectIfi

 

End Sub

 

. Скриншоты с выполнением примера

 

 

 

 

Заключение

 

Благодаря созданию автоматического управления железнодорожными путями можно легко перестраивать поезд на свободный путь.

алгоритм автоматическое управление листинг

Список использованной литературы

 

1. В.Брауэр Введение в теорию конечных автоматов.- М.: Радио и связь, 1999

. Хопкрофт Дж. Э., Мотвани Р., Ульман Дж. Д. Введение в теорию автоматов, языков и вычислений, 2-е изд. М.: Вильямс, 2002

.Савельев А.Я. Прикладная теория цифровых автоматов, 1-е изд. М.: Высшая школа, 2001

. Карпов Ю.Г. Теория автоматов: Учебник / Ю. Г. Карпов. - СПб. : Питер, 2003. - 208с.

1.