Lite hjälp i VB6 Önskas(Yatzy)
Hejsan, Är så att jag läser programmering A just nu, och då i Visual Basic 6. Just nu håller vi på att göra ett Yatzy spel, som det verkar som många andra kör också med. Men får inte rätt på en kod. Och det gäller 2 par. Använder bubbelsorterings metoden om jag ska uttrycka mig sig.
Det jag har försökt med när det gäller programmeringskoderna just nu 2par blir så missar den att kolla en ts (Tärning)
Dessa är koderna jag har försökt med
If ts(1) = ts(2) and ts(3) = ts(4) then tvapar = ts(1) + ts(3) *2
If ts(2) = ts(3) and ts(4) = ts(5) then tvapar = ts(2) + ts(4) *2
Postar upp hela koden för programmet, för att ni lättare ska kanske förstå hur resten av programmet ser ut
Option Explicit
Dim intSlump As Integer
Dim intKastnr As Integer
Dim t(5), ts(5) As Integer
Dim par, tvapar, triss, fyrtal, litenstege, storstege, kak, chans, yatzy, ettor As Integer
Sub Slumptal()
Randomize
intSlump = (5 * Rnd) + 1
End Sub
Sub hide_chkboxar()
Dim i As Integer
For i = 1 To 5
chkHold(i).Visible = False
Next i
End Sub
Sub show_chkboxar()
Dim i As Integer
For i = 1 To 5
chkHold(i).Visible = True
Next i
End Sub
Sub Sortera()
Dim n(5), temp, inteklar, i As Integer
n(1) = t(1)
n(2) = t(2)
n(3) = t(3)
n(4) = t(4)
n(5) = t(5)
inteklar = 1
Do While inteklar = 1
inteklar = 0
For i = 1 To 4
If n(i) < n(i + 1) Then
temp = n(i + 1)
n(i + 1) = n(i)
n(i) = temp
inteklar = 1
End If
Next i
Loop
ts(1) = n(1)
ts(2) = n(2)
ts(3) = n(3)
ts(4) = n(4)
ts(5) = n(5)
End Sub
Private Sub chk1par_Click()
Dim i As Integer
intKastnr = 0
par = 0
If ts(4) = ts(5) Then par = ts(4) * 2
If ts(3) = ts(4) Then par = ts(3) * 2
If ts(2) = ts(3) Then par = ts(2) * 2
If ts(1) = ts(2) Then par = ts(1) * 2
lblPar.Caption = par
End Sub
Private Sub chk2par_Click()
Dim i As Integer
intKastnr = 0 <---------DET ÄR HÄR PROBLEMET LIGGER
tvapar = 0
lbl2par.Caption = tvapar
End Sub
Private Sub chktriss_Click()
Dim i As Integer
intKastnr = 0
triss = 0
If ts(3) = ts(5) Then triss = ts(4) * 3
If ts(2) = ts(4) Then triss = ts(4) * 3
If ts(1) = ts(3) Then triss = ts(3) * 3
lbltriss.Caption = triss
End Sub
Private Sub chkFyrtal_Click()
Dim i As Integer
intKastnr = 0
fyrtal = 0
If ts(2) = ts(5) Then fyrtal = ts(4) * 4
If ts(1) = ts(4) Then fyrtal = ts(3) * 4
lblFyrtal.Caption = fyrtal
End Sub
Private Sub chklitens_click()
Dim i As Integer
intKastnr = 0
litenstege = 0
If ts(1) = 5 And ts(2) = 4 And ts(3) = 3 And ts(4) = 2 And ts(5) = 1 Then litenstege = 15
lbllstege.Caption = litenstege
End Sub
Private Sub chkstors_click()
Dim i As Integer
intKastnr = 0
storstege = 0
If ts(1) = 6 And ts(2) = 5 And ts(3) = 4 And ts(4) = 3 And ts(5) = 2 Then storstege = 20
lblsstege.Caption = storstege
End Sub
Private Sub chkkak_click()
Dim i As Integer
intKastnr = 0
kak = 0
If ts(1) = ts(3) And ts(4) = ts(5) Then kak = ts(1) + ts(2) + ts(3) + ts(4) + ts(5)
If ts(1) = ts(2) And ts(3) = ts(5) Then kak = ts(1) + ts(2) + ts(3) + ts(4) + ts(5)
lblkak.Caption = kak
End Sub
Private Sub chkchans_click()
intKastnr = 0
chans = 0
If ts(1) + ts(2) + ts(3) + ts(4) + ts(5) Then chans = ts(1) + ts(2) + ts(3) + ts(4) + ts(5)
lblchans.Caption = chans
End Sub
Private Sub chkyatzy_click()
intKastnr = 0
yatzy = 0
If ts(1) = ts(5) Then yatzy = 50
lblyatzy.Caption = yatzy
End Sub
Private Sub chkettor_click()
intKastnr = 0
ettor = 0
lbl1.Caption = ettor
End Sub
Private Sub cmdSlumpknapp_Click()
Dim i As Integer
show_chkboxar
intKastnr = intKastnr + 1
Label1.Caption = "Kastnummer = " & intKastnr
If intKastnr < 4 Then
Label2.Caption = ""
Label3.Caption = ""
For i = 1 To 5
If chkHold(i).Value = 0 Then
Slumptal
t(i) = intSlump
lblSlumptal(i).Caption = t(i)
imgtarning(i).Picture = LoadPicture("C:\Skolarbete\VB\tarning" & intSlump & ".gif")
End If
Label2.Caption = Label2.Caption & lblSlumptal(i)
Next i
Sortera
Label3.Caption = ts(1) & ts(2) & ts(3) & ts(4) & ts(5)
End If
End Sub
Private Sub Form_Load()
intKastnr = 0
hide_chkboxar
End Sub
Deadsith: Disc/Holy Priest | Haikeiki: MM/BM Hunter | Garridel: Frost/Arcane mage (Main) | Turák: Resto Druid