Mūsu patstāvīgo darbu nolēmām paši veidot, jo mēs gribējām izpētīt makrosa struktūru saviem spēkiem. Šis makross ko mēs izveidojām ir sarežģīts, jo paši neizmantojām nekādus palīgmateriālus. Mums beigās sanāca lieliska spēle, kura ir jau līdzīga spēlei „Lines”, un mēs tā arī nosaucām mūsu spēli.
Mūsu mērķi bija:
1.Uzzināt kā strādā makross, izpētīt viņa struktūru lai varētu labāk izprast doto tēmu.
2.Šajā makrosa rakstīšana tika izmantotas zināšanas no dažādam tēmām tāpēc mums, rakstot šo makrosu bija iespēja paplašināt savas zināšanas un arī atkārtot to vielu, kuru mēs mācījāmies semestra gaitā un iegūt daudz zināšanas, kuras netika iegūtas mācību laikā.
Šie bija tie jautājumi, uz kuriem mēs ar Gati mēģinājām atbildēt, lai izpildītu šo darbu. Vēl gribējās sacīt to, ka negribējām izmantot nekādas gatavās makrosu spēles, jo ir interesantāk pašam izveidot savu spēli un novērst dažnedažākās kļūdas, alugalā izveidojot interesantu spēli.
Mums personīgi bija ļoti interesanti strādāt pie šī darba!
Private lauks(1 To 9, 1 To 9, 0 To 5) As Integer 'nodefinējam daudzdimensiju masīvu - lauks
Private briivie As Integer 'mainīgais - briivie kā integer (vesela skaitļa) tipa elements
Private soljif As Integer 'mainīgais - soljif kā integer (vesela skaitļa) tipa elements
Private peedeejaispievienoshanaslaix 'mainīgais
Private NoX 'mainīgais
Private NoY 'mainīgais
Private UzX 'mainīgais
Private UzY 'mainīgais
'galvenais makros, kas izpildās, kad tiek nospiesta poga Jauna spēle
Sub NewGame()
Range("B2:J10").Value = "" 'rāmī no B2 līdz J10 vērtība - tukšums
Cells(3, 13).Value = 0 'šūnas M3 vērtība - 0
Cells(4, 13).Value = 0 'šūnas M4 vērtība - 0
For i = 1 To 9 'cikls, kur mainās vērtība no 1-9
For j = 1 To 9 'cikls, kur mainās vērtība no 1-9…