4121103 lec04 flowchart vb net l.
Download
Skip this Video
Loading SlideShow in 5 Seconds..
การเขียนโปรแกรมคอมพิวเตอร์ และอัลกอรทึ่ม (4121103) Lec04 : [ การแปลงจาก FlowChart เป็นคำสั่งใน VB.NET ] PowerPoint Presentation
Download Presentation
การเขียนโปรแกรมคอมพิวเตอร์ และอัลกอรทึ่ม (4121103) Lec04 : [ การแปลงจาก FlowChart เป็นคำสั่งใน VB.NET ]

Loading in 2 Seconds...

play fullscreen
1 / 24

การเขียนโปรแกรมคอมพิวเตอร์ และอัลกอรทึ่ม (4121103) Lec04 : [ การแปลงจาก FlowChart เป็นคำสั่งใน VB.NET ] - PowerPoint PPT Presentation


  • 153 Views
  • Uploaded on

การเขียนโปรแกรมคอมพิวเตอร์ และอัลกอรทึ่ม (4121103) Lec04 : [ การแปลงจาก FlowChart เป็นคำสั่งใน VB.NET ]. โดย อ. นัฐพงศ์ ส่งเนียม http://www.siam2dev.com xnattapong@hotmail.com. เนื้อหา. การประกาศตัวแปร Flowchart ในการคำนวณภาษี 10% โปรแกรมหาค่า 1+2+3+4+…100

loader
I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.
capcha
Download Presentation

การเขียนโปรแกรมคอมพิวเตอร์ และอัลกอรทึ่ม (4121103) Lec04 : [ การแปลงจาก FlowChart เป็นคำสั่งใน VB.NET ]


An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript
4121103 lec04 flowchart vb net

การเขียนโปรแกรมคอมพิวเตอร์ และอัลกอรทึ่ม (4121103)Lec04 : [ การแปลงจาก FlowChart เป็นคำสั่งใน VB.NET ]

โดย อ. นัฐพงศ์ ส่งเนียม

http://www.siam2dev.com

xnattapong@hotmail.com

slide2
เนื้อหา
  • การประกาศตัวแปร
  • Flowchart ในการคำนวณภาษี 10%
  • โปรแกรมหาค่า 1+2+3+4+…100
  • โปรแกรม วนลูปหาค่า รับค่า First และ Last แล้วหาค่าตั้งแต่ First … Last
  • โปรแกรมเครื่องคิดเลข และคำนวณพื้นที่ต่าง ๆ
slide3
การประกาศตัวแปร
  • ประเภทของการประกาศค่าตัวแปร
    • Global variable
    • Local variable
  • ชนิดข้อมูล
    • Integer :: byte , short , Integer, Long
    • Floation-Point :: single , double
    • Textual :: char , String
    • Boolean ::
    • Date
    • Object
slide4
ต.ย. การประกาศตัวแปร
  • คำสั่งที่ใช้ในการประกาศตัวแปร
    • Dim
    • Public
    • Private
  • ต.ย.
    • Dim A as int16
    • Dim Num as byte
    • Dim Str as String
    • Dim Sum as Double
    • Dim Found as Boolean
    • Dim BOD as Date
flowchart 10

START

Input salary

Tax = salary * 0.1

Print

salary, tax

STOP

รูปที่ 7

Flowchart ในการคำนวณภาษี 10%

เราต้องการเขียน Flowchart เพื่อคำนวณภาษีที่

พนักงานต้องชำระ อัตราภาษี 10%

Flowchart ดังกล่าวกำหนดให้ผู้ใช้ป้อนค่าเงินเดือน

(salary) แล้วเครื่องจะทำการคำนวณ ภาษี (tax)

10% ให้โดยอัตโนมัติ และจะพิมพ์ค่า salary กับ

TAX

Output ที่เราต้องการก็คือ salary และ tax

