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 |
