Pertemuan Visual Basic ke-2

Pada praktikum pertemuan kedua ini, saya mendapatkan materi Perulangan pada Visual Basic. Perulangan (Looping) adalah struktur loop yang memperbolehkan anda untuk melaksanakan sekelompok baris lebih dari satu kali. Pada praktikum ini saya membuat aplikasi perulangan untuk mencari bilangan genap. Berikut adalah desain tampilan programnya :

Pada desain form1 diatas terdapat 2 buah Label yang berfungsi sebagai judul dan bilangan, 1 buah TextBox untuk memasukkan angka yang diinginkan, 1 buah ListBox untuk menampilkan outputnya dan 4 buah CommandButton sebagai perulangan yang diinginkan For Next, While Wend, Do Loop Until dan For If. Berikut adalah kode yang terdapat pada program yang telah dibuat :   

Pada Command1_Click() terdapat perintah bilangan = Val(Text1). Fungsi Val  digunakan untuk mengubah tipe data text menjadi tipe data numerik, sedangkan fungsi Str digunakan untuk mengubah tipe data numerik menjadi tipe data text. Property clear pada List1 digunakan untuk membersihkan isi list1. Perintah For i digunakan untuk menentukan nilai i tersebut. Property AddItem pada List1 digunakan untuk menambahkan isi list1 dengan demikian sebelumnya dibersihkan, kemudian ditambah isinya dengan barisan bilangan yang dibuat. Dan perintah next i digunakan untuk menetapkan hasil yang didapat dari nilai i tadi.   

Pada Command2_Click() bilangan bernilai 2. Kondisi while bilangan kurang dari sama dengan 100 maka list1 akan menambahkan bilangan dan bilangan sama dengan bilangan ditambah 2 adalah akumulator. Variabel kontrol pada jenis looping tidak otomatis bertambah/berkurang seperti pada looping dengan For Next, sehingga penambahan atau pengurangan nilai dilakukan dengan menggunakan akumulator yang dituliskan dengan var = var + step. Meskipun hal ini bukan suatu keharusan. Karena tidak setiap looping membutuhkan akumulator, variabel yang terus menerus bertambah atau berkurang. 

Pada Command3_Click() bilangan sama dengan 2. List1.Additem bilangan berguna untuk menampilkan bilangan. Perintah bilangan = bilangan + 2 sebagai akumulator  proses akan diulang sampai kondisi yang diberikan dipenuhi yaitu bilangan sampai dengan 100.

Pada Command4_Click() untuk i bernilai 2 sampai 100. Perintah if j = i mod 2 = 0 Then List1.Additem i berfungsi untuk nilai i jika hasil baginya sama dengan 0 maka pada List1 akan menampilkan hasil output program tersebut.

Berikut adalah tampilan outputnya :

Pertemuan Delphi Ke - 5

1.    List Program

Unit1

Procedure TForm1.Button1Click(Sender: TObject);

begin

if (Edit1.Text = ‘Mahasiswa’) and

(Edit2.Text = ‘password’) then

begin

Form1.Hide;

Form2.Show;

end

else

Label4.Caption:=’Maaf Username/ Password yang anda masukkan salah’;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Label4.Caption := ‘ ‘ ;

end;

end.

Unit2

procedure TForm2.Button1Click(Sender: TObject);

var kuis, uts, uas, keaktifan : integer;

jumlah : real;

begin

kuis := StrToInt (Edit1.Text);

uts := StrToInt (Edit2.Text);

uas := StrToInt (Edit3.Text);

keaktifan := StrToInt (Edit4.Text);

jumlah := (kuis + uts + uas + keaktifan) / 4;

Label6.Caption := ;Rangkuman Nilai Anda Adalah = ‘ + FloatToStr(Jumlah);

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

Label6.Caption := ‘ ‘ ;

end;

end.

2.    Logika Program

Analisa program :

