foreign-exchange.rar_Foreign_exchange

%--------------------- %program Latihan 24 %MATLAB Window Programing %Oleh : Gunay %--------------------- clear all; clc; win1=figure(... 'units','points',... 'position',[130 190 400 200],... 'color',[.8 .8 .9],... 'menubar','none',... 'resize','off',... 'numbertitle','off',... 'name','latihan24:Window Programing'); frame1=uicontrol('parent',win1,... 'units','points',... 'position',[0 0 500 60],... 'backgroundcolor',[.3 .3 .4],... 'style','Frame'); labe11=uicontrol('parent',win1,... 'units','points',... 'position',[30 170 300 20],... 'backgroundcolor',[.8 .8 .9],... 'style','Text',... 'string','Valuta Asing -- > Rupiah',... 'fontname','arial',... 'fontsize',12,... 'fontweight','bold',... 'foregroundcolor',[0 0 0]); labe12=uicontrol('parent',win1,... 'units','points',... 'position',[30 140 100 15],... 'style','Text',... 'string','Mata Uang Asing',... 'fontname','arial',... 'fontsize',10); popup1=uicontrol('parent',win1,... 'units','points',... 'position',[220 130 100 10],... 'backgroundcolor',[1 1 1],... 'style','popupmenu',... 'string','US. Dollar|MLY. Ringgit|SGP. Dollar|JPN. Yen',... 'fontname','arial',... 'fontsize',10); labe13=uicontrol('parent',win1,... 'units','points',... 'position',[30 140 100 15],... 'style','Text',... 'string','Jumlah Uang',... 'fontname','arial',... 'fontsize',10); labe14=uicontrol('parent',win1,... 'units','points',... 'position',[30 140 100 15],... 'style','Text',... 'string','Kurs',... 'fontname','arial',... 'fontsize',10); labe15=uicontrol('parent',win1,... 'units','points',... 'position',[30 140 100 15],... 'style','Text',... 'string','Jumlah Rupiah',... 'fontname','arial',... 'fontsize',10); edit1=uicontrol('parent',win1,... 'units','points',... 'position',[130 140 60 15],... 'backgroundcolor',[1 1 1],... 'style','Edit',... 'string','0',... 'fontname','arial',... 'fontsize',10); edit2=uicontrol('parent',win1,... 'units','points',... 'position',[130 120 60 15],... 'backgroundcolor',[1 1 1],... 'style','Edit',... 'string','0',... 'fontname','arial',... 'fontsize',10); edit3=uicontrol('parent',win1,... 'units','points',... 'position',[130 120 60 15],... 'backgroundcolor',[1 1 1],... 'style','Edit',... 'string','0',... 'fontname','arial',... 'fontsize',10); tomhitung=uicontrol('parent',win1,... 'units','points',... 'position',[270 40 80 15],... 'style','pushbutton',... 'callback','latihan24a',... 'string','Hitung',... 'fontname','arial',... 'fontsize',10); tomtutup=uicontrol('parent',win1,... 'units','points',... 'position',[270 20 80 15],... 'style','pushbutton',... 'string','Tutup',... 'fontname','arial',... 'fontsize',10,... 'callback','close');