script visual (poker)

bonjour tout le monde,

Je suis debutant level1 sur visual basic :lol:

alors je m'explique pour ce que je veux faire:
j'aimerai faire un logiciel pour le poker tout simple ( mon premier programme ), le calcul pour la gestion de la bankroll

admettons que j'ai 1000e en bank sur mon compte poker,
en MTT (multi table tournement) je peux miser 1% de ma bank soit 10euros
en STT (single table tournemant) je peux miser 3% de ma bank soit 30euros
et en cashgame je dois miser 30 buy in (argent a miser, choix de la limite)

Inscrire le montant de la bankroll dans la textbox et tout les resultats dans des labels*

J'ai essayé de chercher comment faire ce script
mon code ne fonctionne pas .. pourquoi?

Merci d'avance:ccool:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
Public Class Form1
 
 
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
 
        If Not IsNumeric(TextBox1.Text) Then
            Label5.Text = "Numérique uniquement"
        ElseIf IsNumeric(TextBox1.Text) Then
            Label5.Text = " "
        ElseIf TextBox1.Text = "" Then
            Label5.Text = " "
        End If
    End Sub
 
 
    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
 
        If IsNumeric(TextBox1.Text) Then
        (TextBox1.text) / 100 = label2.text
        End If
    End Sub
 
    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
 
 
        If IsNumeric(TextBox1.Text) Then
        ((TextBox1.text) *3)/ 100 = label3.text
        End If
    End Sub
 
    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click
 
        (TextBox1.text)/30 = label6.text 
    End Sub
 
    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
 
        If 0 < Label6.Text < 2 Then
            Label4.Text = "NL2"
        End If
        If 2.001 < Label6.Text < 5 Then
            Label4.Text = "NL5"
        End If
        If 5.001 < Label6.Text < 10 Then
            Label4.Text = "NL10"
        End If
        If 10.001 < Label6.Text < 20 Then
            Label4.Text = "NL20"
        End If
        If 20.001 < Label6.Text < 50 Then
            Label4.Text = "NL50"
        End If
        If 50.001 < Label6.Text < 100 Then
            Label4.Text = "NL100"
        End If
        If 100.001 < Label6.Text < 200 Then
            Label4.Text = "NL200"
        End If
        If 200.001 < Label6.Text < 400 Then
            Label4.Text = "NL400"
        End If
        If 400.001 < Label6.Text < 600 Then
            Label4.Text = "NL600"
        End If
        If 600.001 < Label6.Text < 1000 Then
            Label4.Text = "NL 1 000"
        End If
        If 1000.001 < Label6.Text < 2000 Then
            Label4.Text = "NL 2 000"
        End If
        If 2000.001 < Label6.Text < 4000 Then
            Label4.Text = "NL 4 000"
        End If
        If 4000.001 < Label6.Text < 10000 Then
            Label4.Text = "NL 10 000"
        End If
        If 10000.001 < Label6.Text < 20000 Then
            Label4.Text = "NL 20 000"
        End If
        If 20000.001 < Label6.Text < 50000 Then
            Label4.Text = "NL 50 000+"
        End If
        Label4.Show()
 
    End Sub
 
 
End Class

voila le prototype lol

http://img15.hostingpics.net/thumbs/mini_368687ojqs.png