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 

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