Program ini dibuat untuk latihan membuat program menggunakan delphi7, yang berdasarkan label, edit dan button. Di sini kita akan membuat Program Login yang kemudian setelah Login masuk ke Rangkuman Nilai.

Penjelasan Program :

1.    Pertama-tama kita membuat 4 Label pada form1, yaitu Label1 (LOGIN), Label2 (USERNAME), Label3 (PASSWORD) dan Label4 (Maaf Username/Password yang anda masukkan salah).

2.    Setelah itu, kita buat 2 Edit pada form, Edit1 diletakkan sebelah USERNAME dan Edit2 diletakkan sebelah PASSWORD.

3.    Kemudian buat 2 Button, Button1 (LOGIN) dan Button2 (RESET).

4.    Klik Button1 (LOGIN) kemudian masukkan kodingan :

Procedure TForm1.Button1Click(Sender: TObject);

begin

if (Edit1.Text = ‘Mahasiswa’) and

(Edit2.Text = ‘password’) then

begin

Form1.Hide;

Form2.Show;

end

else

Label4.Caption:=’Maaf Username/ Password yang anda masukkan salah’;

end;

Button1 berfungsi untuk LOGIN. Jika Edit1.Text diinput Mahasiswa dan Edit2.Text diinput password, pada password kita dapat membuatnya menjadi tidak terlihat dengan mengubahnya pada Password Char buat menjadi simbol * kemudian Form1 akan secara otomatis disembunyikan jika LOGIN berhasil, lalu akan tampil Form2 tetapi bila salah menginput Edit1.Text maupun Edit2.Text maka Label4.Caption akan menampilkan kalimat Maaf Username/Password yang anda masukkan salah.

5.    Setelah itu  pada Button2 (RESET) masukkan kodingan :

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Label4.Caption := ‘ ‘ ;

end;

end.

Button2 berfungsi untuk mereset semua hasil output yang ditampilkan setelah Login dengan Username dan Password. Maka Edit1.Clear; Edit2.Clear; akan membersihkan text pada kolom masing-masing Edit. Begitu pula dengan Label4.

6.    Kemudian setelah kita membuat desain tampilan, memasukkan kodingan di Form1 pada Unit1 dengan Program LOGIN saatnya kita mendesain Form2 yaitu RANGKUMAN NILAI.

7.    Kita membuat 5 Label dengan Label1 (RANGKUMAN NILAI), Label 2 (NILAI KUIS), Label3 (NILAI UTS), Label4 (NILAI UAS), dan Label5 (NILAI KEAKTIFAN).

8.    Kemudian kita buat 2 Button, Button1 untuk Hasil dan Button2 untuk Reset.

9.    Setelah selesai mendesain tampilan Form2, kita masukkan kodingan seperti berikut pada Button1 (Hasil) :

procedure TForm2.Button1Click(Sender: TObject);

var kuis, uts, uas, keaktifan : integer;

jumlah : real;

begin

kuis := StrToInt (Edit1.Text);

uts := StrToInt (Edit2.Text);

uas := StrToInt (Edit3.Text);

keaktifan := StrToInt (Edit4.Text);

jumlah := (kuis + uts + uas + keaktifan) / 4;

Label6.Caption := ;Rangkuman Nilai Anda Adalah = ‘ + FloatToStr(Jumlah);

end;

Pada RANGKUMAN NILAI ini kita akan menghitung Hasil nilai kita. Seperti yang kita lihat pada kodingan kuis, uts, uas, keaktifan dibuat menjadi nilai integer kemudian jumlah dibuat menjadi nilai real. Lalu kuis akan diubah dari sting menjadi nilai integer begitu pun dengan uts, uas, dan keaktifan. Masing-masing akan diinputkan pada Edit masing-masing. Edit1 (kuis), Edit2 (uts), Edit3 (uas), dan Edit4 (keaktifan). Pada jumlah digunakan rumus yaitu menjumlahkan nilai kuis, uts, uas, dan keaktifan lalu dibagi 4 untuk menghitung hasil keseluruhan nilai yang kita dapatkan setelah diinputkan pada masing-masing Edit. Label6.Caption berfungsi untuk menampilkan kaliamat Rangkuman Nilai Anda Adalah = kemudian ditampilakan pula Jumlah pada Label6 yang dari float diubah menjadi string.

