Código Small Basic


a1

Estas son las instrucciones Small Basic que al aplicarse la función “Graduar” devuelve el módulo Visual Basic posteado en:

https://empiezoinformatica.wordpress.com/2013/04/13/visual-basic-module-graduado-desde-small-basic/

También vea:   http://mssbesp.wordpress.com/2009/04/28/aplicaciones-en-modo-consola-con-small-basic/

  1. ‘ Prueba con operaciones matemáticas
  2. ‘—————————————————-
  3. TextWindow.Title = “Prueba con operaciones matemáticas”
  1. endl = Text.GetCharacter(13)        ‘\n
  2. endl = endl + Text.GetCharacter(10) ‘\r
  3. ‘—————————————————-
  4. aux = “Abs(8)       = ” + Math.Abs(8)
  5. TextWindow.WriteLine(aux)
  1. aux = “Abs(-8)      = ” + Math.Abs(-8)
  2. TextWindow.WriteLine(aux)
  3. TextWindow.Write(endl)
  4. ‘—————————————————-
  5. aux = “Round(4.4)   = ” + Math.Round(4.4)
  6. TextWindow.WriteLine(aux)
  1. aux = “Round(4.6)   = ” + Math.Round(4.6)
  2. TextWindow.WriteLine(aux)
  1. aux = “Round(4.5)   = ” + Math.Round(4.5)
  2. TextWindow.WriteLine(aux)
  1. aux = “Round(5.5)   = ” + Math.Round(5.5)
  2. TextWindow.WriteLine(aux)
  1. aux = “Ceiling(3.5) = ” + Math.Ceiling(3.5)
  2. TextWindow.WriteLine(aux)
  1. aux = “Floor(3.5)   = ” + Math.Floor(3.5)
  2. TextWindow.WriteLine(aux)
  3. TextWindow.Write(endl)
  4. ‘—————————————————-
  5. e = 2.7182818284590452354
  6. aux = “e            = ” + e
  7. TextWindow.WriteLine(aux)
  1. aux = “Ln(e)        = ” + Math.NaturalLog(e)
  2. TextWindow.WriteLine(aux)
  1. aux = “Log(10)      = ” + Math.Log(10.0)
  2. TextWindow.WriteLine(aux)
  3. TextWindow.Write(endl)
  4. ‘—————————————————-
  5. aux = ” 7 ^ 11      = ” + Math.Power(7, 11)
  6. TextWindow.WriteLine(aux)
  1. aux = “23 ^ (1/2)   = ” + Math.SquareRoot(23)
  2. TextWindow.WriteLine(aux)
  3. TextWindow.Write(endl)
  1. TextWindow.Pause()
  2. TextWindow.Clear()
  3. ‘—————————————————-
  4. pi = Math.Pi
  5. aux = “Pi = ” + pi
  6. TextWindow.WriteLine(aux)
  7. TextWindow.Write(endl)
  8. ‘—————————————————-
  9. rad = 0
  10. aux = “0        radianes = ” + Math.GetDegrees(rad)
  11. TextWindow.WriteLine(aux)
  1. rad = pi / 2
  2. aux = “Pi / 2   radianes = ” + Math.GetDegrees(rad)
  3. TextWindow.WriteLine(aux)
  1. rad = pi
  2. aux = “Pi       radianes = ” + Math.GetDegrees(rad)
  3. TextWindow.WriteLine(aux)
  1. rad = pi * 3 / 2
  2. aux = “3 Pi / 2 radianes = ” + Math.GetDegrees(rad)
  3. TextWindow.WriteLine(aux)
  1. rad = pi * 2
  2. aux = “2 Pi     radianes = ” + Math.GetDegrees(rad)
  3. TextWindow.WriteLine(aux)
  4. TextWindow.Write(endl)
  5. ‘—————————————————-
  6. aux = ”  0 º = ” + Math.GetRadians(0)
  7. TextWindow.WriteLine(aux)
  1. aux = ” 90 º = ” + Math.GetRadians(90)
  2. TextWindow.WriteLine(aux)
  1. aux = “180 º = ” + Math.GetRadians(180)
  2. TextWindow.WriteLine(aux)
  1. aux = “270 º = ” + Math.GetRadians(270)
  2. TextWindow.WriteLine(aux)
  1. aux = “360 º = ” + Math.GetRadians(360)
  2. TextWindow.WriteLine(aux)
  3. TextWindow.Write(endl)
  1. TextWindow.Pause()
  2. TextWindow.Clear()
  3. ‘—————————————————-
  4. For i = 0 To 360 Step 18
  5. rad = Math.GetRadians(i)
  6. If i < 10 Then
  7. aux = “Cos(” + i + “)   = “
  8. ElseIf i < 100 Then
  9. aux = “Cos(” + i + “)  = “
  10. Else
  11. aux = “Cos(” + i + “) = “
  12. EndIf
  13. aux = aux + Math.Cos(rad)
  14. TextWindow.WriteLine(aux)
  15. EndFor
  16. TextWindow.Write(endl)
  1. TextWindow.Pause()
  2. TextWindow.Clear()
  1. For i = 0 To 360 Step 18
  2. rad = Math.GetRadians(i)
  3. If i < 10 Then
  4. aux = “Sin(” + i + “)   = “
  5. ElseIf i < 100 Then
  6. aux = “Sin(” + i + “)  = “
  7. Else
  8. aux = “Sin(” + i + “) = “
  9. EndIf
  10. aux = aux + Math.Sin(rad)
  11. TextWindow.WriteLine(aux)
  12. EndFor
  13. TextWindow.Write(endl)
  1. TextWindow.Pause()
  2. TextWindow.Clear()
  1. For i = 0 To 360 Step 18
  2. If i <> 90 And i <> 270 Then
  3. rad = Math.GetRadians(i)
  4. If i < 10 Then
  5. aux = “Tan(” + i + “)   = “
  6. ElseIf i < 100 Then
  7. aux = “Tan(” + i + “)  = “
  8. Else
  9. aux = “Tan(” + i + “) = “
  10. EndIf
  11. aux = aux + Math.Tan(rad)
  12. Else
  13. If i = 90 Then
  14. aux = “Tan(90)  = Infinito”
  15. Else
  16. aux = “Tan(270) = -Infinito”
  17. EndIf
  18. EndIf
  19. TextWindow.WriteLine(aux)
  20. EndFor
  21. TextWindow.Write(endl)
  1. TextWindow.Pause()
  2. TextWindow.Clear()
  3. ‘—————————————————-
  4. aux = “37 % 42 = ” + Math.Remainder(37, 42)
  5. TextWindow.WriteLine(aux)
  6. TextWindow.Write(endl)
  7. ‘—————————————————-
  8. aux = “Max(9, 8) = ” + Math.Max(9, 8)
  9. TextWindow.WriteLine(aux)
  1. aux = “Max(4, 6) = ” + Math.Max(4, 6)
  2. TextWindow.WriteLine(aux)
  3. TextWindow.Write(endl)
  1. aux = “Min(9, 8) = ” + Math.Min(9, 8)
  2. TextWindow.WriteLine(aux)
  1. aux = “Min(4, 6) = ” + Math.Min(4, 6)
  2. TextWindow.WriteLine(aux)
  3. TextWindow.Write(endl)
  4. ‘—————————————————-
  5. For i = 1 To 10
  6. aux = “Random()  = ” + Math.GetRandomNumber(10)
  7. TextWindow.WriteLine(aux)
  8. EndFor
  9. TextWindow.Write(endl)

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s