

Fitxer: m6p5a.frm
Definició dels objectes. Interfície d'usuari.
Recordeu que això no ho podeu editar directament. Per editar-ho es fa incorporant nous objectes
de la paleta en el vostre formulari. I per canviar els valors ho feu sel.leccionant l'objecte i
escolliu la propietat a canviar en la finestra Properties.
VERSION 5.00
Begin VB.Form Form1
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "Dibuix d'una paràbola a punts"
ClientHeight = 4530
ClientLeft = 3015
ClientTop = 2565
ClientWidth = 4515
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
LinkTopic = "Form1"
PaletteMode = 1 'UseZOrder
ScaleHeight = 4530
ScaleWidth = 4515
Begin VB.PictureBox picDibuix
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 4455
Left = 360
ScaleHeight = 4425
ScaleWidth = 3705
TabIndex = 0
Top = 0
Width = 3735
End
End
Codi del programa. Programació de respostes a events.
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim VertexAX As Single
Dim VertexAY As Single
Dim VertexBx As Single
Dim VertexBY As Single
Private Sub Form_Load()
PosaEscala
End Sub
Private Sub picDibuix_Click()
Dim x As Single
x = -2
Do While x < 2
picDibuix.PSet (x, x * x - 2)
x = x + 0.1
Loop
End Sub
Private Sub PosaEscala()
Dim MidaX As Single
Dim MidaY As Single
Dim ConversióTwipsCentimetres As Single
ConversióTwipsCentimetres = 1 / 567
MidaX = picDibuix.Width * ConversióTwipsCentimetres
MidaY = picDibuix.Height * ConversióTwipsCentimetres
VertexAX = -MidaX / 2
VertexAY = MidaY / 2
VertexBx = MidaX / 2
VertexBY = -MidaY / 2
picDibuix.Scale (VertexAX, VertexAY)-(VertexBx, VertexBY)
End Sub