Graphic and Web Design
Uzman Üye
Bir arabanın deposunda 200 lt benzin bulunmaktadır. Bu araba km ‘de 0.05 lt benzin yakmaktadır. Bu arabanın yakıtının kaç km sonra biteceğini hesaplayan program.
Örnek :
Button 1 Yazılacak Kodlar ;
Örnek :
Button 1 Yazılacak Kodlar ;
Kod:
Dimyakıt AsDecimalDim km As Integer
yakıt = 200
km = 0
While yakıt > 0
km = km + 1
yakıt = yakıt - 0.04
End While
MsgBox(yakıt)
MsgBox("Bu arabanın yakıtı "& km & " km sonra biter")
