VB.Net kullanarak araba yakıtı hesaplayan bir program yapmak oldukça kolaydır. Program, kullanıcının araba modeli, kilometre sayısı, yakıt türü ve yakıt fiyatı gibi bilgileri girmesini bekler ve daha sonra arabanın ne kadar yakıt harcadığını ve yakıt maliyetini hesaplar.

Araba Yakıtı Hesaplayan Program Örneği Nasıl Yapılır? Detaylı Anlatım

Aşağıdaki adımları takip ederek programı oluşturabilirsiniz:

Yeni bir VB.Net projesi oluşturun ve form tasarımını düzenleyin. Forma, kullanıcının girdiği verileri alabileceği uygun kontrol elemanlarını (metin kutuları, açılır menüler vb.) ekleyin. Ayrıca, programın sonucunu göstereceği bir etiket veya mesaj kutusu ekleyin.

Formun kod kısmına geçin ve kullanıcının girdiği verileri alacak değişkenleri tanımlayın. Bu değişkenler arasında arabanın modeli, kilometre sayısı, yakıt türü ve yakıt fiyatı bulunabilir.

Kullanıcının girdiği verileri almak için uygun kontrol elemanlarına bağlı olayları (genellikle bir düğme tıklama olayı) oluşturun. Bu olaylar, kontrol elemanlarından verileri alacak ve hesaplama işlemlerini yapacak olan kodu tetikleyecektir.

Hesaplama işlemlerini gerçekleştirecek kodu yazın. Bu kod, kullanıcının girdiği kilometre sayısını, aracın yakıt türünü ve yakıt fiyatını kullanarak, arabanın ne kadar yakıt harcadığını ve ne kadar maliyet oluştuğunu hesaplayacaktır.

Hesaplama sonuçlarını bir etiket veya mesaj kutusu aracılığıyla kullanıcıya gösterin. Bu sonuçlar arasında, toplam yakıt miktarı, yakıt maliyeti ve kilometrede harcanan yakıt miktarı gibi bilgiler bulunabilir.

Örnek olarak, aşağıdaki kod parçası, kullanıcının girdiği kilometre sayısı ve yakıt türüne göre arabanın harcadığı yakıt miktarını hesaplar ve sonucu bir etikette gösterir:

vb.net

Dim distance As Double = Double.Parse(txtDistance.Text)
Dim fuelType As String = cboFuelType.SelectedItem.ToString()
Dim fuelConsumption As Double
If fuelType = "Benzin" Then
    fuelConsumption = distance * 0.08
ElseIf fuelType = "Dizel" Then
    fuelConsumption = distance * 0.06
ElseIf fuelType = "LPG" Then
    fuelConsumption = distance * 0.09
End If
lblResult.Text = “Arabanın ” & distance & ” km yolculuğu için ” & fuelConsumption & ” litre ” & fuelType & ” harcanmıştır.”

Bir yanıt yazın

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir