Visual Basic dla Aplikacji w Excelu
Ćwiczenie 5  rozwinięcie GRY W NUMERKI
Rozbudowa programu GRA W NUMERKI dla dwóch osób z liczeniem punktów.
1. W arkuszu Gra nadać nazwę komórce E6  gracz.
2. Wstawić arkusz o nazwie Plansza i nadać nazwy komórek w tym arkuszu:
" komórka B5 - zielony
" komórka J5 - niebieski
" komórka E5 - punkty z
" komórka G5 - punkty_n
3. Wpisać w komórkach następujące słowa
" komórka B3 - zawodnik zielony
" komórka J3 - zawodnik niebieski
" komórka F4 - wynik meczu
4. Utworzyć obiekty graficzne o nazwach napis oraz monety
5. Wstawić Moduł3 i wpisać w nich procedury
6. W module Modułl uzupełnić procedury i deklaracje zmiennych globalnych (przed procedurami).
Deklaracja:
Global punkty As Integer
W procedurze zgadywanie:
na początku
punkty=0
przed Exit Sub
punkty = 10 - i
na końcu
MsgBox "A TAK BYA
O A
ATWO ZGADN
Ć"
7. Usunąć przycisk START, przycisk KONIEC przenieść na arkusz Plansza. W arkuszu Plansza dodatkowo umieścić
przyciski połączone z procedurą zawodnicy oraz z procedurą nowa_gra
8. Założyć ochronę dla arkusz Gra oraz Plansza z wyjątkiem komórek z nazwami oraz obiektów graficznych
9. Sprawdzić działanie gry i przemyśleć zadania poszczególnych procedur
Moduł3
Option Explicit
Dim zielony As String, niebieski As String
Dim punkty_zielonego As Integer, punkty_niebieskiego As Integer
Sub zawodnicy()
pusta_plansza
zielony = InputBox(prompt:="podaj imię zawodnika zielonego", _
Title:="GRA W NUMERKI", xpos:=100, ypos:=180)
Worksheets("plansza").Range("zielony").Value = zielony
niebieski = InputBox(prompt:="podaj imię zawodnika niebieskiego", _
Title:="GRA W NUMERKI", xpos:=100, ypos:=180)
Worksheets("plansza").Range("niebieski").Value = niebieski
End Sub
Sub pusta_plansza()
Application.ScreenUpdating = False
Range("zielony").Value = ""
Range("niebieski").Value = ""
Range("punkty_z").Value = 0
Range("punkty_n").Value = 0
do_schowka
Application.ScreenUpdating = True
End Sub
Sub nowa_gra()
Dim licznik As Integer, gracz As String, los As Single
Randomize
punkty_zielonego = 0
Informatyka  programowanie, Politechnika Świętokrzyska str. 1
punkty_niebieskiego = 0
los = Rnd()
If los <0.5 Then
gracz = zielony
Else
gracz =niebieski
End If
Worksheets("gra").Select
For licznik = 1 To 4
Range("gracz").Value = "teraz zgaduje " & gracz
zgadywanie
If gracz= zielony Then
punkty_zielonego = punkty_zielonego + punkty
gracz = niebieski Else
punkty_niebieskiego = punkty_niebieskiego + punkty
gracz = zielony
End If
Next licznik
Worksheets("plansza").Select
Range("punkty_z").Value = punkty_zielonego
Range("punkty_n").Value = punkty_niebieskiego
werdykt
End Sub
Sub werdykt()
If punkty_zielonego > punkty_niebieskiego Then
nagroda_zielonego
ElseIf punkty_zielonego < punkty_niebieskiego Then
nagroda_niebieskiego
Else
remis
EndIf
End Sub
Sub nagroda_zielonego()
Application.ScreenUpdating = False
ActiveSheet.DrawingObjects("monety").Select
Selection.Left = 30
Selection.Top = 75
Range( "al"). Select
End Sub
Sub nagroda_niebieskiego()
Application.ScreenUpdating = False
ActiveSheet.DrawingObjects("monety").Select
Selection.Left = 520
Selection.Top = 75
Range("A1").Select
End Sub
Sub remis()
Application.ScreenUpdating = False
ActiveSheet.DrawingObjects("napis").Select
Selection.Top =117
Selection.Left = 135
Range( "A1"). Select
End Sub
Sub do_schowka()
ActiveSheet.DrawingObjects("monety").Select
Selection.Left = 850
Selection.Top = 75
ActiveSheet.DrawingObjects("napis").Select
Selection.Left = 850
Selection.Top = 75
Range("A1").Select
End Sub
Informatyka  programowanie, Politechnika Świętokrzyska str. 2