1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Public Class frmjeu
Dim Cstotal, Ctotal1, Ctotal2, Cscore As Integer
Dim de1, de2, de3, de4, de5 As Integer
Dim jet, res1, res2, res3, res4, res5, res6, brelan, carre, full, psuite, gsuite, yams1, yams2, chance, bonus, cpt As Integer
Dim de1fixe, de2fixe, de3fixe, de4fixe, de5fixe As Boolean
Dim img1, img2, img3, img4, img5, img6 As Bitmap
Dim score As New ClassYams.Score
Dim sta As ClassYams.Statistiques
Dim rep As String
...
Private Sub btnfin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfin.Click
MsgBox("Partie finie! Voici votre score : " & Cscore & " " & " Nouvelle partie.")
Dim sta As New ClassYams.Statistiques
rep = sta.initcol(Cscore)
MsgBox(rep)
'Shell("S:\Users\Caroline\Desktop\bts ig\pti 2\yams refait\yamsrefait\yamsrefait\bin\Debug\yamsrefait.exe")
'Me.Show()
'End
End Sub |