Iteration

Public Class Iteration

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Num As Integer

Num = CInt(InputBox(" ãÊè¤èÒ : "))

For j As Integer = 1 To 10

Num = Num + 1

Next

MessageBox.Show("¤ÓµÍº ¤×Í " & Num, "à©ÅÂ")

Dim Num1, Num2 As Integer

Dim MyNum As Integer

MyNum = CInt(InputBox(" ãÊè¤èÒ : "))

For Num1 = 10 To 1 Step -1

For Num2 = 0 To 9

MyNum = MyNum + 1

If MyNum = 8 Then Exit For

Next Num2

Next Num1

MessageBox.Show("¤ÓµÍº MyNum ¤×Í " & MyNum, "à©ÅÂ")

MessageBox.Show("¤ÓµÍº Num1 ¤×Í " & Num1, "à©ÅÂ")

MessageBox.Show("¤ÓµÍº Num2 ¤×Í " & Num2, "à©ÅÂ")

Dim Num3 As Integer

Num3 = CInt(InputBox(" ãÊè¤èÒ : "))

Do Until Num3 > 10

Num3 = Num3 + 1

Loop

MessageBox.Show("¤ÓµÍº Num3 ¤×Í " & Num3, "à©ÅÂ")

Dim Num4 As Integer

Num4 = CInt(InputBox(" ãÊè¤èÒ : "))

Do While Num4 > 1

Num4 = Num4 - 1

Loop

MessageBox.Show("¤ÓµÍº Num4 ¤×Í " & Num4, "à©ÅÂ")

Dim Num5 As Integer

Num5 = CInt(InputBox(" ãÊè¤èÒ : "))

Do

Num5 = Num5 + 1

Loop Until Num5 > 10

MessageBox.Show("¤ÓµÍº Num4 ¤×Í " & Num5, "à©ÅÂ")

Dim Num6 As Integer

Num6 = CInt(InputBox(" ãÊè¤èÒ : "))

Do

Num6 = Num6 + 1

Loop While Num6 > 10

MessageBox.Show("¤ÓµÍº Num4 ¤×Í " & Num6, "à©ÅÂ")

End Sub

End Class

การใช้ Conditional

Public Class Conditional

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim x As Integer = 10

Dim y As Integer = 5

Dim z As Integer = 20

x = CInt(InputBox("ãÊè¤èÒ: "))

If x > 100 Then x = x + 1 : y = y + 2

z = z + 1

MessageBox.Show("¤ÓµÍº x ¤×Í " & x, "¤ÓµÍº")

MessageBox.Show("¤ÓµÍº y ¤×Í " & y, "¤ÓµÍº")

MessageBox.Show("¤ÓµÍº z ¤×Í " & z, "¤ÓµÍº")

If x > 10 Then

x = x + 10

y = y + 5

End If

z = z + 6

MessageBox.Show("¤ÓµÍº x ¤×Í " & x, "¤ÓµÍº")

MessageBox.Show("¤ÓµÍº y ¤×Í " & y, "¤ÓµÍº")

MessageBox.Show("¤ÓµÍº z ¤×Í " & z, "¤ÓµÍº")

If x > 100 Then

x = x + 1

Else

y = y + 1

End If

MessageBox.Show("¤ÓµÍº x ¤×Í " & x, "¤ÓµÍº")

MessageBox.Show("¤ÓµÍº y ¤×Í " & y, "¤ÓµÍº")

MessageBox.Show("¤ÓµÍº z ¤×Í " & z, "¤ÓµÍº")

If x = y Then

z = z + 1

ElseIf x > y Then

z = z - 1

Else

MessageBox.Show("¤èÒäÁè¶Ù¡µéͧ")

End If

MessageBox.Show("¤ÓµÍº x ¤×Í " & x, "¤ÓµÍº")

MessageBox.Show("¤ÓµÍº y ¤×Í " & y, "¤ÓµÍº")

MessageBox.Show("¤ÓµÍº z ¤×Í " & z, "¤ÓµÍº")

Dim MyNum As Integer = 10

Dim MyName As String

MyNum = CInt(InputBox("ãÊè¤èÒ: "))

Select Case MyNum

Case 5

MyName = "Five"

Case 15

MyName = "FiFteen"

Case 10

MyName = "Ten"

Case 20

MyName = "Twenty"

Case Else

MyName = "Zero"

End Select

MessageBox.Show("¤ÓµÍº MyName ¤×Í " & MyName, "¤ÓµÍº")

Dim Score As Short

Dim Grade As String

Score = CInt(InputBox("ãÊè¤Ðá¹¹Êͺ: "))

Select Case Score

Case Is >= 80

Grade = "A"

Case Is >= 70

Grade = "B"

Case Is >= 60

Grade = "C"

Case Is >= 50

Grade = "D"

Case Else

Grade = "F"

End Select

MessageBox.Show("¤ÓµÍº Grade ¤×Í " & Grade, "¤ÓµÍº")

Dim MyNum1 As Integer = 10

Dim MyName1 As String

