^_^ Graduation ^_^

Alhamdulillah...
Terima kasih Ya Allah...
Keinginan ibu untuk memiliki anak seorang Sarjana terwujud sudah...
Ibu...
Ku persembahkan ini untukmu...
Semoga engkau bangga melihatku dari sana...
Ibu...
Semua ini tidak akan terjadi tanpa doa dan kerja keras darimu...
Salam rindu dan kangen ini akan selalu ku kirimkan lewat doa...
Semoga Allah memberikanmu termpat yang terbaik diSisiNya...
Aamiin..
  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • Twitter
  • RSS

.: Ibu:.

Hari ini aku pusing sekaliii,,, bangun tidur badan rasanya ga enak... mana mimpinya ketemu ibu... mungkin Allah menjawab doaku dengan mempertemukan beliau dalam mimpiku... Ya Allah jika memang Engkau mempertemukan kami dalam mimpi maka aku ingin mimpi itu adalah mimpi yang indah... Ya Allah terimalah ibu disisiMu.. terimalah semua amal ibadahnya... sayangilah ibu Ya Allah.. semoga ibu bahagia berada disisiMu... Ya Allah lapangkanlah kuburnya.. jauhkanlah beliau dari segala siksaan.. selamatkanlah beliau dari segala siksaan.. ampunilah dosa-dosanya.. berikanlah beliau tempat yang terbaik disisiMu... sampaikanlah salam rinduku kepadanya Ya Allah.. sampaikanlah salam kangenku kepadanya Ya Allah.. mungkin sampai saat ini aku belum mengerti apa hikmah sebenarnya dari cobaan yang Engkau beri Ya Allah.. tapi aku yakin dan percaya suatu saat nanti aku pasti akan memahami betapa indahnya rencanaMu.. Engkau adalah perencana terbaik yang pernah ada.. beri aku kekuatan, keyakinan bahwa semua yang terjadi pada keluargaku adalah semata-mata atas kehendakMu Ya Allah.. dan aku yakin Engkau tidak akan memberi cobaan di luar batas kemampuan hambaMu..
  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • Twitter
  • RSS
  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • Twitter
  • RSS

Nilai Final Algoritma dan Pemrograman II

No.
No.
Mhs
Nilai
UTS
Nilai
Final
1. 3055111113 25 C
2. 3095121002 40 B
3. 3105111321 75 A
4. 3105111323 10 D
5. 3105111324 25 C
6. 3105111325 65 A
7. 3105111326 40 B
8. 3105111328 55 B
9. 3105111329 80 A
10. 3105111331 0 C
11. 3105111335 75 A
12. 3105111337 90 A
13. 3105111338 100 A
14. 3105111339 15 C
15. 3105111344 65 A
16. 3105111346 0 D
17. 3105111347 0 D
18. 3105111348 0 D
19. 3105111349 85 A
20. 3105111352 70 A
21. 3105111355 25 C
22. 3105111356 25 C
23. 3105111357 95 A
24. 3105111359 95 -
25. 3105111360 - -
26. 3105111361 0 D
27. 3105111363 0 D
28. 3105111364 0 D
29. 3105111365 20 C
30. 3105111366 85 A
31. 3105111367 25 C
32. 3105111368 25 C
33. 3105111369 65 A
34. 3105111370 65 A
35. 3105111372 25 C
36. 3105111373 0 D
37. 3105111374 75 A
38. 3105111375 50 B
39. 3105111377 25 -
40. 3105111378 65 A
41. 3105111379 80 A
42. 3105111380 55 D
43. 3105111381 65 A
44. 3105111382 75 A
45. 3105111383 40 B
46. 3105111384 75 A
47. 3105111385 50 B
48. 3105111388 45 B
49. 3105111390 45 D
50. 3105111393 65 A
51. 3105111397 65 A
52. 3105111398 25 C
53. 3105111399 25 C
54. 3105111400 50 -
  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • Twitter
  • RSS

Tugas Mandiri 2 Pemrograman Dasar Kelas TI (E)


Source Code Program :

type penduduk = record
      NIK   : integer;
      Nama  : string;
      Tmpt  : string;
      jk    : string;
      status: boolean;
           end;
var
  Form1: TForm1;
  dtpend  : array [1..10] of penduduk;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i, n : integer;
