Nama: Muhammad Tohari
NPM : 24219474
Kelas : 1EB01
Implementasi Tipe Data, Konstanta dan Variabel pada Visual Basic 6.
|
Private Sub CMDPROSES_Click()
Dim JARIJARI, TINGGI, VOLKERUCUT As Integer
JARIJARI = Val(TXTJARIJARI.Text)
TINGGI = Val(TXTTINGGI.Text)
VOLKERUCUT = Val(22 / 7 * JARIJARI * JARIJARI * TINGGI / 3)
TXTVOLKERUCUT.Text = VOLKERUCUT
End Sub
Setelah Koding atau Kode Program sudah dimasukkan ke dalam Command, abis itu dijalankan programnya. Misal:
Isi angka 5 di kotak Jari-Jari dan angka 6 di Kotak Tinggi, setelah itu klik Proses. Maka Hasil Volume Kerucut akan keluar, dan Hasilnya yaitu 157.
Program ini dibuat untuk menghitung Volume Kerucut.
Isi angka 5 di kotak Jari-Jari dan angka 6 di Kotak Tinggi, setelah itu klik Proses. Maka Hasil Volume Kerucut akan keluar, dan Hasilnya yaitu 157.
Program ini dibuat untuk menghitung Volume Kerucut.
- Volume Kerucut :
Komentar
Posting Komentar