Getting Started with Arduino and Genuino UNO

Monday 6 April 2015

DELPHI7 :: Program Kalkulator di Delphi

Deskripsi :

Program kalkulator ini merupakan kalkulator bertipe standar bukan scientic karena fungsi-fungsi penghitungan yang ada masih sederhana seperti tambah, kurang, bagi, kali, akar, mod (sisa pembagian), dan sebagainya. Model dan style dari kalkulator yang saya buat menyerupai kalkulator yang ada pada windows xp. Saya membuat program ini dengan bahasa pemrograman delphi 7 dengan komponen standar yang ada di delphi 7 tersebut.

Source code Program :

  
type  
TFKalkulator = class(TForm)  
  b0: TBitBtn;  
  b1: TBitBtn;  
  b4: TBitBtn;  
  b7: TBitBtn;  
  bMinus: TBitBtn;  
  b2: TBitBtn;  
  b5: TBitBtn;  
  b8: TBitBtn;  
  bTitik: TBitBtn;  
  b3: TBitBtn;  
  b6: TBitBtn;  
  b9: TBitBtn;  
  bTambah: TBitBtn;  
  bKurang: TBitBtn;  
  bKali: TBitBtn;  
  bBagi: TBitBtn;  
  bHasil: TBitBtn;  
  BitBtn18: TBitBtn;  
  bMod: TBitBtn;  
  bAkar: TBitBtn;  
  EdTampil: TEdit;  
  bClear: TBitBtn;  
  BitBtn22: TBitBtn;  
  bBackspace: TBitBtn;  
  MainMenu1: TMainMenu;  
  XPManifest1: TXPManifest;  
  Pengaturan1: TMenuItem;  
  Clear1: TMenuItem;  
  Copy1: TMenuItem;  
  Paste1: TMenuItem;  
  N1: TMenuItem;  
  Keluar1: TMenuItem;  
  Bantuan1: TMenuItem;  
  BukuManual1: TMenuItem;  
  VideoTutorial1: TMenuItem;  
  N2: TMenuItem;  
  HakCipta1: TMenuItem;  
  Timer1: TTimer;  
  Panel1: TPanel;  
  Label1: TLabel;  
  Label2: TLabel;  
  Label3: TLabel;  
  Timer2: TTimer;  
  procedure FormShow(Sender: TObject);  
  procedure b1Click(Sender: TObject);  
  procedure b2Click(Sender: TObject);  
  procedure b3Click(Sender: TObject);  
  procedure b4Click(Sender: TObject);  
  procedure b5Click(Sender: TObject);  
  procedure b6Click(Sender: TObject);  
  procedure b7Click(Sender: TObject);  
  procedure b8Click(Sender: TObject);  
  procedure b9Click(Sender: TObject);  
  procedure b0Click(Sender: TObject);  
  procedure bClearClick(Sender: TObject);  
  procedure bTambahClick(Sender: TObject);  
  procedure bTitikClick(Sender: TObject);  
  procedure bKurangClick(Sender: TObject);  
  procedure bKaliClick(Sender: TObject);  
  procedure bBagiClick(Sender: TObject);  
  procedure bHasilClick(Sender: TObject);  
  procedure bBackspaceClick(Sender: TObject);  
  procedure bAkarClick(Sender: TObject);  
  procedure bModClick(Sender: TObject);  
  procedure bMinusClick(Sender: TObject);  
  procedure Clear1Click(Sender: TObject);  
  procedure Copy1Click(Sender: TObject);  
  procedure Paste1Click(Sender: TObject);  
  procedure Timer1Timer(Sender: TObject);  
  procedure Keluar1Click(Sender: TObject);  
  procedure Timer2Timer(Sender: TObject);  
  procedure BitBtn18Click(Sender: TObject);  
  procedure HakCipta1Click(Sender: TObject);  
private  
  { Private declarations }  
  procedure hitung();  
public  
  { Public declarations }  
end;  
  
var  
FKalkulator: TFKalkulator;  
hasil,temp, simbol, data : string;  
klik : Integer;  
  
implementation  
  
uses StrUtils;  
  
{$R *.dfm}  
  
procedure TFKalkulator.hitung();  
var nilai_real : real;   // hasil yg bersifat real  
  nilai_int : Integer; // hasil yg bersifat integer  
begin  
// kondisi jika operand baru pertama kali diperintahkan  
if klik=1 then  
  hasil :=EdTampil.Text  