(การสั่งพิมพ์ขึ้นอยู่ที่เราว่าเราต้องการให้พิมพ์อะไร

ไม่จำเป็นต้องพิมพ์ salary, tax ตามตัวอย่างก็ได้

เราอาจสั่งพิมพ์ tax อย่างเดียวก็ได้

flowchart 106

START

Input salary

Tax = salary * 0.1

Print

salary, tax

STOP

รูปที่ 7

Flowchart ในการคำนวณภาษี 10%

จาก Flowchart เราสามารถออกแบบหน้าจอได้ดังนี้

flowchart 107

START

Input salary

Tax = salary * 0.1

Print

salary, tax

STOP

รูปที่ 7

Flowchart ในการคำนวณภาษี 10%

จาก Flowchart เราสามารถออกแบบหน้าจอได้ดังนี้

Private sub button1_click()

Dim sal as int16

Dim TAX as double=0.0

Sal = Textbox1.text

TAX = sal*0.1

Label1.text = sal & “ ” & TAX

End sub

flowchart 1 2 3 10

START

X = 1

TOTAL = 0

TOTAL = TOTAL + X

X = X + 1

X > 100

N

Y

Print TOTAL

STOP

รูปที่ 8

Flowchart วนลูปหาผลรวมตั้งแต่ 1+2+3+..10

จาก Flowchart เราสามารถออกแบบหน้าจอได้ดังนี้

slide9

Flowchart วนลูปหาผลรวมตั้งแต่ 1+2+3+..10

PrivateSub BtnCal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCal.Click

Dim i As Int16

Dim Total As Int32

For i = 1 To 100

Total = Total + i

Next i

Label1.Text = Total

EndSub

slide10

START

Input Salary

1

Tax = salary * 0.1

รูปที่ 16

2

Print

salary, tax

3

Input salary

Y

4

Salary = 0 0

STOP

N

slide11

START

Input salary

Tax = salary * 0.1

รูปที่ 17

T_sal = T_sal + salary

T_tax = T_tax + tax

Print

salary, tax

Input salary

Salary = 0 0

N

Y

Print

T_sal, T_tax

STOP

  • ACCUMULATION (การสะสมค่า)

ในการเขียน Flowchart ทางธุรกิจส่วนใหญ่จะต้องการให้หายอดรวม เช่น หายอดรวมเงินเดือนของพนักงานทุกคน หายอดรวมของเงินภาษี ฯลฯ ในการเขียน Flowchart เราจะใช้วิธีสะสมค่า โดยกำหนด ตัวแปรที่ไว้สำหรับเก็บค่าสะสม = ตัวแปรที่ไว้สำหรับเก็บค่าสะสม + ตัวแปรที่ต้องการสะสม

slide12

START

Input salary

1

Tax = salary * 0.1

รูปที่ 18

2

T_sal = T_sal + salary

T_tax = T_tax + tax

3

Print

salary, tax

4

Input salary

N

5

Salary = 0 0

Y

Print

T_sal, T_tax

STOP

  • COUNTING (การนับ)

เช่นเดียวกับการสะสมค่า การนับก็คือการประมวลผลอย่างหนึ่งที่มักจะทำในการประมวลผลทางธุรกิจ ตัวอย่างเช่นนับจำนวนพนักงานที่คำนวณว่ามีกี่คน นับจำสินค้าที่ลูกค้าซื้อว่ามีกี่ชิ้น ฯลฯ จากตัวอย่างในการคำนวณภาษี นอกจากหายอดรวมของ Salary แล้วเราอาจจะเขียน Flowchart ให้ระบบนับว่ามีพนักงานทั้งสิ้นกี่คน

slide13

START

Input salary

Tax = salary * 0.1

T_sal = T_sal + salary

T_tax = T_tax + tax

รูปที่ 19

T_count = T_count+1

Print

salary, tax

Input salary

N

Salary = 0 0

Y

Print

T_sal, T_tax

STOP

  • COUNTING (การนับ)

เช่นเดียวกับการสะสมค่า การนับก็คือการประมวลผลอย่างหนึ่งที่มักจะทำในการประมวลผลทางธุรกิจ ตัวอย่างเช่นนับจำนวนพนักงานที่คำนวณว่ามีกี่คน นับจำสินค้าที่ลูกค้าซื้อว่ามีกี่ชิ้น ฯลฯ จากตัวอย่างในการคำนวณภาษี นอกจากหายอดรวมของ Salary แล้วเราอาจจะเขียน Flowchart ให้ระบบนับว่ามีพนักงานทั้งสิ้นกี่คน

slide14

START

Input salary

Salary

<= 10000

Y

N

Tax = 0

Tax = salary * 0.1

จุด Yes และ No เจอกัน

T_sal = T_sal + salary

T_tax = T_tax + tax

T_count = T_count+1

Print

salary, tax

รูปที่ 20

Input salary

Salary = 0 0

Y

N

Print

T_sal, T_tax

STOP

  • SELECTION (ทางเลือก)

ในการเขียน Flowchart เพื่อประมวลผล เราจะพบว่าบางกรณีระบบจะต้อง ทำการเลือก (การเลือก ตัดสินใจ หรือเงื่อนไข เป็นคำที่มีความหมายเดียวกัน) เช่น พนักงาน เงินเดือนต่ำกว่า 10,000 บาท ไม่ต้องเสียภาษี ตั้งแต่ 10,000 บาทขึ้นไปเสีย 10% ระบบจะต้องทำการเลือกว่าจะให้พนักงานที่อ่านค่าเงินเดือนเข้ามาเสียภาษีเท่าไหร่

slide15

START

Input salary

Salary

<= 10000

Y

N

Tax = 0

Tax = salary * 0.1

T_sal0= T_sal0+ salary

T_tax0= T_tax0+ tax

T_count0 =T_count0+1

T_sal10= T_sal10+ salary

T_tax10= T_tax10+ tax

T_count10=T_count10+1

คำนวณ แยก

T_sal = T_sal + salary

T_tax = T_tax + tax

T_count=T_count+1

คำนวณ แยก

คำนวณรวม

Print

salary, tax

Input salary

รูปที่ 21

N

Salary = 0 0

Y

Print

T_sal, T_tax,T_count

STOP

slide16

START

Input salary

Salary

<= 10000

Y

N

Tax = 0

Tax = salary * 0.1

T_sal0= T_sal0+ salary

T_tax0= T_tax0+ tax

T_count0 =T_count0+1

T_sal10= T_sal10+ salary

T_tax10= T_tax10+ tax

T_count10=T_count10+1

Print

salary, tax

Input salary

รูปที่ 22

N

Salary = 0 0

Y

T_sal = T_sal0 + T_sal10

T_tax = T_tax0 + T_tax10

T_count=T_count0 + T_count10

Print

T_sal0, T_tax0, T_count0,

T_sal10, T_tax10, T_count10,

T_sal, T_tax, T_count

STOP

btnok
คำสั่งในปุ่ม BtnOK

PrivateSub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click

Dim num1 As Int16

Dim num2 As Int16

num1 = Val(Txt1.Text)

num2 = Val(Txt2.Text)

If r1.Checked = TrueThen

LbResult.Text = num1 + num2

ElseIf r2.Checked = TrueThen

LbResult.Text = num1 - num2

ElseIf r3.Checked = TrueThen

LbResult.Text = num1 * num2

ElseIf r4.Checked = TrueThen

LbResult.Text = num1 / num2

ElseIf r5.Checked = TrueThen

LbResult.Text = num1 ^ num2

ElseIf r6.Checked = TrueThen

LbResult.Text = Math.Sqrt(num1)

EndIf

EndSub

cancel
คำสั่งในปุ่ม Cancel

PrivateSub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click

Txt1.Clear()

Txt2.Clear()

LbResult.Text = ""

Txt1.Focus()

r1.Checked = True

EndSub

slide20
คำสั่งในปุ่ม Exit

Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click

Dim msgresult As MsgBoxResult

msgresult = MsgBox("คุณต้องการออกจากโปรแกรมหรือไม่" _

, MsgBoxStyle.YesNoCancel, "My Project")

If msgresult = MsgBoxResult.Yes Then

Close()

Else

End If

End Sub

radiobutton7
ต.ย. คำสั่งใน RadioButton7

PrivateSub r7_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles r7.Click

' สั่งให้ ค่าที่ 2 และ 3 หายไป

Lb2.Visible = False

Txt2.Visible = False

Lb3.Visible = False

Txt3.Visible = False

EndSub

radiobutton8
ต.ย. คำสั่งใน RadioButton8

PrivateSub r8_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles r8.Click

Lb1.Visible = True

Txt1.Visible = True

Lb2.Visible = True

Txt2.Visible = True

Lb3.Visible = False

Txt3.Visible = False

EndSub

radiobutton9
ต.ย. คำสั่งใน RadioButton9

PrivateSub r9_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles r9.Click

Lb1.Visible = True

Txt1.Visible = True

Lb2.Visible = True

Txt2.Visible = True

Lb3.Visible = False

Txt3.Visible = False

EndSub

radiobutton10
ต.ย. คำสั่งใน RadioButton10

PrivateSub r10_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles r10.Click

' โค้ในส่วน พ.ท. สี่เหลี่ยมคางหมู

Lb1.Visible = True

Txt1.Visible = True

Lb2.Visible = True

Txt2.Visible = True

Lb3.Visible = True

Txt3.Visible = True

EndSub