Modoeye Forum

คือว่าอาจารย์สั่งให้ทำการบ้านอ่ะครับ คือผมไม่เข้าใจเลยครับ รบกวนผู้รู้ช่วยทำให้หน่อยนะครับ
โจทย์นะครับ
1. บริษัทรถยนต์แห่งหนึ่งกำหนดเงื่อนไขการขายให้กับลูกค้าดังนี้
1.1 ซื้อเงินสด ลดให้ 15 เปอร์เซนต์
2. ซื้อเงินผ่อนต้องดาวน์ 25 เปอร์เซนต์และหากชำระหมดภายใน 3 เดือน ลด 8 เปอร์เซนต์
3.ซื้อเงินผ่อน 12 เดือน คิดราคาดอกเบี้ยร้อยละ 10 จากยอดที่ดาวน์ไปแล้ว
4. ซื้อเงินผ่อน 18 เดือน คิดดอกเบี้ยร้อยละ 8.5 จากยอดคงเหลือที่ดาว์นไปแล้ว
5. ซื้อเงินผ่อน 24 เดือน คิดดอกเบี้ยร้อยละ 6.5 จากยอดคงเหลื้อที่ดาวน์ไปแล้ว

กำหนดราคารถยนต์ ราคา 653000 บาท ให้นักเรียนเขียนโปรแกรมรับค่าจำนวนเดือนที่ลูกค้าต้องการผ่อนชำรำ แล้วคำนวนเป็นยอดเงินที่ต้องชำระจริง

ขอขอบคุณมากนะครับสำหรับท่านที่สามารถทำได้หรือว่าแนะนำผม ใช้ vb ทำนะครับ ขอบคุณมากครับ  อยากได้เป็นซอร์ดโค้ดเลยนะครับ

คือแบบว่าอย่างงี้ครับ ตัวผมเองเรียน ม.5 ปีนี้ก็ยังไม่เคยเรียนคอมเลย สักกะนิด พอได้เรียนก็มาเจอกับ visual basic เนี่ย อาจารย์ที่สอนก็สอนไม่รู้เรื่องไม่รู้ว่าเต็มใจสอนหรือป่าว ให้การบ้านมาทำก็บอกว่าให้ไปถามรุ่นพี่หรืออาจารย์ที่โรงเรียนอื่นหนังสือก็ไม่มีให้ดู ว่าต้องทำอย่างไร แล้วอย่างผมเนี่ยจะรู้เรื่องมั๊ยเนี่ย ผมก็ลองศึกษาจากทางเว็บก็ยังไม่ค่อยรู้เรื่องเท่าไหร่ จึงอยากให้ admin ของเวปนี้ ช่วยสอนหน่อย จะเป็นการรบกวนไปหรือป่าวก็ไม่ทราบแต่นอกจากผมแล้วก็ยังมีเพื่อนๆในห้องอีก 20 กว่าคนที่ยังไม่รู้เรื่องvisual basic เลยสักนิดเดียว อยากรบกวนเกี่ยวกับซอร์ด โค้ดหน่ะครับ รบกวนหน่อยนะครับ

แถม...

http://www.thaibasic.com

Private Sub Command1_Click()

a = 653000
    If Option1 = False And Option2 = False Then
    MsgBox "กรุณาเลือกวิธีชำระเงิน"
    Combo1 = "เลือกวิธีชำระเงิน"
    ElseIf Option1 = True Then 'ชำระเงินสด
    dis = a * 0.15
    Text2 = Val(a) - Val(dis)
    Text2 = Format(Val(Text2), "##,##0.00")
    Exit Sub
    ElseIf Option2 = True Then 'ชำระเงินผ่อน
        If Combo1.ListIndex = "0" Then   ' ชำระก่อน 3 เดือน
        down = a * 0.25
        Sum = a - down
        dis = Sum * 0.08
        Text2 = Sum + down - dis
        Text2 = Format(Val(Text2), "##,##0.00")
        ElseIf Combo1.ListIndex = "1" Then  ' ชำระ 12 เดือน 
        down = a * 0.25
        interest = down * 0.1
        Sum = a - down
        Text2 = Sum + interest + down
        Text2 = Format(Val(Text2), "##,##0.00")
        ElseIf Combo1.ListIndex = "2" Then   ' ชำระ 18 เดือน
        down = a * 0.25
        Sum = a - down
        interest = Sum * 0.085
        Text2 = Sum + interest + down
        Text2 = Format(Val(Text2), "##,##0.00")
        ElseIf Combo1.ListIndex = "3" Then   ' ชำระ 24 เดือน
        down = a * 0.25
        Sum = a - down
        interest = Sum * 0.065
        Text2 = Sum + interest + down
        Text2 = Format(Val(Text2), "##,##0.00")
        Else
        MsgBox "กรุณาจำนวนเดือนที่ชำระ"
        Option2 = False
        End If
    End If

            เครื่องมือที่ใช้ มี text, option, combo, command

..... ผมเอา Sorce Code มาให้ดูเป็นแนวทางแค่นี้ละกัลนะครับ หรืออยากทราบรายละเอียด ก็ add มาได้  หรือมีตรงไหนผิดพลาด ขออภัยด้วย - -* โจทย์อ่านแล้ว ไม่เคลียร์อ่ะ