Foro de elhacker.net

Dim  x,y,n,m,r,nu,n1,n2,n3,n4,n5,m1,m2,m3,m4,m5,result
 
num=inputbox("Digente el Numero de la Operacion que Desea Realizar:                                                                                                                                                  1. Encontrar el valor de Y                                      2. Promedio de un Estudiante                                 3. Salir")
 
select case num
 
case "1"
x=inputbox("Ingrese el valor de X")
 
x=cint(x)
y=log(x+30) / 20
msgbox("El Valor de Y es: " & y )
 
 
case "2"
 
m1=inputbox("Nombre de la 1°materia")
nu1=inputbox(" Nota de " & m1)
 
if nu1>100 then
msgbox "Ingrese un valor entre 0 - 100", vbAbort, "Erro de Validacion"
else
nu=msgbox("Desea Salir")
end if
 
m2=inputbox("Nombre de la 2°materia")
nu2=inputbox(" Nota de " & m2 )
 
if nu2>100 then
msgbox "Ingrese un valor entre 0 - 100", vbexclamation, "Erro de Validacion"
else
msgbox("Usted esta saliendo del Programa")
end if
 
m3=inputbox("Nombre de la 3°materia")
nu3=inputbox(" Nota de " & m3 )
 
if nu3>100 then
msgbox "Ingrese un valor entre 0 - 100", vbexclamation, "Erro de Validacion"
else
msgbox("Usted esta saliendo del Programa")
end if
 
m4=inputbox("Nombre de la 4°materia")
nu4=inputbox(" Nota de " & m4 )
 
if nu4>100 then
msgbox "Ingrese un valor entre 0 - 100", vbexclamation, "Erro de Validacion"
else
msgbox("Usted esta saliendo del Programa")
end if
 
m5=inputbox("Nombre de la 5°materia")
nu5=inputbox(" Nota de " & m5 )
 
if nu5>100 then
msgbox "Ingrese un valor entre 0 - 100", vbexclamation, "Erro de Validacion"
else
msgbox("Usted esta saliendo del Programa")
end if
 
 
nu1=cint(nu1)
nu2=cint(nu2)
nu3=cint(nu3)
nu4=cint(nu4)
nu5=cint(nu5)
nu=nu1+nu2+nu3+nu4+nu5
result=nu/5
if result>100 then
msgbox "Ingrese un valor entre 0 - 100", vbexclamation, "Erro de Validacion"
else
msgbox("Usted esta saliendo del Programa")
end if
msgbox("El promedio es: " & result )
 
re="Reprobado"
de="Deficiente"
bu="Bueno"
mbu="Muy Bueno"
exc="Exelente"
 
if result<=59 then
msgbox("El Alumno esta: "  & re )
else
if result>=60 and result<=69 then
msgbox("El alumno esta: " & de )
else
if result>=70 and result<=79 then
msgbox("El Alumno esta: " & bu )
else
if result>=80 and result<=89 then
msgbox("El Alumno esta: " & mbu )
else
if result>=90 and result <= 100 then
msgbox("El Alumno esta: " & exc )
end if
end if
end if
end if
end if
 
 
if nu1<59 then
msgbox("El Alumno Reprobo " & m1)
else
msgbox("El Alumno Aprobo " & m1)
end if
 
if nu2<59 then
msgbox("El Alumno Reprobo " & m2)
else
msgbox("El Alumno Aprobo " & m2)
end if
 
if nu3<59 then
msgbox("El Alumno Reprobo " & m3)
else
msgbox("El Alumno Aprobo " & m3)
end if
 
if nu4<59 then
msgbox("El Alumno Reprobo " & m4)
else
msgbox("El Alumno Aprobo " & m4)
end if
 
if nu5<59 then
msgbox("El Alumno Reprobo " & m5)
else
msgbox("El Alumno Aprobo " & m5)
end if
 
 
case "3"
 
 
msgbox"Usted esta saliendo del Programa", vbexclamation
 
end select

Dim  x,y,n,m,r,nu,n1,n2,n3,n4,n5,m1,m2,m3,m4,m5,result
 
sub trabajos()
 
Do while num <> 3 
num=inputbox("Digente el Numero de la Operacion que Desea Realizar:                                                                                                                                                  1. Encontrar el valor de Y                                      2. Promedio de un Estudiante                                 3. Salir")
 
 
if num = 1 then
x=inputbox("Ingrese el valor de X")
msgbox "El Valor de Y es: " & Valor(x) 
end if
 
if num = 2 then
promedio()
end if
loop
 
msgbox"Terminado!"
end sub
 
function Valor(nota)
	Valor=log(cint(x)+30/20)
end function	
 
function Promedio()
m1=inputbox("Nombre de la 1°materia")
nu1=inputbox(" Nota de " & m1)
if nu1>100 then
	msgbox "Ingrese un valor entre 0 - 100", vbOKOnly, "Error de Validacion"
	exit function
	end if
 