else  
  data := EdTampil.Text;  
  
// inisialisasi  
nilai_real := 0;  
  
// kondisi perhitungan jika ditemukan simbol  
if simbol = '+' then  
 begin  
 nilai_real := (StrToFloat(hasil)+StrToFloat(data));  
 hasil := FloatToStr(nilai_real);  
 end  
else if simbol = '-' then  
 begin  
 nilai_real := (StrToFloat(hasil)-StrToFloat(data));  
 hasil := FloatToStr(nilai_real);  
 end  
else if simbol = '/' then  
 begin  
 nilai_real := (StrToFloat(hasil)/strToFloat(data));  
 hasil := FloatToStr(nilai_real);  
 end  
else if simbol = 'X' then  
 begin  
 nilai_real := (StrToFloat(hasil)*StrToFloat(data));  
 hasil := FloatToStr(nilai_real);  
 end  
else if simbol = '%' then  
 begin  
 nilai_int := (StrToInt(hasil) mod StrToInt(data));  
 hasil := IntToStr(nilai_int);  
 end  
else if simbol = 'sqrt' then  
 begin  
 nilai_real :=  sqrt(StrToFloat(hasil));  
 hasil := FloatToStr(nilai_real);  
 end  
else if simbol = '1/x' then  
 begin  
 nilai_real :=  1/(StrToFloat(hasil));  
 hasil := FloatToStr(nilai_real);  
 end  
else if simbol = '=' then  
 hasil := FloatToStr(nilai_real);  
end;  
  
procedure TFKalkulator.FormShow(Sender: TObject);  
begin  
//EdTampil.al :=  
EdTampil.Text :=  '0';  
  
// inisialisasi variabel global  
temp := '';   // menyimpan sementara bilangan di EdTampil  
data := '';   // memindahkan hasil dari temp agar bersifat permanen  
hasil := '';  // hasil perhitungan  
simbol := ''; // operand type  
  
klik := 0; //bnyaknya klik suatu operand  
  
Panel1.Visible := False;  
Timer1.Enabled := False;  
Timer2.Enabled := False;  
end;  
  
procedure TFKalkulator.b1Click(Sender: TObject);  
begin  
if (EdTampil.Text = '0') then  
 EdTampil.Clear  
else if (klik>1) then  
 begin  
 EdTampil.Clear;  
 klik:=1;  
 end;  
  
temp := EdTampil.Text;  
EdTampil.Text := temp+'1';  
end;  
  
procedure TFKalkulator.b2Click(Sender: TObject);  
begin  
if (EdTampil.Text = '0') then  
 EdTampil.Clear  
else if (klik>1) then  
 begin  
 EdTampil.Clear;  
 klik:=1;  
 end;  
  
temp := EdTampil.Text;  
EdTampil.Text := temp+'2';  
end;  
  
procedure TFKalkulator.b3Click(Sender: TObject);  
begin  
if (EdTampil.Text = '0') then  
 EdTampil.Clear  
else if (klik>1) then  
 begin  
 EdTampil.Clear;  
 klik:=1;  
 end;  
  
temp := EdTampil.Text;  
EdTampil.Text := temp+'3';  
end;  
  
procedure TFKalkulator.b4Click(Sender: TObject);  
begin  
if (EdTampil.Text = '0') then  
 EdTampil.Clear  
else if (klik>1) then  
 begin  
 EdTampil.Clear;  
 klik:=1;  
 end;  
  
temp := EdTampil.Text;  
EdTampil.Text := temp+'4';  
end;  
  
procedure TFKalkulator.b5Click(Sender: TObject);  
begin  
if (EdTampil.Text = '0') then  
 EdTampil.Clear  
else if (klik>1) then  
 begin  
 EdTampil.Clear;  
 klik:=1;  
 end;  
  
temp := EdTampil.Text;  
EdTampil.Text := temp+'5';  
end;  
  
procedure TFKalkulator.b6Click(Sender: TObject);  
begin  
if (EdTampil.Text = '0') then  
 EdTampil.Clear  
else if (klik>1) then  
 begin  
 EdTampil.Clear;  
 klik:=1;  
 end;  
  
temp := EdTampil.Text;  
EdTampil.Text := temp+'6';  
end;  
  
procedure TFKalkulator.b7Click(Sender: TObject);  
begin  
if (EdTampil.Text = '0') then  
 EdTampil.Clear  