10.  Setelah itu pada Button2 (Reset) masukkan kodingan :

procedure TForm2.Button2Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

Label6.Caption := ‘ ‘ ;

end;

end.

Sama seperti Button RESET pada Form1, Button2 di Form2 pun berfungsi untuk mereset semua hasil output yang ditampilkan setelah diinputkannya nilai pada RANGKUMAN NILAI. Maka Edit1.Clear; Edit2.Clear; Edit3.Clear; Edit4.Clear; akan membersihkan text pada kolom masing-masing Edit. Begitu pula dengan Label6.

11. Setelah semua langkah-langkah diatas telah kita lakukan saatnya kita Test Program yang telah kita buat dengan menekan F9 atau Play pada Delphi.

Berikut adalah hasil output dari Program yang telah dibuat :

Tugas Ilmu Budaya Dasar

MANUSIA DAN TANGGUNG JAWAB & PANDANGAN HIDUP

            Pada dasarnya setiap manusia yang terlahir dimuka bumi ini sudah memilki tanggung jawab. Tanggung jawab adalah kesadaran manusia akan tingkah laku atau perbuatannya yang disengaja maupun yang tidak disengaja. Tanggung jawab juga berarti berbuat sebagai perwujudan kesadaran akan kewajibannya. Setiap manusia juga memiliki pandangan hidup. Pandangan hidup itu bersifat kodrati. Pandangan hidup artinya pendapat atau pertimbangan yang dijadikan pegangan, pedoman, arahan, petunjuk hidup di dunia. 

Nama saya Martha Dinalova saya akan mencertikan pengalaman saya tentang Manusia dan Tanggung Jawab & Pandangan Hidup. Saya aktif berorganisasi di gereja. Saya memiliki dua sahabat yaitu Windi dan Nia yang aktif juga dalam organisasi di gereja. Organisasi kami adalah Remaja. Didalam organisasi ini saya menjabat sebagai bendahara, Windi sebagai sekertaris dan Nia sebagai ketua dalam organisasi Remaja ini. Karena kami sahabat dekat maka kami sudah sangat dekat dan saling terbuka satu sama lain. Saat itu bukan hanya saya yang menjadi bendahara tapi ada seorang pria bernama Christian Toffler yang menjadi rekan saya. 

Suatu hari Nia dan Toffler mengambil dana dari bendahara gereja untuk kas Remaja kami. Karena Toffler merasa ia akan jarang pergi ke gereja maka ia memberikan uang ka situ kepada saya. Saat ia memberikan uang itu saya tak membawa tas ataupun dompet  maka saya berkata “Nanti aja tof, uangnya kan banyak gua ga bawa tas nih!” tapi Toffler memaksa karena ia takut lupa memberikannya kepada saya. Maka saya pun menerima uang itu dan saya menaruhnya dijaket saya. 

Pada hari itu kami pun sedang berlatih untuk mengisi pujian di hari minggu untuk gereja sore. Dalam latihan terbagi menjadi beberapa group suara ada sopran, alto, tenor dan bass, saya masuk ke dalam group alto. Saat kami berlatih bersama dan kemudian group alto dilatih untuk pernapasan dan lainnya, saya menaruh jaket saya di atas kursi dimana saya duduk dan saya berkata kepada salah seorang anak remaja “De, tolong ya dijaga ini ada uang gereja! Takut hilang nanti, oke!” ia pun mengangukkan kepalanya dan berkata “Iya kak siap!”. 

