 |
| |
อยากทราบวิธีการกำหนดค่าให้ Radiobutton และวิธีการบวกค่าของแต่ละปุ่มเมื่อ checked |
| |
 |
|
|
 |
 |
|
อันที่จริงก็ไม่น่าจะยากน่ะครับ แค่แทนที่ค่าตัวแปร บวกกันธรรมดา (ลองเอา Code ที่เขียนไว้คร่าว ๆ มาดูหน่อยครับ  )
|
 |
 |
 |
 |
| Date :
2013-04-22 09:23:15 |
By :
mr.win |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ประมาณนี้อะครับ อาจารย์ ผิดพลาดตรงไหน ขอคำชี้แนะด้วย (มือใหม่)
Public Class ตรวจ
Dim sum As Integer
Dim a34, a39, a44, a49, a50 As Integer
Private Sub ตรวจ_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles age50.CheckedChanged
End Sub
Private Sub ออกจากโปรแกรมToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ออกจากโปรแกรมToolStripMenuItem.Click
Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim man As Integer
If men.Checked = True Then
man = 2
End If
Dim girl As Integer
If female.Checked = True Then
girl = 0
End If
If age34.Checked = True Then
a34 = 0
End If
If age39.Checked = True Then
a39 = 0
End If
If age44.Checked = True Then
a44 = 0
End If
If age49.Checked = True Then
a49 = 1
End If
If age50.Checked = True Then
a50 = 2
End If
sum = a34 + a39 + a44 + a49 + a50 + man + girl
Label1.Text = sum
End Sub
Private Sub age34_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles age34.CheckedChanged
End Sub
Private Sub age39_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles age39.CheckedChanged
End Sub
Private Sub age44_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles age44.CheckedChanged
End Sub
Private Sub age49_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles age49.CheckedChanged
End Sub
Private Sub men_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles men.CheckedChanged
End Sub
Private Sub female_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles female.CheckedChanged
End Sub
End Class
|
| |
|
|
| |
| Date :
2013-04-22 17:21:47 |
By :
Mickey |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
แบบนี้ก็ได้นะครับ
ว่าแต่ค่าที่ออกมามันถูกมั้ยครับ??
|
| |
|
|
| |
| Date :
2013-04-22 17:59:19 |
By :
CPU4Core |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ค่าที่ออกมามัน ไม่ถูกต้องครับ ติดลบ2 ซะงั้น
ผมก็ไม่รู้ว่ามันมาได้ยังไง แนะนำทึครับ
|
| |
|
|
| |
| Date :
2013-04-22 18:09:18 |
By :
Mickey |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอดูวิธีคำณวน ครับ ว่า ถ้าคลิก ตัวไหนแล้ว จะมีคะแนนเท่าไร
จริงในโค๊ดก็มีนะครับ แต่ผมกลัวว่ามันผิดเลยขอใหม่
ปล อันนี้ทำงานโรงพยาบาลหรอครับ พอบอกได้ไหม โรงพยาบาลไหน พอดีผมเคยทำงานที่บริษัทแห่งหนึ่งที่ผลิตซอฟต์แวร์บริหารโรงพยาบาลครับ
|
| |
|
|
| |
| Date :
2013-04-22 18:56:10 |
By :
CPU4Core |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
อันนี้ลองทำดูเล่นๆ เห็นมันอยู่ในหนังสือ บทเรียนอะครับ แต่ไม่มีโค้ด ให้มีแต่หน้าตามาประมาณนี้
แต่ถ้ามัน สำเร็จก็คงเอาไปเสนอให้โรงพยาบาลแถวบ้านอะครับ (ไม่รู้ว่าใช้หาอะไร) 
|
| |
|
|
| |
| Date :
2013-04-22 20:36:57 |
By :
Mickey |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ทำได้แล้วนะครับ พี่ๆ เพื่อนๆ ทุกคน ขอขอบคุณทุกคำแนะนำดีๆ นะครับ :D
|
| |
|
|
| |
| Date :
2013-04-22 23:24:21 |
By :
Mickey |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