else if (klik>1) then  
 begin  
 EdTampil.Clear;  
 klik:=1;  
 end;  
  
temp := EdTampil.Text;  
EdTampil.Text := temp+'7';  
end;  
  
procedure TFKalkulator.b8Click(Sender: TObject);  
begin  
if (EdTampil.Text = '0') then  
 EdTampil.Clear  
else if (klik>1) then  
 begin  
 EdTampil.Clear;  
 klik:=1;  
 end;  
  
temp := EdTampil.Text;  
EdTampil.Text := temp+'8';  
end;  
  
procedure TFKalkulator.b9Click(Sender: TObject);  
begin  
if (EdTampil.Text = '0') then  
 EdTampil.Clear  
else if (klik>1) then  
 begin  
 EdTampil.Clear;  
 klik:=1;  
 end;  
  
temp := EdTampil.Text;  
EdTampil.Text := temp+'9';  
end;  
  
procedure TFKalkulator.b0Click(Sender: TObject);  
begin  
if (EdTampil.Text = '0') then  
 EdTampil.Clear  
else if (klik>1) then  
 begin  
 EdTampil.Clear;  
 klik:=1;  
 end;  
  
temp := EdTampil.Text;  
EdTampil.Text := temp+'0';  
end;  
  
procedure TFKalkulator.bTitikClick(Sender: TObject);  
begin  
if (klik>1) then  
 begin  
 EdTampil.Clear;  
 klik:=1;  
 end;  
  
temp := EdTampil.Text;  
EdTampil.Text := temp+'.';  
end;  
  
procedure TFKalkulator.bMinusClick(Sender: TObject);  
begin  
if ((EdTampil.Text = '0') OR (klik>1)) then  
  EdTampil.Clear;  
  
temp := EdTampil.Text;  
EdTampil.Text := temp+'-';  
end;  
  
procedure TFKalkulator.bClearClick(Sender: TObject);  
begin  
FormShow(Sender); // tampilkan dlm keadaan awal  
end;  
  
procedure TFKalkulator.bTambahClick(Sender: TObject);  
begin  
klik:=klik+1;  
//ShowMessage(''+IntToStr(klik));  
hitung();  
if klik=1 then  
  EdTampil.Text := ''  
else  
 EdTampil.Text := hasil;  
  
simbol := '+';  
temp := '';  
end;  
  
procedure TFKalkulator.bKurangClick(Sender: TObject);  
begin  
klik:=klik+1;  
hitung();  
if klik=1 then  
  EdTampil.Text := ''  
else  
 EdTampil.Text := hasil;  
simbol := '-';  
temp := '';  
end;  
  
procedure TFKalkulator.bKaliClick(Sender: TObject);  
begin  
klik:=klik+1;  
hitung();  
if klik=1 then  
  EdTampil.Text := ''  
else  
 EdTampil.Text := hasil;  
simbol := 'X';  
temp := '';  
end;  
  
procedure TFKalkulator.bBagiClick(Sender: TObject);  
begin  
klik:=klik+1;  
hitung();  
if klik=1 then  
  EdTampil.Text := ''  
else  
 EdTampil.Text := hasil;  
  
simbol := '/';  
temp := '';  
end;  
  
procedure TFKalkulator.bModClick(Sender: TObject);  
begin  
klik:=klik+1;  
hitung();  
if klik=1 then  
  EdTampil.Text := ''  
else  
 EdTampil.Text := hasil;  
  
simbol := '%';  
temp := '';  
end;  
  
procedure TFKalkulator.bAkarClick(Sender: TObject);  
begin  
klik:=klik+1;  
if klik=1 then  
 begin  
    simbol := 'sqrt';  
    hitung();  
    EdTampil.Text := hasil;  
 end  
else  
 begin  
    hitung();  
    EdTampil.Text := hasil;  
 end;  
  
temp := '';  
klik:=0;  
simbol:= '';  
end;  
  
procedure TFKalkulator.BitBtn18Click(Sender: TObject);  
begin  
klik:=klik+1;  
if klik=1 then  
 begin  
    simbol := '1/x';  
    hitung();  
    EdTampil.Text := hasil;  
 end  
else  
 begin  
    hitung();  
    EdTampil.Text := hasil;  
 end;  
temp := '';  
klik:=0;  
simbol:= '';  
end;  
  
