listing program delphi untuk merubah bilangan hexa desimal ke desimal

• Ambil sebuah label dan sebuah button. kemudian letakkan seperti gambar dibawah ini.

• Setelah itu, klik dua kali pada button1, kemudian masukkan kodingan dibawah ini.

unit main;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, math;

type

  TForm1 = class(TForm)

    Edit1: TEdit;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

Strhexadecimal : String;

IntIndex : Integer;

IntPlaceValue : Integer;

ChrAlpha : Char;

IntDigit : Integer;

IntTotal : Integer;

StrDecimal : String;

begin

Strhexadecimal := Edit1.Text;

IntTotal := 0;

IntPlaceValue := Round(Power(16, (Length(Strhexadecimal)-1)));

for IntIndex := 1 to Length(Strhexadecimal)

do

begin

ChrAlpha := Strhexadecimal[IntIndex];

If ((ChrAlpha >= '0')

and (ChrAlpha <= '9'))

then

begin

IntDigit := StrToInt(ChrAlpha);

end

else

begin

If ((ChrAlpha >= 'A')

and (ChrAlpha <= 'F'))

then

begin

IntDigit := Ord(ChrAlpha) - 55;

end

else

begin

Raise Exception.Create(ChrAlpha + ' is not a valid hexadecimal digit.');

end;

end;

IntTotal := IntTotal + (IntDigit * IntPlaceValue);

IntPlaceValue := Round(IntPlaceValue / 16);

end;

StrDecimal := IntToStr(IntTotal);

ShowMessage(Strhexadecimal + ' DALAM HEXADESIMAL, ADALAH ' + StrDecimal + ' DALAM DESIMAL.');

end;

end.

• setelah itu, jalankan program dengan mengklik tombol Run. maka tampilannya akan seperti dibawah ini.

• Selamat mencoba..

MANUSIA DAN CINTA KASIH

F. BELAS KASIHAN

    Dalam surat Yohanes, dijelaskan ada tiga macam cinta. Cinta agape ialah Cinta kepada Tuhan. Cinta philia ialah cinta kepada orang tua dan saudara. Dan cinta Amor/ eros ialah cinta antara pria dan wanita. Beda antara cinta eros dan amor ini ialah cinta eros karena kodrati sebagai laki-laki dan perempuan, sedangkan cinta amor karena unsur-unsur yang sulit dinanar, misalnya gadis normal yang cantik mencintai dan mau dinikahi seorang pemuda yang kerdil.

   Disamping itu masih ada cinta terhadap sesama, yaitu perpaduan antara cinta agape dan cinta philia. Dalam cinta sesama, digunakan istilah belas kasihan, karena cinta disini bukan karena cakapnya, cantiknya, pandainya, melainkan karena penderitaannya. Penderitaan ini mengandung arti luas, mungkin karena sakitnya, tua, yatim, dll.

    Jadi kata kasihan, berarti bersimpati kepada nasib atau keadaan yang diderita orang lain. Ada pengertian bahwa rasa cinta adalah persatuan tanpa syarat. Itu berarti dalam rasa belas kasihan tidak terkandung unsur pamrih. Belas kasihan yang kita tumpahkan benar-benar keluar dari lubuk hati yang ikhlas. Apabila kita memberikan uang kepada pengemis agar mendapatkan pujian, itu berarti tidak ikhlas, berarti ada tujuan tertentu. Hal seperti itu banyak terjadi dalam masyarakat.

    Cara-cara menumpahkan cinta kasih :

Ada beberapa cara kita dalam menumpahkan cinta kasih. Sebagai contohnya, memberikan uang kepada orang yang tidak mampu, mendoakan orang yang sakit, membantu orang yang sedang dalam keadaan kesulitan, dll. Contoh lainnya adalah belas kasian yang dilakukan oleh Pangeran Sidharta Gautama, seorang pangeran dengan harta berlimpah, yang rela menjadi orang susah karena belas kasihnya kepada orang-prang yang kesusahan

G. CINTA KASIH EROTIS

    Cinta kasih erotis adalah kehausan akan penyatuan yang sempurna, akan penyatuan seseorang dengan yang lainnya pada hakekatnya, cinta kasih tersebut bersifat eksklusif, bukan universal, dan juga barang kali merupakan bentuk cinta kasih yang paling banyak dipercaya.

