Tugas Algoritma (kelas b), bagi yang keluar sebelum akhir perkuliahan, termasuk yang menjadi panitia akreditasi

Tugasnya adalah menyalin ulang program di samping ini, dan dipraktekkan ke dalam bahasa pemrograman. Kemudian kumpulkan dalam bentuk listing program (dalam CD) ke jurusan.

Untuk mhs. yang masih hadir sampai akhir perkuliahan, cukup mencatat saja (tanpa dikumpulkan).

Jaman Penuh Kemaksiatan

Umar bin Khattab berwasiat ketika melepas tentara perang: ”Dosa yang dilakukan tentara (Islam) lebih aku takuti dari musuh mereka. Sesungguhnya umat Islam dimenangkan karena maksiat musuh mereka kepada Allah. Kalau tidak demikian kita tidak mempunyai kekuatan, karena jumlah kita tidak sepadan dengan jumlah mereka, perlengkapan kita tidak sepadan dengan perlengkapan mereka. Jika kita sama dalam berbuat maksiat, maka mereka lebih memiliki kekuatan. Jika kita tidak dimenangkan dengan keutamaan kita, maka kita tidak dapat mengalahkan mereka dengan kekuatan kita.”

Tugas : Pemrograman Visual (Delphi)-Kelas Khusus STMIK Subang

Lengkapi, rancangan interface (pert.2) dan buat coding seperti berikut :


var
Form1: TForm1;
harga,ttl:integer;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var njml:integer;
nmplg,nmbrg:string;
begin
nmplg:=edit1.text;
nmbrg:=edit2.text;
njml:=StrToInt(edit3.text);
listbox1.Items.Add(nmplg+' '+nmbrg+' '+intTostr(njml));
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case combobox1.ItemIndex of
0:harga:=1000;
1:harga:=1500;
2:harga:=2000;
3:harga:=500;
end;
edit5.text:=inttostr(harga);
end;

procedure TForm1.Button2Click(Sender: TObject);
var nama,barang:string;
njm:integer;
bayar:integer;
begin
nama:=edit4.text;
barang:=combobox1.Text;
njm:=strtoint(edit6.text);
bayar:=harga*njm;
ttl:=ttl+bayar;
listbox2.Items.Add(nama+' '+barang+' '+intTostr(harga)+' '+intTostr(njm)+' '+inttostr(bayar));
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
listbox2.items.add('----------------------------------------------------------');
listbox2.Items.Add('Total '+inttostr(ttl));
end;

end.

Algoritma dan Pemrograman I (delphi/pascal) -STMIK Subang

Pelajari bab tentang modul (prosedur) baik yang tanpa parameter, dengan parameter (input,output,input/output)

Algoritma I (untuk STMIK Mardira)

Untuk mhs. yang tidak masuk pada saat QUIZ, kerjakan tugas berikut ini :
Buat algoritma untuk pengulangan 1-50, hitung berapa jumlah bilangan prima nya

TUGAS DI RUMAH (BASIS DATA)

SOAL
Buat SQL, tampilkan Dari tabel KRS(NIM), MHS(NAMA), MATAKULIAH (NAMAMK,SKS), DOSEN (NAMADSN)

Email ke : adespr@yahoo.com

Rekor 11 Juta Download Browser Safari 4

Perang antara browser internet, secara mengejutkan menjadi salah satu perang terpahit di dunia TI. Perlombaan untuk menjadi nomor satu menjadi tujuan utama dengan setiap update terbaru oleh para penyedia browser.

Salah satunya Apple, yang baru saja meluncurkan Safari 4. Perusahaan itu pasti tengah bergembira mengetahui jumlah besar pengunduh tak lama setelah browser diluncurkan.

Mesin browser yang didorong kecepatan JavaScript delapan kali lipat dari Internet Explorer 8, dan empat kali lipat ketimbang Mozilla Firefox 3, telah diunduh lebih dari 11 juta kali dalam tiga hari setelah dilepas. Fakta yang lebih menarik dari software yang asli ditujukan bagi Apple, ialah setengah dari pendownload (sekitar 6 juta orang) merupakan pengguna browser versi Windows. Jumlah yang sangat luar biasa.

Wakil Presiden pemasaran produk Apple VP skala dunia, Philip Schiller mengatakan pengguna Safari menyukai kecepatan luar biasa dan fitur inovatif seperti Top Sites, Full History Search, dan Cover Flow.

Terlepas apakah Phillip memukul rata kecenderungan dan ketidaksukaan 11 juta pengunduh terhadap fitur ini dan itu, faktan menunjukkan jelas jika sukses besar Safari 4 masih terus mengalir.

Menggunakan mesin Nitro JavaScrip terbaru, Safari 4 terlihat mampu melakukan loading situs halaman HTML lebih cepat dari IE dan juga Firefox 3. Apakah klaim delapan kali lebih cepat dari IE8 dan tiga kali lebih cepat dari Firefox 3, anda perlu mengetes sendiri secara langsung

Browser tersebut juga memasukkan suport HTML 5 untuk tekonologi offline, suport untuk CSS Effect tingkat lanjut, dan browser pertama yang lulus tes Acid3 dalam Proyek Standar Web, yang memeriksa bagaimana browser dapat bereaksi cepat dan baik terhadap standar CSS, JavaScript, XML, dan SVG. Dalam kalimat sederhana, bagaimana mesin tersebut dapat menghadirkan tampilan halaman online ke layar anda dengan tepat dan cepat.

Jika itu belum cukup, anda dapat mengandalkan Topo Site untuk preview visual, situs-situs online yang kerap dikunjungi dan yang menjadi favorit anda. Ada pula pencarian full history (bila sewaktu-waktu anda perlu menyembunyikan situs tertentu).

Sistem bookmark browsing dengan gaya tampilan cover flow, Smart Address Fields adalah fitur lain yang akan membantu pencarian. Mesin browser tersebut kini dapat diunduh baik untuk Mac atau Windwos. Untuk versi 64 bit akan ditawarkan dalam bundel operating system (OS) Snow Leopard akhir tahun ini./t3/itz (RioL)

Sumber:Swaramuslim.net
Anda perlu safari4, silakan e-mail ke: adespr@yahoo.com