MyNum1 = CInt(InputBox("ãÊè¤èÒ: "))

Select Case MyNum

Case 5, 10

MyName1 = "Five, Ten"

Case 15, 20

MyName1 = "FiFteen, Twenty"

Case Else

MyName1 = "Zero"

End Select

MessageBox.Show("¤ÓµÍº MyName1 ¤×Í " & MyName1, "¤ÓµÍº")

Dim Score1 As Short

Dim Grade1 As String

Score1 = CInt(InputBox("ãÊè¤Ðá¹¹Êͺ: "))

Select Case Score1

Case Is >= 80

Grade1 = "A"

Case 79 To 70

Grade1 = "B"

Case 69 To 60

Grade1 = "C"

Case 59 To 50

Grade1 = "D"

Case Else

Grade1 = "F"

End Select

MessageBox.Show("¤ÓµÍº Grade1 ¤×Í " & Grade1, "¤ÓµÍº")

End Sub

End Class

สูตรคูณ

Public Class Multiplication

Dim a, b, d As Integer

Dim c As String = ""

Private Sub btnSum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSum.Click

a = ComboBox2.SelectedItem

b = ComboBox1.SelectedItem

TextBox1.Text = ""

For i As Integer = 0 To b

c = a & " * " & i & " = "

d = a * i

c &= d

TextBox1.Text &= c & Chr(13) & Chr(10)

Next

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

TextBox1.Text = ""

End Sub

Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click

Me.Close()

End Sub

End Class

Code เครื่องคิดเลข

Public Class Calculator

Private Sub chbบวก_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chbบวก.CheckedChanged

Chbลบ.Enabled = False

chbคูณ.Enabled = False

chbหาร.Enabled = False

End Sub

Private Sub chbลบ_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chbลบ.CheckedChanged

chbบวก.Enabled = False

chbคูณ.Enabled = False

chbหาร.Enabled = False

End Sub

Private Sub chbคูณ_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chbคูณ.CheckedChanged

chbบวก.Enabled = False

chbลบ.Enabled = False

chbหาร.Enabled = False

End Sub

Private Sub chbหาร_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chbหาร.CheckedChanged

Chbบวก.Enabled = False

chbลบ.Enabled = False

chbคูณ.Enabled = False

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSum.Click

Dim a, b As Integer

Dim c As String

a = txtNum1.Text

b = txtNum2.Text

c = txtSum.Text

If chbบวก.Checked Then

c = a + b

ElseIf chbลบ.Checked Then

c = a - b

ElseIf chbคูณ.Checked Then

c = a * b

Else

c = a / b

End If

txtSum.Text = c

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

txtNum1.Text = ""

txtNum2.Text = ""

txtSum.Text = ""

chbบวก.Checked = False

chbลบ.Checked = False

chbคูณ.Checked = False

chbหาร.Checked = False

chbบวก.Enabled = True

chbลบ.Enabled = True

chbคูณ.Enabled = True

chbหาร.Enabled = True

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click

Me.Close()

End Sub

End Class

การติดต่อกับฐานข้อมูล

Imports System.Data.SqlClient

Public Class ConnectionDataBase

Dim ConnString As String = "Server = .\SQLExpress;Database=Telephone Friend;Trusted_Connection = Yes;"

Dim ObjConn As New SqlConnection

Dim ObjAdapter As SqlDataAdapter

Dim Objcomm As SqlCommand

Dim ObjDataSet As DataSet

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

' การติดต่อกับฐานข้อมูล

ObjConn.ConnectionString = ConnString

ObjConn.Open()

Dim sqlString As String = ""

' การจัดเก็บหรือบันทึกข้อมูลลงใน DataBase

sqlString = "INSERT INTO tblTelephoneNumber VALUES ( ' " & txtFriendID.Text.Trim & " ' , ' " & txtFriendName.Text.Trim & " ' , ' " & txtTelephoneNumber.Text.Trim & " ' , ' " & txtGroupFriend.Text.Trim & " ' ) "

Objcomm = New SqlCommand(sqlString, ObjConn)

Objcomm.ExecuteNonQuery()

' การเรียกดูข้อมูลที่จัดเก็บไว้ใน DataBase

sqlString = "SELECT * FROM tblTelephoneNumber"

ObjAdapter = New SqlDataAdapter(sqlString, ObjConn)

ObjDataSet = New DataSet

ObjAdapter.Fill(ObjDataSet, "Telephone")

grdShowData.DataSource = ObjDataSet.Tables("Telephone")

' ·ทำให้ใน Textbox ว่างหลังจากบันทึกข้อมูลเสร็จ

txtFriendID.Text = ""

txtFriendName.Text = ""

txtTelephoneNumber.Text = ""

txtGroupFriend.Text = ""

End Sub

End Class

ยินดีต้อนรับ

สวัสดีครับ ผมพึ่งลองทำบล็อกเป็นครั้งแรก ผมจะมีเนื้อหาสารเกี่ยวกับความคิดเห็นต่อข่าวและสังคม