SHOW:
|
|
- or go back to the newest paste.
1 | Try this... | |
2 | Dim a, b As String | |
3 | a = TextBox1.Text | |
4 | b = (TextBox2.Text) | |
5 | Dim discount as Double | |
6 | Select Case a | |
7 | - | TextBox2.Text = "09268862690/425673" |
7 | + | |
8 | discount = 09268862690 / 425673 | |
9 | - | TextBox2.Text = "09053146571/432467" |
9 | + | TextBox2.Text = Convert.ToString(discount) |
10 | Case "Jodel D. Avendano": | |
11 | - | TextBox2.Text = "09357648907/423094" |
11 | + | discount = 09053146571 / 432467 |
12 | TextBox2.Text = Convert.ToString(discount) | |
13 | Case "Mara Grantoza": | |
14 | discount = 09357648907 / 423094 | |
15 | TextBox2.Text = Convert.ToString(discount) | |
16 | Case Else: | |
17 | TextBox2.Text = String.Empty | |
18 | End Select |