Курсовая работа: Потоки в Visual Basic

' Этот проект содержит одну форму - frmMTDemo1, которая содержит

' следующий код:

' MTDemo - Multithreading Demo program ' Copyright © 1997 by Desaware Inc. All Rights Reserved

Option Explicit

Dim State As Integer

' State = 0 - Idle

' State = 1 - Loading existing value

' State = 2 - Adding 1 to existing value

' State = 3 - Storing existing value

' State = 4 - Extra delay

Dim Accumulator As Long

Const OtherCodeDelay = 10

Private Sub Command1_Click()

Dim f As New frmMTDemo1

f.Show

End Sub

Private Sub Form_Load()

Timer1.Interval = 750 + Rnd * 500

End Sub

Private Sub Timer1_Timer()

Static otherdelay&

Select Case State

Case 0

lblOperation = "Idle"

State = 1

Case 1

lblOperation = "Loading Acc"

Accumulator = GenericGlobalCounter

State = 2