procedure TFKalkulator.bHasilClick(Sender: TObject);  
begin  
klik:=klik+1;  
hitung();  
EdTampil.Text := hasil;  
temp := '';  
klik:=0;  
simbol:= '';  
end;  
  
procedure TFKalkulator.bBackspaceClick(Sender: TObject);  
var pjg : Integer;  
begin  
pjg := (EdTampil.GetTextLen); // panjang karakter dalam EdTampil  
EdTampil.Text := LeftStr(EdTampil.Text, pjg-1); // Tampilkan karakter sebanyak pjg-1 dari kiri  
if pjg = 1 then  
 EdTampil.Text := '0';  
end;  
  
procedure TFKalkulator.Clear1Click(Sender: TObject);  
begin  
bClear.Click;  
end;  
  
procedure TFKalkulator.Copy1Click(Sender: TObject);  
begin  
EdTampil.SelectAll;  
EdTampil.CopyToClipboard;  
end;  
  
procedure TFKalkulator.Paste1Click(Sender: TObject);  
begin  
EdTampil.Clear;  
EdTampil.ReadOnly := False;  
EdTampil.PasteFromClipboard;  
EdTampil.ReadOnly := True;  
end;  
  
procedure TFKalkulator.Timer1Timer(Sender: TObject);  
begin  
AlphaBlend := True;  
Panel1.Visible := True;  
if Panel1.Height = 208 then  
 begin  
    Timer2.Enabled := True;  
 end  
else  
 begin  
    Panel1.Height := Panel1.Height +1;  
  
    if (Panel1.Height mod 4=0) then  
       begin  
           Label1.Top := Label1.Top+1;  
           Label2.Top := Label2.Top+1;  
           Label3.Top := Label3.Top+1;  
       end;  
 end;  
end;  
  
procedure TFKalkulator.Keluar1Click(Sender: TObject);  
begin  
Timer1.Enabled := True;  
end;  
  
procedure TFKalkulator.Timer2Timer(Sender: TObject);  
begin  
 if AlphaBlendValue=180 then  
    close  
 else  
    begin  
    AlphaBlendValue := AlphaBlendValue-1;  
    Caption := 'Kalkulator '+IntToStr(AlphaBlendValue-180);  
    end;  
end;  
  
procedure TFKalkulator.HakCipta1Click(Sender: TObject);  
begin  
ShowMessage('Peogram kalkulator Standart Versi 1.0 '+#13#10+  
          'Dibuat oleh Mahasiswa Ilmu Komputer UB '+#13#10+  
          'ADHITYA AHMAD P (0510960002) '+#13#10+  
          'Angkatan 2005');  
end;  
  
end.  

Output Program :

DELPHI7 :: Komponen untuk Delphi

Bahasa Pemrograman delphi merupakan bentuk visual dari bahasa pemrograman pascal yang terinspirasi dari munculnya bentuk visual dari BASIC yaitu visual basic. Bahasa pemrograman delphi ini lahir pada tahun 1995 dan sempat menjadi bahasa pemrograman favorit para programmer pada akhir dekade 90-an. Popularitasnya semakin menurun sejak Anders Hejlsberg,yang mana merupakan pentolan dari programmer delphi "diculik" oleh Microsoft untuk mengembangkan bahasa pemrograman C#(dibaca:si sharp).

Bahasa pemrograman ini tidak berbasis OOP melainkan berbasis struktur hanya fungsi dan procedure saja. Pada umumnya, software ini hanya menyediakan komponen-komponen standar untuk pengembangan dan pembuatan suatu aplikasi. Untuk memperindah dan memudahkan Anda dalam pembuatan aplikasi, delphi menyediakan berbagai komponen yang menarik dan sesuai dengan kebutuhan programmer. Adapun beberapa komponen tambahan yang mendukung untuk delphi yaitu :

DevExpress

Komponen tambahan ini sangat banyak sekali fitur yang disuguhkan. Style yang menyerupai office 2007 seperti ribbon, sidebar, page control, toolbar, image, data control dan lain-lain. Terlihat begitu smooth dan sangat elegant sekali. Jika Anda berminat ingin mencoba komponen tersebut silakan download disini. Dilengkapi dengan demo-nya juga lho! untuk mengetahui cara penggunaan komponen-komponen tersebut.

Adapun petunjuk instalasi sebagai berikut :

