tag:blogger.com,1999:blog-16353346941840490532024-03-13T20:32:05.477-07:00สอนเขียนโปรแกรมวิชวลเบสิก (visual basic 2008)เขียนโปรแกรมโดยใช้วิชวลเบสิก 2008 (visual basic 2008)bnnzcsiencehttp://www.blogger.com/profile/16101421591864608132noreply@blogger.comBlogger13125tag:blogger.com,1999:blog-1635334694184049053.post-57753679034443232642011-10-05T03:52:00.000-07:002011-10-05T03:57:57.758-07:00โปรแกรมคิดค่าแรงง่ายๆ ด้วย visual basic1 สร้าง form ด้วยโปรแกรม <a href="http://code-visual-basic.blogspot.com/p/about-visual-basic.html">visual basic</a> ขึ้นมา 1 form แล้วทำการออกแบบตามต้องการ<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgzT3TAlPf7Fwcef_FTS_Ypff-5FVUIDI9-k98EYJoXDMjIj7tSLgn4M5EYsWLEXIuKI8h5VpbHAmup46zccgIo0PBTsU5QFtpulC2DFpXIe0fl-u3wy3ViTilJynLuNer7PWFT_PENZEzw/s1600/Capture.JPG"><img style="display:block; margin:0px auto 10px; text-align:center;cursor:pointer; cursor:hand;width: 320px; height: 237px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgzT3TAlPf7Fwcef_FTS_Ypff-5FVUIDI9-k98EYJoXDMjIj7tSLgn4M5EYsWLEXIuKI8h5VpbHAmup46zccgIo0PBTsU5QFtpulC2DFpXIe0fl-u3wy3ViTilJynLuNer7PWFT_PENZEzw/s320/Capture.JPG" alt="" id="BLOGGER_PHOTO_ID_5659960069455077666" border="0" /></a><br /><br /><a name='more'></a>2 เขียนโค้ดลงใน ปุ่มคำนวณ ดังนี้<br /><br />Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click<br /> Dim dblHours As Double<br /> Dim decWage As Decimal<br /> Dim decEarnings As Decimal<br /><br /> Const intHOUR_LIMIT As Integer = 40<br /><br /> dblHours = Val(txtHours.Text)<br /> decWage = Val(txtWage.Text)<br /><br /> If dblHours <= intHOUR_LIMIT Then<br /> decEarnings = dblHours * decWage<br /> Else<br /> decEarnings = intHOUR_LIMIT * decWage<br /> decEarnings = decEarnings + (dblHours - intHOUR_LIMIT) * (1.5 * decWage)<br /><br /> End If<br /> lblEarningsResult.Text = String.Format("{0:C}", decEarnings)<br /><br />End Subadminhttp://www.blogger.com/profile/00503330127878406152noreply@blogger.comtag:blogger.com,1999:blog-1635334694184049053.post-58164608474358052252011-10-05T03:14:00.000-07:002011-10-05T03:38:02.991-07:00โปรแกรมสั่งซื้อหนังสือง่ายๆ ด้วย visual basic1 สร้าง form 1 ด้วยโปรแกรม <a href="http://code-visual-basic.blogspot.com/p/about-visual-basic.html">visual basic </a>ขึ้นมา แล้วทำการตั้งชื่อ (AMARIN BOOKS STORE) แล้วทำการออกแบบตามต้องการ จะมีปุ่ม 2 ปุ่ม คือ 1 ปุ่มดูสินค้า/สั่งสินค้า 2 ปุ่มออกจากระบบ<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjfF0EI67P0xZySUjWNEb-2SOcm9AonkwCFh6Zu_SuCEhtIELW1kKNoRXwe04gjPfcjc43nN8wW8_TBn7yeUo6FPrckgvASYcdRIoR2iHSxsjJJfvOt9wmRVivCX5Z9lxZO2anD68PSOX59/s1600/1.JPG"><img style="display:block; margin:0px auto 10px; text-align:center;cursor:pointer; cursor:hand;width: 320px; height: 268px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjfF0EI67P0xZySUjWNEb-2SOcm9AonkwCFh6Zu_SuCEhtIELW1kKNoRXwe04gjPfcjc43nN8wW8_TBn7yeUo6FPrckgvASYcdRIoR2iHSxsjJJfvOt9wmRVivCX5Z9lxZO2anD68PSOX59/s320/1.JPG" alt="" id="BLOGGER_PHOTO_ID_5659950748070786834" border="0" /></a><br /><a name='more'></a>2 เขียนโค้ดลงใน ปุ่มดูสินค้า/สั่งสินค้า และปุ่มออกจากระบบ ตามลำดับ ดังนี้<br /><br />Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> Me.Hide() "ทำการซ่อนหน้า AMARIN BOOKS STORE"<br /> Product.Show() "ให้แสดงหน้า Product ขึ้นมา"<br />End Sub<br /><br />Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br /> End "ปิดโปรแกรม"<br />End Sub<br /><br />3 สร้าง form 2 ด้วยโปรแกรม <a href="http://code-visual-basic.blogspot.com/p/about-visual-basic.html">visual basic</a> ขึ้นมา แล้วทำการตั้งชื่อ (Product) แล้วทำการออกแบบให้เหมาะสมและใช้งานง่าย<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgrzH5165Vk8Sk5ethR7GUK145IhHzoK8yZSJPee8ymTHyxSNatnumY51A3PVUumcxzOV54TWslMzOcyfNdkEIXgC88z3tj2l99F-oQoD-BVQKLkv9z8dgnXyUVDQ1WeHqUyYHYU6uuFhcZ/s1600/2.JPG"><img style="display:block; margin:0px auto 10px; text-align:center;cursor:pointer; cursor:hand;width: 320px; height: 228px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgrzH5165Vk8Sk5ethR7GUK145IhHzoK8yZSJPee8ymTHyxSNatnumY51A3PVUumcxzOV54TWslMzOcyfNdkEIXgC88z3tj2l99F-oQoD-BVQKLkv9z8dgnXyUVDQ1WeHqUyYHYU6uuFhcZ/s320/2.JPG" alt="" id="BLOGGER_PHOTO_ID_5659952155481974242" border="0" /></a><br />4 เขียนโค้ดลงใน ปุ่มสั่งซื้อหนังสือ ปุ่มย้อนกลับ ปุ่มล้างข้อมูล ตามลำดับ ดังนี้<br /><br />Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br /> <br /> 'บันทึกรายการที่สั่ง<br /><br /> If CheckBox1.Checked = True Then<br /><br /> If TextBox1.Text = "" Then<br /> MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)<br /> Else<br /> Calculate.output.Items.Add(" " & "ต้องสงสัย (Eyes of a Child)" & ControlChars.Tab & ControlChars.Tab & Val(TextBox1.Text) & ControlChars.Tab & 220 * Val(TextBox1.Text))<br /> End If<br /><br /> End If<br /><br /> If CheckBox2.Checked = True Then<br /><br /> If TextBox2.Text = "" Then<br /> MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)<br /> Else<br /> Calculate.output.Items.Add(" " & "มหัศจรรย์นิรันดร์รัก " & ControlChars.Tab & ControlChars.Tab & ControlChars.Tab & Val(TextBox2.Text) & ControlChars.Tab & 250 * Val(TextBox2.Text))<br /> End If<br /><br /> End If<br /><br /> If CheckBox3.Checked = True Then<br /><br /> If TextBox3.Text = "" Then<br /> MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)<br /> Else<br /> Calculate.output.Items.Add(" " & "สาส์นลับที่สาบสูญ (The Lost Symbol)" & ControlChars.Tab & Val(TextBox3.Text) & ControlChars.Tab & 269 * Val(TextBox3.Text))<br /> End If<br /> End If<br /><br /> If CheckBox4.Checked = True Then<br /> If TextBox4.Text = "" Then<br /> MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)<br /> Else<br /> Calculate.output.Items.Add(" " & "รหัส 3" & ControlChars.Tab & ControlChars.Tab & ControlChars.Tab & ControlChars.Tab & Val(TextBox4.Text) & ControlChars.Tab & 200 * Val(TextBox4.Text))<br /> End If<br /> End If<br /><br /> If CheckBox5.Checked = True Then<br /> If TextBox5.Text = "" Then<br /> MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)<br /> Else<br /> Calculate.output.Items.Add(" " & "จินตนาการไม่รู้จบ" & ControlChars.Tab & ControlChars.Tab & ControlChars.Tab & Val(TextBox5.Text) & ControlChars.Tab & 179 * Val(TextBox5.Text))<br /> End If<br /> End If<br /><br /> If CheckBox6.Checked = True Then<br /> If TextBox6.Text = "" Then<br /> MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)<br /> Else<br /> Calculate.output.Items.Add(" " & "ปริศนาในป่าลึก (Reality Check)" & ControlChars.Tab & Val(TextBox6.Text) & ControlChars.Tab & 210 * Val(TextBox6.Text))<br /> End If<br /> End If<br /><br /> If CheckBox7.Checked = True Then<br /> If TextBox7.Text = "" Then<br /> MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)<br /> Else<br /> Calculate.output.Items.Add(" " & "เซนจูรี่ เล่ม 2 ดาวแห่งศิลา" & ControlChars.Tab & ControlChars.Tab & Val(TextBox7.Text) & ControlChars.Tab & 169 * Val(TextBox7.Text))<br /> End If<br /> End If<br /><br /> If CheckBox8.Checked = True Then<br /> If TextBox8.Text = "" Then<br /> MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)<br /> Else<br /> Calculate.output.Items.Add(" " & "ตำนานแห่งซิลมาริล" & ControlChars.Tab & ControlChars.Tab & ControlChars.Tab & Val(TextBox8.Text) & ControlChars.Tab & 200 * Val(TextBox8.Text))<br /> End If<br /> End If<br /><br /> If CheckBox9.Checked = True Then<br /> If TextBox9.Text = "" Then<br /> MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)<br /> Else<br /> Calculate.output.Items.Add(" " & "คุ้งน้ำค้าง" & ControlChars.Tab & ControlChars.Tab & ControlChars.Tab & ControlChars.Tab & Val(TextBox9.Text) & ControlChars.Tab & 190 * Val(TextBox9.Text))<br /> End If<br /> End If<br /><br /> If CheckBox10.Checked = True Then<br /> If TextBox10.Text = "" Then<br /> MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)<br /> Else<br /> Calculate.output.Items.Add(" " & "ตะวันเบิกฟ้า" & ControlChars.Tab & ControlChars.Tab & ControlChars.Tab & Val(TextBox10.Text) & ControlChars.Tab & 189 * Val(TextBox10.Text))<br /> End If<br /> End If<br /><br /> If CheckBox11.Checked = True Then<br /> If TextBox11.Text = "" Then<br /> MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)<br /> Else<br /> Calculate.output.Items.Add(" " & "ลับแล แก่งคอย" & ControlChars.Tab & ControlChars.Tab & ControlChars.Tab & Val(TextBox11.Text) & ControlChars.Tab & 195 * Val(TextBox11.Text))<br /> End If<br /> End If<br /><br /> If CheckBox12.Checked = True Then<br /> If TextBox12.Text = "" Then<br /> MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)<br /> Else<br /> Calculate.output.Items.Add(" " & "ภาพรักในฝัน" & ControlChars.Tab & ControlChars.Tab & ControlChars.Tab & Val(TextBox12.Text) & ControlChars.Tab & 220 * Val(TextBox12.Text))<br /> End If<br /> End If<br /><br /> If CheckBox13.Checked = True Then<br /> If TextBox13.Text = "" Then<br /> MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)<br /> Else<br /> Calculate.output.Items.Add(" " & "คันไซ...ไม่ต้องเกา" & ControlChars.Tab & ControlChars.Tab & ControlChars.Tab & Val(TextBox13.Text) & ControlChars.Tab & 200 * Val(TextBox13.Text))<br /> End If<br /> End If<br /><br /> If CheckBox14.Checked = True Then<br /> If TextBox14.Text = "" Then<br /> MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)<br /> Else<br /> Calculate.output.Items.Add(" " & "เทพและเทพีอียิปต์" & ControlChars.Tab & ControlChars.Tab & ControlChars.Tab & Val(TextBox14.Text) & ControlChars.Tab & 240 * Val(TextBox14.Text))<br /> End If<br /> End If<br /><br /> If CheckBox15.Checked = True Then<br /> If TextBox15.Text = "" Then<br /> MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)<br /> Else<br /> Calculate.output.Items.Add(" " & "ฝนกล้วยให้เป็นเข็ม" & ControlChars.Tab & ControlChars.Tab & ControlChars.Tab & Val(TextBox15.Text) & ControlChars.Tab & 210 * Val(TextBox15.Text))<br /> End If<br /> End If<br /><br /> If CheckBox16.Checked = True Then<br /> If TextBox16.Text = "" Then<br /> MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)<br /> Else<br /> Calculate.output.Items.Add(" " & "เดินเดี่ยว เที่ยวโทรอนโต" & ControlChars.Tab & ControlChars.Tab & Val(TextBox16.Text) & ControlChars.Tab & 230 * Val(TextBox16.Text))<br /> End If<br /> End If<br /><br /><br /> Me.Hide()<br /> Calculate.Show()<br /><br /> End Sub<br /><br />Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> Me.Hide()<br /> Welcome.Show()<br /> End Sub<br /><br />Private Sub btnClear_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click<br /> CheckBox1.Checked = False<br /> CheckBox2.Checked = False<br /> CheckBox3.Checked = False<br /> CheckBox4.Checked = False<br /> CheckBox5.Checked = False<br /> CheckBox6.Checked = False<br /> CheckBox7.Checked = False<br /> CheckBox8.Checked = False<br /> CheckBox9.Checked = False<br /> CheckBox10.Checked = False<br /> CheckBox11.Checked = False<br /> CheckBox12.Checked = False<br /> CheckBox13.Checked = False<br /> CheckBox14.Checked = False<br /> CheckBox15.Checked = False<br /> CheckBox16.Checked = False<br /> TextBox1.Text = ""<br /> TextBox2.Text = ""<br /> TextBox3.Text = ""<br /> TextBox4.Text = ""<br /> TextBox5.Text = ""<br /> TextBox6.Text = ""<br /> TextBox7.Text = ""<br /> TextBox8.Text = ""<br /> TextBox9.Text = ""<br /> TextBox10.Text = ""<br /> TextBox11.Text = ""<br /> TextBox12.Text = ""<br /> TextBox13.Text = ""<br /> TextBox14.Text = ""<br /> TextBox15.Text = ""<br /> TextBox16.Text = ""<br /> End Sub<br /><br />5 สร้าง form 3 ด้วยโปรแกรม visual basic ขึ้นมา แล้วทำการตั้งชื่อ (calculate) แล้วทำการออกแบบตามความเหมาะสม ให้ใช้งานง่าย<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjHnfARnWVJ_uIoCu0G-3T6FTTrtjn5_5mQcsX6wmZSZVUBOt3NsrGlTuGiK0hnK9RSgBnI0Oc0XTUx-FVU-tHbAmiGPMAPoEoUxyAPTxXi2E02i5MHvRNuhdFrM1YlloWJeaV_y_Hl3DIT/s1600/3.JPG"><img style="display:block; margin:0px auto 10px; text-align:center;cursor:pointer; cursor:hand;width: 204px; height: 320px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjHnfARnWVJ_uIoCu0G-3T6FTTrtjn5_5mQcsX6wmZSZVUBOt3NsrGlTuGiK0hnK9RSgBnI0Oc0XTUx-FVU-tHbAmiGPMAPoEoUxyAPTxXi2E02i5MHvRNuhdFrM1YlloWJeaV_y_Hl3DIT/s320/3.JPG" alt="" id="BLOGGER_PHOTO_ID_5659953355440356530" border="0" /></a><br />6 เขียนโค้ดลงใน ปุ่มคำนวณเงิน ปุ่มย้อนกลับ ปุ่มล้างข้อมูล และปุ่มออกจากระบบ ตามลำดับ ดังนี้<br /><br />Private Sub btnCalculat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculat.Click<br /> 'คำนวนเงิน<br /><br /> Dim book As Integer<br /> Dim price As Double<br /><br /><br /> If Product.CheckBox1.Checked = True Then<br /> If Product.TextBox1.Text = "" Then<br /> bookNumber.Text = ""<br /> result.Text = ""<br /> Else<br /> price += 220 * Val(Product.TextBox1.Text)<br /> book += Val(Product.TextBox1.Text)<br /> End If<br /> End If<br /><br /><br /> If Product.CheckBox2.Checked = True Then<br /> If Product.TextBox2.Text = "" Then <br /> bookNumber.Text = ""<br /> result.Text = ""<br /> Else<br /> price += 250 * Val(Product.TextBox2.Text)<br /> book += Val(Product.TextBox2.Text)<br /> End If<br /> End If<br /><br /> If Product.CheckBox3.Checked = True Then<br /> If Product.TextBox3.Text = "" Then<br /> bookNumber.Text = ""<br /> result.Text = ""<br /> Else<br /> price += 269 * Val(Product.TextBox3.Text)<br /> book += Val(Product.TextBox3.Text)<br /> End If<br /> End If<br /><br /> If Product.CheckBox4.Checked = True Then<br /> If Product.TextBox4.Text = "" Then<br /> bookNumber.Text = ""<br /> result.Text = ""<br /> Else<br /> price += 200 * Val(Product.TextBox4.Text)<br /> book += Val(Product.TextBox4.Text)<br /> End If<br /> End If<br /><br /> If Product.CheckBox5.Checked = True Then<br /> If Product.TextBox5.Text = "" Then<br /> bookNumber.Text = ""<br /> result.Text = ""<br /> Else<br /> price += 179 * Val(Product.TextBox5.Text)<br /> book += Val(Product.TextBox5.Text)<br /> End If<br /> End If<br /><br /> If Product.CheckBox6.Checked = True Then<br /> If Product.TextBox6.Text = "" Then<br /> bookNumber.Text = ""<br /> result.Text = ""<br /> Else<br /> price += 210 * Val(Product.TextBox6.Text)<br /> book += Val(Product.TextBox6.Text)<br /> End If<br /> End If<br /><br /> If Product.CheckBox7.Checked = True Then<br /> If Product.TextBox7.Text = "" Then<br /><br /> bookNumber.Text = ""<br /> result.Text = ""<br /> Else<br /> price += 169 * Val(Product.TextBox7.Text)<br /> book += Val(Product.TextBox7.Text)<br /> End If<br /> End If<br /><br /> If Product.CheckBox8.Checked = True Then<br /> If Product.TextBox8.Text = "" Then<br /><br /> bookNumber.Text = ""<br /> result.Text = ""<br /> Else<br /> price += 200 * Val(Product.TextBox8.Text)<br /> book += Val(Product.TextBox8.Text)<br /> End If<br /> End If<br /><br /> If Product.CheckBox9.Checked = True Then<br /> If Product.TextBox9.Text = "" Then<br /><br /> bookNumber.Text = ""<br /> result.Text = ""<br /> Else<br /> price += 190 * Val(Product.TextBox9.Text)<br /> book += Val(Product.TextBox9.Text)<br /> End If<br /> End If<br /><br /> If Product.CheckBox10.Checked = True Then<br /> If Product.TextBox10.Text = "" Then<br /><br /> bookNumber.Text = ""<br /> result.Text = ""<br /> Else<br /> price += 189 * Val(Product.TextBox10.Text)<br /> book += Val(Product.TextBox10.Text)<br /> End If<br /> End If<br /><br /> If Product.CheckBox11.Checked = True Then<br /> If Product.TextBox11.Text = "" Then<br /><br /> bookNumber.Text = ""<br /> result.Text = ""<br /> Else<br /> price += 195 * Val(Product.TextBox11.Text)<br /> book += Val(Product.TextBox11.Text)<br /> End If<br /> End If<br /><br /> If Product.CheckBox12.Checked = True Then<br /> If Product.TextBox12.Text = "" Then<br /><br /> bookNumber.Text = ""<br /> result.Text = ""<br /> Else<br /> price += 220 * Val(Product.TextBox12.Text)<br /> book += Val(Product.TextBox12.Text)<br /> End If<br /> End If<br /><br /> If Product.CheckBox13.Checked = True Then<br /> If Product.TextBox13.Text = "" Then<br /><br /> bookNumber.Text = ""<br /> result.Text = ""<br /> Else<br /> price += 200 * Val(Product.TextBox13.Text)<br /> book += Val(Product.TextBox13.Text)<br /> End If<br /> End If<br /><br /> If Product.CheckBox14.Checked = True Then<br /> If Product.TextBox14.Text = "" Then<br /><br /> bookNumber.Text = ""<br /> result.Text = ""<br /> Else<br /> price += 240 * Val(Product.TextBox14.Text)<br /> book += Val(Product.TextBox14.Text)<br /> End If<br /> End If<br /><br /> If Product.CheckBox15.Checked = True Then<br /> If Product.TextBox15.Text = "" Then<br /><br /> bookNumber.Text = ""<br /> result.Text = ""<br /> Else<br /> price += 210 * Val(Product.TextBox15.Text)<br /> book += Val(Product.TextBox15.Text)<br /> End If<br /> End If<br /><br /> If Product.CheckBox16.Checked = True Then<br /> If Product.TextBox16.Text = "" Then<br /><br /> bookNumber.Text = ""<br /> result.Text = ""<br /> Else<br /> price += 230 * Val(Product.TextBox16.Text)<br /> book += Val(Product.TextBox16.Text)<br /> End If<br /> End If<br /><br /> bookNumber.Text = book<br /> result.Text = price.ToString("#,###")<br /> End Sub<br /><br />Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> Me.Hide()<br /> Product.Show()<br /> output.Items.Clear()<br /> bookNumber.Text = ""<br /> result.Text = ""<br /> End Sub<br /><br />Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click<br /> output.Items.Clear()<br /> bookNumber.Text = ""<br /> result.Text = ""<br />End Sub<br /><br />Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click<br /> End<br />End Subadminhttp://www.blogger.com/profile/00503330127878406152noreply@blogger.comtag:blogger.com,1999:blog-1635334694184049053.post-41718425470505786602011-09-16T08:41:00.000-07:002011-09-20T06:02:24.670-07:00โปรแกรมคำนวณดัชนีมวลกาย(BMI) ด้วยโปรแกรม visual basic<div style="TEXT-ALIGN: left">1. สร้าง form ขึ้นมาด้วยโปรแกรม <a href="http://code-visual-basic.blogspot.com/p/about-visual-basic.html">visual basic</a> แล้วทำออกแบบ ดังรูป</div><br /><div style="TEXT-ALIGN: left"><br /></div><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 320px; DISPLAY: block; HEIGHT: 196px; CURSOR: hand" id="BLOGGER_PHOTO_ID_5652994222589621298" border="0" alt="" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhBkiJoOTuIJPgK-oSJrbHuG9Qxt7MB27FXFpHX5nTtKGDJmjJo8W-XdYT0PlqFn41VsFyGB1d8aKX1T_UeM5V6JOdPF4nEA2aOX4Wl6G9yGcT7GKMTZ2snhlviCID2DzBMJxemE7ibhRMn/s320/1.JPG" /> <br /><div style="TEXT-ALIGN: center"><a href="http://code-visual-basic.blogspot.com/p/about-visual-basic.html">visual basic</a> รูป 1 ออกแบบ form</div><br /><div style="TEXT-ALIGN: center"><br /></div><br /><div style="TEXT-ALIGN: center"><br /></div><br /><div><a name='more'></a>2. เขียนโค้ดลงในปุ่ม คำนวณดัชนีมวลกาย(BMI) โดยดับเบิ้ลคลิกที่ปุ่ม แล้วทำการเขียนโค้ดเพื่อคำนวณค่าออกมา ดังนี้</div><br /><div><br /><div><br /></div><br /><div>Private Sub Button_BMI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_BMI.Click</div><br /><div style="TEXT-ALIGN: center"><br /></div><br /><div></div><br /><div>Dim High As Double "ประกาศตัวแปร"</div><br /><div>Dim result As Double "ประกาศตัวแปร"</div><br /><div>Dim BMI As Double "ประกาศตัวแปร"</div><br /><div><br /></div><br /><div style="TEXT-ALIGN: center"><br /></div><br /><div>High = Val(TextBox_High.Text) / 100</div><br /><div style="TEXT-ALIGN: center"><br /></div></div><br /><div><br /><div style="TEXT-ALIGN: center"><br /></div><br /><div>result = High * High</div><br /><div>BMI = Val(TextBox_Weight.Text) / result</div><br /><div><br /></div><br /><div>Label_result_BMI.Text = Format(BMI, "#0.00")</div><br /><div><br /></div><br /><div><br /></div><br /><div>If Label_result_BMI.Text < 18.5 Then</div><br /><div>Label_result.Text = "ผอมเกินไป"</div><br /><div>Label_result_counsel.Text = "ต้องเพิ่มน้ำหนัก และรับประทานอาหารที่มีประโยชน์"</div><br /><div style="TEXT-ALIGN: center"><br /></div><br /><div>ElseIf Label_result_BMI.Text > 18.5 And Label_result_BMI.Text < 25 Then</div><br /><div>Label_result.Text = "น้ำหนักปกติ"</div><br /><div>Label_result_counsel.Text = "ต้องเริ่มควบคุมน้ำหนัก ควบคุมอาหาร และออกกำลังกาย"</div><br /><div><br /></div><br /><div>ElseIf Label_result_BMI.Text >= 25 And Label_result_BMI.Text < 30 Then</div><br /><div>Label_result.Text = "น้ำหนักเกิน"</div><br /><div>Label_result_counsel.Text = "ต้องลดน้ำหนัก ออกกำลังกายอย่างจริงจัง และเข้มงวด"</div><br /><div><br /></div><br /><div>ElseIf Label_result_BMI.Text >= 30 And Label_result_BMI.Text < 40 Then</div><br /><div>Label_result.Text = "อ้วน"</div><br /><div>Label_result_counsel.Text = "ต้องลดน้ำหนัก ออกกำลังกายอย่างจริงจัง และเข้มงวด"</div><br /><div></div><br /><div><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span></div><br /><div>ElseIf Label_result_BMI.Text >= 40 Then</div><br /><div>Label_result.Text = "อ้วนมาก"</div><br /><div>Label_result_counsel.Text = "ต้องลดน้ำหนัก ออกกำลังกายอย่างจริงจัง และเข้มงวด"</div><br /><div></div><br /><div><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span></div><br /><div>Else</div></div><br /><div><br /><div></div><br /><div>End If</div><br /><div><br /></div><br /><div>End Sub</div></div><br /><div><br /></div><br /><div><br /></div><br /><div>3. เขียนโค้ดลงในปุ่ม ดัชนีมวลกายที่แพทย์แนะนำ โดยดับเบิ้ลคลิกที่ปุ่ม แล้วทำการเขียนโค้ดเพื่อแสดงค่าดัชนีมวลกายในช่วงที่เหมาะสมออกมา ดังนี้</div><br /><div style="TEXT-ALIGN: center"><br /></div><br /><div><br /><div>Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button.Click</div><br /><div></div><br /><div><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span></div><br /><div>MessageBox.Show("ค่าดัชนีมวลกายที่แพทย์แนะนำ อยู่ที่ 18.00 - 19.00" & & ControlChars.CrLf & " น้ำหนักที่เหมาะสมคือ 39.96 - 42.18 กิโลกรัม", "ค่าดัชนีมว</div><br /><div>ลกาย(BMI)", MessageBoxButtons.OK, MessageBoxIcon.Information)</div><br /><div></div><br /><div><br /></div><br /><div>End Sub</div></div><br /><div><br /></div><br /><div><br /></div><br /><div>4. เขียนโค้ดลงในปุ่ม Clear โดยดับเบิ้ลคลิกที่ปุ่ม แล้วทำการเขียนโค้ดเพื่อทำการลบข้อมูลเดิม แล้วทำการคำนวณดัชนีมวลกายใหม่ </div><br /><div style="TEXT-ALIGN: center"><br /></div><br /><div><br /><div>Private Sub ClearButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearButton.Click</div><br /><div></div><br /><div><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span></div><br /><div><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span>TextBox_Weight.Text = ""</div><br /><div><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span>TextBox_High.Text = ""</div><br /><div><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span>Label_result_BMI.Text = ""</div><br /><div><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span>Label_result.Text = ""</div><br /><div><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span>Label_result_counsel.Text = ""</div><br /><div><br /></div><br /><div>End Sub</div></div><br /><div><br /></div><br /><div><br /></div><br /><div>4. เขียนโค้ดลงในปุ่ม ออกจากโปรแกรม โดยดับเบิ้ลคลิกที่ปุ่ม แล้วทำการเขียนโค้ดเพื่อออกจากโปรแกรมเมื่อคำนวณเสร็จแล้ว</div><br /><div style="TEXT-ALIGN: center"><br /></div><br /><div><br /><div>Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Exit.Click</div><br /><div><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span></div><br /><div><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span>End</div><br /><div><br /></div><br /><div>End Sub</div></div><br /><div><br /></div><br /><div><br /></div><br /><div>5. ทดสอบโปรแกรม</div><br /><div><br /></div><br /><div><br /></div><br /><div><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span>- กรอก น้ำหนัก และส่วนสูงของเราลงไป จากนั้นทำการคลิกที่ปุ่ม คำนวณดัชนีมวลกาย(BMI)</div><br /><div><br /></div><br /><div><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 320px; DISPLAY: block; HEIGHT: 197px; CURSOR: pointer" id="BLOGGER_PHOTO_ID_5652994408959723922" border="0" alt="" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg3vFn731fvMysBtXlUyr9JWWx7kbGVJLPP1O7DV74vxP2EuxRBqLs3e-tHhFE_6E2ByNTsfpYt9cC65SL-49ga1_jdP2NkoZZI-1WEAb6XcKO4WKAeWgCVpp5htSQWYIKN-91g4S7Hn7So/s320/2.JPG" /> <br /><div style="TEXT-ALIGN: center"><a href="http://code-visual-basic.blogspot.com/p/about-visual-basic.html">visual basic</a> รูป 2 แสดงผลการคำนวณ</div></div><br /><div style="TEXT-ALIGN: center"><br /></div><br /><div style="TEXT-ALIGN: center"><br /></div><br /><div><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span>- ถ้าต้องการดูดัชนีมวลกายที่เหมาะสม ให้ทำการคลิกที่ปุ่ม ดัชนีมวลกายที่แพทย์แนะนำ จะมี MessageBox ขึ้นมาให้ดู</div><br /><div><br /></div><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 320px; DISPLAY: block; HEIGHT: 195px; CURSOR: hand" id="BLOGGER_PHOTO_ID_5652994625606950114" border="0" alt="" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhmxnbs0K23vR9yJYzsOsPEzczp9nNEFiCWoDMjetzuCSAaofAgiRJSrn-RSgWxpAQcjU1T7YlyQDkf25ygw0noqnSfucdjjuv50DEG9XGcO0OzVAlW33JsVjjnZIAtFghTmAMmp_Cle7IC/s320/3.JPG" /><br /><br /><div style="TEXT-ALIGN: center"><a href="http://code-visual-basic.blogspot.com/p/about-visual-basic.html">visual basic</a> รูป 3 แสดงผลดัชนีมวลกายที่เหมาะสม</div>adminhttp://www.blogger.com/profile/00503330127878406152noreply@blogger.comtag:blogger.com,1999:blog-1635334694184049053.post-7602046437397007102011-09-07T05:53:00.000-07:002011-09-21T18:51:22.486-07:00สร้าง Search ด้วย Visual Basic 2008<div style="TEXT-ALIGN: center"><br /></div><br /><div style="TEXT-ALIGN: left">1.สร้าง form ขึ้นมา 1 form และออบแบบตามรูปด้านล่าง</div><br /><div style="TEXT-ALIGN: left"><br /></div><br /><div style="TEXT-ALIGN: center"><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 320px; DISPLAY: block; HEIGHT: 124px; CURSOR: hand" id="BLOGGER_PHOTO_ID_5649602348962081282" alt="" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjl0uKt4KACt2kp_lttkGsawKpTQwYP2LChytT13n1D3EKAxcbPGzijP11UN1U3hX2TdFFfZ6N-RytQHhjioJ4sry-TGRLd1Wkzxw26yls6qdLTsVNhHTGHHQgCTUf5ZIvicIUHVX5l5kpE/s320/visual+basic+2008_1.PNG" border="0" /><br /></div><br /><div style="TEXT-ALIGN: left"><br /></div><a name='more'></a>2.เขียนโค้ดลงในปุ่ม Search Google (Button 1) และ Search Youtube (Button 2) ดังนี้<br /><br /><div style="TEXT-ALIGN: center"><br /></div><br /><div><br /><div>Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click</div><br /><div style="TEXT-ALIGN: center"><br /></div><br /><div>Process.Start("iexplore", "http://www.google.com/search?hl=en&q=" + TextBox1.Text + "&aq=f&oq=")</div><br /><div style="TEXT-ALIGN: center"><br /></div><br /><div>End Sub</div><br /><div><br /></div><br /><div>Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click</div><br /><div style="TEXT-ALIGN: center"><br /></div><br /><div>Process.Start("iexplore", "http://www.youtube.com/results?search_type=&search_query=" + TextBox1.Text + "&aq=f")</div><br /><div style="TEXT-ALIGN: center"><br /></div><br /><div>End Sub</div><br /><div style="TEXT-ALIGN: center"><br /></div></div><br /><br /><div style="TEXT-ALIGN: left"><br /></div>3.ทดสอบโปรแกรม<br /><br /><div style="TEXT-ALIGN: center"><br /></div><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span>- การ Search Google เพิ่มข้อความที่ต้องการค้นหาลงใน Textbox แล้วคลิกปุ่ม Search Google<br /><br /><br /><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 320px; DISPLAY: block; HEIGHT: 124px; CURSOR: pointer" id="BLOGGER_PHOTO_ID_5649605502830876178" alt="" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgBxQP_efdvxgBYT49sKqZEVW9FDApCswyV74trQ5m6mwzj1tbzU2y4ygOb50QONxVN2cBGZtEmyY23FvTnTZYJYO31T3pVg8FfRbwMV5vWYWSAxKw5MuoY83cA5SO7T8bwGPH6AxU09T1J/s320/visual+basic+2008_2.PNG" border="0" /><br /><br /><div style="TEXT-ALIGN: center"><br /></div><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 320px; DISPLAY: block; HEIGHT: 183px; CURSOR: pointer" id="BLOGGER_PHOTO_ID_5649605743230092258" alt="" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEghfUG9VYEw9Ycc4IyvKn9cQPAQT2kHhDi_GXVFfXdStiOBFzZhQg67ENkOGqlBrKw-b8tVgqEl1iP_jpTSIEsokL-N0F3qwY95ezyRIWkmQhKijLD7cH2V12Fv19pL2mauq7D0lJxGRb0W/s320/visual+basic+2008_3.PNG" border="0" /><br /><div style="TEXT-ALIGN: center"><br /></div><br /><br /><div style="TEXT-ALIGN: center"><br /></div><br /><div style="TEXT-ALIGN: left"><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span>-การ Search Youtube เพิ่มข้อความที่ต้องการค้นหาลงใน Textbox แล้วคลิกปุ่ม Search Youtube</div><br /><br /><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 320px; DISPLAY: block; HEIGHT: 122px; CURSOR: pointer" id="BLOGGER_PHOTO_ID_5649606358134842578" alt="" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhVSv3m0ZCFUovA2QUmhj35Exm65c-gnEfcVrATl7VKXEp5_ncSpb_dHqaGNAN_E9YZlDqPYmKbEeQGp57EnhT4IX6dx1PO7_X3_IQ91q-JmMmM7ENXZeAkhV68vNRvIenI71i4ihK9ghhe/s320/visual+basic+2008_4.PNG" border="0" /><br /><br /><br /><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 320px; DISPLAY: block; HEIGHT: 184px; CURSOR: pointer" id="BLOGGER_PHOTO_ID_5649606600181225522" alt="" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhC3tZmdlWOzKVgzr7y_peou_PcPROFqYQFa6M5n6xB23CX1vRzpmHc7iSRnc9UNP2vm9ymP-F9DhW_hOxDQRrfSrJSWqEqhie08Jeamex-1iyV2fHF8IaKwBmIlOB-9GXB2UiEepceHOCp/s320/visual+basic+2008_5.PNG" border="0" /><br /><div style="TEXT-ALIGN: center"></div>adminhttp://www.blogger.com/profile/00503330127878406152noreply@blogger.comtag:blogger.com,1999:blog-1635334694184049053.post-19742356956435341622011-09-05T09:18:00.001-07:002011-09-20T06:02:47.881-07:00www.w3schools.com เว็บประจำกายโปรแกรมเมอร์<p><a href="http://lh4.ggpht.com/-yDsDIcVjzVU/TmT1_gcNpGI/AAAAAAAAAGc/JVs8ab7iQv0/s1600-h/w3%25255B4%25255D.jpg"><img style="BACKGROUND-IMAGE: none; BORDER-RIGHT-WIDTH: 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; DISPLAY: block; FLOAT: none; BORDER-TOP-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 0px; MARGIN-LEFT: auto; BORDER-LEFT-WIDTH: 0px; MARGIN-RIGHT: auto; PADDING-TOP: 0px" border="0" alt="w3" src="http://lh3.ggpht.com/-UP4QyOf_t4g/TmT2CGsmmkI/AAAAAAAAAGg/Gy3yszfjpOA/w3_thumb%25255B2%25255D.jpg?imgmax=800" width="349" height="61" /></a> <a href="http://www.w3schools.com/" target="_blank">w3schools.com</a> เป็นเว็บไซต์ที่รวมรวมความรู้ ตัวอย่างการเขียนโปรแกรม การเรียกใช้งานฟังก์ชั่นต่างๆของโปรแกรม ไม่ว่าจะเป็น HTML CSS XML JAVASCRIPT ASP PHP SQL และอื่น ๆ เป็นการเรียน<span style="font-size:100%;">แบบออนไลน์ไม่ต้องติดตั้งโปรแกรมสามารถทำการรันโค้ดโปรแกรมได้เลย </span><a name='more'></a></p><br /><p><a href="http://lh3.ggpht.com/-SOCROfUh1Xg/TmT2FY5tPDI/AAAAAAAAAGk/jY3FSb_yNBU/s1600-h/result%25255B5%25255D.png"><img style="BACKGROUND-IMAGE: none; BORDER-RIGHT-WIDTH: 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; DISPLAY: block; FLOAT: none; BORDER-TOP-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 0px; MARGIN-LEFT: auto; BORDER-LEFT-WIDTH: 0px; MARGIN-RIGHT: auto; PADDING-TOP: 0px" title="สามารถทำการแสดงผลลัพธ์จากการเขียนโค้ด" border="0" alt="result" src="http://lh6.ggpht.com/-MW-Zc0wCtLw/TmT2HtwX1hI/AAAAAAAAAGo/YTGCYe1ociM/result_thumb%25255B3%25255D.png?imgmax=800" width="469" height="154" /></a></p><br /><p><a href="http://lh6.ggpht.com/-Fz5LFDrwT_w/TmT2Jz4GC2I/AAAAAAAAAGs/AtRciA_pJVc/s1600-h/image%25255B7%25255D.png"><img style="BACKGROUND-IMAGE: none; BORDER-RIGHT-WIDTH: 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; DISPLAY: block; FLOAT: none; BORDER-TOP-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 0px; MARGIN-LEFT: auto; BORDER-LEFT-WIDTH: 0px; MARGIN-RIGHT: auto; PADDING-TOP: 0px" title="มีหลากหลายภาษาให้เลือกเรียน " border="0" alt="image" src="http://lh6.ggpht.com/-K2CBfMk__vQ/TmT2ON6pjEI/AAAAAAAAAGw/iySe486Aoyc/image_thumb%25255B3%25255D.png?imgmax=800" width="431" height="166" /></a></p><br /><p>เสียค่าใช้จ่ายแต่อย่างใด มีแบบทดสอบหลังการเรียนให้ทดสอบความสามารถของผู้ที่เข้ามาศึกษา หรือท่านใดต้องการใบเกียรติบัตรหรือใบรับรองว่าผ่านการทดสอบจาก w3schools.com ก็สามารถทำได้แต่ต้องเสียค่าสอบประมาณ 95 ดอลล่าร์ ประมาณ สองพันกว่าบาท การสอบจะสอบออนไลน์ผู้ที่จะผ่านการทดสอบ จะต้องได้คะแนน มากว่า 70 เปอร์เซ็นต์ขึ้นไป จึงจะได้รับใบรับรอง สนใจทดสอบ<a href="http://www.w3schools.com/" target="_blank">คลิกที่นี่</a> </p><br /><p><a href="http://lh4.ggpht.com/-UdVl7_SwI-s/TmT2QSoyN3I/AAAAAAAAAG0/1SML_wYkWZE/s1600-h/image%25255B12%25255D.png"><img style="BACKGROUND-IMAGE: none; BORDER-RIGHT-WIDTH: 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; DISPLAY: block; FLOAT: none; BORDER-TOP-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 0px; MARGIN-LEFT: auto; BORDER-LEFT-WIDTH: 0px; MARGIN-RIGHT: auto; PADDING-TOP: 0px" title="การทดสอบความรู้ท้ายบทที่ได้ศึกษาไปแล้ว" border="0" alt="image" src="http://lh6.ggpht.com/-s9-qVDmcOIU/TmT2Sg0XMWI/AAAAAAAAAG4/foWkoLcR8-M/image_thumb%25255B11%25255D.png?imgmax=800" width="345" height="241" /></a></p><br /><p><a href="http://lh5.ggpht.com/-VAuPa2Bel18/TmT2VGBsAVI/AAAAAAAAAG8/XYoDQCFGMs0/s1600-h/image%25255B17%25255D.png"><img style="BACKGROUND-IMAGE: none; BORDER-RIGHT-WIDTH: 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; DISPLAY: block; FLOAT: none; BORDER-TOP-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 0px; MARGIN-LEFT: auto; BORDER-LEFT-WIDTH: 0px; MARGIN-RIGHT: auto; PADDING-TOP: 0px" title="รายละเอียดการขอสมัครสอบเพื่อรับใบรับรองความสามารถ" border="0" alt="image" src="http://lh6.ggpht.com/-SQT2SXIl76A/TmT2Xz6ij4I/AAAAAAAAAHA/VFLZ3oCyBD0/image_thumb%25255B20%25255D.png?imgmax=800" width="318" height="279" /></a></p>bnnzcsiencehttp://www.blogger.com/profile/16101421591864608132noreply@blogger.comtag:blogger.com,1999:blog-1635334694184049053.post-19413856301705555442011-09-04T19:33:00.000-07:002011-09-19T22:00:06.569-07:00การทำ Windows Media Player จาก Visual Basic 2008<div style="text-align: center;">Windows Media Player จาก <a href="http://code-visual-basic.blogspot.com/p/about-visual-basic.html">Visual Basic 2008</a></div><div style="text-align: left;"><br /></div><div style="text-align: left;">1.สร้าง Form ขึ้นมา 1 Form จากนั้นตั้งชื่อ Form ว่า Windows Media Player</div>2.คลิกขวา BindingSource แล้วเลือก Choose Items... ดังรูป<div><br /><img src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgPA9e39Qv4D9JOP3b5GyyUXuVjOyv0uJwjRUfz_CVeFoZsaZBKmrR9JRPClF86z3bBeQAFMLTTJQeen4nkS18Kz-9q_ACpN665NrawhBslw_NATi8FSofSKJS3xsF52eekmSx19NHizZhj/s320/11.png" style="display:block; margin:0px auto 10px; text-align:center;cursor:pointer; cursor:hand;width: 152px; height: 320px;" alt="" id="BLOGGER_PHOTO_ID_5648699452256539250" border="0" /><div><div><div style="text-align: center;"><br /></div></div></div><div><a name='more'></a>3.จะได้หน้าต่าง Choose Toolbox Items ขึ้นมา จากนั้นทำการเลือก windows media player ดังรูป</div><div><br /></div><img src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgOhrJQVoFaxlITpIJ0cG6sGqvEWO_uQoU2vdNFD7McoCur3L_Wl2ce1bH-xY0sy_IcoME7hzkAhmllTfeU0H2QKaYa8_34H-SSduaQvfvJjI_6H8GK2jmnLK4Bg9rXL4UzfqoWvOoQ8G6i/s320/22.PNG" style="display:block; margin:0px auto 10px; text-align:center;cursor:pointer; cursor:hand;width: 320px; height: 221px;" alt="" id="BLOGGER_PHOTO_ID_5648700475927651186" border="0" /><div><div style="text-align: left;"><br /></div><div style="text-align: left;">4.windows media player จะมาปรากฏใน Toolbox จากนั้นทำการลากมาวางที่ Form แล้วทำการปรับขนาด และเพิ่มปุ่ม Song จะได้ดังนี้</div><div style="text-align: left;"><br /></div><img src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj7Rp9aV-726lq1_Qzv8_E3L1wV7rTQYL_eRG3E4u9azuOBe5mlhF0kiMrWokTd9CiBEjpxnmSTIVAXC-vvo9BHMahSb3cnPmgJYOVlM7g_o-tDjPhSosVDI7v9bF7vfjLYo-pk0QVsCA4r/s320/55.PNG" alt="" id="BLOGGER_PHOTO_ID_5648701060402270050" style="display: block; margin-top: 0px; margin-right: auto; margin-bottom: 10px; margin-left: auto; text-align: center; cursor: pointer; width: 320px; height: 296px; " border="0" /><div style="text-align: center;"><br /></div><div style="text-align: left;">5.คลิกลาก OpenFileDailog มาวางใน Form ได้ดังนี้</div><div style="text-align: left;"><br /></div><div style="text-align: center;"><img src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhXQH2zPpQxqHXdLWLprYwZu81KuKliVbbmmOLL9WpLCy3CGbOwg3aGVpwDM6mJ0dJsSzfsfg5uTAl1CIFuJB2aMLOkEtKUOXGktsQBEej7ihnOe9NhsDBVv3-CigCH5LUXzjC-4mPTjrW7/s320/66.png" alt="" id="BLOGGER_PHOTO_ID_5648701724697970354" style="display: block; margin-top: 0px; margin-right: auto; margin-bottom: 10px; margin-left: auto; text-align: center; cursor: pointer; width: 320px; height: 173px; " border="0" /></div><div style="text-align: center;"><br /></div></div><div><div style="text-align: left;">6.ทำการเขียนโค้ดลงในปุ่ม Song โดยดับเบิลคลิกที่ปุ่ม Song แล้วเขียนโค้ดดังนี้</div><div style="text-align: left;"><br /></div><div style="text-align: left;"><div style="text-align: left;"> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click</div><div style="text-align: center;"><br /></div><div style="text-align: left;"> OpenFileDialog1.ShowDialog()</div><div style="text-align: left;"> AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName</div><div style="text-align: left;"><br /></div><div style="text-align: left;"> End Sub</div><div style="text-align: center;"><br /></div><div style="text-align: left;"><br /></div><div style="text-align: left;">7.ทำการทดสอบโปรแกรม</div><div style="text-align: left;"><span class="Apple-tab-span" style="white-space:pre"> </span>- คลิกที่ปุ่ม Song จะปรากฏหน้าต่าง Open แล้วเลือกเพลงหรือวีดีโอที่ต้องการเปิด </div><div style="text-align: left;"><br /></div><div style="text-align: left;"><br /></div><div style="text-align: left;"><img src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi9glT_2UqGwW_sV9VoyyGQfIYd3O7RZxeUV9_ZbuTFYJ_frCKW2uPUIMdPiY_562plptl8WpkDB0YGUUnABB8A7s2bYiNsmb0cX9AWwCHRXtXob1L8r9VedI8gzDqZmA6SB1L8uSZlz8Zr/s320/77.png" alt="" id="BLOGGER_PHOTO_ID_5648703052275237762" style="display: block; margin-top: 0px; margin-right: auto; margin-bottom: 10px; margin-left: auto; text-align: center; cursor: pointer; width: 320px; height: 125px; " border="0" /></div><div style="text-align: left;"><div style="text-align: center;"><br /></div><div style="text-align: left;"><span class="Apple-tab-span" style="white-space:pre"> </span>- เราก็จะสามารถฟังเพลง ดูหนัง ได้</div><div style="text-align: left;"><br /></div><img src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEib-R9xR3HMScH_EZQuizfbMkwV8XRxl5ez1f6JS0jLhuQXws5rVZSuVQXrOuZyidchqAGknZ-IMXh1wLm-3011hyphenhyphen6QulISgUZkAC49r4QPttySRR76BlEINp6RGg2ixeSAdIZ2BY6GelbA/s320/88.png" alt="" id="BLOGGER_PHOTO_ID_5648703524935519106" style="display: block; margin-top: 0px; margin-right: auto; margin-bottom: 10px; margin-left: auto; text-align: center; cursor: pointer; width: 320px; height: 298px; " border="0" /><div style="text-align: center;"><br /></div></div><div><br /></div></div><div><br /></div></div></div>adminhttp://www.blogger.com/profile/00503330127878406152noreply@blogger.comtag:blogger.com,1999:blog-1635334694184049053.post-77589933350308550462011-09-04T10:35:00.000-07:002011-10-03T04:54:37.536-07:00การทำ Login ด้วย Visual Basic 2008<div style="TEXT-ALIGN: center">ออกแบบและเขียนโค้ดด้วยโปรแกรม <a href="http://code-visual-basic.blogspot.com/p/about-visual-basic.html">Visual Basic 2008</a></div><br /><div style="TEXT-ALIGN: left"><br /></div><br /><div style="TEXT-ALIGN: left">1.สร้าง Form1 ขึ้นมา ตั้งชื่อ Form ว่า Login และออกแบบดังรูป</div><br /><div style="TEXT-ALIGN: center"><br /></div><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 320px; DISPLAY: block; HEIGHT: 198px; CURSOR: hand" id="BLOGGER_PHOTO_ID_5648560813618377010" border="0" alt="" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhbTvAC4Rs7gLDAL8Quy_nFrTpUWbuY7OHjzN7uIDUv5L4-p56EsWsK88N_ENyP71b3ipByl7wxDnzZCI3kLG4FPXoHGuuL-CnWipiyWk6XWItCQDgNb7VdNoRN7nT9d1hPz6moFtFTxXVS/s320/1.PNG" /><br /><br /><div style="TEXT-ALIGN: center"><br /></div><a name='more'></a>2. กำหนดคุณสมบัติ ของ Textbox ที่จะพิมพ์ Password ลงไป ดังรูป<br /><br /><br /><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 204px; DISPLAY: block; HEIGHT: 320px; CURSOR: pointer" id="BLOGGER_PHOTO_ID_5648562092800169250" border="0" alt="" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiXAv9dX1TmqtV4qCePThstDnCvgPYp3uNtJ9ekcAb9yzFdFaY7hwpnOGwVqnZchdbwpjxYSS8k7AxwWfjqP8IQSJZlznyoR1qyayCaGQUpbebNl08zzjC-wD3YOVcPYxU-Con4yrjGAQnG/s320/6.PNG" /> <br /><div style="TEXT-ALIGN: center"><br /></div><br /><div style="TEXT-ALIGN: left">3. ทำการสร้าง Form2 ขึ้นมา แล้วตั้งชื่อว่า welcome แล้วพิมพ์ข้อความ "ยินดีต้อนรับเข้าสู่ระบบ"</div><br /><div style="TEXT-ALIGN: center"><br /></div><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 320px; DISPLAY: block; HEIGHT: 197px; CURSOR: pointer" id="BLOGGER_PHOTO_ID_5648562576305611442" border="0" alt="" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjuEV9W3W36kj5J1Wl_h_X4UFw7ACMmXSXV8gFyZFxddgdpcvnP2zaKNcn8bD3EwUA6QJhMujyEuWu9pkghzxgWg5Y7ugwJpAW5U32Smg5p3lTBXXaoTP8IlKf2194QTUI8VoFS1iiztBus/s320/3.PNG" /><br /><br /><br /><div style="TEXT-ALIGN: left">4. ทำการเขียนโค้ดลงไปใน Form1 โดยดับเบิลคลิกที่ปุ่ม Login แล้วทำการเขียนโค้ดดังนี้</div><br /><div style="TEXT-ALIGN: left"><br /></div><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 320px; DISPLAY: block; HEIGHT: 194px; CURSOR: pointer" id="BLOGGER_PHOTO_ID_5648563370747039026" border="0" alt="" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEinZYg2kxxGZhcIQiSVxjczT1Lra8M5BOIhFLOa6N99EjC64_SKQvxIJQMEN3kiS_RDfoKaqcFNw2safAS-Ix4r78ra6Hpw9RvyptajXdEd9HYLe_NO66M6_-JDhzJatWbyaxNBxNUWsLsk/s320/2.PNG" /><br /><br /><div style="TEXT-ALIGN: center"><br /></div><br /><div style="TEXT-ALIGN: left"><br /><div style="TEXT-ALIGN: left"><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span>Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click</div><br /><div style="TEXT-ALIGN: left"><br /></div><br /><div style="TEXT-ALIGN: left"><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span>If TextBox1.Text = "Admin" And TextBox2.Text = "1234" Then</div><br /><div style="TEXT-ALIGN: left"><br /></div><br /><div style="TEXT-ALIGN: left"><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span>Form2.Show()</div><br /><div style="TEXT-ALIGN: left"><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span>Else</div><br /><div style="TEXT-ALIGN: left"><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span>MsgBox("Username และ Password ของคุณไม่ถูกต้อง", MsgBoxStyle.OkOnly, "ไม่ถูกต้อง")</div><br /><div style="TEXT-ALIGN: left"><br /></div><br /><div style="TEXT-ALIGN: left"><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span>End If</div><br /><div style="TEXT-ALIGN: left"><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span>End Sub</div></div><br /><div style="TEXT-ALIGN: left"><br /></div><br /><div></div>adminhttp://www.blogger.com/profile/00503330127878406152noreply@blogger.comtag:blogger.com,1999:blog-1635334694184049053.post-45746484798803691742011-09-02T07:18:00.000-07:002011-09-20T06:03:51.666-07:00ตัวอย่างการใช้งาน ตัวดำเนินการทางคณิตศาสตร์ (Visual Basic 2008)<span lang="TH" style="font-family:Calibri;font-size:100%;"><span style="FONT-WEIGHT: bold">ตัวอย่างแอพพลิเคชั่นง่ายๆ </span><span style="FONT-WEIGHT: bold">โดยใช้<span style="font-size:+0;"><a href="http://code-visual-basic.blogspot.com/p/about-visual-basic.html">โปรแกรม</a></span></span><a href="http://code-visual-basic.blogspot.com/p/about-visual-basic.html"><span class="Apple-style-span"><span style="FONT-WEIGHT: bold"> <span style="font-size:+0;"></span></span><span style="FONT-WEIGHT: bold"></span></span></a></span><span style="FONT-WEIGHT: bold;font-family:'courier new';font-size:100%;" ><a href="http://code-visual-basic.blogspot.com/p/about-visual-basic.html">visual basic 2008</a></span><span style="LINE-HEIGHT: 115%;font-family:';font-size:100%;" lang="TH" > ที่มีการใช้งานตัวดำเนินการทางคณิตศาสตร์แต่ละตัว </span><span style="LINE-HEIGHT: 115%;font-family:';font-size:100%;" lang="TH" >โดยพิจารณาจากข้อมูล และผลลัพธ์ที่เกิดขึ้น</span><span style="LINE-HEIGHT: 115%;font-family:';font-size:100%;" lang="TH" ><br /><span style="font-family:courier new;"><span style="font-size:85%;"><br />1.ออกแบบหน้าตาแอพพลิเคชัน และตั้งชื่อคอนโทรลต่างๆ<span style="FONT-WEIGHT: bold"> </span></span></span><span style="font-family:courier new;font-size:85%;">โดยใช้</span></span><span style="LINE-HEIGHT: 115%;font-size:14;" lang="TH" ><span style="font-family:'courier new';font-size:85%;">โปรแกรม</span><span style="FONT-WEIGHT: bold;font-family:courier new;font-size:85%;" > </span><span style="FONT-WEIGHT: bold;font-family:'courier new';font-size:85%;" ><a href="http://code-visual-basic.blogspot.com/p/about-visual-basic.html">Visual Basic 2008</a></span><span style="LINE-HEIGHT: 115%;font-size:14;" lang="TH" ><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://1.bp.blogspot.com/-AZiTkKoOkLM/TmDnFNOyEJI/AAAAAAAAAGA/WsNpglFnHM8/s1600/1.jpg"><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 400px; DISPLAY: block; HEIGHT: 227px; CURSOR: hand" id="BLOGGER_PHOTO_ID_5647768009359626386" border="0" alt="" src="http://1.bp.blogspot.com/-AZiTkKoOkLM/TmDnFNOyEJI/AAAAAAAAAGA/WsNpglFnHM8/s400/1.jpg" /></a></span></span> <br /><p class="MsoNormal"><span style="LINE-HEIGHT: 115%;font-family:';font-size:100%;" lang="TH" ><span style="font-size:85%;"><a name='more'></a>2.</span></span><span style="LINE-HEIGHT: 115%;font-family:';font-size:85%;" lang="TH" ><span style="font-family:arial;"> ดับเบิลคลิกปุ่ม ประมวลผล แล้วเขียนโค้ดดังนี้</span></span></p><br /><p class="MsoNormal"><span style="LINE-HEIGHT: 115%;font-family:';font-size:14;" lang="TH" ><span style="LINE-HEIGHT: 115%;font-family:';font-size:14;" lang="TH" ><span style="LINE-HEIGHT: 115%;font-family:';font-size:14;" lang="TH" ><span style="font-size:100%;"><span style="font-family:arial;"><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://1.bp.blogspot.com/-uQesnrwSByk/TmDoBcXVJOI/AAAAAAAAAGI/YwXTfbpFjqc/s1600/2.jpg"><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 400px; DISPLAY: block; HEIGHT: 331px; CURSOR: hand" id="BLOGGER_PHOTO_ID_5647769044214162658" border="0" alt="" src="http://1.bp.blogspot.com/-uQesnrwSByk/TmDoBcXVJOI/AAAAAAAAAGI/YwXTfbpFjqc/s400/2.jpg" /></a></span></span></span></span></span></p><br /><p class="MsoNormal"><span style="LINE-HEIGHT: 115%;font-family:';font-size:85%;" lang="TH" >3.</span><span style="LINE-HEIGHT: 115%;font-family:';font-size:85%;" lang="TH" ><span style="font-family:arial;"> ทดสอบการทำงานของแอพพลิเคชันที่ออกแบบและเขียนโค้ดโดย<span style="COLOR: rgb(153,0,0); FONT-WEIGHT: bold">โปรแกรม </span></span></span><span style="LINE-HEIGHT: 115%;font-family:';font-size:100%;" lang="TH" ><span style="font-family:courier new;"><span style="font-size:85%;"><span style="COLOR: rgb(153,0,0); FONT-WEIGHT: bold">visual basic 2008</span> </span></span></span><span style="LINE-HEIGHT: 115%;font-family:';font-size:85%;" lang="TH" ><span style="font-family:arial;">ได้ผลดังรูป</span></span></p><br /><p class="MsoNormal"><span style="LINE-HEIGHT: 115%;font-size:14;" lang="TH" ><span style="LINE-HEIGHT: 115%;font-size:14;" lang="TH" ><span style="LINE-HEIGHT: 115%;font-size:14;" lang="TH" ><span style="font-size:100%;"><span style="font-family:arial;"><span style="LINE-HEIGHT: 115%;font-family:';font-size:100%;" lang="TH" ><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://3.bp.blogspot.com/-j89LKxR7bvY/TmDoZBVMflI/AAAAAAAAAGQ/w7QRct4HBZE/s1600/3.jpg"><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 400px; DISPLAY: block; HEIGHT: 228px; CURSOR: hand" id="BLOGGER_PHOTO_ID_5647769449274310226" border="0" alt="" src="http://3.bp.blogspot.com/-j89LKxR7bvY/TmDoZBVMflI/AAAAAAAAAGQ/w7QRct4HBZE/s400/3.jpg" /></a></span></span></span></span></span></span></p>bnnzcsiencehttp://www.blogger.com/profile/16101421591864608132noreply@blogger.comtag:blogger.com,1999:blog-1635334694184049053.post-72749432957667601352011-09-01T13:26:00.000-07:002011-09-20T06:03:59.415-07:00การเชื่อมต่อฐานข้อมูล Access มาใช้ใน Visual Basic 2008<blockquote><br /><p>ในการเขียนโปรแกรมประยุกต์ ในบางครั้งก็จำเป็นที่จะต้องมีการติดต่อฐานข้อมูล เพื่อใช้ในการบันทึก จัดเก็บหรือนำข้อมูลในฐานข้อมูลมาทำการนำเสนอ <a href="http://code-visual-basic.blogspot.com/p/about-visual-basic.html"><strong>visual basic</strong> </a>ก็เป็นหนึ่งโปรแกรมที่สามารถทำการเรียกใช้ฐานข้อมูลได้หลากหลายประเภท เช่น <strong>microsoft access</strong> ,microsoft SQL หรือ Oracle<br />ก็สามารถทำได้ </p><br /><p>ตัวอย่างการเชื่อมต่อฐานข้อมูล access มายัง <a href="http://code-visual-basic.blogspot.com/p/about-visual-basic.html"><strong>visual basic 2008</strong></a><a name='more'></a><br />ขั้นแรก ให้เข้าไปที่ เมนูบาร์ Data เลือก Add New Data Source ดังรูป</p><br /><p></p><br /><p><a href="http://lh6.ggpht.com/-K3_Wn3IeT94/Tl6FIuy9H1I/AAAAAAAAAEE/2np2art1Kkw/s1600-h/1%25255B12%25255D.jpg"><img style="BACKGROUND-IMAGE: none; BORDER-RIGHT-WIDTH: 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; DISPLAY: block; FLOAT: none; BORDER-TOP-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 0px; MARGIN-LEFT: auto; BORDER-LEFT-WIDTH: 0px; MARGIN-RIGHT: auto; PADDING-TOP: 0px" title="step 1 add new data source" border="0" alt="1" src="http://lh4.ggpht.com/-tFtv2tNO3eg/Tl6FJz6GgHI/AAAAAAAAAEI/SeAw-8E1cAw/1_thumb%25255B16%25255D.jpg?imgmax=800" width="377" height="291" /></a></p></blockquote><br /><p>จะปรากฎหน้าต่างดังรูปเป็นการเลือกชนิดของ Database ที่จะนำเข้ามาเชื่อมต่อ เราจะทำการเชื่อมต่อฐานข้อมูล Access ก็ทำการเลือกชนิดเป็น Database และทำการ Next ไป</p><br /><p><a href="http://lh3.ggpht.com/-fhYbBBrW-x4/Tl_q7LO38GI/AAAAAAAAAEs/TQBI6-g31ng/s1600-h/26.jpg"><img style="BACKGROUND-IMAGE: none; BORDER-RIGHT-WIDTH: 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; DISPLAY: block; FLOAT: none; BORDER-TOP-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 0px; MARGIN-LEFT: auto; BORDER-LEFT-WIDTH: 0px; MARGIN-RIGHT: auto; PADDING-TOP: 0px" title="2" border="0" alt="2" src="http://lh4.ggpht.com/-rRnMjoHnbxg/Tl_q8LZg8XI/AAAAAAAAAEw/78hRSRHHk34/2_thumb8.jpg?imgmax=800" width="449" height="281" /></a></p><br /><p>จากนั้นคลิกเลือก New Connection ในส่วนของ Data Source กดเลือก Change<br />ในหน้าต่าง Change Data Source ให้ทำการเลือกฐานข้อมูลเป็น Microsoft Access Database File และส่วนของ Data Provider เลือกเป็น .NET Framework Data Provider for OLE DB</p><br /><p><a href="http://lh3.ggpht.com/-XyfHTKa68ug/Tl_q9Xxmn6I/AAAAAAAAAE0/RSFqfYUmtdc/s1600-h/4%25255B6%25255D.jpg"><img style="BACKGROUND-IMAGE: none; BORDER-BOTTOM: 0px; BORDER-LEFT: 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; DISPLAY: block; FLOAT: none; MARGIN-LEFT: auto; BORDER-TOP: 0px; MARGIN-RIGHT: auto; BORDER-RIGHT: 0px; PADDING-TOP: 0px" title="4" border="0" alt="4" src="http://lh3.ggpht.com/-bpA6vyaMrQk/Tl_q_YNO5xI/AAAAAAAAAE4/C_RIdTUZwWc/4_thumb%25255B8%25255D.jpg?imgmax=800" width="509" height="325" /></a></p><br /><p>จากนั้นคลิกปุ่ม Browse เพื่อทำการเลือกไฟล์ฐานข้อมูล Access ที่จะนำมาใช้<br /><a href="http://lh6.ggpht.com/-Oycm078wcMY/Tl_rBlR0fzI/AAAAAAAAAE8/blJhL91j53E/s1600-h/5%25255B13%25255D.jpg"><img style="BACKGROUND-IMAGE: none; BORDER-BOTTOM: 0px; BORDER-LEFT: 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; DISPLAY: block; FLOAT: none; MARGIN-LEFT: auto; BORDER-TOP: 0px; MARGIN-RIGHT: auto; BORDER-RIGHT: 0px; PADDING-TOP: 0px" title="5" border="0" alt="5" src="http://lh5.ggpht.com/-7zjMN-5RvRo/Tl_rD1ZqYPI/AAAAAAAAAFA/otOMPNa-Idw/5_thumb%25255B19%25255D.jpg?imgmax=800" width="453" height="288" /></a></p><br /><p>แล้วลองทำการ Test Connection เมื่อเชื่อมต่อได้จะขึ้นหน้าต่างเตือนดังข้างล่าง</p><br /><p><a href="http://lh3.ggpht.com/-NPwp1SquXJA/Tl_rE4Oob0I/AAAAAAAAAFE/294tr7xd9zo/s1600-h/6%25255B6%25255D.jpg"><img style="BACKGROUND-IMAGE: none; BORDER-BOTTOM: 0px; BORDER-LEFT: 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; DISPLAY: block; FLOAT: none; MARGIN-LEFT: auto; BORDER-TOP: 0px; MARGIN-RIGHT: auto; BORDER-RIGHT: 0px; PADDING-TOP: 0px" title="6" border="0" alt="6" src="http://lh5.ggpht.com/-3kWpjFPpDeQ/Tl_rGNvButI/AAAAAAAAAFI/9EKQKHnjshc/6_thumb%25255B7%25255D.jpg?imgmax=800" width="454" height="340" /></a></p><br /><p>เมื่อกดตกลงและกด Next จะขึ้นหน้าต่างว่า visual basic จะทำการ copy file กด Yes เพื่อยอมรับ</p><br /><p><a href="http://lh3.ggpht.com/-3wEh-9qg8RI/Tl_rHC6DjhI/AAAAAAAAAFM/6ghpgZkUePM/s1600-h/7%25255B5%25255D.jpg"><img style="BACKGROUND-IMAGE: none; BORDER-BOTTOM: 0px; BORDER-LEFT: 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; DISPLAY: block; FLOAT: none; MARGIN-LEFT: auto; BORDER-TOP: 0px; MARGIN-RIGHT: auto; BORDER-RIGHT: 0px; PADDING-TOP: 0px" title="7" border="0" alt="7" src="http://lh6.ggpht.com/-jxTCOVzu_0o/Tl_rHtucNYI/AAAAAAAAAFQ/Jji9RKj3TY4/7_thumb%25255B7%25255D.jpg?imgmax=800" width="428" height="331" /></a></p><br /><p>ถัดไปให้กด Next เพื่อบันทึกการตั้งค่าการเชื่อมต่อฐานข้อมูล</p><br /><p><a href="http://lh4.ggpht.com/-xImEuxyNmFE/Tl_rKWUXSUI/AAAAAAAAAFU/2QTjV6XoWGc/s1600-h/8%25255B6%25255D.jpg"><img style="BACKGROUND-IMAGE: none; BORDER-BOTTOM: 0px; BORDER-LEFT: 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; DISPLAY: block; FLOAT: none; MARGIN-LEFT: auto; BORDER-TOP: 0px; MARGIN-RIGHT: auto; BORDER-RIGHT: 0px; PADDING-TOP: 0px" title="8" border="0" alt="8" src="http://lh3.ggpht.com/-A5SnDBsgcOA/Tl_rLRQqOsI/AAAAAAAAAFY/siuHAi2NGG0/8_thumb%25255B8%25255D.jpg?imgmax=800" width="414" height="315" /></a></p><br /><p>หน้าต่างนี้จะเป็นการเลือกว่าเราต้องการให้แสดงอะไรบ้างใน <strong>visual basic</strong> ในที่นี้ให้ทำการเลือกทั้งหมด</p><br /><p><br /><a href="http://lh3.ggpht.com/-YbsH3_wMBvo/Tl_rONqzMAI/AAAAAAAAAFc/ysd-nkT84yY/s1600-h/9%25255B6%25255D.jpg"><img style="BACKGROUND-IMAGE: none; BORDER-BOTTOM: 0px; BORDER-LEFT: 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; DISPLAY: block; FLOAT: none; MARGIN-LEFT: auto; BORDER-TOP: 0px; MARGIN-RIGHT: auto; BORDER-RIGHT: 0px; PADDING-TOP: 0px" title="9" border="0" alt="9" src="http://lh5.ggpht.com/-z5TJEpjKIQo/Tl_rQFgdJEI/AAAAAAAAAFg/NcIwf4jGKr0/9_thumb%25255B7%25255D.jpg?imgmax=800" width="507" height="392" /></a></p><br /><p>เชื่อมต่อฐานข้อมูลเรียบร้อยแล้วครับ จะเห็นได้ว่ามีฐานข้อมูลที่เราเลือกอยู่ทางด้านขวามือในส่วนของ Data Sources<br /><a href="http://lh4.ggpht.com/-VPRceKeMeFI/Tl_rR3I5GMI/AAAAAAAAAFk/P_YBC-mVg9o/s1600-h/10%25255B6%25255D.jpg"><img style="BACKGROUND-IMAGE: none; BORDER-BOTTOM: 0px; BORDER-LEFT: 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; DISPLAY: block; FLOAT: none; MARGIN-LEFT: auto; BORDER-TOP: 0px; MARGIN-RIGHT: auto; BORDER-RIGHT: 0px; PADDING-TOP: 0px" title="10" border="0" alt="10" src="http://lh3.ggpht.com/-sdK6nJbps9c/Tl_rTXmG8II/AAAAAAAAAFo/2-Td7szrUxs/10_thumb%25255B10%25255D.jpg?imgmax=800" width="498" height="365" /></a></p><br /><p>วิธีการแสดงผลฐานข้อมูลเบื้องต้นให้เราทำการลากตารางฐานข้อมูลที่ต้องการมาวางในฟอร์มของ <strong>visual basic</strong> จะได้ Data Grid View เป็นการแสดงฐานข้อมูล สามารถกำหนดได้ว่าจะเลือก ให้คอลัมน์ใดบ้างที่จะให้แสดงแต่ถ้าไม่ได้กำหนดจะเป็นการแสดงทั้งหมด<br /><a href="http://lh6.ggpht.com/-msfBApBd8wg/Tl_rUmiYAaI/AAAAAAAAAFs/vwK81TUvqy0/s1600-h/11%25255B6%25255D.jpg"><img style="BACKGROUND-IMAGE: none; BORDER-BOTTOM: 0px; BORDER-LEFT: 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; DISPLAY: block; FLOAT: none; MARGIN-LEFT: auto; BORDER-TOP: 0px; MARGIN-RIGHT: auto; BORDER-RIGHT: 0px; PADDING-TOP: 0px" title="11" border="0" alt="11" src="http://lh3.ggpht.com/-516PlyJwyJI/Tl_rWwkAySI/AAAAAAAAAFw/X-g0bcO6A3A/11_thumb%25255B8%25255D.jpg?imgmax=800" width="486" height="324" /></a></p><br /><p>เมื่อกำหนดขนาดความกว้าง ของตารางฐานข้อมูลที่จะแสดงแล้ว กด Start Debugging จะได้ผลลัพธ์ดังรูป</p><br /><p><a href="http://lh4.ggpht.com/-uCqpvi95q-o/Tl_rYt-CYjI/AAAAAAAAAF0/aYL7vQpKFMo/s1600-h/12%25255B6%25255D.jpg"><img style="BACKGROUND-IMAGE: none; BORDER-BOTTOM: 0px; BORDER-LEFT: 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; DISPLAY: block; FLOAT: none; MARGIN-LEFT: auto; BORDER-TOP: 0px; MARGIN-RIGHT: auto; BORDER-RIGHT: 0px; PADDING-TOP: 0px" title="12" border="0" alt="12" src="http://lh3.ggpht.com/-rJlFauEZM-s/Tl_raV_CEBI/AAAAAAAAAF4/H3Q5PcDzIdw/12_thumb%25255B10%25255D.jpg?imgmax=800" width="519" height="307" /></a></p>bnnzcsiencehttp://www.blogger.com/profile/16101421591864608132noreply@blogger.comtag:blogger.com,1999:blog-1635334694184049053.post-17378350842589366162011-09-01T06:54:00.000-07:002011-09-20T06:04:10.483-07:00ตัวดำเนินการทางคณิตศาสตร์ (Arithmetic Operator)<span style="LINE-HEIGHT: 115%;font-family:Calibri;font-size:100%;" lang="TH" ><span style="FONT-WEIGHT: bold">ตัวดำเนินการทางคณิตศาสตร์ (</span></span><span style="LINE-HEIGHT: 115%;font-family:';font-size:100%;" ><span style="FONT-WEIGHT: bold">Arithmetic Operator</span><span lang="TH"><span style="FONT-WEIGHT: bold">)</span> เป็นตัวดำเนินการที่มีการใช้งานบ่อยมาก และเป็นตัวดำเนินการที่ผู้สนใจการเขียนโปรแกรม </span><span style="FONT-WEIGHT: bold"><a href="http://code-visual-basic.blogspot.com/p/about-visual-basic.html">Visual Basic 2008</a> </span><span lang="TH">จะต้องศึกษาและทำความเข้าใจ เพราะจะช่วยให้การเขียนโปรแกรม </span><span style="FONT-WEIGHT: bold"><a href="http://code-visual-basic.blogspot.com/p/about-visual-basic.html">Visual Basic 2008</a></span> <span lang="TH">มีประสิทธิภาพมากขึ้น<a name='more'></a><br /><br /></span></span><br /><div style="TEXT-ALIGN: center;font-family:courier new;" ><span style="LINE-HEIGHT: 115%;font-size:100%;" ><span lang="TH"><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://4.bp.blogspot.com/-VO6RsMok23g/Tl-T4RpllRI/AAAAAAAAAEo/7UMSt6MBuCQ/s1600/Arithmetic%2BOperator.jpg"><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 400px; DISPLAY: block; HEIGHT: 269px; CURSOR: hand" id="BLOGGER_PHOTO_ID_5647395052765680914" border="0" alt="" src="http://4.bp.blogspot.com/-VO6RsMok23g/Tl-T4RpllRI/AAAAAAAAAEo/7UMSt6MBuCQ/s400/Arithmetic%2BOperator.jpg" /></a><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://1.bp.blogspot.com/-Nyf6REjKW8Y/Tl-R0iiVUUI/AAAAAAAAAEg/F9RbQJLCKIw/s1600/Arithmetic%2BOperator.jpg"><br /></a></span></span><span style="LINE-HEIGHT: 115%;font-family:';font-size:100%;" lang="TH" ><span style="FONT-WEIGHT: bold">ตัวดำเนินการทางคณิตศาสตร์ในโปรแกรม</span></span><span style="LINE-HEIGHT: 115%;font-family:arial;font-size:100%;" ><span lang="TH"><span style="FONT-WEIGHT: bold"> </span></span></span><a href="http://code-visual-basic.blogspot.com/p/about-visual-basic.html"><span class="Apple-style-span"><span style="FONT-WEIGHT: bold;font-family:arial;font-size:100%;" >visual basic 2008</span><span style="font-size:100%;"><br /></span></span></a></div><span style="LINE-HEIGHT: 115%;font-family:Calibri;font-size:100%;" ><span lang="TH"><br /><br /><br /></span></span>bnnzcsiencehttp://www.blogger.com/profile/16101421591864608132noreply@blogger.comtag:blogger.com,1999:blog-1635334694184049053.post-40214494279970253752011-09-01T04:19:00.000-07:002011-09-20T06:04:21.435-07:00การใช้ Input Box ใน Visual Basic2008<div style="TEXT-ALIGN: left"><span style="LINE-HEIGHT: 115%" lang="TH"><span style="WHITE-SPACE: pre;font-family:'Cordia New', sans-serif;font-size:14;" class="Apple-tab-span" ></span><span class="Apple-style-span">ใน </span></span><span class="Apple-style-span"><a href="http://code-visual-basic.blogspot.com/p/about-visual-basic.html"><b>Visual Basic2008</b></a><span style="LINE-HEIGHT: 115%" lang="TH"> จะมีฟอร์มอีกชนิดหนึ่งที่ใช้รับข้อความจากผู้ใช้โปรแกรมแล้วนำมาประมวลผลโดยผู้ใช้สามารถกรอกข้อความเข้ามาในไดอะล็อกแล้วกดปุ่ม แสดงผล ข้อความนั้นจะถูกส่งเข้ามาในโปรแกรม โดยมีรูปแบบการใช้งานดังนี้</span></span></div><br /><div style="TEXT-ALIGN: left"><span class="Apple-style-span"><span style="LINE-HEIGHT: 21px;font-size:19;" class="Apple-style-span" ><br /></span></span></div><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 289px; DISPLAY: block; HEIGHT: 163px; CURSOR: hand" id="BLOGGER_PHOTO_ID_5647349686535756946" border="0" alt="" src="http://4.bp.blogspot.com/-G_Ax3vv1a4c/Tl9qnnRgnJI/AAAAAAAAAEQ/c1n-5KB_xUM/s320/1.jpg" /> <br /><p class="MsoNormal"><span class="Apple-style-span"><span style="LINE-HEIGHT: 21px" class="Apple-style-span"><span style="WHITE-SPACE: pre;font-size:19;" class="Apple-tab-span" ></span><b><span class="Apple-style-span">การเขียนโค้ด Visual Basic 2008 ลงในคอนโทรลต่างๆ <a name='more'></a></span></b></span></span></p><br /><p class="MsoNormal"><span style="LINE-HEIGHT: 21px" class="Apple-style-span"></span></p><br /><p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span class="Apple-style-span"><span style="font-size:+0;">Public</span><span style="font-size:+0;"> <span style="font-size:+0;">Class</span> Form1</span></span></p><br /><p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span class="Apple-style-span"><span style="font-size:+0;"><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span>Private</span><span style="font-size:+0;"> <span style="font-size:+0;">Sub</span> btnShow_Click(<span style="font-size:+0;">ByVal</span> sender <span style="font-size:+0;">As</span> System.Object, <span style="font-size:+0;">ByVal</span> e <span style="font-size:+0;">As</span> System.EventArgs) <span style="font-size:+0;">Handles</span> btnShow.Click</span></span></p><br /><p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span class="Apple-style-span"><span style="font-size:+0;"><br /></span></span></p><br /><p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span class="Apple-style-span"><span style="font-size:+0;"><span style="font-size:+0;"><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span></span>MessageBox.Show(<span style="font-size:+0;">"<span lang="TH">ยินดีต้อนรับคุณ</span>"</span> & txtName.Text & <span style="font-size:+0;">" "</span> & txtSurName.Text) <span class="Apple-style-span">' </span></span><span style="font-size:+0;"><span lang="TH">เขียนโค้ดใส่ปุ่ม แสดงผล '</span></span></span></p><span class="Apple-style-span"><span style="LINE-HEIGHT: 21px" class="Apple-style-span"><br /><p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="font-size:+0;"><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span>End <span style="font-size:+0;">Sub</span></span></p><br /><p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="font-size:+0;"><span style="font-size:+0;"><br /></span></span></p></span><span style="LINE-HEIGHT: 21px" class="Apple-style-span"><br /><p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="font-size:+0;"><?xml:namespace prefix = o /><o:p><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span></o:p></span><span style="font-size:+0;">Private</span><span style="font-size:+0;"> <span style="font-size:+0;">Sub</span> btnExit_Click(<span style="font-size:+0;">ByVal</span> sender <span style="font-size:+0;">As</span> System.Object, <span style="font-size:+0;">ByVal</span> e <span style="font-size:+0;">As</span> System.EventArgs) <span style="font-size:+0;">Handles</span> btnExit.Click</span></p><br /><p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="font-size:+0;"><br /></span></p></span><span style="LINE-HEIGHT: 21px" class="Apple-style-span"><span style="LINE-HEIGHT: normal" class="Apple-style-span"><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span>Me.Close()<span class="Apple-style-span"> </span><span class="Apple-style-span">' </span></span><span style="LINE-HEIGHT: normal" class="Apple-style-span"><span lang="TH">เขียนโค้ดใส่ปุ่ม จบการทำงาน '</span></span> <br /><p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="font-size:+0;"><span style="WHITE-SPACE: pre" class="Apple-tab-span"></span>End <span style="font-size:+0;">Sub<o:p></o:p></span></span></p><br /><p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="font-size:+0;"><span style="font-size:+0;"><br /></span></span></p><span style="LINE-HEIGHT: 115%">End</span><span style="LINE-HEIGHT: 115%"> <span style="font-size:+0;">Class</span></span></span></span> <br /><p></p>bnnzcsiencehttp://www.blogger.com/profile/16101421591864608132noreply@blogger.comtag:blogger.com,1999:blog-1635334694184049053.post-76525565058859250932011-08-29T05:52:00.000-07:002011-09-20T06:04:29.428-07:00การสร้างแอพพลิเคชั่นด้วยฟอร์ม (Visual Basic 2008)1.ออกแบบให้มีฟอร์มและวางคอนโทรลต่างๆ ไว้ดังนี้ <br /><div><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://1.bp.blogspot.com/-VYL9tlPc1Qs/TluMGNInbrI/AAAAAAAAADA/CGp71JQNvNA/s1600/vb1.png"><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 320px; DISPLAY: block; HEIGHT: 274px; CURSOR: hand" id="BLOGGER_PHOTO_ID_5646260596071952050" border="0" alt="" src="http://1.bp.blogspot.com/-VYL9tlPc1Qs/TluMGNInbrI/AAAAAAAAADA/CGp71JQNvNA/s320/vb1.png" /></a><a name='more'></a><br />2.ใน Form Designer ดับเบิลคลิกที่ฟอร์มเพื่อเขียนโค้ดกำหนดการทำงานที่ Event Load โดยใช้เขียนข้อความต้อนรับเมื่อเริ่มใช้งาน</div><br /><div><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://1.bp.blogspot.com/-UbRg4nKT-2w/TluQjom5F5I/AAAAAAAAADI/tIJPuiN9HnQ/s1600/vb2.png"><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 320px; DISPLAY: block; HEIGHT: 50px; CURSOR: hand" id="BLOGGER_PHOTO_ID_5646265499709413266" border="0" alt="" src="http://1.bp.blogspot.com/-UbRg4nKT-2w/TluQjom5F5I/AAAAAAAAADI/tIJPuiN9HnQ/s320/vb2.png" /></a><br />3.ดับเบิลคลิกที่ปุ่ม เปลี่ยนข้อความ เพื่อเขียนโค้ดที่ Event Click โดยเขียนให้เปลี่ยนข้อความที่แถบด้านบนของฟอร์ม ตามข้อความที่ปรากฏในช่องรับข้อความ</div><br /><div><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://1.bp.blogspot.com/-q4TTPmqkW5Y/TluRgnG1hSI/AAAAAAAAADQ/yFTGzb9Bm3c/s1600/vb4.png"><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 320px; DISPLAY: block; HEIGHT: 35px; CURSOR: hand" id="BLOGGER_PHOTO_ID_5646266547278546210" border="0" alt="" src="http://1.bp.blogspot.com/-q4TTPmqkW5Y/TluRgnG1hSI/AAAAAAAAADQ/yFTGzb9Bm3c/s320/vb4.png" /></a><br />4.ดับเบิลคลิกที่ RadioBotton แต่ละตัวแล้วเขียนโค้ดให้มีการเปลี่ยนสีพื้นของฟอร์ม<br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://4.bp.blogspot.com/-xXNCQPgLrjE/TluR5VlllqI/AAAAAAAAADY/AFR01K5YLK4/s1600/vb5.png"><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 320px; DISPLAY: block; HEIGHT: 81px; CURSOR: hand" id="BLOGGER_PHOTO_ID_5646266972072416930" border="0" alt="" src="http://4.bp.blogspot.com/-xXNCQPgLrjE/TluR5VlllqI/AAAAAAAAADY/AFR01K5YLK4/s320/vb5.png" /></a><br /><br />5.ดับเบิลคลิกปุ่ม จบการทำงาน แล้วเขียนโค้ดที่เรียกใช้เมธอด Close เพื่อจบการทำงานของฟอร์มนี้ซึ่งก็คือ จบการทำงานของแอพพลิเคชั่นนั่นเอง(เพราะแอพพลิเคชั่นนีมีแค่ฟอร์มเดียว)</div><br /><div><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://1.bp.blogspot.com/-A8fCPZqTDPw/TluSZlk9_0I/AAAAAAAAADg/k1F6OBueK9c/s1600/vb7.png"><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 320px; DISPLAY: block; HEIGHT: 40px; CURSOR: hand" id="BLOGGER_PHOTO_ID_5646267526120603458" border="0" alt="" src="http://1.bp.blogspot.com/-A8fCPZqTDPw/TluSZlk9_0I/AAAAAAAAADg/k1F6OBueK9c/s320/vb7.png" /></a><br />6.ทดสอบการทำงานของแอพพลิเคชั่น จะได้ผลดังนี้ <br /><div><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://4.bp.blogspot.com/-SDQSdeeE91o/TluSslE4qoI/AAAAAAAAADo/osy6QC3Yd3g/s1600/vb8.png"><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 175px; DISPLAY: block; HEIGHT: 153px; CURSOR: hand" id="BLOGGER_PHOTO_ID_5646267852403550850" border="0" alt="" src="http://4.bp.blogspot.com/-SDQSdeeE91o/TluSslE4qoI/AAAAAAAAADo/osy6QC3Yd3g/s320/vb8.png" /></a> <br /><div style="TEXT-ALIGN: center">เริ่มต้นทักทาย กดปุ่ม OK</div><br /><div style="TEXT-ALIGN: center"><br /></div><br /><div style="TEXT-ALIGN: center"><br /></div><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://4.bp.blogspot.com/-SanKWVYzGKU/TluS8t-MaGI/AAAAAAAAADw/omPnr0VC2NU/s1600/vb9.png"><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 320px; DISPLAY: block; HEIGHT: 252px; CURSOR: hand" id="BLOGGER_PHOTO_ID_5646268129669310562" border="0" alt="" src="http://4.bp.blogspot.com/-SanKWVYzGKU/TluS8t-MaGI/AAAAAAAAADw/omPnr0VC2NU/s320/vb9.png" /></a> <br /><div style="TEXT-ALIGN: center">กรอกข้อความ แล้วกดปุ่ม เปลี่ยนข้อความ ข้อความ รักเมืองไทย จะแสดงในแถบด้านบน</div><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://4.bp.blogspot.com/-5YfKOBKaz_M/TluTJG-yKpI/AAAAAAAAAD4/zpiJ5UwDyzw/s1600/vb10.png"><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 320px; DISPLAY: block; HEIGHT: 255px; CURSOR: hand" id="BLOGGER_PHOTO_ID_5646268342541101714" border="0" alt="" src="http://4.bp.blogspot.com/-5YfKOBKaz_M/TluTJG-yKpI/AAAAAAAAAD4/zpiJ5UwDyzw/s320/vb10.png" /></a> <br /><div style="TEXT-ALIGN: center">คลิกเปลี่ยนสีพื้น<br />บทความข้างต้นนี้เป็นเพียงพื้นฐาน เป็น basic สำหรับผู้ที่เริ่มต้น สามารถนำไปประยุกต์และทำการดัดแปลงได้อีกมาก <span style="FONT-WEIGHT: bold"><a href="http://code-visual-basic.blogspot.com/p/about-visual-basic.html">visual basic</a> </span>ไม่ได้ยากอย่างที่คิด<br /></div><br /></div></div>bnnzcsiencehttp://www.blogger.com/profile/16101421591864608132noreply@blogger.comtag:blogger.com,1999:blog-1635334694184049053.post-45457901014900767482011-08-29T05:25:00.000-07:002011-09-20T06:04:42.211-07:00เริ่มต้นใช้งาน Visual Basic 2008<a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://1.bp.blogspot.com/-rajRNxpEgLc/TluFasZ5s3I/AAAAAAAAAC4/PZzT753mFhs/s1600/vb.jpg"><img style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 320px; DISPLAY: block; HEIGHT: 190px; CURSOR: hand" id="BLOGGER_PHOTO_ID_5646253251481940850" border="0" alt="" src="http://1.bp.blogspot.com/-rajRNxpEgLc/TluFasZ5s3I/AAAAAAAAAC4/PZzT753mFhs/s320/vb.jpg" /></a><br /><br /><br /><span style="FONT-WEIGHT: bold">หลักการเขียนโปรแกรมด้วย <span style="FONT-WEIGHT: bold">Visual Basic 2008</span></span><br />1.เป็นการเขียนโปรแกรมแบบ Event Driven Programming<br />2.การเขียนคำสั่งกำหนดให้โปรแกรมทำงานในสิ่งที่เราต้องการตามเหตุการณ์ (Event) ที่เกิดขึ้น<br />3.การมองแต่ละส่วนของโปรแกรมเป็นออบเจ็กต์ (Object)<br />4.ออบเจ็กต์แต่ละตัวมีคุณสมบัติหรือพร็อพเพอร์ตี้ (Property) เป็นของตัวเอง ซึ่งแต่ละคุณสมบัติสามารถกำหนดค่าให้ได้ เช่น สีโปรแกรม สีของเมนู<br />5.ออบเจ็กต์แต่ละตัวมีความสามารถหรือเมธอด(Method)เป็นของตัวเอง เช่น โปรแกรม Calculator สามารถ บวก ลบ คูณ หาร ได้<br />6.ออบเจ็กต์สามารถเกิดเหตุการณ์ต่างๆ หรือ Event เกิดขึ้นได้ เช่น การคลิก ป้อนข้อมูล หรือเลือกข้อมูล<br />7.ใน <a href="http://code-visual-basic.blogspot.com/p/about-visual-basic.html"><span style="FONT-WEIGHT: bold">Visual Basic 2008</span></a> มีออบเจ็กต์ให้ใช้งานอยู่ 2 ประเภท คือ<br />คอนโทรล(Control)เป็นออบเจ็กต์ที่สามารถมองเห็นได้ เช่น ปุ่มกด(Button) กรอกข้อความ(Textbox)<br />คอมโพเนนต์(Component)เป็นออบเจ็กต์ที่เรามองไม่เห็นเวลาที่แอพพลิเคชั่นทำงาน (ทำงานอยู่เบื้องหลัง) เช่น ตัวจัดการด้านเวลา(Timer)bnnzcsiencehttp://www.blogger.com/profile/16101421591864608132noreply@blogger.com