PROGRAMACIÓ D'APLICACIONS EDUCATIVES AMB VISUAL BASICMÒDUL 6

Fitxer: m6p1.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         =   "Primeres instruccions de dibuix"
   ClientHeight    =   3570
   ClientLeft      =   1095
   ClientTop       =   1485
   ClientWidth     =   5970
   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     =   3570
   ScaleWidth      =   5970
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

Private Sub Form_Click()
    Dim Pi As Single
    Dim i As Integer
    Pi = 4 * Atn(1)
    CurrentX = 0
    CurrentY = 0
    Print "Hola món, estic viu"
    Line (1000, 2000)-(4000, 1000)  'Fa una línia del punt (1000,2000) al punt (4000,1000)
    FillStyle = 1 'Transparent (Cap color)
    Line (400, 300)-(700, 800), QBColor(5), B 'Fa un rectangle (Paràmetre B)
    'Fa un rectangle omplert de color (Paràmetre BF)
    Line (1700, 300)-(2000, 800), RGB(Rnd * 255, Rnd * 255, Rnd * 255), BF
    Line -Step(500, 500) 'Fa una línia del punt (2000,800) al punt relatiu a aquets (500,500)
    Circle (600, 1400), 300, RGB(Rnd * 255, Rnd * 255, Rnd * 255) 'Fa una circumferència
    FillColor = QBColor(Rnd * 15) 'Color per omplir
    FillStyle = 0 'Solid
    Circle (4000, 1400), 300, QBColor(6), , , 0.8 'Fa una el·lipse
    Circle (4000, 550), 300, QBColor(6), 0, Pi / 2, 0.8 'Fa un arc d'el·lipse
    For i = 1 To 4500 Step 100
        PSet (i, 2500), QBColor(4) ''Posa un punt en les coordenades (i,2500) de color 4.
    Next i
End Sub

Private Sub Form_DblClick()
    Cls
End Sub