Pastikan borland delphi telah ter-install dengan sempurna sebelumnya. Disini, saya tidak akan menjelaskan bagaimana cara meng-install delphi.
Extract file DevExpress yang telah anda download tadi. Hasilnya berupa folder dengan nama 'DevExpress'. Kalo Anda g punya aplikasinya bisa download WinRar disini.
Copy folder DevExpress ini ke ....\Program Files\Borland\Delphi7\ (tempat anda meng-install delphi).
Install komponen DevExpress dengan membuka tiap folder yang ada di dalam folder DevExpress kemudian cari folder package. Disana terdapat file ber-type delphi package, pilih file tersebut sesuai dengan versi delphi anda. Misal, Delphi 7 maka akan ada file bernama ....7.dcu kemudian klik file tersebut. Perhatikan langkah di bawah ini dengan seksama!

a. Pertama akan muncul tampilan seperti di bawah ini.

b. Kemudian dari tampilan di atas tadi pilih option. Maka akan muncul tampilan seperti di bawah ini. Pilihlah designtime and runtime kemudian klik tombol 'OK'.

c. Kemudian tampilan akan kembali ke langkah a dan tekanlah tombol 'compile'. Jika muncul tampilan seperti di bawah ini .

cari unit atau source (.pas) dari nama yang diberi warna merah seperti gambar diatas. Source tersebut ada terdapat di dalam folder cari folder dengan nama 'source'. Tanda tersebut memberitahukan bahwa file tersebut belum ditambahkan. Adapun cara penambahannya seperti di bawah ini yang terdapat pada tombol 'add' pada tampilan seperti langkah a.

Copy url nama unit atau file yang belum ditambahkan tadi ke tampilan di atas. Atau browse nama unit atau file tersebut. Kemudian tekan tombol 'OK'. Jika berhasil akan muncul perintah seperti di bawah ini

Begitu seterusnya untuk tiap-tiap komponen yang ada.

Untuk memperlancar proses instalasi sebaiknya Anda mengikuti urutan langkah-langkah instalasi komponen di bawah. Adapun urutan langkah-langkah instalasi komponennya adalah sebagai berikut :
> XP Theme Manager
> ExpressGDI+ Library
> ExpressLibrary
> ExpressCommon Library
> ExpressBars 6
> ExpressNavBar
> ExpressDocking Library
> ExpressPageControl 2
> ExpressExport Library
> ExpressDataController
> ExpressEditors Library 5

Nice Grid
Anda ingin memiliki tabel yang menyerupai microsoft excell? Inilah komponennya 'NiceGrid'. Sayang, tersedia untuk delphi 7 saja. Dengan komponen ini Anda akan merasakan bahwa tabel yang akan Anda pakai menjadi lebih modern karena tampilan ini g jadul banget kaya komponen brid lainnya yang ada. disini

DELPHI7 :: Membuat menu ribbon layaknya Office 2007

Pada component pallete delphi pilih ExpressBar.
Kemudian pilih dxRibbon, letakkan komponennya pada form
Kemudian pilih dxBarmanager secara default akan bernama dxBarManager1
Pada Object Inspector dxRibbon pilih properties BarManager lalu link-kan dengan dxBarManager1
Untuk memulai kerja pada bidang, klik kanan pada mouse lalu pilih Group With Toolbar untuk menambah komponen pada masing-masing menu
Pada toolbar, klik kanan untuk menambahkan komponen
Hasilnya
Jika ingin membuat menu dipojok kiri atas, pada komponen dxRibbon cari properties QuickAccessToolbar kemudian pilih toolbar (cari toolbar yg memang disediakan untuk menu pada pojok kiri atas).Untuk meng-edit menu tersebut cari properties application button pada dxribbon

Jadi pada intinya dalam pembuatan ribbon dibutuhkan komponen dxBarManager. Prinsip ribbon sama dengan toolbar (komponen sebelumnya). Jika ingin menggali lebih dalam "mainkan" saja properties yg ada dan lihatlah perubahannya.

Tambahan Lainnya......

Mennyisipkan gambar pada komponen-komponen di ribbon.

Pada component pallete pilih Dev Express lalu cari komponen cxImageList. Kemudian klik dan pindahkan ke form
Lalu link-kan komponen tersebut pada komponen ribbon. Caranya pada komponen ribbon cari properties BarManager lalu expand kemudian cari ImageOption, nanti ada properties Images dan LargeImage. Salah satu saja dipilih
Pada cxImageList itu sendiri Anda hanya menambahkan icon picture yg akan diurutkan pada index-nya. Double-klik komponen tersebut maka akan tampil seperti gambar di bawah ini :
Pada komponen ribbon, klik component yg ingin disipkan gambar lalu cari properties ImageIndex atau largeImageIndex dan pilih icon yg ingin ditampilkan

