
Dim استفاده میکنیم.Dim number As Integer
Dim name As String
Dim isValid As Boolean
Dim: برای تعریف متغیرAs: برای تعیین نوع داده متغیرDim age As Integer = 20
If age >= 18 Then
MessageBox.Show("شما بالغ هستید.")
Else
MessageBox.Show("شما هنوز بالغ نشدهاید.")
End If
For i As Integer = 1 To 5
MessageBox.Show("شماره: " & i)
Next
Function استفاده میکنیم.Function AddNumbers(a As Integer, b As Integer) As Integer
Return a + b
End Function
Dim result As Integer = AddNumbers(10, 5)
MessageBox.Show("نتیجه: " & result)
Private Sub btnClickMe_Click(sender As Object, e As EventArgs) Handles btnClickMe.Click
MessageBox.Show("دکمه کلیک شد!")
End Sub
Private Sub txtName_TextChanged(sender As Object, e As EventArgs) Handles txtName.TextChanged
lblDisplay.Text = "شما تایپ کردید: " & txtName.Text
End Sub
Try
Dim result As Integer = 10 / 0 ' این خطا ایجاد میکند
Catch ex As DivideByZeroException
MessageBox.Show("تقسیم بر صفر امکانپذیر نیست.")
End Try
Dim connection As New SqlConnection("ConnectionString")
Dim command As New SqlCommand("SELECT * FROM Users", connection)
Dim reader As SqlDataReader
connection.Open()
reader = command.ExecuteReader()
While reader.Read()
MessageBox.Show(reader("UserName").ToString())
End While
connection.Close()
4 Comments
با سلام
آیا امکان تهیه فایل دانلود یا سی دی آموزشی ویژوال بیسیک از پایه تا پیشرفته به صورت خرید اینترنتی است.
سلام…در حال حاضر برنامه ها فقط به صورت برنامه اندرویدی ارائه می گردند.
سلام خواستم ازتون تشکر کنم که اینقدر زحمت میکشید دمتون گرم پیشنهاد میکنم این آموزش رو بخرید برای شروع عالیه
سپاس از حمایتتان