ดู: 851|ตอบ: 3

การคำนวณหาส่วนลด [คัดลอกลิงก์]

ผู้ดูแลระบบ

Rank: 9 Rank: 9 Rank: 9

Money: 51
จิตพิศัย: 64
สมัครสมาชิกเมื่อ: 2009-12-20
เครดิต: 64
โพสต์: 136

noom โพสต์เมื่อ 2009-12-22 22:42:08 |แสดงโพสต์ทั้งหมด

ขาย vcd แผ่นละ 456 บาท ถ้าซื้อเกิน 5 ชิ้นจะได้รับส่วนลด 5% และถ้าเป็นสมาชิกด้วยจะได้รับส่วนลดอีก 5%

Module VCD
Dim qty, vcd As Integer
Dim member As String
Dim discount, sale, total As Decimal
Sub Main()
Console.WriteLine("How much VCD(s)?")
qty = Console.ReadLine()
Console.WriteLine("Member (y/n)?")
member = Console.ReadLine()
If qty > 5 AndAlso member = "y" Then
vcd = 456
sale = (vcd * 10) / 100
discount = vcd - sale
total = discount * qty
Console.WriteLine("Discount = " & discount & " bath")
Console.WriteLine("Total = " & total & " bath")
ElseIf qty > 5 OrElse member = "y" Then
vcd = 456
sale = (vcd * 5) / 100
discount = vcd - sale
total = discount * qty
Console.WriteLine("Discount = " & discount & " bath")
Console.WriteLine("Total = " & total & " bath")
Else
vcd = 456
discount = vcd
total = discount * qty
Console.WriteLine("Discount = " & discount & " bath")
Console.WriteLine("Total = " & total & " bath")
End If
End Sub
End Module

คัดลอกไปที่คลิปบอร์ด

ผันรันเมื่อซื้อเกิน 5 ชิ้นและเป็นสมาชิก

ผันรันเมื่อซื้อเกิน 5 ชิ้นแต่ไม่ได้เป็นสมาชิก

ผันรันเมื่อซื้อน้อยกว่า 5 ชิ้นแต่เป็นสมาชิก

ผันรันเมื่อซื้อน้อยกว่า 5 ชิ้นและไม่ได้เป็นสมาชิก

ใช้ไอเท็ม รายงาน

Newbie

Rank: 1

Money: 6
จิตพิศัย: 2
สมัครสมาชิกเมื่อ: 2009-12-25
เครดิต: 2
โพสต์: 6

onenonggap โพสต์เมื่อ 2009-12-25 09:13:01 |แสดงโพสต์ทั้งหมด

อยากถามรุ่นพี่ว่าถ้าเขียน Code ด้านล่างนี้ พอจะใช้ได้ป่ะครับ
Module Module1
Dim total, discount As Decimal
Dim vcd As Integer
Dim member As String
Sub Main()
      Console.WriteLine("How many vcd?(s): ")
      vcd = Console.ReadLine
      Console.WriteLine("Are you member?(y/n): ")
      member = Console.ReadLine
      If vcd > 5 AndAlso member = ("y") Then
         discount = vcd * 456 * 10 / 100
         total = vcd * 456 - discount
      ElseIf vcd > 5 AndAlso member = ("n") Then
         discount = vcd * 456 * 5 / 100
         total = vcd * 456 - discount
      ElseIf vcd <= 5 AndAlso member = ("y") Then
         discount = vcd * 456 * 5 / 100
         total = vcd * 456 - discount
      Else
         discount = vcd * 456 * 0 / 100
         total = vcd * 456 - discount
      End If
      Console.WriteLine("discount = " & discount & "baht")
      Console.WriteLine("total = " & total & "baht")
End Sub
End Module

ใช้ไอเท็ม รายงาน