PROGRAMACIĶ D'APLICACIONS EDUCATIVES AMB VISUAL BASICMŌDUL 6

Fitxer: m6p7.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 frmGrāfic 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   Caption         =   "Dibuix a la impressora"
   ClientHeight    =   3645
   ClientLeft      =   2430
   ClientTop       =   2565
   ClientWidth     =   3780
   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     =   3645
   ScaleWidth      =   3780
   Begin VB.Menu mnuDibuix 
      Caption         =   "Dibuix"
      Begin VB.Menu mnuPantalla 
         Caption         =   "Per pantalla"
      End
      Begin VB.Menu mnuImpressora 
         Caption         =   "Per impressora"
      End
   End
End


Codi del programa. Programaciķ de respostes a events.

Attribute VB_Name = "frmGrāfic"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub mnuImpressora_Click()
    Dim LLargPaper As Single, AltPaper
    Dim VertexAX As Integer, VertexAY As Integer
    Dim VertexBX As Integer, VertexBY As Integer
    Dim i As Integer

    'Mida del paper Din A4 menys els marges
    LLargPaper = 210
    AltPaper = 297

    'Posa el sistema de coordenades amb origen en el centre del paper i mides DIN A4
    Printer.ScaleMode = 6
    VertexAX = -(LLargPaper / 2)
    VertexAY = (AltPaper / 2)
    VertexBX = (LLargPaper / 2)
    VertexBY = -(AltPaper / 2)
    'Printer.Scale (VertexAX, VertexAY)-(VertexBX, VertexBY)
    'Canviat d'ordre
    Printer.Scale (VertexBX, VertexBY)-(VertexAX, VertexAY)

    'Dibuixa el cercle gros
    Printer.FillStyle = 1 'Transparent
    Printer.Circle (0, 0), 90

    'Dibuixa els cercles
     Printer.FillStyle = 0 'Solid
    For i = 4 To 1 Step -1
        Printer.FillColor = QBColor(i)
        Printer.Circle (0, 0), i * 10
    Next

    'Dibuixa els rectangles amunt els cercles
    For i = 50 To 80 Step 10
        Printer.Line (-20, i + 10)-(20, i), QBColor(i / 10), BF
    Next

    'Dibuixa els rectangles sota els cercles
    For i = -50 To -80 Step -10
        Printer.Line (-20, i - 10)-(20, i), QBColor(-i / 10), BF
    Next

    'Fa la línia de cercles final
    For i = -90 To 90 Step 5
        Printer.Circle (i, -100), 1
    Next
    
    'Fa la línies rectes
    Printer.Line (90, 100)-(-90, -100)
    Printer.Line -(0, 130)
    Printer.Line -(90, -100)
    Printer.Line -(90, 100)
    Printer.EndDoc
End Sub

Private Sub mnuPantalla_Click()
    Dim LLargPaper As Single, AltPaper
    Dim VertexAX As Integer, VertexAY As Integer
    Dim VertexBX As Integer, VertexBY As Integer
    Dim i As Integer

    'Mida del paper Din A4 menys els marges
    LLargPaper = 210
    AltPaper = 297

    'Posa el sistema de coordenades amb origen en el centre del paper i mides DIN A4
    frmGrāfic.ScaleMode = 6
    VertexAX = -(LLargPaper / 2)
    VertexAY = (AltPaper / 2)
    VertexBX = (LLargPaper / 2)
    VertexBY = -(AltPaper / 2)
    frmGrāfic.Scale (VertexAX, VertexAY)-(VertexBX, VertexBY)

    'Dibuixa el cercle gros
    frmGrāfic.FillStyle = 1 'Transparent
    frmGrāfic.Circle (0, 0), 90

    'Dibuixa els cercles
     frmGrāfic.FillStyle = 0 'Solid
    For i = 4 To 1 Step -1
        frmGrāfic.FillColor = QBColor(i)
        frmGrāfic.Circle (0, 0), i * 10
    Next

    'Dibuixa els rectangles amunt els cercles
    For i = 50 To 80 Step 10
        frmGrāfic.Line (-20, i + 10)-(20, i), QBColor(i / 10), BF
    Next

    'Dibuixa els rectangles sota els cercles
    For i = -50 To -80 Step -10
        frmGrāfic.Line (-20, i - 10)-(20, i), QBColor(-i / 10), BF
    Next

    'Fa la línia de cercles final
    For i = -90 To 90 Step 5
        frmGrāfic.Circle (i, -100), 1
    Next
    
    'Fa la línies rectes
    frmGrāfic.Line (90, 100)-(-90, -100)
    frmGrāfic.Line -(0, 130)
    frmGrāfic.Line -(90, -100)
    frmGrāfic.Line -(90, 100)
End Sub