Cinta kasih erotis apabila ia benar2benar cinta kasih, memiliki satu pendirian, yaitu bahwa seseorang sungguh-sungguh mencintai dan mengasihi dengan jiwanyanyang sedalam-dalamnya, dan menerima pribadi orang lain dengan jiwanya yang sedalam- dalamnya.

    Mencintai dan mengasihi seseorang bukan hanya merupakan perasaan yang kuat. Melainkan merupakan suatu putusan, suatu penilaian, suatu perjanjian. Apabila cinta kasih hanya meruoakan perasaan saja, tidak ada dasarnya, tidak ada dasarnya untuk saling berjanji akan mencintai dan mengasihi untuk selama-lamanya. Perasaan itu dapat timbul dan tenggelam pula. Bagaimanaka saya dapat memastikan bahwa perasaan itu akan menetap selama-lamanya bila erbuatan saya itu mengandung suatu penilaian dan putusan?

    Dengan memperhatikan pandangan-pandangan ini, maka dapat sampai kepada pendapat bahwa cinta kasih hanyalah perbuatan emauan dan mengikat diri saja sehingga pada dasarnya tidak usah dipedulikan siapa-siapa kedua orang yang terlibat didalamnya. Apakah pernikahan itu diatur oleh orang lain kah atau merupakan hasil pemikiran individual, hal ini tidak menjadi soal. Yang terpenting sesudah pernikahan itu dilangsungkan, perbuatan kemauan seharusnya menjamin cinta kasih.

    Dengan demikian, maka, baik pandangan bahwa cinta kasih erotis merupakan atraksi individual belaka maupun pandangan bahwa cinta kasih erotis itu tidak lain dari pada perbuatan kemauan, kedua-duanya benar, atau lebih tepatnyajika dikatakan bahwa tidak terdapat pada yang satu, juga pada yang lain. Oleh karena itu, gagasan bahwa hubungan pernikahan mudah saja diputuskan apabila orang tidak bersukses didalamnya, maka gagasan yang sama sekali keliru dengan gagasan bahwa hunungan semacam itu, didalam keadaan bagaimanpun, tidak boleh diputuskan.




Untuk artikel lainnya, ada di bagian bagian bawah ini.


BAGIAN 1


BAGIAN 2 


BAGIAN 3


BAGIAN 4


REFERENSI :


http://elearning.gunadarma.ac.id/docmodul/ilmu_budaya_dasar/bab4-manusia_dan_cinta_kasih.pdf

Budaya dan Teknologi

Kali ini saya akan membahas tentang hubungan antara budaya dengan teknologi.

         Dewasa ini, perkembangan teknologi sangat pesat, dapat kita lihat dari munculnya produk-produk baru yang memiliki spesifikasi terbilang canggih dan memiliki sistem operasi terbaru seperti android, windows, dll. Harga yang ditawarkan pun bervariasi. Mulai dari low-end sampai yang high-end. Orang-orang yang memiliki dana terbatas pun juga sudah bisa menikmatinya. Perkembangan teknologi ini, tidak hanya untuk orang dewasa saja, anak-anak pun juga banyak yang memiliki perangkat terbaru seperti tablet canggih keluaran s*ms*ng atau keluaran a**le. Segala sesuatu bisa kita lakukan di perangkat perangkat seperti ini, seperti menyaksikan video, merekam momen-momen indah, membuat pekerjaan, sebagai agenda harian dan pengingat, bermain game, dll. 

          Teknologi yang canggih kini menjadi sebuah kebutuhan bagi orang-orang di jaman yang serba cepat ini.

Tapi perkembangan teknologi ini juga bisa menghasilkan berbagai kebudayaan baru seperti gaya hidup instant. Dengan adanya kemudahan seperti ini, orang orang menjadi malas untuk melakukan sesuatu yang berat. Orang-orang ingin semuanya serba cepat, seperti mentransfer uang yang tidak perlu melalui kantor-kantor bank. Memesan suatu barang via internet. Belajar via internet. Tapi disamping itu, ada beberapa hal yang bersifat negatif, seperti: Mengerjakan tugas dengan cepat hanya dengan “copas” (copy paste). Ini menimbulkan budaya malas akan timbul dari diri seseorang.

Selain itu, budaya budaya lain yang jelas berbeda dengan budaya kita pun akan mudah masuk dan mencoba mengambil alih kebudayaan kita.

           Oleh karena itu, bijaklah dalam kemajuan teknologi yang pesat ini. Jangan sampai kita diperbudak oleh teknologi. Janganlah salah dalam menggunakan teknologi. Pikirikan baik baik sebelum anda menggunakan atau memakai teknologi tersebut.


