Monday, April 29, 2013
Permainan Mata
Assalamu'alaikum...
berikut adalah beberapa gambar untuk permaikan mata dan otak.
silahkan dinikmati... ^_^
Konversi bilangan ke huruf
Assalamu'alaikum...
Susah ya bikin tugas buat konversi dari angka ke kata??
berikut adalah listing program konversi bilangan ke huruf :
#include <iostream>
using namespace std;
int main()
{
char kata[100][100]={"","Satu ","Dua ","Tiga ","Empat ","Lima ","Enam ","Tujuh ","Delapan ","Sembilan "};
int bil,a,b,c,d,e,a1,b1,c1,d1,e1;
cout<<"\t Konversi Bilangan Ke Huruf\n";
cout<<"\t ^^^^^^^^^^^^^^^^^^^^^^^^^^\n\n";
cout<<"Masukkan bilangan : ";cin>>bil;cout<<endl;
Cara Upload File/Data ke Website (C-Panel) Melalui FileZilla
Berikut langkah-langkah untuk meng-upload file menggunakan
FileZilla:
1. Pastikan computer anda terkoneksi dengan
internet
2. Buka software FileZilla
*gambar filezilla
Jika anda belum mempunyai software ini
silahkan download disini
Kemudian install FileZilla yang telah di
download. Kemudian buka FileZilla.
- Berikut tampilan FileZilla
i-light photo
karya yang menggunakan hp dg camera vga....
karya ini diawali dari ketidak sengajaan...
karya yang dibuat oleh seorang yang masih amatir dan masih belajar... (^_^)9
Monday, April 15, 2013
PROFIL TAXAMA CORP
TAXAMA CORP adalah induk perusahaan yang bergerak dibidang pengadaan hardware dan software . Yang berdiri pada tanggal 05 Maret 2012 dan di pelopori oleh Dityani, Intan, Siti, Yuyun, Amoy, serta Endah. Kantor pusat TAXAMA CORP berada di Jl. Glagahsari No. 63 [TI-D]. SS COMTEC, Amoy Computer, EDA Computer, DEKACOM, IFEDIA , Y2N ComTec adalah anak perusahaan dari TAXAMA CORP yang tersebar di Yogyakarta dan sekitarnya.
Info lebih lanjut klik taxama.com
Info lebih lanjut klik taxama.com
Sunday, April 14, 2013
Tuesday, March 26, 2013
TUGAS APTI 2 [PROFIL DEKACOM]
PROFIL PT DEKAKOM
PT DEKACOM adalah sebuah perusahaan reseller yang menjual software dan hardware komputer berkualitas dengan harga yang terjangkau, yang didirikan pada tahun 2012, Perusahaan yang berada di Jl.Pemuda No 12 Wonosobo ini telah bekerja sama dengan lebih dari 100 perusahaan penyedia software dan hardware di seluruh dunia. Dan merupakan anak perusahaan dari TAXAMA CORP
Kami selalu mengedepankan kepuasan pelanggan dengan menyediakan software dan hardware yang bermutu tinggi tetapi dengan harga yang sangat terjangkau. Karena kami tahu sebagian besar masyarakat Indonesia pada umumnya hanya memiliki sedikit kemampuan untuk membeli software dan hardware original, sehingga wajar apabila mereka lebih memilih software dan hardware bajakan karena lebih murah. Kami hadir sebagai solusi atas permasalahan tersebut.
Dengan berbekal pengalaman di dunia reseller dan ditangani oleh karyawan-karyawan yang berkualitas, kami akan memberikan layanan terbaik kepada Anda. Segera hubungi kami untuk informasi lebih lanjut mengenai produk-produk yang kami jual, profil perusahaan, dan informais lain yang berkaitan. Selalu nantikan produk-produk dari kami karena kami akan terus melebarkan sayap bisnis dan selalu menjalin kerjasama dengan vendor-vendor lain untuk meningkatkan kualitas pelayanan kepada Anda.
Salam Hangat
Direktur,
3125111267
|
Monday, March 25, 2013
Wednesday, March 20, 2013
RadioGroup delphi
Syntax diskon dengan radiogroup :
procedure TForm1.RadioGroup1Click(Sender: TObject);
var juml,harga:integer;
total,disk,hasil:real;
begin
case RadioGroup1.ItemIndex of
0: begin
juml:=StrToInt(Edit3.Text);
harga:=StrToInt(Edit2.Text);
hasil:=harga*juml;
disk:=hasil*0.1;
total:=hasil-disk;
Pesan.Clear;
Pesan.Lines.Add('INFORMASI :');
Pesan.Lines.Add('Nama barang : '+ Edit1.Text);
Pesan.Lines.Add('Harga satuan: '+ Edit2.Text);
Pesan.Lines.Add('Harga sebelum diskon : '+FloatToStr(hasil));
Pesan.Lines.Add('Harga setelah diskon : '+FloatToStr(total));
end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
var juml,harga:integer;
total,disk,hasil:real;
begin
case RadioGroup1.ItemIndex of
0: begin
juml:=StrToInt(Edit3.Text);
harga:=StrToInt(Edit2.Text);
hasil:=harga*juml;
disk:=hasil*0.1;
total:=hasil-disk;
Pesan.Clear;
Pesan.Lines.Add('INFORMASI :');
Pesan.Lines.Add('Nama barang : '+ Edit1.Text);
Pesan.Lines.Add('Harga satuan: '+ Edit2.Text);
Pesan.Lines.Add('Harga sebelum diskon : '+FloatToStr(hasil));
Pesan.Lines.Add('Harga setelah diskon : '+FloatToStr(total));
end;
Subscribe to:
Comments (Atom)








