Function fct_chiffre(ByVal pvaleurausort As Integer) As String select case pvaleurausort case 1 to 10: return pvaleurausort.tostring case 11: return "V" case 12: return "D" case 13: return "R" case 14: return "A" case else: return string.empty end select End Function
Function fct_Valeur(ByVal sCarte As String) As Integer Select Case sCarte Case "1", "2", "3", "4", "5", "6", "7", "8", "9": Return Val(sCarte) Case "V", "D", "R": Return 10 Case "A": Return 11 Case Else: Return 0 End Select End Function
maSomme = fct_Valeur("V") + fct_Valeur("5") + fct_Valeur("A")
Les machines ne font pas d'erreurs
Heureusement nous sommes humains
If chcarte.Text = "V" Then chresult.Text = 10 End If If chcarte.Text = "D" Then chresult.Text = 10 End If If chcarte.Text = "R" Then chresult.Text = 10 End If If chcarte.Text = "A" Then chresult.Text = 11 End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionIf chcarte.Text = "V" Then chresult.Text = "10" End If If chcarte.Text = "D" Then chresult.Text = "10" End If If chcarte.Text = "R" Then chresult.Text = "10" End If If chcarte.Text = "A" Then chresult.Text = "11" End If
Les machines ne font pas d'erreurs
Heureusement nous sommes humains
Public Class Form3 Function fct_chiffre(ByVal pvaleurausort As Integer) As String Select Case pvaleurausort Case 1 : Return "A" Case 2 To 10 : Return pvaleurausort.ToString Case 11 : Return "V" Case 12 : Return "D" Case 13 : Return "R" Case 14 : Return "A" Case Else : Return String.Empty End Select End Function Function fct_Valeurcarte(ByVal sCarte As String) As Integer Select Case sCarte Case "A" : Return 1 Case "2", "3", "4", "5", "6", "7", "8", "9", "10" : Return Val(sCarte) Case "V", "D", "R" : Return 10 Case "A" : Return 11 End Select End Function Sub resultat() If chresult.Text 21 Or resultdeal.Text 21 Then MsgBox("BLACK JACK !") chcompte.Text = Val(chcompte.Text) + Val(chmise.Text) comptedeal.Text = Val(comptedeal.Text) - Val(chmise.Text) chmise.Text = "0" chresult.Text = "" chcarte.Text = "" End If If chresult.Text > 21 Or resultdeal.Text < 21 Then MsgBox("Perdu", MsgBoxStyle.Critical) chcompte.Text = chcompte.Text - chmise.Text comptedeal.Text = Val(comptedeal.Text) + Val(chmise.Text) chmise.Text = "0" chresult.Text = "" chcarte.Text = "" End If End Sub Sub compteur1() Randomize() chcarte.Text = Int(Rnd(1) * 14) chcarte.Text = fct_chiffre(chcarte.Text) End Sub Sub compteur2() Randomize() cartedeal.Text = Int(Rnd(1) * 14) cartedeal.Text = fct_chiffre(cartedeal.Text) End Sub Private Sub bt_1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bt_1.Click 'If chmise.Text = "0" Then 'MsgBox("La mise !") 'End If Dim wcumul As Integer Call compteur1() wcumul = Val(chresult.Text) wcumul = wcumul + fct_Valeurcarte(chcarte.Text) chresult.Text = wcumul Call resultat() End Sub Private Sub bt_stop_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bt_stop.Click If chresult.Text < 21 Or resultdeal.Text < 21 Then MsgBox("Vous avez gagner ! ") chcompte.Text = Val(chcompte.Text) + Val(chmise.Text) comptedeal.Text = Val(comptedeal.Text) - Val(chmise.Text) chmise.Text = "0" chresult.Text = "" chcarte.Text = "" End If End Sub Private Sub bt_new_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bt_new.Click chmise.Text = "0" chresult.Text = "" chcarte.Text = "" cartedeal.Text = "" resultdeal.Text = "" End Sub Private Sub bt_deal_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bt_deal.Click Dim wcum As Integer Call compteur2() wcum = Val(resultdeal.Text) wcum = wcum + fct_Valeurcarte(cartedeal.Text) resultdeal.Text = wcum Call resultat() End Sub End Class