PGrafik02 : Primitive Pixel (Bagian 1)

Pengantar Primitif Pixel  (1)

(Materi Pelengkap Perkuliahan Pemrograman Grafik)

Pixel adalah bagian terkecil pada suatu gambar digital. Monitor menampilkan gambar dan membagi-bagi layar menjadi ribuan (bahkan jutaan) pixel-pixel, tersusun pada banyak baris dan kolom

Perintah mengaktifkan atau menghidupkan pixel

         PSET(X,Y)

dimana X adalah posisi koordinat X dan Y pada form yang digunakan



Latihan 01

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

Private Sub Command1_Click()

  PSet (100, 100)

End Sub

Private Sub Command2_Click()

  Cls  'clear screen

End Sub

Private Sub Command3_Click()

  'menggambar garis datar

  For X = 100 To 200

    PSet (X, 100)

  Next

  For X = 100 To 200

    PSet (X, 200)

  Next

  'menggambar garis vertikal

  For Y = 100 To 200

    PSet (100, Y)

  Next

  For Y = 100 To 200

    PSet (200, Y)

  Next

End Sub

Private Sub Form_Load()

  Form1.ScaleMode = 3  'mode pixel

End Sub

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

Latihan 02

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

End Sub

Private Sub Command2_Click()

  'menggambar blok warna merah

  For Y = 100 To 200

    For X = 100 To 400

      PSet (X, Y), vbRed

    Next

  Next

  

  'menggambar blok warna putih

  For Y = 201 To 300

    For X = 100 To 400

      PSet (X, Y), vbWhite

    Next

  Next

End Sub

Private Sub Command3_Click()

  'menggambar blok warna merah

  For X = 100 To 400

    For Y = 100 To 200

      PSet (X, Y), vbRed

    Next

  Next

  'menggambar blok warna putih

  For X = 100 To 400

    For Y = 201 To 300

      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,