20th For AWT

20th awt masih di Bogor, udah di FPIK, tetap sama seperti mahasiswa MSP pada umumnya yang selalu dikejar dateline laporan, kuliah, dan diskusi-diskusi. Tapia ada yang membuat beda for 20th AWT, yaitu hadiah dari Allah swt. Melalui tangan-tangan malaikatnya, my family.

20th for awt from my family, ada ibu, bapak, belin, fadhil, lek win, lek-lek lainnya di rumah.
20th for awt from my family, ada lilis, teteh nur, yanti, candra, adi, nudia, cupid, kucing jantan, kucing betina, anak-anak kucing lainnya di kosan gang bara.

20th for awt from my family, ada ira, nadia, toni, Rolando, ima, kak titis, kay way, widia, kak mbil, kak arif, kak tri, kak ihsan, kak nina, lewo, kak rully, rikul, hade, yeyen, dani, ain, reky, liza di seKret Samudra Simfoni.

20th for awt from my family, ada euis, nurma, inggrid, dan anak air lainnya di msp.

20th for awt from my family, ada dwi, vivi, anti, sylvi di dsava.

20th for awt from hati yang bahagia. Bukan karena tiup lilin, potong kue, kado, ucapan ataupun do’a yang sudah sampai di hati ini lewat tangan-tangan malaikat. Tapi satu hal terpenting, yaitu hati yang tepaut dalam rasa kebersamaan. Cukup kalian ada, so specially for 20th AWT. Thank you very much, Alhamdulillah, so nice for remember 20th AWT.

Membuat Program Kalkulator dengan menggunakan Visual Basic 6.0

Pemrograman dengan menggunakan Visual Basic sama saja dengan pemrograman yang dilakukan bahasa pemrograman lainnya, namun Visual Basic itu sendiri lebih mudah menyusun langkah untuk menyelesaikan suatu tugas atau menghasilkan informasi. Visual Basic merupakan salah satu bahasa pemograman untuk pengembangan aplikasi yang banyak diminati oleh orang karena menawarkan kemudahan dalam pembuatan aplikasi dan dapat menggunakan komponen-komponen yang telah disediakan (Rahmandhani dan Cristina 2002). Dengan menggunakan Visual Basic dapat menghasilkan berbagai macam jenis program.

Pada praktikum SISDP (Sistem Informasi Sumberdaya Perikanan) Pada Jumat, 22 April 2016 di Laboratorium Model dan Simulasi, Bagian Manajemen Sumberdaya Perikanan, Departemen MSP FPIK, membuat program perhitungan berbentuk kalkulator yang diberi nama dengan “Calculator Aquatic Ranger”. Program aplikasi Calculator Aquatic Ranger dirancang seperti kalkulator scientific yang biasa digunakan mahasiswa MSP IPB. Program ini dapat menjalankan perhitungan aritmatika seperti penjumlahan, pengurangan, perkalian, pembagian, persentase, akar kuadrat, dan perhitungan lainnya dengan menggunakan bilangan nominal, pecahan maupun desimal.

Berikut ini adalah coding untuk membuat program Calculator Aquatic Ranger pada Visual Basic 6.0,
Dim nilai1 As Single
Dim nilai2 As Single
Dim hasil As Single
Dim proses As Integer
Dim total As Single

Private Sub Command1_Click()
Text1.SelText = 1
End Sub

Private Sub Command10_Click()
Text1.SelText = 0
End Sub

Private Sub Command11_Click()
Text1.Text = Val(Text1.Text) * -1
End Sub

Private Sub Command12_Click()
Text1.SelText = "."
End Sub

Private Sub Command13_Click()
nilai1 = Val(Text1.Text)
Text1.Text = ""
proses = 1
End Sub

Private Sub Command14_Click()
nilai1 = Val(Text1.Text)
Text1.Text = ""
proses = 2
End Sub
Private Sub Command15_Click()
nilai1 = Val(Text1.Text)
Text1.Text = ""
proses = 3
End Sub

Private Sub Command16_Click()
nilai1 = Val(Text1.Text)
Text1.Text = ""
proses = 4
End Sub

Private Sub Command17_Click()
If Text1.Text < 0 Then
MsgBox "tidak ada akar nyata", 16, "peringatan"
Text1.Text = ""
Else
Text1.Text = Val(Text1.Text) ^ 0.5
End If
End Sub

Private Sub Command18_Click()
Text1.Text = Val(Text1.Text) / 100
End Sub

Private Sub Command19_Click()
Text1.Text = 1 / Val(Text1.Text)
End Sub

Private Sub Command2_Click()
Text1.SelText = 2
End Sub

Private Sub Command20_Click()
Text1.Text = ""
total = 0
End Sub

Private Sub Command21_Click()
If proses = 1 Then
nilai2 = Text1.Text
hasil = nilai1 / nilai2
Text1.Text = hasil
End If
If proses = 2 Then
nilai2 = Text1.Text
hasil = nilai1 * nilai2
Text1.Text = hasil
End If
If proses = 3 Then
nilai2 = Text1.Text
hasil = nilai1 - nilai2
Text1.Text = hasil
End If
If proses = 4 Then
nilai2 = Text1.Text
Text1.Text = nilai1 + nilai2
End If
End Sub

Private Sub Command22_Click()
total = 0
End Sub

Private Sub Command23_Click()
Text1.Text = total
End Sub

Private Sub Command24_Click()
total = total - Val(Text2.Text)
Text1.Text = ""
End Sub

Private Sub Command25_Click()
total = Val(Text1.Text) + total
Text1.Text = ""
End Sub

Private Sub Command26_Click()
Text1.Text = ""
End Sub

Private Sub Command27_Click()
If Text1.Text = "" Then
MsgBox "kotak sudah kosong", 16, "peringatan"
Else
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End If
End Sub

Private Sub Command28_Click()
End
End Sub

Private Sub Command3_Click()
Text1.SelText = 3
End Sub

Private Sub Command4_Click()
Text1.SelText = 4
End Sub

Private Sub Command5_Click()
Text1.SelText = 5
End Sub

Private Sub Command6_Click()
Text1.SelText = 6
End Sub

Private Sub Command7_Click()
Text1.SelText = 7
End Sub

Private Sub Command8_Click()
Text1.SelText = 8
End Sub

Private Sub Command9_Click()
Text1.SelText = 9
End Sub

Private Sub Exit_Click()
End
End Sub