T A J P R O G Панҷшанбе, 27.06.2019, 13:37
Приветствую Вас Гость | RSS
Меню сайта

Категории раздела
VB6 [4]
VB.NET [27]

Наш опрос
Аз кадом фанн маълумотнома лозим аст!
Ҷавобҳо ҳамагӣ: 2285

Статистика

Онлайн ҳамагӣ: 1
Меҳмон: 1
Истифодабаранда: 0


Сохтани барномаи “Чарогаки рох”
14.05.2014, 02:06

Сохтани барномаи “Чарогаки рох”

Элементҳои истифодашуда:
1. Form – 1то
2. Command Button – 2то
3. Shape – 5то
4. Timer – 3то

Акнун ба хосиятхои элементхо даромада метавонед Name-и онхоро ба худ фахмо намоед. Масалан ман дар барнома онхоро чунин номгузорӣ намудам(нигаред ба расми 1): CmdGo, CmdSt, ShRed, ShGreen, ShYellow, Tim1, Tim2 ва Tim3.

ilhom.blog.com


Хосияти Shape-и ShRed, ShGreen ва ShYellow-ро, ки дар тарафи рости экран хаст 3-круг гузоштам то шакли давраро гиранд. Барои шакли чарогакро фахмотар намудан хосияти Shape-и Shape1-ро 4-скруглённый прямоугольник ва Shape2-ро 0-прямоугольник гузоштам. Аз хамончо хосияти Fillcolor-и ҳар се Shape-ро тагир додам. Ба ShGreen сабзи торик- &H00004000& , ба ShRed сурхи торик- &H00000040& ва ба ShYellow зарди торик- &H00004040& додам. Сипас ҳар се Timer-ҳоро хосияти Enabled-ашонро False намуда, Interval-ашонро 300 навиштам. Ва ниҳоят коди барнома чунин шуд:

 

Dim d, z As Integer

Private Sub CmdGo_Click()
ShRed.FillColor = &HFF&
ShYellow.FillColor = &H4040&
ShGreen.FillColor = &H4000&
Tim1.Enabled = True
End Sub

Private Sub CmdST_Click()
Tim1.Enabled = False
Tim2.Enabled = False
Tim3.Enabled = False
ShRed.FillColor = &H40&
ShYellow.FillColor = &H4040&
ShGreen.FillColor = &H4000&
End Sub

Private Sub Tim1_Timer()
d = d + 1
If d = 10 Then ShRed.FillColor = &H40&
If d = 12 Then
ShRed.FillColor = &HFF&
d = 9
z = z + 1
End If
If z = 4 Then
ShRed.FillColor = &H40&
Tim1.Enabled = False
Tim2.Enabled = True
ShYellow.FillColor = &HFFFF&
d = 0
z = 0
End If
End Sub

Private Sub Tim2_Timer()
z = z + 1
If z = 4 Then
ShYellow.FillColor = &H4040&
ShGreen.FillColor = &HFF00&
z = 0
Tim2.Enabled = False
Tim3.Enabled = True
End If
End Sub

Private Sub Tim3_Timer()
d = d + 1
If d = 10 Then ShGreen.FillColor = &H4000&
If d = 12 Then
ShGreen.FillColor = &HFF00&
d = 9
z = z + 1
End If
If z = 4 Then
ShGreen.FillColor = &H4000&
ShRed.FillColor = &HFF&
Tim3.Enabled = False
Tim1.Enabled = True
d = 0
z = 0
End If
End Sub

Акнун расми барнома дар ҳолати корӣ…. Хммм, не не беҳтараш намуди зоҳирии барнома дар ҳолати кориро худатон дар барномаи сохтаатон бинед. )))) Барори кор!!!

Категория: VB.NET | Добавил: aplove
Просмотров: 540 | Загрузок: 0 | Комментарии: 1 | Рейтинг: 0.0/0
Всего комментариев: 0
Ном *:
Email:
Код *:
Реклама

Поиск

Друзья сайта

Copyright © Умаров Алибек 2019,. Все права защищены.