Programacion vb cancha de tenis
Enviado por Isa Ch • 30 de Agosto de 2017 • Trabajo • 512 Palabras (3 Páginas) • 201 Visitas
- CANCHA DE TENIS:
Module Module1
Sub Main()
Dim col, fila As Integer
For col = 0 To 79
Console.SetCursorPosition(col, 0)
Console.ForegroundColor = 10
Console.Write("*")
Console.SetCursorPosition(col, 23)
Console.ForegroundColor = 10
Console.Write("*")
Console.SetCursorPosition(col, 3)
Console.ForegroundColor = 10
Console.Write("*")
Console.SetCursorPosition(col, 20)
Console.ForegroundColor = 10
Console.Write("*")
Next
For col = 19 To 59
Console.SetCursorPosition(col, 11)
Console.ForegroundColor = 10
Console.Write("*")
Next
For fila = 0 To 23
Console.SetCursorPosition(0, fila)
Console.ForegroundColor = 10
Console.Write("*")
Console.SetCursorPosition(79, fila)
Console.ForegroundColor = 10
Console.Write("*")
Console.SetCursorPosition(39, fila)
Console.ForegroundColor = 14
Console.Write("*")
Next
For fila = 3 To 19
Console.SetCursorPosition(19, fila)
Console.ForegroundColor = 10
Console.Write("*")
Console.SetCursorPosition(59, fila)
Console.ForegroundColor = 10
Console.Write("*")
Next
Console.ReadLine()
End Sub
End Module
[pic 1]
2.
...