Para la cancelación de un servicio de agua, se requiere leer la siguiente información de varios clientes:
Código de cliente
Tipo de servicio A, B, C.
Lectura actual.
Lectura Anterior.
El consumo vendrá dado por: consumo = Lectura actual - Lectura Anterior
Elabore una aplicacion en visual 6.0 para calcular e imprimir en el formulario:
- Consumo de servicio
- Monto a pagar por cliente
Private Sub Form_Load()
Dim tarifa As Double
Dim resp As String
Dim tipoServicio As String
Dim condicion As Boolean
Dim condicion1 As Boolean
Dim lecturaActual As Double
Dim lecturaAnterior As Double
Dim consumo As Double
Dim codigoUsuario As String
'Validacion del codigo de usuario
Do
codigoUsuario = InputBox("Ingrese el codigo de usuario")
Loop While codigoUsuario = ""
'Validacion de la variable tipoServicio
Do
tipoServicio = InputBox("Elija el tipo de servicio A, B, C")
If tipoServicio = "A" Or tipoServicio = "a" Then
condicion = True
tarifa = 0.5
ElseIf tipoServicio = "B" Or tipoServicio = "b" Then
condicion = True
tarifa = 0.2
ElseIf tipoServicio = "C" Or tipoServicio = "c" Then
condicion = True
tarifa = 2
Else
condicion = False
End If
Loop Until condicion
'Validacion de las variables lectura actual y lectura anterior
'Estas variables deben ser mayores o iguales a 0, tambien la actual debe ser mayor que la anterior
Do
lecturaActual = InputBox("Ingrese la lectura actual")
lecturaAnterior = InputBox("Ingrese la lectura anterior")
If lecturaActual >= lecturaAnterior And lecturaActual >= 0 And lecturaAnterior >= 0 Then
consumo = lecturaActual - lecturaAnterior
condicion1 = True
Else
condicion1 = False
End If
Loop Until condicion1
'Validacion de la variable resp
Do
resp = InputBox("Salir S/N")
Print resp
Loop Until (resp <> "" And ((resp = "s" Or resp = "S") Or (resp = "N" Or resp = "n")))
Show
Print "El codigo del usuario " & codigoUsuario & " debe cancelar " & CStr(tarifa * consumo) & " Del servicio " & tipoServicio
End Sub
