Valor Descripción
0 Indica que una o más de las propiedades ScaleHeight, ScaleWidth,
ScaleLeft y ScaleTop tienen valores personalizados.
1 (Predeterminado) Twip (1440 twips por pulgada lógica;
2 Punto (72 puntos por pulgada lógica).
3 Píxel (la unidad mínima de resolución del monitor o la impresora).
4 Carácter (horizontal = 120 twips por unidad; vertical = 240
twips por unidad).
5 Pulgada.
6 Milímetro.
7 Centímetro.
Utilizando las propiedades relacionadas
ScaleHeight, ScaleWidth, ScaleLeft y ScaleTop, se puede configurar un sistema de
coordenadas completo, con coordenadas positivas y negativas. Estas cuatro propiedades de
escala se relacionan con la propiedad ScaleMode de la siguiente forma:
Al establecer un valor en cualquier otra propiedad de escala, en ScaleMode se establece
automáticamente 0.
Al establecer en ScaleMode un número mayor que 0, ScaleHeight y ScaleWidth cambian a la
nueva unidad de medida, y en ScaleLeft y ScaleTop se establece 0. Además, los valores de
CurrentX y CurrentY cambian para reflejar las nuevas coordendadas del punto actual.
Private Sub Command1_Click()
ScaleMode = 3
ScaleLeft = -100
ScaleTop = -100
ScaleWidth = 200
ScaleHeight = 200
Line (-100, -100)-(100, 100)
Circle (-50, 50), 25
End Sub
Al ejecutarlo obtendrás una diagonal y un círculo en el cuadrante inferior izquierdo.
Añade las siguientes lineas para obtener nuevos elementos:
ScaleMode = 3
ScaleLeft = -100
ScaleTop = -100
ScaleWidth = 200
ScaleHeight = 200
DrawWidth = 2 ' Establece DrawWidth.
ForeColor = QBColor(4)
Line (0, 0)-(100, 100), QBColor(14), BF
Line (-100, -100)-(0, 0), &H8000&, BF
Line (-50, -50)-(0, 0), RGB(255, 255, 0), BF
FillColor = QBColor(Int(Rnd * 15))
FillStyle = Int(Rnd * 8) 'Valor FillStyle aleatorio.
Circle (-50, 50), 25
End Sub
pi = 3.141592
ScaleMode = 3
ScaleLeft = -100
ScaleTop = -100
ScaleWidth = 200
ScaleHeight = 200
DrawWidth = 1 ' Establece DrawWidth.
ForeColor = QBColor(4)
Line (-100, 0)-(100, 0)
Line (0, -100)-(0, 100)
For x = -100 To 100
y = Sin(x * pi / 180)
PSet (x, y * 100), QBColor(4)
Next
FillColor = QBColor(Int(Rnd * 15))
FillStyle = Int(Rnd * 8) 'Valor FillStyle aleatorio.
End Sub
El grosor de los puntos se pone a 1 y el color 4 (rojo)
Las dos instrucciones Line dibujan los ejes de coordenadas
y el bucle calcula el seno de -100 a 100 (radianes) dibujan
dose los puntos en las coordenadas x,y con Pset
Modifica el programa para calcular el coseno y la tangente.
Para evitar un desbordamiento al calcular el valor de y introduce estas líneas:
If y < -100 Then y = -100
If y > 100 Then y = 100
Haz doble click sobre el Timer y escribe:
Private Sub Timer1_Timer()
BackColor = QBColor(Rnd * 15)
ForeColor = QBColor(Rnd * 10)
Picture1.BackColor = QBColor(Rnd * 15)
Picture1.ForeColor = QBColor(Rnd * 10)
End Sub
Al botón añádele este código:
Private Sub Command1_Click()
Timer1.Interval = 500 'activa el temporizador
End Sub
Cuando lo ejecutes observa como cambian de color tanto el rectángulo del
Picturebox como el fondo del formulario.
El color se asigna a la propiedad BackColor o ForeColor del formulario o de la caja de
imagen al azar con la instrucción QBColor(Rnd*15)
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.PSet (X, Y), QBColor(Rnd * 15)
End Sub
Este evento captura la posción del ratón en las variables X e Y dibujando en las coordenadas correspondientes del cuadro de imagen con un color al azar cuando el puntero del ratón pasa sobre él.
En el evento click del botón escribe el código que ves a a la derecha. Se crean 3 variables enteras y 2 de simple precisión.
En las variables A,B y C se almacena el contenido de los cuadros de texto (lados del triángulo) convertidos a números con CInt y se comprueba que el triángulo pueda existir, deteniéndose el programa en caso contrario.
Dim A, B, C As Integer
Dim P, S As Single
A = CInt(text1)
B = CInt(text2)
C = CInt(text3)
If ((A + B) < C) Or ((A + C) < B) Or ((B + C) < A) Then
MsgBox ("Triángulo imposible")
End
End If
P = (A + B + C) / 2
S = (P * (P - A) * (P - B) * (P - C)) ^ 0.5
Label1 = "El área del triángulo es: " + CStr(S)
End Sub
A continuación se dibujan círculos con radio variable de 0 a 50 y con centro en estas posiciones. Por último la instrucción Print muestra el mensaje en dicha posición.
ScaleMode = 3
CurrentX = CInt(Rnd * 500)
CurrentY = CInt(Rnd * 500)
Circle (CurrentX, CurrentY), Rnd * 50
Print "hola"
End Sub
En el siguiente programa vas a dibujar sobre un fondo con una imagen. Para
ello crea un nuevo proyecto e inserta en el formulario un PictureBox.
Inserta en la propiedad Picture el fichero DINO.GIF
Esta imagen será el fondo del PictureBox y no podrá borrarse con el método Cls. Inserta
dos botones de acción y asigna a su propiedad Click el código siguiente.
El primer botón borra cualquier gráfico que haya en el PictureBox (excepto la imagen de fondo) con Cls y dibuja una elipse con grosor 2 en las coordenadas (twips) 1000,300 y radio 500. Después coloca el cursor gráfico en las coordenadas 800,200 para escribir el mensaje.
El segundo botón hace lo mismo pero modificando la elipse y el mensaje.
Picture1.DrawWidth = 2
Picture1.Cls
Picture1.Circle (1000, 300), 500, QBColor(4), , , 0.5
Picture1.CurrentX = 800
Picture1.CurrentY = 200
Picture1.Print "hola"
End Sub
Private Sub Command2_Click()
Picture1.DrawWidth = 2
Picture1.Cls
Picture1.Circle (1000, 300), 600, QBColor(4), , , 0.5
Picture1.CurrentX = 400
Picture1.CurrentY = 200
Picture1.Print "¿que tal estás?"
End Sub
Picture1.DrawWidth = 2
Picture1.Cls
Picture1.Circle (X + 500, Y), 600, QBColor(4), , , 0.5
Picture1.CurrentX = X - 50
Picture1.CurrentY = Y - 50
Picture1.Print "¿que tal estás?"
End Sub
Private Sub Form_Click()
Dim CX, CY, Radio ' Declara la variable.
ScaleMode = 3 ' Establece la escala a píxeles.
DrawWidth = 5
CX = ScaleWidth / 2 ' Establece la posición X.
CY = ScaleHeight / 2 ' Establece la posición Y.
If CX > CY Then Limit = CY Else Limit = CX
For Radio = 0 To Limit ' Establece el radio.
Circle (CX, CY), Radio, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next Radio
End Sub
