La expresión del cálculo (por ejemplo: 10+15) debe ser escrita sin espacios en el área debajo de la console, o en el Terminal. Luego pulsar la tecla [Enter].
Public Sub Main()
Print "\n'i' y [Enter] para obtener informaciones\n"
End
Public Sub Application_Read()
Dim s As String
Dim ss As String[]
Input s
If s = "i" Then
Print "Cómo se usa:\n- 'i' y [Enter] para obtener estas informaciones;"
Print "- entero*entero y [Enter] para multiplicar los dos enteros (ejemplo: 4*2 );"
Print "- entero+entero y [Enter] para la adición (ejemplo: 4+2 );"
Print "- entero/entero y [Enter] para la división (ejemplo: 4/2 );"
Print "- entero-entero y [Enter] para la sustracción (ejemplo: 4-2 );"
Print "- 'quit' y [Enter] para cerrar el programa."
Else
If InStr(s, "*") Then
ss = Split(s, "*")
Print CLong(Val(ss[0]) * Val(ss[1]))
Endif
If InStr(s, "+") Then
ss = Split(s, "+")
Print CLong(Val(ss[0]) + Val(ss[1]))
Endif
If InStr(s, "/") Then
ss = Split(s, "/")
Print CLong(Val(ss[0]) \ Val(ss[1]))
Endif
If InStr(s, "-") Then
ss = Split(s, "-")
Print CLong(Val(ss[0]) - Val(ss[1]))
Endif
If s = "quit" Then
Print "\e[1;31mCierre en \e[1;33m2\e[1;31m segundos !"
Sleep 2
Quit
Endif
Endif
End
Print "\n'i' y [Enter] para obtener informaciones\n"
End
Public Sub Application_Read()
Dim s As String
Dim ss As String[]
Input s
If s = "i" Then
Print "Cómo se usa:\n- 'i' y [Enter] para obtener estas informaciones;"
Print "- entero*entero y [Enter] para multiplicar los dos enteros (ejemplo: 4*2 );"
Print "- entero+entero y [Enter] para la adición (ejemplo: 4+2 );"
Print "- entero/entero y [Enter] para la división (ejemplo: 4/2 );"
Print "- entero-entero y [Enter] para la sustracción (ejemplo: 4-2 );"
Print "- 'quit' y [Enter] para cerrar el programa."
Else
If InStr(s, "*") Then
ss = Split(s, "*")
Print CLong(Val(ss[0]) * Val(ss[1]))
Endif
If InStr(s, "+") Then
ss = Split(s, "+")
Print CLong(Val(ss[0]) + Val(ss[1]))
Endif
If InStr(s, "/") Then
ss = Split(s, "/")
Print CLong(Val(ss[0]) \ Val(ss[1]))
Endif
If InStr(s, "-") Then
ss = Split(s, "-")
Print CLong(Val(ss[0]) - Val(ss[1]))
Endif
If s = "quit" Then
Print "\e[1;31mCierre en \e[1;33m2\e[1;31m segundos !"
Sleep 2
Quit
Endif
Endif
End