Basic Projects With Source Code | Visual

Private Sub Operator_Click(sender As Object, e As EventArgs) Handles btnAdd.Click, btnSub.Click, btnMul.Click, btnDiv.Click If currentInput <> "" Then firstNumber = Double.Parse(currentInput) operation = CType(sender, Button).Text currentInput = "" End If End Sub

Select Case operation Case "+" : result = firstNumber + secondNumber Case "-" : result = firstNumber - secondNumber Case "*" : result = firstNumber * secondNumber Case "/" : result = firstNumber / secondNumber End Select visual basic projects with source code

Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click If txtTask.Text.Trim() <> "" Then lstTasks.Items.Add(txtTask.Text) txtTask.Clear() SaveTasks() End If End Sub Private Sub Operator_Click(sender As Object, e As EventArgs)

Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click If imageFiles IsNot Nothing Then currentIndex = (currentIndex + 1) Mod imageFiles.Length ShowImage() End If End Sub Private Sub Operator_Click(sender As Object

Imports System.IO Public Class TodoApp Private tasksFile As String = "tasks.txt"