sudo add-apt-repository
ppa:apt-fast/stable
sudo apt-get update
sudo apt-get install apt-fastakan muncul koonfigurasi apt-fast akan diintegrasikan ke downloader mana?
sudo apt-fast install PACKAGE
sudo apt-fast upgrade
sudo apt-fast build-dep PACKAGEsemoga bermanfaat
untuk dapat mendukung agar openshot bisa 3D maka anda dapat menyandingkan dengan program blender yang juga open source.sudo add-apt-repository ppa:openshot.developers/ppa sudo apt-get update sudo apt-get install openshot frei0r-plugins
sudo apt-get install mplayerkemudian donwload software di Berbahasa Inggris atau Berbahasa Spanyol
sudo apt-get install wget
sudo apt-get install aria2
sudo apt-get install axel
sudo add-apt-repository ppa:tldm217/tahutek.net sudo apt-get update sudo apt-get install prozilla
sudo apt-get install gwget
sudo apt-get install fatrat
sudo add-apt-repository ppa:ferramroberto/java sudo add-apt-repository ppa:jd-team/jdownloader sudo apt-get update sudo apt-get install sun-java6-jre sun-java6-plugin jdownloaderJDownloader: Download accelerator berbasis Java
sudo add-apt-repository ppa:plushuang-tw/uget-devel sudo apt-get update sudo apt-get install ugetUGet: Download manager yang ringan di Ubuntu/Linux
sudo add-apt-repository ppa:sikon/steadyflow sudo apt-get update sudo apt-get install steadyflowSteadyFlow: Download manager yang minimalis
sudo dpkg -i wxdfast_0.6.0-1_ubuntu_i386.deb sudo apt-get -f installwxDownload Fast di Ubuntu 11.04 Natty Narwhal 11. ProzGui Aplikasi terakhir yang akan saya masukkan ke dalam daftar 10+ Download Manager/Accelerator di Linux adalah ProzGui. Aplikasi ini merupakan bentuk GUI dari ProZilla, jadi fiturnya tidak jauh beda dengan ProZilla. Para pengguna Ubuntu dapat menginstal ProzGui dengan mengetik perintah berikut di Terminal: view plainprint?
sudo add-apt-repository ppa:alza/project sudo apt-get update sudo apt-get install prozguiProzGui: Modus GUI dari ProZilla sumber : http://www.tahutek.net/2011/08/ubuntu-10-download-manageraccelerator.html
You can enable "Compositing Manager" for Unity 2D, so you can get some desktop effects, drop-down shadow or window previews for the ALT+TAB switcher. Add or remove workspaces Enable / disable overlay scrollbars Show / hide a "Show Desktop" icon on the Unity launcher Locale support for the Quicklists Editor Bug fixed: window module now loads under Xubuntu and Lubuntu Bug fixed: Fix accessing Unity settings in Ubuntu 11.10 with Unity 2DOther bug fixes untuk dapat menginstallnya silahkan lakukan sudo add-apt-repository ppa:tualatrix/ppa sudo apt-get update sudo apt-get install ubuntu-tweak sumber:http://www.webupd8.org/2012/05/ubuntu-tweak-071-available-for-download.html
unit pembelian;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls;
type
{ TfrmPembelian }
TfrmPembelian = class(TForm)
cmbTanggal: TComboBox;
cmbBulan: TComboBox;
cmbTahun: TComboBox;
cmbKode: TComboBox;
Label9: TLabel;
txtJumlah: TEdit;
txtNota: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
txtNama: TEdit;
txtHarga: TEdit;
txtTotal: TEdit;
txtBayar: TEdit;
txtKembalian: TEdit;
procedure cmbBulanChange(Sender: TObject);
procedure cmbKodeChange(Sender: TObject);
procedure cmbTahunChange(Sender: TObject);
procedure cmbTanggalChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure txtBayarExit(Sender: TObject);
procedure txtBayarKeyPress(Sender: TObject; var Key: char);
procedure txtJumlahExit(Sender: TObject);
procedure txtJumlahKeyPress(Sender: TObject; var Key: char);
private
{ private declarations }
public
{ public declarations }
end;
var
frmPembelian: TfrmPembelian;
implementation
procedure TfrmPembelian.FormCreate(Sender: TObject);
var
i,j,l:integer;
begin
cmbtanggal.Items.Clear;
for i:=1 to 31 do
begin
cmbtanggal.Items.add(inttostr(i));
end;
cmbbulan.Items.clear;
for j:=1 to 12 do
begin
cmbbulan.items.Add(inttostr(j));
end;
cmbtahun.Items.clear;
for l:=2000 to 2999 do
begin
cmbtahun.items.Add(inttostr(l));
end;
end;
procedure TfrmPembelian.txtBayarExit(Sender: TObject);
begin
if txtbayar.Text='' then txtbayar.Text:='0'; //mengatasi error karena txtbayar belum diisi
if txttotal.Text='' then txttotal.Text:='0'; //error itu cuma terjadi di linux, kalau dijalankan di windows ga error
if strtofloat(txtbayar.Text) < strtofloat(txttotal.Text) then MessageDlg('Maaf bayarnya kurang dari total.', mtInformation, [mbOK], 0) else txtkembalian.Text:=floattostr(strtofloat(txtbayar.Text)-strtofloat(txttotal.Text)); txtbayar.SetFocus; end; procedure TfrmPembelian.txtBayarKeyPress(Sender: TObject; var Key: char); begin if not ( Key in ['0'..'9', #8] ) then Key := #0; end; //jika txtjumlah tidak fokus atau kursor di tempat lain maka lakukan perkalian procedure TfrmPembelian.txtJumlahExit(Sender: TObject); begin if txtjumlah.Text='' then begin MessageDlg('Maaf Jumlah pembelian belum diisi.', mtInformation, [mbOK], 0); txtjumlah.SetFocus; end else txttotal.Text:=floattostr(strtofloat(txtharga.Text)*strtofloat(txtjumlah.Text)); txtbayar.SetFocus; end; //txtjumlah wajib di isi angka kalau tidak diabaikan procedure TfrmPembelian.txtJumlahKeyPress(Sender: TObject; var Key: char); begin if not ( Key in ['0'..'9', #8] ) then Key := #0; end; //ini jika terjadi perubahan text di combo kode procedure TfrmPembelian.cmbKodeChange(Sender: TObject); begin if cmbkode.Text='A1' then begin txtnama.Text:='Sabun Mandi'; txtharga.Text:='2500'; end else if cmbkode.Text='A2' then begin txtnama.Text:='Durian'; txtharga.Text:='10000'; end else if cmbkode.Text='A3' then begin txtnama.Text:='Susu'; txtharga.Text:='5000'; end; txtjumlah.SetFocus; end; //memindahkan kursor procedure TfrmPembelian.cmbTahunChange(Sender: TObject); begin cmbkode.SetFocus; end; procedure TfrmPembelian.cmbBulanChange(Sender: TObject); begin cmbtahun.SetFocus; end; procedure TfrmPembelian.cmbTanggalChange(Sender: TObject); begin cmbbulan.SetFocus; end; initialization {$I pembelian.lrs} end.
unit Kalkulator;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, LCLType;
type
{ TfrmKalkulator }
TfrmKalkulator = class(TForm)
cmd0: TButton;
cmd9: TButton;
cmdTitik: TButton;
cmdPlusMin: TButton;
cmdClear: TButton;
cmdBagi: TButton;
cmdKali: TButton;
cmdKurang: TButton;
cmdTambah: TButton;
cmdSamaDengan: TButton;
cmd1: TButton;
cmd2: TButton;
cmd3: TButton;
cmd4: TButton;
cmd5: TButton;
cmd6: TButton;
cmd7: TButton;
cmd8: TButton;
txtAngka: TEdit;
procedure proses_hitung();
procedure proses_inc(kar : Char);
procedure proses_array(kar : Char);
procedure FormCreate(Sender: TObject);
procedure cmd0Click(Sender: TObject);
procedure cmd1Click(Sender: TObject);
procedure cmd2Click(Sender: TObject);
procedure cmd3Click(Sender: TObject);
procedure cmd4Click(Sender: TObject);
procedure cmd5Click(Sender: TObject);
procedure cmd6Click(Sender: TObject);
procedure cmd7Click(Sender: TObject);
procedure cmd8Click(Sender: TObject);
procedure cmd9Click(Sender: TObject);
procedure cmdPlusMinClick(Sender: TObject);
procedure cmdTitikClick(Sender: TObject);
procedure cmdClearClick(Sender: TObject);
procedure cmdTambahClick(Sender: TObject);
procedure cmdKurangClick(Sender: TObject);
procedure cmdKaliClick(Sender: TObject);
procedure cmdBagiClick(Sender: TObject);
procedure cmdSamaDenganClick(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
private
{ private declarations }
public
{ public declarations }
end;
var
frmKalkulator: TfrmKalkulator;
tempstr : String;
tmpOpr:string;
tmpangka:string;
hasil : Real;
implementation
procedure TfrmKalkulator.FormCreate(Sender: TObject);
begin
hasil := 0;
tempstr := '';
txtangka.Text:= FloatToStr(hasil);
end;
procedure TfrmKalkulator.proses_inc(kar : Char);
begin
tempstr:=txtangka.Text;
tempstr:=tempstr+kar;
hasil:=StrToFloat(tempstr);
txtAngka.Text:=FloatToStr(hasil);
end;
{$R *.lfm}
procedure TfrmKalkulator.cmd0Click(Sender: TObject);
begin
proses_inc('0');
end;
procedure TfrmKalkulator.cmd1Click(Sender: TObject);
begin
proses_inc('1');
end;
procedure TfrmKalkulator.cmd2Click(Sender: TObject);
begin
proses_inc('2');
end;
procedure TfrmKalkulator.cmd3Click(Sender: TObject);
begin
proses_inc('3');
end;
procedure TfrmKalkulator.cmd4Click(Sender: TObject);
begin
proses_inc('4');
end;
procedure TfrmKalkulator.cmd5Click(Sender: TObject);
begin
proses_inc('5');
end;
procedure TfrmKalkulator.cmd6Click(Sender: TObject);
begin
proses_inc('6');
end;
procedure TfrmKalkulator.cmd7Click(Sender: TObject);
begin
proses_inc('7');
end;
procedure TfrmKalkulator.cmd8Click(Sender: TObject);
begin
proses_inc('8');
end;
procedure TfrmKalkulator.cmd9Click(Sender: TObject);
begin
proses_inc('9');
end;
procedure TfrmKalkulator.cmdPlusMinClick(Sender: TObject);
var angka:real;
begin
angka:=StrToFloat(txtAngka.Text);
if (angka>0) then
angka:=(-angka)
else
angka:=angka+(-angka)+(-angka);
txtAngka.Text:=FloatToStr(angka);
end;
procedure TfrmKalkulator.cmdTitikClick(Sender: TObject);
begin
if (pos('.', txtAngka.Text) = 0) then
txtAngka.Text:=txtAngka.Text+'.';
end;
procedure TfrmKalkulator.cmdClearClick(Sender: TObject);
begin
tempstr := '';
hasil := 0;
txtAngka.Text:='0';
tmpopr:='';
tmpangka:='';
end;
procedure TfrmKalkulator.proses_array(kar : Char);
begin
tmpangka:=txtangka.Text;
txtangka.Text:='';
tmpOpr:=kar;
end;
procedure TfrmKalkulator.cmdTambahClick(Sender: TObject);
begin
proses_array('+');
end;
procedure TfrmKalkulator.cmdKurangClick(Sender: TObject);
begin
proses_array('-');
end;
procedure TfrmKalkulator.cmdKaliClick(Sender: TObject);
begin
proses_array('x');
end;
procedure TfrmKalkulator.cmdBagiClick(Sender: TObject);
begin
proses_array('/');
end;
procedure TfrmKalkulator.proses_hitung();
begin
if tmpOpr='+' then txtAngka.Text:=floattostr(strtofloat(tmpangka)+strtofloat(txtAngka.Text));
if tmpOpr='-' then txtAngka.Text:=floattostr(strtofloat(tmpangka)-strtofloat(txtAngka.Text));
if tmpOpr='x' then txtAngka.Text:=floattostr(strtofloat(tmpangka)*strtofloat(txtAngka.Text));
if tmpOpr='/' then txtAngka.Text:=floattostr(strtofloat(tmpangka)/strtofloat(txtAngka.Text));
end;
procedure TfrmKalkulator.cmdSamaDenganClick(Sender: TObject);
begin
proses_hitung();
end;
procedure TfrmKalkulator.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key=96) then proses_inc('0');
if (Key=97) then proses_inc('1');
if (Key=98) then proses_inc('2');
if (Key=99) then proses_inc('3');
if (Key=100) then proses_inc('4');
if (Key=101) then proses_inc('5');
if (Key=102) then proses_inc('6');
if (Key=103) then proses_inc('7');
if (Key=104) then proses_inc('8');
if (Key=105) then proses_inc('9');
if (Key=48) then proses_inc('0');
if (Key=49) then proses_inc('1');
if (Key=50) then proses_inc('2');
if (Key=51) then proses_inc('3');
if (Key=52) then proses_inc('4');
if (Key=53) then proses_inc('5');
if (Key=54) then proses_inc('6');
if (Key=55) then proses_inc('7');
if (Key=56) then proses_inc('8');
if (Key=57) then proses_inc('9');
end;
end.
sudo apt-get install zeroinstall-injektor
sudo add-apt-repository ppa:ubuntu-wine/ppa
sudo apt-get update
sudo apt-get install wine1.3
winecfg
winetricks
winefile
; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
#define MyAppName "Elearning"
#define MyAppVerName "Elearning 9.8"
#define MyAppPublisher "www.xwaja.co.nr"
#define MyAppURL "http://www.xwaja.co.nr/ & http://s0dikin.blogspot.com"
#define MyAppExeName "ElearningSMP.exe"
[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{EDD1BECE-1CE1-4D32-84D0-B891642904AC}
AppName={#MyAppName}
AppVerName={#MyAppVerName}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
AllowNoIcons=yes
OutputDir=C:\InnoSetup\Elearning\Hasil
OutputBaseFilename=setup
ShowTasksTreeLines=yes
SetupIconFile=C:\InnoSetup\Elearning\conect.ico
Password=ELEARNING_2009
WizardImageFile=C:\InnoSetup\Elearning\setup5.bmp
WizardSmallImageFile=C:\InnoSetup\Elearning\setup4.bmp
Compression=lzma/max
SolidCompression=yes
LicenseFile=C:\InnoSetup\Elearning\Lisensi.txt
InfoBeforeFile=C:\InnoSetup\Elearning\Files\readme.txt
MinVersion=4.1.1998,4.00.1381
[Types]
Name: "full"; Description: "Full installation"
Name: "compact"; Description: "Compact installation"
Name: "custom"; Description: "Custom installation"; Flags: iscustom
[Components]
Name: "SERVER"; Description: "Untuk Server"; Types: full
Name: "CLIENT"; Description: "Untuk Client"; Types: full
[Languages]
Name: "id"; MessagesFile: "C:\InnoSetup\Elearning\Indonesian.isl"
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
[Files]
Source: "C:\InnoSetup\Elearning\Files\ElearningSMP.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\InnoSetup\Elearning\Files\BuatDatabase.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\InnoSetup\Elearning\Files\Silver.dll"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\InnoSetup\Elearning\Files\Aqua.dll"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\InnoSetup\Elearning\Files\Black.dll"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\InnoSetup\Elearning\Files\APPSERV.EXE"; DestDir: "{app}"; Flags: ignoreversion; Components: SERVER
Source: "C:\InnoSetup\Elearning\Files\ODBC.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: CLIENT
Source: "C:\InnoSetup\Elearning\Files\readme.txt"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\InnoSetup\Elearning\Files\elearning.cc@"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\InnoSetup\Elearning\Files\theme.cjstyles"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\InnoSetup\Elearning\Files\cetak.cc@"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\InnoSetup\Elearning\Files\pegawai.cc@"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\InnoSetup\Elearning\Files\siswa.cc@"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\InnoSetup\Elearning\Files\soal.cc@"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\InnoSetup\Elearning\Files\msvbvm60.ocx"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\InnoSetup\Elearning\Files\VB6STKIT.DLL"; DestDir: "{sys}"; Flags: uninsneveruninstall onlyifdoesntexist
Source: "C:\InnoSetup\Elearning\Files\COMCAT.DLL"; DestDir: "{sys}"; Flags: uninsneveruninstall onlyifdoesntexist
Source: "C:\InnoSetup\Elearning\Files\stdole2.tlb"; DestDir: "{sys}"; Flags: uninsneveruninstall onlyifdoesntexist
Source: "C:\InnoSetup\Elearning\Files\asycfilt.dll"; DestDir: "{sys}"; Flags: uninsneveruninstall onlyifdoesntexist
Source: "C:\InnoSetup\Elearning\Files\olepro32.dll"; DestDir: "{sys}"; Flags: uninsneveruninstall onlyifdoesntexist
Source: "C:\InnoSetup\Elearning\Files\oleaut32.dll"; DestDir: "{sys}"; Flags: uninsneveruninstall onlyifdoesntexist
Source: "C:\InnoSetup\Elearning\Files\msvbvm60.dll"; DestDir: "{sys}"; Flags: uninsneveruninstall onlyifdoesntexist
Source: "C:\InnoSetup\Elearning\Files\TABCTL32.OCX"; DestDir: "{sys}"; Flags: regserver sharedfile restartreplace
Source: "C:\InnoSetup\Elearning\Files\MSDATGRD.OCX"; DestDir: "{sys}"; Flags: regserver sharedfile restartreplace
Source: "C:\InnoSetup\Elearning\Files\MSCOMCT2.OCX"; DestDir: "{sys}"; Flags: regserver sharedfile restartreplace
Source: "C:\InnoSetup\Elearning\Files\MSCOMCTL.OCX"; DestDir: "{sys}"; Flags: regserver sharedfile restartreplace
Source: "C:\InnoSetup\Elearning\Files\Codejock.CommandBars.v12.0.1.ocx"; DestDir: "{sys}"; Flags: regserver sharedfile restartreplace
Source: "C:\InnoSetup\Elearning\Files\Codejock.SkinFramework.v12.0.1.ocx"; DestDir: "{sys}"; Flags: regserver sharedfile restartreplace
Source: "C:\InnoSetup\Elearning\Files\arpro2.dll"; DestDir: "{sys}"; Flags: regserver sharedfile restartreplace
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
[Run]
Filename: "{app}\APPSERV.EXE"; Description: "Menginstall MYSQL Server 5"
Filename: "{app}\ODBC.exe"; Description: "Menginstall MYSQL Connector ODBC 3.51"
