Turbo Pascal and Visual Basic практикалық жұмыстар

Практическая работа Visual Basic

Графические обьекты

Перевод кодов: If(если), True(истина), False(ложь), next(следующий), else(или же), and(а также), for(для), shape(фигура),Visible(видимый)

В конце включаем программу Run(F5)

(в Программе фигуры должны мигать, true-мигает, false - не мигает )

If(если) k>= 10 and(и) k<20 then(то)

Shape1(0)(фигура) Visible(видимый)=true(истина)

else(или же)

Shape1(0)(фигура)=False(ложь)

Кликни по форме два раза и набири следющие коды

Dim k, i As Integer

Private Sub Form_Load()

Timer1.Enabled = True

k = 0

For i = 0 To 6

Shape1(0).Visible = False

Next

End Sub

Для обьекта Timer1 надо набрать следующие коды

k = k + 1

If k >= 10 And k < 20 Then

Shape1(0).Visible = True

Else

Shape1(0).Visible = False

End If

If k >= 20 And k < 30 Then

Shape2(1).Visible = True

Else

Shape2(1).Visible = False

End If

If k >= 30 And k < 40 Then

Shape3(2).Visible = True

Else

Shape3(2).Visible = False

End If

If k >= 40 And k < 50 Then

Shape4(3).Visible = True

Else

Shape4(3).Visible = False

End If

If k >= 50 And k < 60 Then

Shape5(4).Visible = True

Else

Shape5(4).Visible = False

End If

If k >= 60 And k < 70 Then

Shape6(5).Visible = True

Else

Shape6(5).Visible = False

End If

If k >= 70 And k < 80 Then

Shape7(6).Visible = True

Else

Shape7(6).Visible = False

End If

If k = 80 Then k = 0

End Sub