Gasoline Meter Simulator

[gudboi.ian]

Can anyone help me making this Gasoline Meter Simulator?

Here's the problem, Using .NET construct an application that will simulate Gasoline Meter. The users allows assigning the amount of gasoline per liter. The user can select whether by liters or by amount. If the user select liter, then he will key in the number of liters and will display the total amount or when the user select amount, the user will enter amount and will display the number of liters for that amount. Your application should display the amount and the liters in digital format like in the gasoline meter.

Note: Display the liter and amount counting based on the ration of amount and liters. Use error provider controls to handle error and handle exceptions.

[gudboi.ian]

Public Class Form1


    Private Sub btnP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnP.Click

        txtLiter.Text = txtPriter.Text * 

    End Sub

    Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn0.Click
        txtAmount.Text = txtAmount.Text & "0"
    End Sub

    Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click
        txtAmount.Text = txtAmount.Text & "9"
    End Sub

    Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click
        txtAmount.Text = txtAmount.Text & "8"
    End Sub

    Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click
        txtAmount.Text = txtAmount.Text & "7"
    End Sub

    Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click
        txtAmount.Text = txtAmount.Text & "6"
    End Sub

    Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click
        txtAmount.Text = txtAmount.Text & "5"
    End Sub

    Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
        txtAmount.Text = txtAmount.Text & "4"
    End Sub

    Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click
        txtAmount.Text = txtAmount.Text & "3"
    End Sub

    Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
        txtAmount.Text = txtAmount.Text & "2"
    End Sub

    Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
        txtAmount.Text = txtAmount.Text & "1"
    End Sub
End Class