Menampilkan Image Pada Visual Basic 6

Oct07
by on October 7, 2011 at 9:23 PM
Posted In: Image Processing, VB 6.0

Pengantar

Tentunya Anda tidak akan asing dengan image Lenna disamping, dimana image tersebut telah digunakan secara luas sebagai image standar untuk operasi image processing atau pengolahan citra digital.

Menurut beberapa sumber, ternyata Lena wanita yang ada pada image tersebut adalah salah satu model yang ada pada majalah Play Boy. Citra/image tersebut telah dijadikan sebagai standar bagi pemroresan citra dan kompresi citra. Wanita tersebut telah dinobatkan sebagai The First Lady Of The Internet.

Jika Anda menunjukkan Gambar di atas dan bertanya kepada seseorang yang bergerak di bidang pengolahan citra, dia pasti akan tahu bahwa itu adalah “Gambar Lena”, tapi mungkin dia tidak tahu siapa Lena. Lena adalah seorang gadis playmate majalah Playboy tahun 1972.
Pada tahun 70-an, seorang periset dari University of Southern Carolina sedang mengerjakan sebuah algoritma kompresi dan memindai gambar Lena, yang ada di lembaran tengah (centerspread) majalah Playboy. Sejak saat itu Gambar Lena telah menjadi standar industri sebagai bahan untuk menguji algoritma manipulasi dan transmisi citra elektronik. Selama lebih dari 25 tahun sejak Lena diperkenalkan, tidak ada gambar yang lebih penting daripada Lena dalam bidang manipulasi dan komunikasi citra digital. Lena telah dianggap sebagai Ibu Negara Internet.

Mengapa Lena?

[Baca Selengkapnya]

└ Tags: , , , , ,
5,594 Comments

Membuat Grafik Data Logger ADC 8 Channel Dengan Visual Basic 6

Sep26
by on September 26, 2011 at 10:20 PM
Posted In: Interfacing, VB 6.0

Grafik sebuah data yang didapatkan dari pengukuran dapat disajikan dalam sebuah grafik pada Visual Basic. Pada tulisan sebelumnya telah diberikan sedikit contoh bagaimana cara menyajikan data dengan menggunakan Visual Basic. Pada kesempatan ini akan diberikan contoh pengembangannya dengan menyajikan data sebanyak 8 channel data. Selain penyajian dalam grafik, diberikan juga sebuah indikator pada tiap-tiap channel dengan menentukan batas atas dan batas bawah. Batas atas disini, untuk memberitahukan bawah titik atas tersebut sudah tercapai dengan ditandai berubah warnah merah pada penanda.

Selain disajikan dalam bentuk grafik, data ditampilkan pula dalam grid yang menyajikan data dalam bentuk numerik. Sehingga secara visual dan numerik dapat diamati dengan lebih mudah. Masing-masing channel dibedakan dengan warna yang berbeda.

Pada dasarnya, proses delapan channel data tersebut adalah sama dengan proses satu grafik yang dibuat parallel. Dalam pengambilan data, ditangani oleh MCU yang membaca data analog dengan menggunakan ADC internal ATMega16. MCU mengambil data dengan sistem polling, ADC yang jumlahnya 8 channel dibaca dari channel 1 sampai channel 8. Kemudian data yang didapatkan dibuat paket data menjadi satu frame data.

Data disusun dengan skema berikut:

1. Header = #

2 Delimiter = $ – ?

3. Data = 0 s/d 5000

4. End of Data = &@

#$ADC1?$ADC2?$ADC3?$ADC4?$ADC5?$ADC6?$ADC7?$ADC8?&@ + [ENTER]

dalam contoh dengan data numerik:

#$520?$1040?$1560?$2080?$2600?$3120?$3640?$4160?&@ + [ENTER]

Header, delimiter dan End of data diperlukan untuk parameter bahwa data yang ada adalah valid dan dapat digunakan.

Untuk dapat mengambil data menjadi delapan data kembali, maka diperlukan identifikasi. Proses yang dilakukan adalah membaca parameter-parameter di atas. Pertama, membaca header, kemudian membaca delimiter, kemudian membaca end of data, baru membaca datanya.

Untuk membaca header, langkahnya adalah membaca karakter #. Pada visual basic, untuk membaca karakter tertentu digunakan syntax:

[sourcecode]

Kres = InStr(PaketData, "#")

[/sourcecode]

membaca end of data:

[sourcecode]

At = InStr(PaketData, "@")

[/sourcecode]

Terakhir untuk mengetahui sebuah data, maka kita perlu mengetahui posisi delimiter.

[sourcecode]

Dollar = InStr(PaketPecah, "$")
Tanya = InStr(PaketPecah, "?")

[/sourcecode]