m2=inputbox("Nombre de la 2°materia")
nu2=inputbox(" Nota de " & m2 )
if nu2>100 then
	msgbox "Ingrese un valor entre 0 - 100", vbexclamation, "Erro de Validacion"
	exit function
	end if	
 
nu=cint(nu1)+ cint(nu2) + cint(nu3) + cint(nu4) + cint(nu5)
msgbox "el promedio es: " & nu/5	
end function
 
trabajos()

if result<=59 then
msgbox("El Alumno esta: "  & re )
else
if result>=60 and result<=69 then
msgbox("El alumno esta: " & de )
else
if result>=70 and result<=79 then
msgbox("El Alumno esta: " & bu )
else
if result>=80 and result<=89 then
msgbox("El Alumno esta: " & mbu )
else
if result>=90 and result <= 100 then
msgbox("El Alumno esta: " & exc )
end if
end if
end if
end if
end if

Option Explicit : Dim appTitle, boxMsg, result
 
' ***************************************************************
'                           Main
' ***************************************************************
 
appTitle = "Título del programa."
 
boxMsg   = "Introduzca el numero de la operacion a realizar:" & _
           vbNewLine & _
           vbNewLine & _
           "1. Encontrar el valor de Y" & _
           vbNewLine & _
           "2. Promedio de un Estudiante" & _
           vbNewLine & _
           "3. Salir"
 
Do While ( result <> 3 )
 
    result = Cint( InputBox(boxMsg, appTitle) )
 
    Select Case result
 
        Case 1 ' Encontrar el valor de Y
            EncontrarElValorDeY()
 
        Case 2 ' Promedio de un Estudiante
            PromedioDeUnEstudiante()
 
        Case 3 ' Salir
            Salir()
 
    End Select
 
Loop
 
' ***************************************************************
'                           Methods
' ***************************************************************
 
' Encontrar el valor de Y
Sub EncontrarElValorDeY()
    Dim x, y
    x = CDbl( InputBox("Introduzca el valor de 'X'.", appTitle) )
    y = GetValue(x)
    Call MsgBox("El Valor de 'Y' es: " & CStr(y), vbInformation, appTitle)
End Sub
 
' Promedio de un Estudiante
Sub PromedioDeUnEstudiante()
    Dim matters, notes, average, _
        sentences, curSentence,  _
        index, alumnInfo
 
    matters = Array(Null, Null, Null, Null, Null)
    notes   = Array(Null, Null, Null, Null, Null)
    average = Null
 
    sentences   = Array("Reprobado", "Deficiente", "Bueno", "Muy Bueno", "Excelente")
    curSentence = Null
    alumnInfo   = Null
 
    For index = 0 To UBound(matters)
        matters(index) = InputBox("Nombre de la" & CStr(index + 1) & "° materia", appTitle)
 
        Do Until ( notes(index) <= 100 )
            notes(index) = CInt( InputBox("Nota de '" & matters(index) & "' (entre 0 y 100)", appTitle) )
        Loop
    Next
 
    average = GetAverage(notes)
 
    If (average <= 59) Then
        curSentence = sentences(0)
 
    ElseIf (average >= 60) And (average <= 69) Then
        curSentence = sentences(1)
 
    ElseIf (average >= 70) And (average <= 79) Then
        curSentence = sentences(2)
 
    ElseIf (average >= 80) And (average <= 89) Then
        curSentence = sentences(3)
 
    Else ' average >= 90
        curSentence = sentences(4)
 
    End If
 
    alumnInfo = alumnInfo & "El promedio es: "  & CStr(average) & vbNewLine
    alumnInfo = alumnInfo & "El alumno esta: "  & curSentence & vbNewLine
 
    For index = 0 To UBound(notes)
 
        If notes(index) <= 59 Then
            alumnInfo = alumnInfo & "El alumno reprobo " & matters(index) & vbNewLine
 
        Else
            alumnInfo = alumnInfo & "El alumno aprobo " & matters(index) & vbNewLine
 
        End If
 
    Next
 
    Call MsgBox(alumnInfo, vbInformation, appTitle)
End Sub
 
' Salir
Sub Salir()
    Call MsgBox("Usted esta saliendo del programa...", vbExclamation, appTitle)
    WScript.Quit(0)
End Sub
 
' ***************************************************************
'                           Functions
' ***************************************************************
 
' valor de X
Function GetValue(value)
    GetValue = CDbl( Log(value + 30) / 20 )
End Function
 
' Promedio de X
Function GetAverage(values)
    Dim value
 
    For Each value In values
        GetAverage = GetAverage + value
    Next
 
    GetAverage = CDbl( GetAverage / 5 )
End Function