Visual Basic 6.0 VScroll - VB

Формулировка задачи:

Всем привет! Недавно начал изучать VB, делаю одну программу, но не знаю как к одной переменной (reactor) прибавить текущее значение VScroll . Программа - "симулятор" РБМК-1000. Вот сам код программы:
Option Explicit
Dim reactor As Long
Dim sfrke As Long
Dim water As Long
Dim par As Long
 
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
 
Private Const SND_ASYNC = &H1
 
Private Sub AZ_Click()
  PlaySound App.Path & "\az_press.wav", 0, SND_ASYNC
End Sub
 
Private Sub Form_Load()
grafit.Max = 10
grafit.Min = 0
grafit.LargeChange = 2
grafit.SmallChange = 1
water = 77000
reactor = 100 ' здесь надо как-то прибавить grafit.Value (который задаёт пользователь)
par = 4 * reactor
sfrke = par
If reactor = 0 Then
MsgBox "Реактор остановлен", vbInformation
End If
Litr.Text = water
RT.Text = reactor
MW.Text = sfrke
If sfrke > 1000 Then
PlaySound App.Path & "\alarm_overload_long.wav", 0, SND_ASYNC
MSG.Text = "Слишком высокая мощность! Глуши реактор!"
MsgBox "Высокая мощность реактора!", vbCritical
End If
End Sub
Переменная reactor - это температура реактора, sfrke - СФРКЕ датчик показывающий сколько генерируется электричества,water - литры воды в реакторе, par - пар, крутящий турбины которые делают электричество. grafit это VScroll И ещё вопрос: как сделать чтобы выполнение кода повторялось каждую секунду и grafit.Value не был равен нулю даже при повторном выполнении кода?

Код к задаче: «Visual Basic 6.0 VScroll - VB»

textual
  reactor=reactor+VScroll.Value

5   голосов, оценка 4.200 из 5


СОХРАНИТЬ ССЫЛКУ