Listing program
Private Sub Command1_Click()
Dim a As Double
Dim b As Double
Dim c As Double
a = Val(Text4.Text)
b = Val(Text5.Text)
c = Val(Text6.Text)
c = (0.7 * a) + (0.3 * b)
MsgBox (c)
Text6.Text = c
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
Logika Programnya :
Private Sub Command1_Click()
Pada bagian ini untuk menunjukkan bahwa listing program yang ditulis dibawahnya akan di berlakukan pada command1 button yang merupakan button untuk melihat hasil jika program dijalankan.
Dim a As Double
Dim b As Double
Dim c As Double
Pada bagian ini ingin memasukkan tipe data dari variable a, b dan c yang merupakan tipe data double. Dengan menggunakan Dim [variable] As [Tipe Data]
a = Val(Text4.Text)
b = Val(Text5.Text)
c = Val(Text6.Text)
Pada bagian ini untuk memberitahukan bahwa a menunjukan variable yang melambangkan setiap isian yang akan dimasukkan pada bagian textbox. Seperti diatas dimana a adalah variable yang melambangkan setiap isian yang berada pada Toolbox4 ( text4.text), b adalah variable yang melambangkan setiap isian yang berada pada Toolbox5 ( text5.text), c adalah variable yang melambangkan setiap isian yang berada pada Toolbox6 ( text6.text)
c = (0.7 * a) + (0.3 * b)
Karena saat ini membuat untuk perhitungan dimana memiliki rumus (70 %*UTS(a))+ (30%*UAS(b)) maka variable c yang menampilkan total nilai dituliskan perhitungan seperti diatas
i = MsgBox((c), vbOKCancel, " Hasilnya")
Untuk menampilkan hasil perhitungan dalam variable c dengan menggunakan messagebox dimana messagebox yang ditulis dari project1 menjadi hasilnya dan messagebox yang diberikan terdiri OK dan Cancel.
Text6.Text = c
Untuk menunjukkan bahwa variable c akan ditampilkan damal textbox6
End Sub
Akhir dari penulisan program
Private Sub Command2_Click()
Pada bagian ini untuk menunjukkan bahwa listing program yang ditulis dibawahnya akan di berlakukan pada command2 button yang merupakan button untuk menghapus seluruh isi textbox yang sebelumnya telah terisi ketika program dijalankan.
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Untuk membuat textbox ketika di pilih commondbutton hapus, isinya akan terhapus baik textbox1, textbox2, textbox3, textbox4, textbox5, textbox6
Text1.SetFocus
Pada bagian ini agar ketika semua sudah terhapus, kemudian kursor akan langsung berada pada text1.
End Sub
Akhir dari penulisan program
Private Sub Command3_Click()
Pada bagian ini untuk menunjukkan bahwa listing program yang ditulis dibawahnya akan di berlakukan pada command3 button yang merupakan button untuk keluar dari program saat program dijalankan.
End
Listing program untuk keluar dari program saat program dijalankan.
End Sub
Akhir dari penulisan program
Output :
Tidak ada komentar:
Posting Komentar