Visual Basic for Applications
uređuje Dragan Grbić

Igrate li se?

Nivo:
NIVO 2 - Među ovim prilozima se nalaze preporuke koje se uglavnom odnose na bolje snalaženje i efikasniji rad: dodatni trikovi koji će biti svakom od pomoći i koji upućuju na prag napredne upotrebe programa.

Na primeru programiranog "Velikog Brata" otkrijte kako se kontrolišu .

Nema ničega lošeg u tome da se ponekad opustite uz neku igru na računaru, ali neki u tome ponekad preteruju, što nije primereno radnom mestu. Evo jednog "neozbiljnog" priloga u kome možete naučiti i ozbiljne tehnike programiranja događaja u VBA. Proučite priloženi listing, a za vežbu - malo se našalite sa svojim kolegama!

Scenario u primeru predviđa da "krivac" igra pasijans, a ima otvoren neki dokument u Wordu kojim preklopi prozor igre ako se neko pojavi. Nakon izvršenja procedure VelikiBrat(), lov počinje...

Public Function IgraSe(igra As String) As Boolean
IgraSe = Tasks.Exists(igra)
End Function


Sub IgraPasijans()

If IgraSe("Solitaire") Then
    MsgBox "Trebalo bi da radite, a ne da se igrate!",_
       vbCritical And vbSystemModal, _
       "VELIKI BRAT TE POSMATRA!"
    Application.OnTime _
       When:=Now + TimeValue("00:00:20"), _
       Name:="IgraPasijans"
End If

End Sub

' ova procedura inicira praćenje prisustva igre;
' mora biti startovana ručno ili automatski (Auto_Open)
Sub VelikiBrat()

Application.OnTime _
   When:=Now + TimeValue("00:00:20"), _
   Name:="IgraPasijans"

End Sub