Developing an application for billing system in coffee shops in VB.net.

Sdílet
Vložit
  • čas přidán 30. 09. 2022
  • Develop an application for billing system in coffee shops
    code
    Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim A, B As Double
    A = 0
    B = 0
    If CheckBox1.Checked = True Then
    A = Val(TextBox1.Text) * 10
    End If
    If CheckBox2.Checked = True Then
    B = Val(TextBox2.Text) * 30
    End If
    If CheckBox1.Checked = False Then
    A = Val(TextBox1.Text) * 15
    End If
    If CheckBox2.Checked = False Then
    B = Val(TextBox1.Text) * 15
    End If
    If RadioButton1.Checked = True Then
    RadioButton2.Visible = False
    TextBox4.Visible = False
    Label4.Visible = False
    TextBox4.Visible = False
    TextBox3.Text = A + B
    End If
    If RadioButton2.Checked = True Then
    RadioButton1.Visible = False
    TextBox4.Visible = True
    If TextBox4.Text = "" Then
    MsgBox("Enter you card number")
    Else
    TextBox3.Text = A + B
    End If
    End If
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox3.Text = ""
    TextBox4.Text = ""
    Label4.Visible = True
    TextBox4.Visible = True
    CheckBox1.Checked = False
    CheckBox2.Checked = False
    RadioButton1.Visible = True
    RadioButton2.Visible = True
    RadioButton1.Checked = False
    RadioButton2.Checked = False
    End Sub
    End Class
    please like and subscribe

Komentáře • 3