Turizmda axborot texnologiyalari

ishonchni pasaytiradi va uning sifatli ishlab chiqilgan dasturlar
qatoridan o‘rin olishiga imkon bermaydi.
Ushbu muammoni yechish har xil usullar yordamida amalga
oshirilishi 
mumkin. 
Bu 
usullardan 
biri 
bo‘lib, 
keng
foydalaniladigan va sodda ko‘rinishga ega bo‘lgan DoEvents
operatorini qo ‘ Hash hisoblanadi.
Misol sifatida quyidagini ко‘rib chiqamiz.
Shaklda ikkita tugma joylashtiramiz:
- Jarayon
- Bekor
Jarayon tugmasi dastumi ishga tushirish uchun, Bekor tug-
masi esa ish jarayonini to‘xtatish uchun qo‘ilaniladi. Umumiy
ko‘rinishda biz yaratmoqchi bo‘lgan shakl dasturdan keyingi rasm-
da izoh bilan keltirilgan. Undagi tugmalar uchun dasturlar quyi-
dagicha yozilishi lozim:
Dim bCancel As Boolean
Private Sub cmdCancel_Click()
bCancel = True
End Sub
Private Sub cmdProcess_Click()
Dim i As Integer
Dim strCaption As String
strCaption = fnnCanceLCaption
cmdProcess.Enabled = False
bCancel = False
frmCancel.Caption = strCaption &
Do While 1 > 0
i = i + 1
frmCancel.Caption = frmCancel.Caption &
If i = 20 Then
i = 0
frmCancel.Caption = strCaption
DoEvents
If bCancel Then
cmdProcess.Enabled = True
Exit Sub
126

---

End If
End If
Loop
End Sub
•< D o E v e n ts о п е р а т о р а
I 
Г 
I
cmdProcess 
cmdCmicel
Dastumi ishga tushirib, har xil vaziyatlarda uni tekshirib