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

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

Public Class TicTacToe Dim board(2, 2) As String ' "X", "O", or "" Dim currentPlayer As String = "X" Dim gameActive As Boolean = True Private Sub Button_Click(sender As Object, e As EventArgs) Handles btn00.Click, btn01.Click, btn02.Click, btn10.Click, btn11.Click, btn12.Click, btn20.Click, btn21.Click, btn22.Click Dim btn As Button = CType(sender, Button) Dim row As Integer = CInt(btn.Tag.ToString().Substring(0, 1)) Dim col As Integer = CInt(btn.Tag.ToString().Substring(1, 1)) Private Sub btnAdd_Click(sender As Object, e As EventArgs)

Private Sub MakeMove(row As Integer, col As Integer, player As String) board(row, col) = player Dim btn As Button = GetButton(row, col) btn.Text = player btn.Enabled = False Private Sub btnAdd_Click(sender As Object

If CheckWin(player) Then lblStatus.Text = $"{player} wins!" gameActive = False ElseIf IsDraw() Then lblStatus.Text = "Draw!" gameActive = False End If End Sub

Private Sub SaveTasks() Using writer As New StreamWriter(tasksFile) For Each task In lstTasks.Items writer.WriteLine(task.ToString()) Next End Using End Sub