Membuat Hint untuk komponen-komponen di ribbon

Pada component pallete pilih ExpressBar lalu cari komponen dxbarScreenTipRepository
Double-klik komponen tersebut lalu add new. Isi properties Header, Footer, Description
Pada komponen yg ada di ribbon, klik komponen tersebut dan link-kan dgn dxBarScreenTipRepository. Caranya cari properties ScreenTip dan pilih

DELPHI7 :: Enkripsi MD5 pada Delphi

download dulu file berikut ini. Chash

setelah didwnload file di atas, jangan lupa diextract ya, kemudian file cHash.pass simpan pada C:\Program Files\Borlan\Delphi7\Imports. Setelah sukses buka Program Delphinya ya, kemudian buat form inputan seperti berikut .

Pindah pada bagian script,

pada bagian uses tuliskan chash, seperti di bawah ini:

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, chash;

kemudian pada tombol enkripsi tuliskan script berikut ini.

procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=MD5DigestToHex(CalcMD5(edit1.Text));

end;

silahkan sobat depmoto run kemudian inputkan karakter huruf, angka, simbol kemudian klik tombol enkripsi maka pada edit2 tampil hasil enkripsi md5 nya.

sekian dulu artikel kali ini, selamat mencoba semoga berguna.

DELPHI7 :: Membuat Menu Ribbon ala Office 2007 di Delphi

gbr.1

Pastinya dikalangan programer profesional sudah tidak asing lagi dengan devexpress anda bisa melihat-lihat di web Devexpress . Kali ini saya tidak akan membahas harga, keunggulan dari komponen tersebut, namun akan membahas sesuai judul di atas.

Oke langsung ke tkp ya, nah kali ini bagi yang sudah punya komponen devexpress silahkan buka delphinya.

Pada Form tempatkan komponen dxBarManager dan dxRibbon.
Doble klik dxBarManager pada Form1 maka tampil jendela customize, pada tab toolbar klik tombol New, kemudian beri nama menu A1, tambah lagi beri nama menu A2. Proses tersebut untuk membuat kelompok toolbar pada Tab menu.

gbr.2
Sekarang lihat ke kotak Objek Treeview, lihat objek dxRibbon1, klik sub dxRibbon1tab1, klik kanan pada sub Groups dan pilih add item.

gbr.3
Setelah terbentuk klik TdxRibbonTabgroup pada object treeview, kemudian lihat pada jendela object Inspector, pada Properties ToolBar pilih dxBarManager1Bar1, maka pada dxRibbonTab1 yang ada pada Form1 terbentuk sebuah kelompok toolbar menu A1, untuk menghilangkan tulisan menu A1, hapus di properties caption.

gbr.4
Untuk mengganti Caption dxRibbon1Tab1, caranya klik dxRibbon1Tab1 pada form1 ubah Caption di Properties misalnya FORM A.
Selanjutnya kita dapat menambahkan tombol atau text menu dll pada kotak menu A1, caranya klik kanan misal pilih AddLargeButton (membuat tombol besar yang dapat disisipkan text dan gambar). Aturlah propertis dari button tersebut (Caption : Account, name: caccount, LargeGlyph: sisipkan gambar berformat png,jpg atau bmp maksimalm ukuran 24 x 24 px), seperti gambar di bawah ini.

gbr.5
Proses pembuatan toolbar menu a sudah terbentuk, selanjutnya membuat toolbar menu b pada kelompok Tab menu FORM A, caranya ulangi point no. 3 diatas sampai no. 6 sehingga terbentuk toolbar menu b. seperti gambar di bawah ini.

gbr.6
Untuk menambahkan Tab Menu baru tinggal klik kanan pada Tab menu Form A pilih Add Tab, selanjutnya untuk menambakah kelompok toolbar anda bisa ulangi proses di atas dari point 1 sampai point 7.

gbr.7
Untuk menambahkan script pada tombol-tombol menu yang sudah kita buat, caranya sama seperti pada umumnya, tinggal doble klik maka akan langsung diarahkan ke script editor.

itusaja pembahasan kali ini, silahkan di coba semoga bermanfaat.