Hi im new here and i need some help with vb code. I have some code(below) which i have to describe how it works. can anybody help me as i dont have a clue. thanks
------------------------------------
option explicit
dim fsFruits(5) As String
dim fiReels(2) As Integer
dim fiSpins As Integer
Const MAX_SPINS As integer = 10 '2 a second
Const Orange As Integer = 0
Const Pear As integer = 1
Const Grapes As Integer = 2
Const Banana As Integer = 3
Const MAX_FRUITS As integer = 4
Const MAX_REELS As integer = 3
Private sub cmdspin_click()
dim liHoldBtn
fiSpins = MAX_spins
cmdSpin.Enabled = False
timSpin.Enabled = True
End Sub
Private Sub Form_Load()
Randomize
fsFruits(Orange) = "Orange.gif"
fsFruits(Orange) = "pear.gif"
fsFruits(Orange) = "grapes.gif"
fsFruits(Orange) = "banana.gif"
end sub
Private Sub timSpin_Timer()
Dim liCnt As Integer
For liCnt - 0 To MAX_REELS - 1
fiReels(liCnt) = int(Rnd * MAX_FRUITS)
imgReel(liCnt).Picture = Loadpicture(app.path & "\..\fruits\" & fsFruits (fiReels(liCnt)))
Next liCnt
fiSpins = fiSpins - 1
if fiSpins = 0 then
CheckScore
timSpin.Enabled = False
End If
End Sub
Private Sub CheckScore()
Dim liScore As Integer
liScore As Integer
cmdSpin.Enabled = True
if fiReels(0) = fiReels(1) And fiReels(0) = fiReels(2) Then
liScore = liScore +30
ElseIf fiReels(0) = fiReels(1) Then
liScore = liScore +20
ElseIf fiReels(0) = fiReels(2) Then
liScore = liScore +20
ElseIf fiReels(1) = fiReels(2) Then
liScore = liScore +20
End If
lblScore.Caption = liScore
End Sub
---------------------------------------
------------------------------------
option explicit
dim fsFruits(5) As String
dim fiReels(2) As Integer
dim fiSpins As Integer
Const MAX_SPINS As integer = 10 '2 a second
Const Orange As Integer = 0
Const Pear As integer = 1
Const Grapes As Integer = 2
Const Banana As Integer = 3
Const MAX_FRUITS As integer = 4
Const MAX_REELS As integer = 3
Private sub cmdspin_click()
dim liHoldBtn
fiSpins = MAX_spins
cmdSpin.Enabled = False
timSpin.Enabled = True
End Sub
Private Sub Form_Load()
Randomize
fsFruits(Orange) = "Orange.gif"
fsFruits(Orange) = "pear.gif"
fsFruits(Orange) = "grapes.gif"
fsFruits(Orange) = "banana.gif"
end sub
Private Sub timSpin_Timer()
Dim liCnt As Integer
For liCnt - 0 To MAX_REELS - 1
fiReels(liCnt) = int(Rnd * MAX_FRUITS)
imgReel(liCnt).Picture = Loadpicture(app.path & "\..\fruits\" & fsFruits (fiReels(liCnt)))
Next liCnt
fiSpins = fiSpins - 1
if fiSpins = 0 then
CheckScore
timSpin.Enabled = False
End If
End Sub
Private Sub CheckScore()
Dim liScore As Integer
liScore As Integer
cmdSpin.Enabled = True
if fiReels(0) = fiReels(1) And fiReels(0) = fiReels(2) Then
liScore = liScore +30
ElseIf fiReels(0) = fiReels(1) Then
liScore = liScore +20
ElseIf fiReels(0) = fiReels(2) Then
liScore = liScore +20
ElseIf fiReels(1) = fiReels(2) Then
liScore = liScore +20
End If
lblScore.Caption = liScore
End Sub
---------------------------------------