gunadarma.ac.id

KONVERSI DETIK MENKADI JAM, MENIT, DETIK DALAM QBASIC

Bagi yang sedang bingung atau butuh pencerahan tentang membuat program tentang konversi data dari detik ke jam, menit dan detik dalam Qbasic, mungkin ini dapat membantu anda.. silahkan dilihat.. :)


10 U$= "Y"
20 WHILE U$ = "Y" OR U$ = "y"
30 CLS
40 PRINT "DETAIL WAKTU"
50 PRINT
60 J=0
70 M=0
80 D=0
90 INPUT "INPUT DETIK : " ; ID
100 J= INT (ID/3600)
110 M= INT ((ID -(J*3600))/60)
120 D= INT (ID - ((J*3600)+(60*M)))
130 PRINT
140 PRINT ID;
150 PRINT " DETIK =";
160 PRINT J;
170 PRINT " JAM ";
180 PRINT M;
190 PRINT " MENIT ";
200 PRINT D;
210 PRINT " DETIK "
220 PRINT
230 INPUT "ULANGI (Y/T): "; U$
240 WEND
250 PRINT
260 PRINT "TERIMAKASIH"

Kemudian tingga di run dari Qbasic anda..

The Time Is On Going....

      Manuel Morado Panjaitan adalah namaku. Tanggal 17 November adalah saat dimana aku keluar dari rahim seseorang yang aku sebut mama. Aku terlahir sebagai bayi berjenis kelamin laki-laki di Palembang pada tahun 1993. Aku mempunyai seorang mama, seorang papa, dan seorang kakak. Aku tinggal di daerah depok.


      Pertama kali aku merasakan pendidikan di sekolah, adalah saat aku duduk di bangku TK Tugu Ibu. Kemudian aku melanjutkan ke SD Mardiyuana. di sekolah ini, aku mendapat pendidikan paling lama, yaitu selama 9 tahun, karena SD dan SMP aku di sekolah yang sama. Setelah lulus dari SMP, aku melanjutkan pendidikan di SMAN 3 depok. Banyak hal yang aku dapatkan disana. Sampai kini, aku berkuliah di Universitas Gunadarma. Dari awal pembukaan mahasiswa baru, aku mendaftar di Universitas ini, dan kemudian aku lulus pada grade 1. Gunadarma menjadi satu-satunya pilihan Universitas swasta yang aku pilih untuk aku berkuliah, karena Universitas ini teramasuk 10 besar Universitas terbaik di Indoneia versi webomatrics, dan termasuk urutan 5000 besar, dari jutaan Universitas di dunia. Dari mulai test masuk, aku hanya memilih jurusan Teknik Informatika. dan akhirnya sekarang aku sah menjadi Mahasiswa Universitas Gunadarma Jurusan Teknik Informatika.

THEY NEED US

Ini adalah foto yang saya ambil di daerah biangan jakarta timur. Tampak seorang lelaki tua yang lusuh, sedang mencari makan melalui mengemis. Kehidupannya nampak dari raut wajahnya. siapa yang tidak iba melihat lelaki tua seperti itu. mungkin ditempat lain, masih banyak lagi orang-orang kurang beruntung. Lalu, siapa yang dapat membantu orang-orang ini? bukan hanya pemerintah yang wajib membantu, kita pun juga wajib membantu. Mungkin kita tidak bisa memberi yang lebih, tetapi bantuan kecil kita pun bisa membantu mereka juga.. Jadi marilah kita bantu orang yang membutuhkan itu, supaya tercipta keadilan diantara sesama dan kesejahteraan di lingkungan kita.. :)

SUNGAI CILIWUNG

Ini adalah sfoto yang saya ambil dari sebuah gedung di pinggir kali ciliwung.. Sebenarnya kali ciliwung adalah sungai yang cukup indah.. dan bisa jadi sumber kehidupan warga sekitar.. tapi, sekarang sampahnya sudah semakin menumpuk.. sungai ciliwung menjadi tidak indah lagi, dan merupakan salah satu penyebab banjir di jakarta.. padahal, bila sungai ini dirawat, bisa menjadi objek wisata, media transportasi, dan pendukung kehidupan disekitarnya.. oeh karena itu, mari kita jaga dan kita rawat sungai ini.. janganlah membuang sampah ke sungai ataupun ke tempat - tempat lainnya di sembarang tempat.. :)