Membuat Lingkaran Dengan Visual Basic 6

Nov06
by on November 6, 2012 at 8:00 AM
Posted In: VB 6.0

Lingkaran dalam Visual Basic dapat dibuat dengan menggunakan perintah:

Circle(x,y), Radius, Warna

Contoh 1:

[sourcecode]</pre>
Private Sub Form_Paint()
Circle (1500, 1500), 1000, vbRed
End Sub

[/sourcecode]

circle 1

akan menghasilkan sebuah lingkaran dengan warna merah.

contoh 2:

[sourcecode]</pre>
Private Sub Form_Paint()
Const PI = 3.141592
FillStyle = vbFSSolid
FillColor = vbBlue
Circle (ScaleWidth / 2 + 200, ScaleHeight / 2 – 200), 1500, vbBlack, -(PI * 2), -(PI / 2)
FillColor = vbCyan
Circle (ScaleWidth / 2, ScaleHeight / 2), 1500, vbBlack, -(PI / 2), -(PI * 2)
End Sub
<pre>[/sourcecode]

akan menghasilkan gambar seperti dibawah ini.

circle 2

Demikian semoga bermanfaat.

— Rohmadi —

Sumber: Buku Panduan Bahasa Pemrograman Windows dan Internet Microsoft Visual Basic 6.0

karya Mico Pardosi

└ Tags: , , ,
 Comment 

Database Tabungan Sekolah

Nov05
by on November 5, 2012 at 12:00 PM
Posted In: VB 6.0

1. Form log in, disini dapat dipilih beberapa user sebagai pilihan
login

2. Form Utama, memberikan menu dan informasi

form utama

3. Form Nasabah, disini dapat ditambahkan, diedit, dan menghapus data nasabah

form nasabah

4. Form Transaksi, disini digunakan untuk mencatat transaksi tabungan dan pengambilan [kredit/debet]

form transaksi

5. Form Laporan, disini dapat dilihat laporan transaksi masing-masing nasabah ataupun keseluruhan nasabah

laporan

6. Form Setting, digunakan untuk mengatur besarnya biaya administrasi, bunga dan limit saldo yang dapat diambil.

setting

7. Form About, berisi informasi seputar software

aboutDemikian, semoga bermanfaat.

— Rohmadi —

Source code

└ Tags: , , , ,
12 Comments

Visual Basic: Line

Nov02
by on November 2, 2012 at 8:38 AM
Posted In: VB 6.0
Red, green and blue lights showing secondary c...

Red, green and blue lights showing secondary colours. (Photo credit: Wikipedia)

Garis adalah fungsi untuk membuat garis atau kotak. Untuk membuat sebuah garis di VB kita bisa menggunakan perintah

Line(x1,y1)-(x2,y2), Warna, Mode

Mode dapat dipilih antara B dan BF. Jika ingin membuat sebuah kotak, maka sebaiknya menggunakan B, yaitu sebuah kotak tanpa warna isian. Sedangkan BF adalah digunakan untuk membuat sebuah kotak dengan isian warna.

Contoh 1:

Private Sub Form_Paint()
Line (500, 500)-(500, 2000), vbRed
End Sub

line1

perintah di atas digunakan untuk membuat sebuah garis vertikal berwarna merah.

 

contoh 2:

Private Sub Form_Paint()
Line (500, 500)-(500, 2000), vbBlue
End Sub

line2

perintah di atas digunakan untuk membuat sebuah garis horizontalberwarna biru.

 

contoh 3:

Private Sub Form_Paint()
‘garis horizontal
Line (500, 500)-(2500, 500), vbBlue
Line (500, 2500)-(2500, 2500), vbBlue

‘garis vertikal
Line (500, 500)-(500, 2500), vbBlue
Line (2500, 500)-(2500, 2500), vbBlue

End Sub

kotak1

perintah di atas membuat sebuah kotak tanpa warna isian dengan warna biru.

 

contoh 4:

Private Sub Form_Paint()
Line (450, 450)-Step(2000, 1000), vbBlue, BF

End Sub

kotak2

perintah di atas digunakan untuk membuat sebuah kotak dengan warna isian biru.

 

contoh 5:

Private Sub Form_Paint()
Line (500, 500)-Step(2000, 1000), RGB(64, 64, 64), BF
Line (450, 450)-Step(2000, 1000), vbYellow, BF
Line (450, 450)-Step(2000, 1000), vbBlue, BF

End Sub

kotak3

perintah di atas digunakan untuk membuat kotak dengan sebuah bayangan.

 

Demikian, semoga bermanfaat.

— Rohmadi —

└ Tags: , , , ,
11,027 Comments

Bermain Grafik Dengan Visual Basic 6

Nov02
by on November 2, 2012 at 5:37 AM
Posted In: VB 6.0

vb6logoDalam Visual Basic 6, kita disediakan beberapa fitur untuk dapat bermain dengan grafik. Fitur tersebut diantaranya adalah membuat garis, membuat lingkaran, mendapatkan komposisi warna pada koordinat tertentu dan sebagainya.

Agar kita bisa menggunakan fungsi-fungsi tersebut, kita harus menggunakan prosedur Activate atau Paint. Sedangkan toolbox sudah menyediakan 2 buah kontrol untuk membuat grafik pada form. Yaitu Line dan Shape. Dengan kontrol Shape kita dapat membuat lingkaran, segitiga dan lain-lain.

Pada posting berikutnya, insya Alloh akan diberikan contoh-contoh bagaimana menggunakan kontrol-kontrol tersebut.

1. Line

2. Cicle

3. Fill Color

4. Draw Width

5. PSET

6. CurrentX dan CurrentY

7. Move

Demikian, semoga bermanfaat.

— Rohmadi —-

└ Tags: , , , , , , ,
2,756 Comments

Membandingkan Dua Image Dengan Matlab

Nov01
by on November 1, 2012 at 7:00 AM
Posted In: GUI Matlab, Matlab, Script Matlab

Pada tulisan ini akan diberikan contoh sederhana bagaimana dua buah image dapat dibedakan dengan menggunakan script Matlab. Pada dasarnya dua buah image dapat diketahui dengan mengurangkan image B dari image A.

image_hasil = image_A – image_B

untuk lebih jelasnya, akan diberikan dua buah image yang identik PCB.
image A

Image_A

image B

image_B

Dari kedua image dapat diketahui dimana letak perbedaannya.

Langkah-langkahnya adalah:

1. load image_A dan komversi ke dalam format gray dengan script

A=imread(‘image A.JPG’);

A=rgb2gray(A);

image_A_figure

2. load image_B dan komversi ke dalam format graydengan script

B=imread(‘image B.JPG’);

B=rgb2gray(B);

image_B_figure

3.  samaka ukuran kedua image

A=imresize(A,[990,600]);
B=imresize(B,[990,600]);

4. kurangkan image_B pada image_B

obj=A-B;

5. tampilkan hasilnya

imshow(obj);

result

 

Demikian, semoga bermanfaat.

— Rohmadi —

Source

└ Tags: , , , ,
 Comment