PGrafik03 : Primitive Pixel (Bagian 2)

Lebar dan Tinggi Form

Lebar dan tinggi form sebagai tempat menggambar atau menampilkan grafik yang dibuat dapat diketahui secara dinamis, dengan perintah:

  lebar form:

     NamaForm.ScaleWidth

  tinggi form:

     NamaForm.ScaleHeight

Latihan 03

Buatlah project baru dengan 3 buah command button, dan ketiikan baris program berikut (atau copy paste ke dalam project anda)

Private Sub Command1_Click()  
      Cls  'clear screen
End Sub

Private Sub Command2_Click()  
   L = Form1.ScaleWidth  
   T = Form1.ScaleHeight  
    'gambar bagian merah separuh form  
    For Y = 0 To t / 2    
        For X = 0 To L      
            PSet (X, Y), vbRed      
        Next  
     Next  '
    gambar bagian putih separuh form  
    For Y = t / 2 To t    
        For X = 0 To L      
             PSet (X, Y), vbWhite    
        Next  
     Next
End Sub


Private Sub Command3_Click()  
   L = Form1.ScaleWidth  
   T = Form1.ScaleHeight  
    'gambar bagian merah separuh form  
    For Y = 0 To T   
           For X = 0 To L / 2      
              PSet (X, Y), vbRed    
           Next  
    Next  
    'gambar bagian putih separuh form  
     For Y = 0 To t    
         For X = L / 2 To L      
              PSet (X, Y), vbWhite    
        Next  
      Next
End Sub


Private Sub Form_Load()  
    Form1.ScaleMode = 3 'mode pixel
End Sub

Simpan dan Jalankan project anda, serta pelajari dan analisa programnya,