| Fila C | |
|
H.U.P. que permita calcular el pago a
realizar en un comercio. Si éste es menor a 100 dólares mostrar una imagen; de lo contrario, si es mayor evaluar si el pago es con tarjeta de crédito. De ser así hacer emitir el mensaje “Pago con tarjeta de crédito”; de lo contrario el mensaje será “Pago en efectivo”. |
|
| Private Sub cmdaceptar_Click() If txtpago.Text < 100 Then imgcara.Visible = True Else If cbotipodepago.Text = "tarjeta" Then MsgBox ("Pago con tarjeta") Else MsgBox ("Pago en efectivo") End If End If End Sub ______________________________________________ Private Sub cmdnuevo_click() txtpago.Text = "" imgcara.Visible = False cbotipodepago.Text = "Elige tipo de pago" End Sub |
|