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 

Menampilkan Image Pada GUI Matlab

Oct31
by on October 31, 2012 at 12:21 PM
Posted In: GUI Matlab, Matlab

logoMatlabUntuk dapat menampilkan sebuah image/citra pada GUI matlab sebenarnya tidak sulit. Kita hanya perlu menambahkan sebuah axes dan sebuah button.

Pada tulisan ini akan diberikan contoh simpel bagaimana membuat sebuah GUI untuk menampilkan citra/image.

Matlab menyediakan tool untuk membuat GUI layaknya VB, VC, Delphi atau yang lain, tapi dengan beberapa keterbatasan yang dimiliki.

Yang pertama harus dilakukan adalah mengetik guide pada command window.

1. ketik guide

guide command

2. Kemudian akan muncul dialog sebagai berikut

guide

pilih Blank GUI (Default), kemudian klik OK

3.  Selanjutnya akan muncul window desain GUI

untitled GUI

4. Tambahkan Axes, Static Text dan Button kedalam desain

desain

5. Munculkan window Properties Inspector, melalui menu View –> Properties Inspector, akan muncul berikut

properties inspector

6. Atur properties String pada pushbutton1, dengan menulis Buka

Buka

7. Atur properties String pada pushbutton1, dengan menulis MENAMPILKAN IMAGE

menampilkan image

8. Simpan project dengan nama BukaImage.m

9. Klik kanan pada pushbutton1, pilih View callbacks –> Callback

10. Masukkan script berikut

axes(handles.axes1);
clear gca;

[FileName,PathName,FilterIndex] = uigetfile(‘*.jpg,*.bmp’,’Pilih Citra’,’*.jpg’);
handles.NamaFile=FileName;
handles.PathName=PathName;
guidata(hObject,handles);

if isequal(FileName,0)
disp(‘User selected Cancel’)
else
axes(handles.axes1);
clear gca;
set(gca,’ytick’,[]);
set(gca,’xtick’,[]);

axes(handles.axes1);
handles.Citra.RGB = imread([PathName FileName]);
image(handles.Citra.RGB),
set(gca,’ytick’,[]);
set(gca,’xtick’,[]);
guidata(hObject,handles);
%disp([‘User selected’, fullfile(PathName, FileName)])
end

11. Hasilnya adalah

hasil

Demikian Semoga bermanfaat.

— Rohmadi —

Source

Template

└ Tags: , , , , , ,
1,733 Comments

Source: Program Absensi Karyawan Dengan Visual Basic 6.0 dan Barcode

Oct29
by on October 29, 2012 at 10:18 AM
Posted In: VB 6.0

Demo Program

Source Code

Jika link tersebut di atas tidak berjalan dengan baik, silakan merujuk pada artikel yang sama pada site http://rohmadi-rohmad.blogspot.com

NB:

untuk menggunakan software di atas, pada PC/Laptop harus ada port serial dengan konfigurasi Port Number 6, 9600,n,8,1. Untuk mempelajari melakukan setting port serial pada VB silakan cek posting disini.

Jika ada barcode reader serial, lebih diutamakan.

Insya Alloh pada posting berikutnya akan diberikan coding untuk absensi karyawan tanpa barcode.

 

Tutorial Video Penggunaan Program

– Mencari dan menghapus data karyawan. [15-12-2013]

└ Tags: , , , , , , , , , , , ,
10,824 Comments

Vario Techno CBS

Oct26
by on October 26, 2012 at 8:00 AM
Posted In: Artikel Umum

CBS_Comet_Black

Fitur yang ditawarkan:

1. Tuas Pengunci Rem

cbsfitur01
Berfungsi sebagai rem tangan, mencegah motor loncat saat menghidupkan mesin, praktis dan nyaman saat parkir atau berhenti di tanjakan.

2.TUAS PENGUNCI REM 

cbsfitur02

Berfungsi sebagai rem tangan, mencegah motor loncat saat menghidupkan mesin, praktis dan nyaman saat parkir atau berhenti di tanjakan.

3. LAMPU DEPAN GANDA 

Desain lampu depan ganda dengan multireflektor dan lampu senja ganda yang berkarakter dan agresif.

4. PENGAMAN KUNCI KONTAK BERMAGNET OTOMATIS 

technofitur03

Sistem penguncian bermagnet dengan tutup otomatis untuk menghindari resiko pencurian. Serta fosfor (ilumi) untuk memudahkan penggunaan di kegelapan.

5. PANEL INDIKATOR 

technofitur04

Desain modern dengan informasi kecepatan, jarak tempuh, suhu mesin, indikator bensin dan lampu sein yang mudah dipantau.

6. BAGASI SERBA GUNA DENGAN PENUTUP 

technofitur05

Berkapasitas 6 liter, dilengkapi dengan penutup sehingga barang bawaan tersimpan rapi dan terlindungi.

7. LAMPU BELAKANG AGRESIF 

technofitur06

Desain lampu belakang yang agresif, tajam dan futuristik dengan multireflektor pada lampu stop dan sein.

8. RAK SERBA GUNA 

technofitur07

Memiliki kapasitas 3 liter yang tersedia di sisi kiri dan kanan untuk penyimpanan barang-barang bawaan.

9. SASS EURO 2 EMISSION 

variofitur05

Teknologi SASS (Secondary Air Supply System) membuat sisa pembakaran menjadi gas buang yang tidak berbahaya dan telah memenuhi standar emisi EURO 2 yang ditetapkan pemerintah.

10. HONDA V-MATIC TECHNOLOGY 

variofitur05

Teknologi transmisi otomatis yang menghasilkan tenaga optimal yang efisien tanpa perlu pindah gigi secara manual.

11. RADIATOR 

variofitur06

Optimal mendinginkan mesin menghasilkan kompresi tinggi dan tenaga besar, menjaga kestabilan suhu dan akselerasi cepat. Bermanfaat saat mendahului atau jalan mendaki namun tetap irit.

12. STANDAR SAMPING OTOMATIS 
variofitur07

Mesin tidak bisa dinyalakan saat standar samping dalam posisi turun sehingga menghindari resiko pengendara lupa menaikkan standar samping.

13.SELANG UDARA 

variofitur08

Mengatur arah masuknya udara ke dalam mesin (300mm) sehingga mengurangi resiko masuknya air ke dalam mesin saat menerjang genangan air.

14. DUDUKAN MESIN 

variofitur09

Terdapat 2 sumbu as yang dapat bergerak bebas sehingga getaran dari mesin dan roda belakang dapat diredam.

15. PELINDUNG MESIN 

variofitur10

Terdapat 2 unit besi kuat terletak di bawah mesin untuk mengurangi resiko mesin rusak akibat benturan dari bawah.

16. CHOKE OTOMATIS 

variofitur11

Dilengkapi auto chock, tidak perlu menggeser tuas choke secara manual.

17. BATERAI BEBAS PERAWATAN 

variofitur12

Praktis dan bebas perawatan.

18. LAMPU DEPAN GANDA 

variofitur13

Cahaya menjadi terang dan jangkauan sinar semakin luas. Posisi lampu di bawah memberi pencahyaan maksimal di permukaan jalan, bahkan saat membelok. Nyaman dikendarai di malam hari.

 

sumber: http://www.welovehonda.com/vario-techno-cbs

└ Tags: , , , ,
1,054 Comments