VB 2008 ตัวอย่าง Floating – Point Math

ขั้นตอนต่างๆก็เริ่มเหมือนทุกๆๆครั้งตามนี้

1. สร้าง Windows Forms Application ใน project ของ ?Visual Studio 2008 โดยตั้งชื่อว่า Floating Point

Math . หลังจากนั้นทำการสร้างปุ่ม โดยตั้งชื่อว่า btnFloatMath โดยกำหนดใน property name และ text กำหนดเป็น Double Test

2. Double ? click ที่ปุ่ม btnFloatMath แล้วทำการเพิ่มโค้ดในส่วนที่ยังไม่มี
[sourcecode language=”vb”]
Private Sub btnFloatMath_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles btnFloatMath.Click

?Delcare variable

Dim dblNumber As Double

?Set number, multiply numbers, and display results

dblNumber = 45.34

dblNumber *= 4.333

MessageBox.Show(?Multiplication test… ? & dblNumber.ToString, _

?Floating Points?)

?Set number, divide numbers, and display results

dblNumber = 12

dblNumber /= 7

MessageBox.Show(?Division test… ? & dblNumber.ToString, _

?Floating Points?)

End Sub
[/sourcecode]
4. กด F5 รันโปรแกรม

ขั้นตอนในการทำงาน

ขั้นแรกก็ประกาศตัวแปรที่ชื่อว่า dblNumber ที่เป็นชนิด Double

?Declare variable

Dim dblNumber As Double

หลังจากนั้นก็กำหนดค่าให้มันเพื่อทีจะทำการ คูณและหาร ซึ่งได้กำหนดให้ เท่ากับ 45.34 แล้วทำการคูณด้วย 4.333แล้วเก็บที่ตัวแปรเดิมจากนั้นก็แสดงกล่องข้อความพร้อมผลลัพท์ค่าตัวแปร dblNumber ออกมาเป็นข้อความ

?Set number, multiply numbers, and display results

dblNumber = 45.34

dblNumber *= 4.333

MessageBox.Show(?Multiplication test… ? & dblNumber.ToString, _

?Floating Points?)

ซึ่งตอนเรารันโปรแกรมจะเห็นผลลัพท์เป็น 196.45822

ต่อไปก็จะกำหนดค่าแล้วทำการหารโดยกำหนดให้ dblNumber เป็น 12 แล้วหารด้วย 7 แล้วเก็บผมลัพท์ไว้ที่ตัวมันเองจากนั้นก็แสดงผลลัพท์ ซึ่งจะได้ค่าเป็น 1.71428571428571

?Set number, divide numbers, and display results

dblNumber = 12

dblNumber /= 7

MessageBox.Show(?Division test… ? & dblNumber.ToString, _

?Floating Points?)

Source Code

Leave a Reply

Your email address will not be published. Required fields are marked *