Ketika sedang latihan, Windi mengambil uang dari jaket saya untuk membeli minum bagi pelatih juga anak-anak remaja lainnya dan saya melihatnya. Kemudian latihan pun selesai, kami pun pulang bersama-sama. Ketika saya hendak ke parkiran motor, Nia dan Windi menanyakan uang yang diberikan Toffler tadi. Saya pun berkata “Iya ada kok ini uangnya diajaket!”. Saya pun merogoh kantong jaket saya dan saya panic karena sebagian uangnya hilang. 

Saya dan kedua sahabat saya pun mencari uang itu mungkin terjatuh atau terselip atau entahlah tapi kami tak menemukannya. Badan saya lemah seketika dan tak berdaya karena menghilangkan uang gereja kami pum mulai berpikiran negatif apakah mungkin salah satu dari anak remaja yang mengambilnya tapi kami tak mau menuduh atau menerka-nerka siapa yang mengambil uang itu. Maka saya berkata kepada mereka “Ya sudah, uangnya hilang karena saya bendahara maka saya akan ganti uang yang hilang itu!”. Tapi karena kami sahabat baik mereka berdua sahabat saya merasa itu bukan salah saya. Ya, tapi ini salah saya. Saya teledor dan tidak menaruh uang itu dengan baik. Akhirnya saya menggantikan uang yang hilang itu dengan uang tabungan saya. Dan dari pengalaman itu saya belajar banyak hal untuk memperbaiki kinerja saya sebagai bendahara dalam organisasi di Remaja. 

Setelah beberapa bulan, organisasi kami mengadakan event yaitu Ret-reat yang diadakan 3 hari 2 malam di puncak. Namun saat itu, kami kebingungan karena tak ada yang  bisa ditunjuk sebagai ketua pelaksana acara tersebut. Maka Nia dan Windi sahabat saya meminta saya menjadi Ketua Pelaksana acara tersebut. Saya pun tahu ini adalah tanggung jawab yang sangat besar. Saya pun berani menerima mandat tersebut.

Seiring berjalannya waktu kami pun sering mengadakan rapat, rapat pun terus berjalan tentunya setiap rapat menghasilkan sesuatu yang dibutuhkan untuk acara tersebut. Ketika hari H sudah dekat timbul konflik antara saya dan kedua sahabat saya itu Nia dan Windi karena adanya suatu masalah pribadi diluar dari acara ini tentunya. Kami pun saling tidak respect, mereka berdua dan saya sendiri. Banyak orang disekitar kami yang menyadari hal tersebut namun tak ingin ikut campur. Saya merasa malas bila bertemu mereka rasanya tak ingin melihat mereka berdua. 

Tapi saya sadar akan tanggung jawab saya dan saya harus professional karena ini adalah organisasi. Pandangan saya ketika itu adalah “Ketika anda memiliki suatu masalah pribadi dengan teman seorganisasi anda. Hendaknya masalah itu tidak dibawa pula saat masuk ke ring organisasi tapi diluar organisasi silahkan lakukan apapun yang ingin anda lakukan”. Maka saya menjalankan kewajiban saya dan Puji Tuhan acara berjalan dengan baik hingga akhirnya setelah acara selesai kami pun belum berbaikan, kami berdiam-diaman sangat lama sekali. Seminggu, sebulan, bahkan hamper dua bulan kami saling tidak sapa. Hingga suatu hari sahabat saya Windi dan Nia meminta maaf atas kesalahannya dan saya pun meminta maaf atas segala kesalahan saya. Akhirnya kami bertiga bersahabat baik kembali hingga saat ini.

Sekian cerita tentang Manusia dan Tanggung Jawab & Pandangan hidup dari pengalaman saya  ini semoga dapat menjadi pembelajaran bagi semua yang membacanya. Ambil nilai-nilai positif dari cerita ini dan buang nilai-nilai negatif dari cerita ini. Jadilah pembaca yang cerdas. Terimakasih telah meluangkan waktu untuk membaca cerita saya, God bless :)