Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,037

HOME > .NET Framework > Forum > ต้องการสร้าง RadioButton โดยกำหนดว่า ถ้า RadioButton1 = 3.5 แต่ถ้าเลือก RadioButton2 = 9.5

ต้องการสร้าง RadioButton โดยกำหนดว่า ถ้า RadioButton1 = 3.5 แต่ถ้าเลือก RadioButton2 = 9.5

เริ่มหัวข้อใหม่

TPA

โพสกระทู้ ( 3 )
บทความ ( 0 )

พอดีผมต้องการสร้าง RadioButton โดยกำหนดว่า ถ้า RadioButton1 = 3.5 แต่ถ้าเลือก RadioButton2 = 9.5

ประมาณนี้ แล้วเมื่อกดปุ่มคำนวณ ให้มันนำไปคูณ กับผลรวม ครับ

SMC

ส่วนอันนี้ ที่ผมเขียนไว้ แต่ยังไม่ได้ใส่ส่วน RadioButton

Code (VB.NET)

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            TextBox20.Text = CDbl((20 + 34 + TextBox03.Text + TextBox01.Text + TextBox03.Text + 34 + 20) *
                (TextBox02.Text) * (TextBox04.Text) * (0.00000785)) + ((20 + 34 + TextBox03.Text + 15) *
                (15 + TextBox01.Text + 15) * (TextBox04.Text) * (0.00000785) * (2)) +
                ((22 + TextBox01.Text + 22) * (22 + TextBox02.Text + 22) * (TextBox04.Text) *
                (0.00000785)) + ((20 + TextBox01.Text + 20) * (20 + TextBox02.Text + 20) *
                (TextBox04.Text) * (0.00000785))

            TextBox19.Text = CDbl(TextBox20.Text) * (120) + (NumericUpDown05.Text * 60) + (NumericUpDown06.Text * 70) +
                (NumericUpDown07.Text * 400) + (NumericUpDown08.Text * 120) + (NumericUpDown09.Text * 160) +
                (NumericUpDown10.Text * 60) + (NumericUpDown11.Text * 50) + (NumericUpDown12.Text * 65) +
                (NumericUpDown13.Text * 40) + (NumericUpDown14.Text * 50) + (NumericUpDown15.Text * 40) +
                (NumericUpDown16.Text * 30) + (NumericUpDown17.Text * 120) + (NumericUpDown18.Text * 60)

        Catch ex As Exception
            MsgBox("Error")
        End Try
    End Sub

รบกวนช่วยทีครับ ผมไม่ค่อยเป็นอะไรเลย โพส์ผิดประการใด อภัยด้วยน่ะครับ มือใหม่ โพส์แรก

Tag : .NET, VBScript, Win (Windows App), VB.NET, VS 2012 (.NET 4.x)

Date : 2015-03-04 09:26:23

By : pisanua

View : 767

Reply : 3

No. 1

Furikuri

โพสกระทู้ ( 281 )
บทความ ( 0 )

ให้เอาโค้ดในฟังก์ชั่นนี้ทั้งหมดไปสร้างเป็นอีก sub หนึ่งครับเช่น sub DisplayData
ใน DisplayData จะเอาไว้คำนวนและแสดงตัวเลขที่ได้ออกมาใน textbox
ต่อมาให้เรียกฟังชั่นนี้เวลาที่มีการเปลี่ยนแปลงเงื่อนไขต่างๆเช่น ตอนคลิกเลือก radiobutton ตอนเปลี่ยนค่าใน numericupdown
เราจะได้ไม่ต้องก็อปปี้โค้ดนี้ไปใส่ทุกปุ่มทำให้ช่วยลดการเขียนโค้ดได้เยอะ

ส่วนค่าที่คุณถามไว้ข้างบนก็แค่กำหนด value ให้กับ RadioButton ที่ต้องการครับ
ง่ายนิดเดียว (ที่เหลือยากหมด)
ขอให้มีความสุขกับการเขียนโค้ดครับ

Date : 2015-03-04 13:59:08

By : deksoke

No. 2

Furikuri

โพสกระทู้ ( 281 )
บทความ ( 0 )

ผมอ่านไม่หมดนินา แต่ไม่เป็นไรคุณก็ไม่ต้องให้เรียกใช้ sub ที่สร้างขึ้นมาใหม่ทุกครั้งทีมีการเปลี่ยนค่าก็ได้
แค่ให้ button นี้ไปเรียก displaydata ก็พอแระครับ

Date : 2015-03-04 14:01:15

By : deksoke

No. 3

TPA

โพสกระทู้ ( 3 )
บทความ ( 0 )

มึนแล้วครับ แค่กำหนด value ก็ไปไม่เป็นแล้ว ติดปัญหาอยู่ที่ว่า ถ้ากำหนดเสร็จแล้วจะให้มันเลือกยังไง

เช่น ถ้าผมติ๊ก 1 ฝา มันจะนำผลนี้มาคูณ ถ้าผมติ๊ก 2 ฝา มันจะนำผล 2 ฝา มาคูณ

อัพเดท

Code (VB.NET)

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            TextBox20.Text = CDbl((20 + 34 + TextBox03.Text + TextBox01.Text + TextBox03.Text + 34 + 20) *
                (TextBox02.Text) * (TextBox04.Text) * (0.00000785)) + ((20 + 34 + TextBox03.Text + 15) *
                (15 + TextBox01.Text + 15) * (TextBox04.Text) * (0.00000785) * (2)) +
                ((22 + TextBox01.Text + 22) * (22 + TextBox02.Text + 22) * (TextBox04.Text) *
                (0.00000785)) + ((20 + TextBox01.Text + 20) * (20 + TextBox02.Text + 20) *
                (TextBox04.Text) * (0.00000785))
      
            Dim A1 As Integer        ' Module-level variable.
            Dim A2 As Integer    ' Module-level variable.
            A1 = CDbl((TextBox20.Text * 110) * (1.005 ^ NumericUpDown1.Text)) + (NumericUpDown05.Text * 60) + (NumericUpDown06.Text * 70) +
                (NumericUpDown07.Text * 400) + (NumericUpDown08.Text * 120) + (NumericUpDown09.Text * 160) +
                (NumericUpDown10.Text * 60) + (NumericUpDown11.Text * 50) + (NumericUpDown12.Text * 65) +
                (NumericUpDown13.Text * 40) + (NumericUpDown14.Text * 50) + (NumericUpDown15.Text * 40) +
                (NumericUpDown16.Text * 30) + (NumericUpDown17.Text * 120) + (NumericUpDown18.Text * 60)

            RadioButton1 = ValueType(1)
            RadioButton2 = ValueType(1.1)
 
            TextBox19.Text = (A1) * (RadioButton2.Text Or RadioButton2.Text)

        Catch ex As Exception
            MsgBox("Error")
        End Try
    End Sub

Date : 2015-03-04 15:03:37

By : pisanua

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : ต้องการสร้าง RadioButton โดยกำหนดว่า ถ้า RadioButton1 = 3.5 แต่ถ้าเลือก RadioButton2 = 9.5

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก