Aplicacion en Visual Basic de Botones de opcion
esta es la solucion en Visual Basic del Problema de los tipos de cliente. unicamente el metodo
Private Sub CmdAceptar_Click()
Txtsubtotal = Val(Txtunidades) * Val(Txtprecio)
If (Optfrecuente) Then
Txtdescuento = Val(Txtsubtotal) * 0.1
ElseIf (Optregular) Then
Txtdescuento = Val(Txtsubtotal) * 0.07
ElseIf (Optmembresia) Then Txtdescuento = Val(Txtsubtotal) * 0.2ElseIf (Optespecial) Then Txtdescuento = Val(Txtespecial) * 0.25End IfTxttotal = Val(Txtsubtotal) - Val(Txtdescuento)End Sub Private Sub Cmdnuevo_Click()Txtunidades = " "
Txtprecio = " "
Txtsubtotal = " "
Txtdescuento = " "
Txtdescuento = " "
Txttotal = " "
End Sub
.