begin
  i:=strtoint(edit1.text);
  for n:=1 to i do
    begin
      dtpend[n].NIK:=StrToInt(InputBox('Data Penduduk','Masukan NIK ke-'+IntToStr(n)+':',''));
      dtpend[n].nama:=InputBox('Data Penduduk','Masukan Nama :','');
      dtpend[n].tmpt:=InputBox('Data Penduduk','Masukan Tempat Lahir :','');
      dtpend[n].jk:=inputBox('Data Penduduk','Masukan Jenis Kelamin :','');
      dtpend[n].status:=StrToBool(InputBox('Data','Masukan Status perkawinan :',''));
    end;
  for n:=1 to i do
  begin
    memo1.Lines.Add('------- Data Penduduk ke-'+IntToStr(n)+' -------');
    memo1.Lines.Add('NIK '+#9#9+': '+IntToStr(dtpend[n].NIK));
    memo1.Lines.Add('Nama '+#9#9+': '+dtpend[n].Nama);
    memo1.Lines.Add('Tempat Lahir '+#9+': '+dtpend[n].Tmpt);
    memo1.Lines.Add('Jenis Kelamin '+#9+': '+dtpend[n].jk);
    if (dtpend[n].status=true) then
      memo1.Lines.Add('Status '+#9#9+': '+'Menikah')
    else
      memo1.Lines.Add('Status '+#9#9+': '+'Belum Menikah');
      memo1.Lines.Add('');
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  if Application.MessageBox('Do you want to close this program?',
  '==> Warning <==',MB_OKCANCEL+MB_ICONWARNING)=mrok then
  close;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
    edit1.SetFocus;
end;
end.


Hasil Running Program :


Yeni Rosiana
3105111325
TI (E)


  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • Twitter
  • RSS

Tugas Mandiri 1 Pemrograman Dasar Kelas TI (E)

Tugas Pemrograman Dasar TI (E)
1. Tugas mengimplementasikan sebuah program yang menerima inputan nilai (dalam range 0 sampai 100) dan menghasilkan output berupa "keterangan nilai". 

IPK
KETERANGAN
0 – 15
Nilai E
16 – 40
Nilai D
41 – 60
Nilai C
61 – 80
Nilai B
81 - 100
Nilai A

2. Implementasikan program yang menerima input berupa koordinat x dan y dari suatu titik pada bidang cartesian, serta menghasilkan output berupa posisi kuadran dari titik input. Soal No. 1 dikerjakan dengan menggunakan case..of dan soal No. 2 dengan menggunakan if..then..else. 




  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • Twitter
  • RSS

Perbedaan Antara Wifi dengan Wimax

Wi-Fi
Seiring dengan perkembangan teknologi jaringan, kita mengenal 2 jenis jaringan yang sering kita jumpai. Jaringan tersebut adalah :
1. Jaringan  kabel
2. Jaringan nirkabel
Namun dalam bahasan kali ini, saya akan membahas mengenai jaringan nirkabel yakni wifi dan wimax. Sebelum kita mengetahui perbedaan diantara keduanya, terlebih dahulu saya akan memberikan uraian mengenai pengertian dari masing - masing jaringan nirkabel.

Wi-Max
  1. Wifi
    Wifi yang merupakan kependekan dari Wireless Fidelity adalah teknologi jaringan nirkabel yang bekerja pada local area network (LAN) dengan frekuensi 2.4 GHz dan menggunakan standarisasi IEEE 802.11.
  2. WiMax
    WiMAX (Worldwide Interoperability for Microwave Access) adalah sebuah tanda sertifikasi untuk produk-produk yang lulus tes cocok dan sesuai dengan standar IEEE 802.16. WiMAX merupakan teknologi nirkabel yang menyediakan hubungan jalur lebar dalam jarak jauh dan bekerja dengan frekuensi 5.3 GHz.
Dari kedua jenis jaringan nirkabel tersebut, memiliki beberapa perbedaan diantaranya :

PembedaWifiWimax
Jarak100 Meter50 Km
Frekuensi2.4 GHz5.3 GHz
Protocol IEEE802.11802.16
Kekuatan SinyalSinyal melemah ketika adanya
halangan antara pemancar wifi
dengan komputer penerima.
Sinyal tetap stabil meskipun
terhalang gedung.
Jaringan KomputerLocal Area NetworkWide Area Network
BiayaMurah, karena digunakan
pada level W-LAN.
Mahal, larena digunakan
untuk jaringan wide area network
(jaringan luas).

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • Twitter
  • RSS
Copyright 2009 Cameh Site
Free WordPress Themes designed by EZwpthemes
Converted by Theme Craft
Powered by Free Website Templates
Free Website templateswww.seodesign.usFree Flash TemplatesRiad In FezFree joomla templatesAgence Web MarocMusic Videos OnlineFree Wordpress Themeswww.freethemes4all.comFree Blog TemplatesLast NewsFree CMS TemplatesFree CSS TemplatesSoccer Videos OnlineFree Wordpress ThemesFree CSS Templates Dreamweaver