Aplikasi Pertama yang Dibuat dalam Mata Kuliah Pemrograman Komputer

Hello, bloggie...

Lama tak jumpa, ya! Haha... Oh, iya, tenang saja meski gue tingkat akhir gue sudah bertekad tidak akan berbagi kisah tentang perjalanan gue dalam menempuh dan merampungkan skripsi gue. Ahahai... Jadi, daripada kosong melompong begini, mendingan gue corat-coret lo dengan sesuatu deh, ya. 

Semester 5 lalu, gue ingat sekali gue pernah membuat sebuah aplikasi sangat sederhana yang dapat menghitung Indeks Masa Tubuh. Aplikasi ini sebenarnya suatu hasil kerja kelompok di mata kuliah Permrograman Koomputer. Di sini gue satu kelompok dengan Ria dan Nono, meski pada praktiknya, gue paling berisik dan cerewet dalam mengutak-atik aplikasi ini, yang membuat dosen gue sebal karena gue terlalu suka nyaut dan tidak patuh terhadap perintahnya.

Kalau mau download aplikasinya bisa loh download di sini. 

Aplikasi super sederhana ini dibuat sebelum UTS dan sebagai salah satu tugas UTS juga, dengan menggunakan software Visual Basic. Ada yang pernah mengoperasikan software ini? Seru loh. Ada semacam coding gitu di dalamnya. Kalau formulanya benar, aplikasinya bisa dioperasikan. Namun, kalau ada satu saja karakter yang kurang atau salah formulasi, beuuuuh... bug debug debug, bakal gagal atau tidak bisa dijalankan lah aplikasi itu. Dari mata kuliah Pemrograman Komputer ini, gue jadi tahu bagaimana suka duka seorang programmer. Keren sekali memang programmer itu.. <3 p="">

Oh, iya. Kalau ada yang pengen lihat bagaimana formulanya bisa download di sini lagi. Namun, lo harus sudah meng-instal software visual basic dulu untuk dapat melihat file ini, :D

Eh, tapi... Lucu kali yah, kalau gue copy formulanya di sini? Biar sekalian nyampah gitu, ehehehe.... Tadaaaaaa!!!! Ini formulanyaa

Option Explicit
 Dim BB As Single
 Dim TB As Single
 Dim IMT As Single

Private Sub Check4_Click()
 outputNama.FontUnderline = Check4.Value
End Sub
Private Sub Check6_Click()
 outputNama.FontSize = 16
End Sub
Private Sub cmdBersihkan_Click()
 TanggalCetak.Caption = ""
 JamCetak.Caption = ""
 Diet.Caption = ""
 Penyakit.Caption = ""
 kategoriUmur.Caption = ""
 outputNama.Caption = ""
 outputNomor.Caption = ""
 comboDiet.Text = ""
 comboUmur.Text = ""
 Nama.Text = ""
 Nomor.Text = ""
 txtBB.Text = ""
 txtTB.Text = ""
 txtIMT.Text = ""
 outputIMT.Caption = ""
 List1.Clear
 comboDiet.SetFocus
End Sub
Private Sub cmdCetak_Click()
 TanggalCetak = Now
 JamCetak = Now
 JamCetak.Caption = Format(JamCetak, "hh:mm:ss")
 TanggalCetak.Caption = Format(TanggalCetak, "dddd, dd mmmm yyyy")

 outputIMT.Caption = txtIMT.Text
 Diet.Caption = comboDiet.Text
End Sub
Private Sub cmdHitung_Click()
 Dim IMT As Single
 'Baca isi dari Textbox
 BB = Val(txtBB.Text)
 TB = Val(txtTB.Text)
 IMT = BB / ((TB * TB) / 10000)
 txtIMT.Text = Format(IMT, "##.##")
 outputIMT.Caption = txtIMT.Text
 outputIMT.FontBold = True
 outputIMT.FontSize = 14

 Select Case IMT
 Case 1 To 16.99
  Label17 = "Sangat Kurus"
 Case 17# To 18.5
  Label17 = "Kurus"
 Case 18.51 To 25#
  Label17 = "Normal"
 Case 25.01 To 27#
  Label17 = "Overweight"
 Case Else
  Label17 = "Obesitas"
 End Select
End Sub
Private Sub cmdSelesai_Click()
End
End Sub
Private Sub cmdTambah_Click()
 outputNama.Caption = Nama.Text
 outputNama.FontSize = 14
 outputNomor.Caption = Nomor.Text
 kategoriUmur.Caption = comboUmur.Text
End Sub
Private Sub Command1_Click()
 List1.AddItem comboDiet.Text
 comboDiet.SetFocus
End Sub
Private Sub Check2_Click()
 outputNama.FontItalic = Check2.Value
End Sub
Private Sub Check5_Click()
 outputNama.ForeColor = vbWhite
End Sub
Private Sub Command2_Click()
 List1.RemoveItem List1.ListIndex
End Sub
Private Sub Form_Load()
 'Isi comboUmur dengan kategori umur
 comboUmur.AddItem "<2 aduta="" br="" tahun=""> comboUmur.AddItem "2-19 tahun (Belum Dewasa)"
 comboUmur.AddItem ">=20 tahun (Dewasa)"

 'isi comboDiet dengan jenis diet
 comboDiet.AddItem "-"
 comboDiet.AddItem "Diet TKTP"
 comboDiet.AddItem "Diet Ginjal/Rendah Protein"
 comboDiet.AddItem "Diet Rendah Gula"
 comboDiet.AddItem "Diet Rendah Lemak"
 comboDiet.AddItem "Diet Luka Bakar"
 comboDiet.AddItem "Diet Rendah Garam"
 comboDiet.ListIndex = 0
 End Sub
Private Sub Check3_Click()
 outputNama.FontStrikethru = Check3.Value
End Sub
Private Sub Check1_Click()
 outputNama.FontBold = Check1.Value
End Sub
Private Sub opIdeal_Click()
 outputIMT.ForeColor = vbBlack
 outputIMT.BackColor = &H80C0FF
End Sub
Private Sub opInap_Click()
 outputNomor.ForeColor = vbWhite
 outputNomor.FontBold = True
 outputNomor.FontSize = 14
End Sub
Private Sub opJalan_Click()
 outputNomor.ForeColor = vbBlack
 outputNomor.FontBold = True
 outputNomor.FontSize = 14
End Sub
Private Sub opL_Click()
 outputNama.BackColor = &HFFFF00
End Sub
Private Sub opP_Click()
 outputNama.BackColor = &HFF00FF
End Sub
Private Sub optionBedah_Click()
 Label6.Caption = "(*)Pasca-Bedah"
End Sub
Private Sub optionTidakBedah_Click()
 Label6.Caption = ""
End Sub
Private Sub timDisplay_Timer()
 Dim HariIni As Variant
 HariIni = Now
 lblHari.Caption = Format(HariIni, "dddd")
 lblTanggal.Caption = Format(HariIni, "dd")
 lblBulan.Caption = Format(HariIni, "mmmm")
 lblTahun.Caption = Format(HariIni, "yyyy")
 lblJam.Caption = Format(HariIni, "hh:mm:ss")
End Sub

Nah, dengan sedikit rumus di atas dapat dibuat sebauh tampilan aplikasi semacam ini. Aplikasi ini dapat diisi dengan informasi sesuai dengan variabel yang tersedia. 

Setelah diisi dan diklik-klik tombol eksekusinya, akan muncul seperti ini.

Wahahahaaa... Itu IMT saya saat ini, ketika sedang mengerjakan skripsi. :"D