Anónimo
Programa en Visual Basic que calcule descuentos porcentuales
Tengo que realizar un programa en visual basic 2008 que calcuel el descuento ejemplo:
Para un simposium de informática y sistemas si el alumno es de informática el boleto cuesta 450 y si es de sistemas 250 pero a su vez si el alumno es de
1-2 semestre hay un 5% de descuento,
3-4 semestre=8%,
5-8semestre=10%
Y si es de 9 semestre tiene un 12% de descuento
De antemano gracias
Para un simposium de informática y sistemas si el alumno es de informática el boleto cuesta 450 y si es de sistemas 250 pero a su vez si el alumno es de
1-2 semestre hay un 5% de descuento,
3-4 semestre=8%,
5-8semestre=10%
Y si es de 9 semestre tiene un 12% de descuento
De antemano gracias
1 respuesta
Respuesta de solnegro
1
ESPERO Q ESTE EJEMPLO TE SIRVA SOLO VERIFICA LA SINTAXIS LO HICE EN VISUAL 6 pero la logica esta biensolo es adecuarle las instrucciones
dim semestre as byte
dim descuento as tinyint
dim carrera as string
dim boleto as integer 'o float como quieras
carrera=inputbox("ingrese la carrera que cursa","Carrera") LO PUEDES SUSTITUIR POR UN TEXTBOX
semestre=inputbox("Ingrese el semestre que cursa","Semestre")LO PUEDES SUSTITUIR POR UN TEXTBOX
if string.concad(carrera,"sistemas")
IF semestre=1 or semestre=2 then
descuento=250*.05
boleto=250-descuento
end if
IF semestre=3 or semestre=4 then
descuento=250*.08
boleto=250-descuento
end if
IF semestre=5 or semestre=8 then
descuento=250*.1
boleto=250-descuento
end if
IF semestre=9 then
descuento=250*.12
boleto=250-descuento
end if
end if
if string.concat(carrera,"informatica")
IF semestre=1 or semestre=2 then
descuento=450*.05
boleto=450-descuento
end if
IF semestre=3 or semestre=4 then
descuento=450*.08
boleto=450-descuento
end if
IF semestre=5 or semestre=8 then
descuento=450*.1
boleto=450-descuento
end if
IF semestre=9 then
descuento=450*.12
boleto=450-descuento
end if
end if
dim semestre as byte
dim descuento as tinyint
dim carrera as string
dim boleto as integer 'o float como quieras
carrera=inputbox("ingrese la carrera que cursa","Carrera") LO PUEDES SUSTITUIR POR UN TEXTBOX
semestre=inputbox("Ingrese el semestre que cursa","Semestre")LO PUEDES SUSTITUIR POR UN TEXTBOX
if string.concad(carrera,"sistemas")
IF semestre=1 or semestre=2 then
descuento=250*.05
boleto=250-descuento
end if
IF semestre=3 or semestre=4 then
descuento=250*.08
boleto=250-descuento
end if
IF semestre=5 or semestre=8 then
descuento=250*.1
boleto=250-descuento
end if
IF semestre=9 then
descuento=250*.12
boleto=250-descuento
end if
end if
if string.concat(carrera,"informatica")
IF semestre=1 or semestre=2 then
descuento=450*.05
boleto=450-descuento
end if
IF semestre=3 or semestre=4 then
descuento=450*.08
boleto=450-descuento
end if
IF semestre=5 or semestre=8 then
descuento=450*.1
boleto=450-descuento
end if
IF semestre=9 then
descuento=450*.12
boleto=450-descuento
end if
end if