Calculator/ Simple Arithmetic
Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click Dim sngNum1 As Single = Val(txtNum1.Text) Dim sngNum2 As Single = Val(txtNum2.Text) Dim op As String
If radAdd.Checked Then op = "+" ElseIf radSubtract.Checked Then op = "-" ElseIf radMultiply.Checked Then op = "*" Else op = "/" End If Select Case op Case "+" txtResult.Text = sngNum1 + sngNum2 Case "-" txtResult.Text = sngNum1 - sngNum2 Case "*" txtResult.Text = sngNum1 * sngNum2 Case Else If sngNum2 = 0 Then txtResult.Text = "Please do not enter 0 as a value." Else txtResult.Text = sngNum1 / sngNum2 End If End Select End Sub Private Sub txtNum1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtNum1.TextChanged
End Sub Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click txtNum1.Text = " " txtNum2.Text = " " txtResult.Text = " " End Sub End Class
Bagel Salad Soda Application
Const Bagel As Single = 2.25 Const CreamCheese As Single = 1.0 Const Lox As Single = 1.2 Const Spinach As Single = 2.75 Const Chef As Single = 3.25 Const Cola As Single = 1.25 Const CreamSoda As Single = 1.25 Dim Total As Integer
Private Sub chkBagel_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkBagel.CheckedChanged If chkBagel.Checked = True Then grpBagel.Visible = True If chkBagel.Checked = False Then grpBagel.Visible = False If chkBagel.Checked = False Then chkLox.Checked = False If chkBagel.Checked = False Then chkCC.Checked = False If chkBagel.Checked Then total = Bagel End If txtBagel.Text = FormatCurrency(Total) End Sub Private Sub chkSalad_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkSalad.CheckedChanged If chkSalad.Checked = True Then grpSalad.Visible = True If chkSalad.Checked = False Then grpSalad.Visible = False Const Spinach As Single = 2.75 Const Chef As Single = 3.25 Dim total As Single If radSpinach.Checked Then total = Spinach End If If radChef.Checked Then total = Chef End If txtSalad.Text = FormatCurrency(total) End Sub Private Sub chkSoda_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkSoda.CheckedChanged
If chkSoda.Checked = True Then grpSoda.Visible = True If chkSoda.Checked = False Then grpSoda.Visible = False Const Cola As Single = 1.0 Const CreamSoda As Single = 1.0 Dim total As Single If radCola.Checked Then total = Cola End If If radCS.Checked Then total = CreamSoda End If txtSoda.Text = FormatCurrency(total) End Sub Private Sub grpSalad_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grpSalad.Enter If radSpinach.Checked = True Then radChef.Checked = False If radChef.Checked = True Then radSpinach.Checked = False End Sub Private Sub grpSoda_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grpSoda.Enter If radCola.Checked = True Then radCS.Checked = False If radCS.Checked = True Then radCola.Checked = False End Sub Private Sub txtBagel_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBagel.TextChanged Const Bagel As Single = 2.25 Const CreamCheese As Single = 1.0 Const Lox As Single = 1.2 Dim total As Single If chkBagel.Checked Then total = Bagel End If If chkCC.Checked Then total = total + CreamCheese End If If chkLox.Checked Then total = total + Lox End If
txtBagel.Text = FormatCurrency(total) End Sub Private Sub txtSalad_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSalad.TextChanged Const Spinach As Single = 2.75 Const Chef As Single = 3.25 Dim total As Single If radSpinach.Checked Then total = Spinach End If If radChef.Checked Then total = Chef End If txtSalad.Text = FormatCurrency(total)
End Sub Private Sub chkLox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkLox.CheckedChanged If chkLox.Checked Then Total = Total + Lox End If txtBagel.Text = FormatCurrency(Total) End Sub Private Sub chkCC_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkCC.CheckedChanged If chkCC.Checked Then Total = Total + CreamCheese End If txtBagel.Text = FormatCurrency(Total) End Sub Private Sub radSpinach_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radSpinach.CheckedChanged If radSpinach.Checked Then Total = Spinach End If txtSalad.Text = FormatCurrency(Total)
End Sub Private Sub radChef_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radChef.CheckedChanged If radChef.Checked Then Total = Chef End If txtSalad.Text = FormatCurrency(Total) End Sub Private Sub btnTotal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTotal.Click btnTotal = (txtBagel + txtSalad + txtSoda) End Sub Private Sub txtSoda_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSoda.TextChanged Const Cola As Single = 1.0 Const CreamSoda As Single = 1.0 Dim total As Single If radCola.Checked Then total = Cola End If If radCS.Checked Then total = CreamSoda If End txtSoda.Text = FormatCurrency(total) End Sub Private Sub radCola_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radCola.CheckedChanged Const Cola As Single = 1.0 Const CreamSoda As Single = 1.0 Dim total As Single If radCola.Checked Then total = Cola End If If radCS.Checked Then total = CreamSoda End If txtSoda.Text = FormatCurrency(total) End Sub
Private Sub radCS_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radCS.CheckedChanged Const Cola As Single = 1.0 Const CreamSoda As Single = 1.0 Dim total As Single If radCola.Checked Then total = Cola End If If radCS.Checked Then total = CreamSoda End If txtSoda.Text = FormatCurrency(total) End Sub Private Sub grpBagel_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grpBagel.Enter End Sub Private Sub txtTotal_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTotal.TextChanged End Sub End Class
Grade Determination in console box
Sub Main() Dim intTest1 As Integer Dim intTest2 As Integer Dim intTest3 As Integer Dim sngAvg As Single Console.Write("Enter the first score: ") intTest1 = Console.ReadLine() Console.Write("Enter the second score: ") intTest2 = Console.ReadLine() Console.Write("Enter the third score: ") intTest3 = Console.ReadLine() sngAvg = (intTest1 + intTest2 + intTest3) / 3 If (sngAvg >= 90) Then Console.Write("A") ElseIf (sngAvg >= 80) And (sngAvg < 90) Then Console.Write("B") ElseIf (sngAvg >= 70) And (sngAvg < 90) Then Console.Write("C") ElseIf (sngAvg >= 60) And (sngAvg < 90) Then Console.Write("D") Else Console.Write("F") End If Console.ReadLine() End Sub End Module
Simple Bagel
Private Sub btnPrice_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrice.Click Const Plain As Single = 1.75 Const WholeWheat As Single = 1.95 Const Raisin As Single = 2.15 Const CreamCheese As Single = 0.75 Const Lox As Single = 0.5 Dim Total As Single If radPlain.Checked Then Total = Plain ElseIf radWheat.Checked Then Total = WholeWheat Else Total = Raisin End If If chkCreamCheese.Checked Then Total = Total + CreamCheese End If If chkLox.Checked Then Total = Total + Lox End If txtPrice.Text = FormatCurrency(Total, 2) End Sub End Class
Simple Calculator with Mod
Private Sub btnplus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnplus.Click Dim intNum1 As Integer = CInt(txtNum1.Text) Dim intNum2 As Integer = CInt(txtNum2.Text) lblOperator.Text = "+" lblResult.Text = intNum1 + intNum2 End Sub Private Sub btnminus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnminus.Click Dim intNum1 As Integer = CInt(txtNum1.Text) Dim intNum2 As Integer = CInt(txtNum2.Text) lblOperator.Text = "-" lblResult.Text = intNum1 - intNum2 End Sub Private Sub btnmultiply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmultiply.Click Dim intNum1 As Integer = CInt(txtNum1.Text) Dim intNum2 As Integer = CInt(txtNum2.Text) lblOperator.Text = "*" lblResult.Text = intNum1 * intNum2 End Sub Private Sub btnExp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExp.Click Dim intNum1 As Integer = CInt(txtNum1.Text) Dim intNum2 As Integer = CInt(txtNum2.Text) lblOperator.Text = "^" lblResult.Text = intNum1 ^ intNum2 End Sub Private Sub btndivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndivide.Click
Dim intNum1 As Integer = CInt(txtNum1.Text) Dim intNum2 As Integer = CInt(txtNum2.Text) lblOperator.Text = "/" Dim Num1 As Single = CSng(txtNum1.Text) Dim Num2 As Single = CSng(txtNum2.Text) If Num2 = 0 Then lblResult.Text = "Do not enter 0 as a value in Number 2" Else lblResult.Text = FormatNumber((Num1 / Num2), 2) End If lblResult.Text = intNum1 / intNum2 End Sub Private Sub btnIntdivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIntdivide.Click Dim intNum1 As Integer = CInt(txtNum1.Text) Dim intNum2 As Integer = CInt(txtNum2.Text) lblOperator.Text = "\" lblResult.Text = intNum1 \ intNum2 End Sub Private Sub btnMod_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMod.Click Dim intNum1 As Integer = CInt(txtNum1.Text) Dim intNum2 As Integer = CInt(txtNum2.Text) lblOperator.Text = "Mod" lblResult.Text = intNum1 Mod intNum2 End Sub Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click End End Sub Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click txtNum1.Text() = " " txtNum2.Text() = " " lblOperator.Text() = " " lblResult.Text() = " " End Sub End Class
Multiplication Table in Console Window
Sub Main() Dim rowcounter As Integer = 1 While rowcounter <= 10 Dim colcounter As Integer = 1 While colcounter <= 10 Console.Write(colcounter * rowcounter & " ") colcounter = colcounter + 1 End While Console.WriteLine() rowcounter = rowcounter + 1 End While Console.ReadLine() End Sub