Informática Educativa Carlosfmur@gmail.com: graficación

Tuesday, 7 May 2013

Visual Basic: Area de un triángulo (código)

Escrito por carlosfmur1948 en Small Basic, Uncategorized y etiquetada con código de programa, fráficos, geometría 7 de mayo de 2013

Se pide ingresar la base y altura de un triángulo, y el programa calcula el área y lo grafica. Graduado (convertido) del programa en Small Basic WGZ319 Editado por Nonki Takahashi

Module areatriModule
Dim base, height, area, cm, size, x, y, k, pxBase, pxHeight, x1, y1, x2, y2, x3, y3, triangle As Primitive
Sub Main()
1. ‘Area of a triangle
2. TextWindow.Write(“enter the value of the base of the triangle: “)
3. base = TextWindow.ReadNumber()
4. TextWindow.Write(“enter the value of the height of the triangle: “)
5. height = TextWindow.ReadNumber()
6. area = (base * height) / 2
7. TextWindow.WriteLine(“The area is ” + Area)
cm = 24 ‘ [px/cm]
size = 12 ‘ [cm]
GraphicsWindow.Width = cm * size
GraphicsWindow.Height = cm * size
GraphicsWindow.Top = TextWindow.Top + 150
GraphicsWindow.Left = TextWindow.Left + 50
GraphicsWindow.BackgroundColor = “LightGray”
DrawGrid()
DrawTriangle()
End Sub
Sub DrawGrid()
1. GraphicsWindow.PenColor = “DimGray”
2. For x = 0 To cm * size Step cm

i. GraphicsWindow.DrawLine(x, 0, x, cm * size)

Next
For y = 0 To cm * size Step cm

i. GraphicsWindow.DrawLine(0, y, cm * size, y)

Next
End Sub
Sub DrawTriangle()
1. GraphicsWindow.PenColor = “Black”
2. GraphicsWindow.BrushColor = “MediumSeaGreen”
3. k = 0.3 ‘ 0 <= k <= 1
4. pxBase = base * cm
5. pxHeight = height * cm
6. x1 = pxBase * k
7. y1 = 0
8. x2 = pxBase
9. y2 = pxHeight
10. x3 = 0
11. y3 = y2
12. triangle = Shapes.AddTriangle(x1, y1, x2, y2, x3, y3)
13. Shapes.Move(triangle, cm, cm)
14. End Sub
15. End Module