Bw can release the whole power of display card. 12 es Serial-On some Windows system, the display card is not configured correctly, only 70 performance is used. PROGAM KONVERSI BILANGAN DESIMAL KE BINER DAN HEXADESIMAL unit Unit1 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls type TForm1 = class(TForm) Edit2: TEdit Button1: TButton Button2: TButton Edit1: TEdit Label1: TLabel Label2: TLabel Label3: TLabel procedure Button1Click(Sender: TObject) procedure Button2Click(Sender: TObject) private procedure TForm1.Button1Click(Sender: TObject) var a:array of word i,k,d:word begin edit2.Clear d:=strtoint(edit1.Text) k:=0 While d>=2 do begin//untuk dec to oct 2 diganti 8 k:=k+1 a:=d mod 2 //untuk dec to oct 2 diganti 8 d:=d div 2 //untuk dec to oct 2 diganti8 end k:=k+1 a:=d for i:=k downto 1 do edit2.Text:=edit2.text+inttostr(a) end procedure TForm1.Button2Click(Sender: TObject) var a:array of word i,k,d:word c:shortstring begin edit2.Clear d:=strtoint(edit1.Text) k:=0 While d>=16 do begink:=k+1 a:=d mod 16 d:=d div 16 end k:=k+1 a:=d for i:=k downto 1 do begin case a of 10:c:='A' 11:c:='B' 12:c:='C' 13:c:='D' 14:c:='E' 15:c:='F' 16:c:='G' else C:=inttostr(a) end edit2.Text:=edit2.Text+c end end end. 12 + Serial - Professional Profile - Free source code and tutorials for Software developers and Architects. A keygen is made available through crack groups for free download.
0 Comments
Leave a Reply.AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |