Perhitungan ROKET

Nie ada satu kasus. Misalnya sebuah roket menghabiskan bahan bakar 1 KG per 1 kilometer pertama, dan 8 KG untuk kilometer ke 2, dan begitu seterusnya berkurang 80% setiap kilometer. Nah.. Soalnya berapa Kilo bahan bakar yang dihabisin untuk 100 KM??

1. Pertama coba rancang form seperti dibawah ini :



berikutnya pada BUTTON PROSES tambahin coding dibawah ini

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim jml_kg, km1 As Double
km1 = 10
jml_kg = 0
Dim a As Integer
For a = 2 To CInt(jarak.Text)
km1 = km1 * 0.8
jml_kg = jml_kg + km1
Next
MsgBox("Bahan bakar yang dihabiskan adalah " & 10 + jml_kg & " Kg")
End Sub

coding diatas menggunakan perulangan FOR dengan asumsi setiap kilometer menghabiskan bahan bakar 80% dari sebelumnya.

ADA cara lain??

kalo yang dlu jurusan IPA pas SMA pasti pernah denger DERET GEOMETRI, bisa juga di terapin dalam kasus ini, ketikan kode berikut di tombol PROSESNYA

Dim a As Integer = jarak.Text
Dim hitung As Decimal
hitung = (10 * (1 - (0.8 ^ jarak.Text))) / (1 - 0.8)
MsgBox("Bahan bakar yang dihabiskan adalah " & hitung & " Kg")

Moga Bermanfaat yaa ... :))

Kemudian dijalankan, maka hasilnya seperti gambar di bawah