Visual Basic Projects With Source Code May 2026
“`vb Imports System.Data.Ole
vb Copy Code Copied Imports System.Collections.Generic Public Class ToDoListPrivate tasks As New List(Of String) visual basic projects with source code
vb Copy Code Copied Imports System.Net Public Class WeatherForecast “`vb Imports System
Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click If btn1.Text = "" Then btn1.Text = playerTurn CheckWin() playerTurn = If(playerTurn = "X", "O", "X") End If End Sub Private Sub CheckWin() If btn1.Text = btn2.Text AndAlso btn2.Text = btn3.Text AndAlso btn1.Text <> "" Then MessageBox.Show("Player " & btn1.Text & " wins!") ElseIf btn4.Text = btn5.Text AndAlso btn5.Text = btn6.Text AndAlso btn4.Text <> "" Then MessageBox.Show("Player " & btn4.Text & " wins!") ElseIf btn7.Text = btn8.Text AndAlso btn8.Text = btn9.Text AndAlso btn7.Text <> "" Then MessageBox.Show("Player " & btn7.Text & " wins!") End If End Sub End Class Create a simple Database Management System that allows users to add, remove, and update records. + txtLocation.Text + "
Private weatherData As String Private Sub btnGetWeather_Click(sender As Object, e As EventArgs) Handles btnGetWeather.Click Dim url As String = "http://api.openweathermap.org/data/2.5/weather?q=" + txtLocation.Text + "&appid=YOUR_API_KEY" Dim request As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest) Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse) Dim data As Stream = response.GetResponseStream() Dim reader As New StreamReader(data) weatherData = reader.ReadToEnd() reader.Close() data.Close() Dim weatherJson As Object = JsonConvert.DeserializeObject(weatherData) lblWeather.Text = weatherJson("weather")(0)("description") lblTemperature.Text = weatherJson("main")("temp") & "°C" End Sub End Class Create a game of Tic-Tac-Toe that allows two players to play against each other.
Here are some Visual Basic projects with source code that you can use to learn and practice: Create a simple To-Do List app that allows users to add, remove, and mark tasks as completed.
“`vb Imports System.Data.Ole
vb Copy Code Copied Imports System.Collections.Generic Public Class ToDoListPrivate tasks As New List(Of String)
vb Copy Code Copied Imports System.Net Public Class WeatherForecast
Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click If btn1.Text = "" Then btn1.Text = playerTurn CheckWin() playerTurn = If(playerTurn = "X", "O", "X") End If End Sub Private Sub CheckWin() If btn1.Text = btn2.Text AndAlso btn2.Text = btn3.Text AndAlso btn1.Text <> "" Then MessageBox.Show("Player " & btn1.Text & " wins!") ElseIf btn4.Text = btn5.Text AndAlso btn5.Text = btn6.Text AndAlso btn4.Text <> "" Then MessageBox.Show("Player " & btn4.Text & " wins!") ElseIf btn7.Text = btn8.Text AndAlso btn8.Text = btn9.Text AndAlso btn7.Text <> "" Then MessageBox.Show("Player " & btn7.Text & " wins!") End If End Sub End Class Create a simple Database Management System that allows users to add, remove, and update records.
Private weatherData As String Private Sub btnGetWeather_Click(sender As Object, e As EventArgs) Handles btnGetWeather.Click Dim url As String = "http://api.openweathermap.org/data/2.5/weather?q=" + txtLocation.Text + "&appid=YOUR_API_KEY" Dim request As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest) Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse) Dim data As Stream = response.GetResponseStream() Dim reader As New StreamReader(data) weatherData = reader.ReadToEnd() reader.Close() data.Close() Dim weatherJson As Object = JsonConvert.DeserializeObject(weatherData) lblWeather.Text = weatherJson("weather")(0)("description") lblTemperature.Text = weatherJson("main")("temp") & "°C" End Sub End Class Create a game of Tic-Tac-Toe that allows two players to play against each other.
Here are some Visual Basic projects with source code that you can use to learn and practice: Create a simple To-Do List app that allows users to add, remove, and mark tasks as completed.
Special Thanks
Supriya Sahu IAS, Srinivas Reddy IFS & Rakesh Dogra IFS
Original Music by
Ricky Kej
Photography
Sanjeevi Raja, Rahul Demello, Dhanu Paran, Jude Degal, Siva Kumar Murugan, Suman Raju, Ganesh Raghunathan, Pradeep Hegde, Pooja Rathod
Additional Photography
Kalyan Varma, Rohit Varma, Umeed Mistry, Varun Alagar, Harsha J, Payal Mehta, Dheeraj Aithal, Sriram Murali, Avinash Chintalapudi
Archive
Rakesh Kiran Pulapa, Dhritiman Mukherjee, Sukesh Viswanath, Imran Samad, Surya Ramchandran, Adarsh Raju, Sara, Pravin Shanmughanandam, Rana Bellur, Sugandhi Gadadhar
Design Communication & Marketing
Narrative Asia, Abhilash R S, Charan Borkar, Indraja Salunkhe, Manu Eragon, Nelson Y, Saloni Sawant, Sucharita Ghosh
Foley & Sound Design
24 Track Legends
Sushant Kulkarni, Johnston Dsouza, Akshat Vaze
Post Production
The Edit Room
Post Production Co-ordinator
Goutham Shankar
Online Editing & Colour Grading
Karthik Murali, Varsha Bhat
Additional Editing
George Thengumuttil
Additional Sound Design
Muzico Studios - Sonal Siby, Rohith Anur
Music
Score Producer: Vanil Veigas, Gopu Krishnan
Score Arrangers: Ricky Kej, Gopu Krishnan, Vanil Veigas
Keyboards: Ricky Kej
Flute: Sandeep Vasishta
Violin: Vighnesh Menon
Solo Vocals: Shivaraj Natraj, Gopu Krishnan, Shraddha Ganesh, Mazha Muhammed
Bass: Dominic D' Cruz
Choral Vocals, Arrangements: Shivaraj Natraj
Percussion: Karthik K., Ruby Samuels, Tom Sardine
Guitars: Lonnie Park
Strings Arrangements: Vanil Veigas
Engineered by: Vanil Veigas, Gopu Krishnan, Shivaraj Natraj
Score Associate Producers: Kalyan Varma, Rohit Varma
Mixing, Mastering: Vanil Veigas