baru kita bisa mendapatkan data pengukuran tersebut.

Selanjutnya baru kita membuat tampilan dalam bentuk grafik seperti telah dibahas pada tulisan sebelumnya.

Demikian semoga bermanfaat.

Source Code VB.

└ Tags: , , , , ,
30 Comments

Tutorial FPGA – 2

Sep26
by on September 26, 2011 at 1:39 PM
Posted In: FPGA

14 . Pilih menu Add –> Wire (Ctrl + W)


Kemudian klik dari ujung pin CE, tarik garis lurus kea rah kiri kemudian klik sampai membentuk wire, klik Esc.

15. Tambahkan wire untuk semua pin yang ada seperti berikut


16. Pilih menu Add –> I/O marker (Ctrl + G), kemudian select pin CE, C dan CLR seperti tampilan berikut



17. Ulangi untuk pin Q0 s/d pin Q3, CEO, TC

Secara default masing-masing pin akan memiliki nama dari XLXN_1

18. Klik kanan pada I/O marker XLXN_1, pilih Object Properties, pilih Nets, XLXN_1


19. Pada kolom Value, baris Name ganti dengan CE


20. Ganti nama masing-masing pin sesuai tampilan berikut


21. Klik kanan pada xc3s400an-4fgg400 kemudian pilih New Source


Tambahkan VHDL Test Bench, beri nama pada File name Counter4bit_tb, kemudian klik Next >

22. Klik Next >


23. Klik Finish


24. Selanjutnya akan muncuk code HDL disebelah kanan


25. Edit code berikut:

tb : PROCESS

BEGIN

                WAIT;

END PROCESS;

Menjadi seperti berikut:

C1 : PROCESS

BEGIN

                C <= ‘1’; wait for 10ns;

                C <= ‘0’; wait for 10ns;

END PROCESS;


26. Pada tab Hierarchy, klik Counter4bit.sch, kemudian pada tab Processes: Counter4bit, klik kanan Synthesize – XST kemudian pilih Run


27. Pada tab View pilih Simulation. Pada tab Hierarchy pilih Counter4bit_tb.vhd


Pada tab Processes pilih Isim Simulator à Behavioral Check Syntax

28. Kemudian klik kanan Simulate Behavioral Model à Run


29. Kemudian akan muncul layar window baru seperti berikut


30. Kemudian klik icon no 1 diikuti no 2.


Demikian, petunjuk singkat membuat clock pada FPGA dengan gambar rangkaian dan VHDL.

Semoga bermanfaat.

└ Tags: , , , ,
769 Comments

Billing Rental Play Station (PS) Dengan Visual Basic 6

Sep24
by on September 24, 2011 at 10:50 PM
Posted In: VB 6.0

Rental Play Station (PS), kebanyakan masih menggunakan timer bawaan dari layar Televisi yang dipakai. Sebenarnya menggunakan timer TV tersebut bisa saja digunakan untuk timer, namun keterbatasannya adalah, kita tidak bisa mengetahui biaya yang sudah ada dan tidak ada log pembukuannya.

Berbeda dengan billing yang berupa software di PC, kita bisa mendapatkan nilai lebih. Misalnya, bisa dilakukan pembukuan secara otomatis, untuk mendapatkan analisa pendapatan rental. Kemudian, keuntungan lain, bisa mengetahui unit yang selalu dipakai dan unit yang jarang dipakai, ataupun yang lainnya.

Pada kesempatan kali ini, akan disampaikan sedikit pembuatan sebuah billing rental Play Station (PS) sebanyak 4 unit dengan mengontrol switch ON/OFF pada sumber listriknya. Pada sistem ini, billing menghitung biaya dan durasi yang dipakai user. Kemudian untuk mengaktifkan dan menghentikan PS, digunakan metode  On/Off power AC dari unit PS menggunakan relay yang dikendalikan oleh MCU/mikrokontroller.

Cara kerja billing adalah, saat billing di mulai, maka software akan mengirim perintah ke MCU untuk menyalakan relay sesuai dengan nomer billing yang diaktifkan. Kemudian MCU akan mengaktifkan relay sehingga aliran listrik ke unit yang dimaksud akan mengalir. PS dapat digunakan setelah billing aktif. Demikian juga untuk unit yang lain, dapat diaktifkan dan dimatikan dengan melalui software billing di PC. Pada software, akan tercatat waktu mulai unit dan menampilkan biaya tagihan.

Harga sewa unit juga dapat diatur melalui setting harga yang disediakan, dan dapat disesuaikan dengan mudah. Selain itu, semua unit dapat dimatikan dan dinyalakan secara bersamaan melalui sebuah tombol.

Demikian, semoga bermanfaat.

Download Source Code.

└ Tags: , ,
15 Comments