บทความประกอบการเรียนรู้ => เทคนิคการอินเตอร์เฟส Visual Basic => ข้อความที่เริ่มโดย: admin ที่ พฤศจิกายน 23, 2009, 10:59:25 AM

หัวข้อ: งานครั้งที่ 3 เขียนโปรแกรมพื้นฐาน 3 (คำนวณหาค่าความต้านทานวงจรอะสเตเบิล)
เริ่มหัวข้อโดย: admin ที่ พฤศจิกายน 23, 2009, 10:59:25 AM

เขียนโปรแกรมหาค่าความต้านทาน R2 จากวงจรไทเมอร์ 555 Astable โดยให้ผู้ใช้งานสามารถ
1. เลือกตัวต้านทาน R1 (ComboBox,ListBox) ขณะใช้งานแก้ค่าไม่ได้
2. เลือกตัวเก็บประจุ C1 (ComboBox,ListBox) ขณะใช้งานแก้ค่าไม่ได้
3. กรอกค่าความถี่ที่ต้องการ (TextBox) ขณะใช้งานป้อนค่าได้เฉพาะตัวเลขเท่านั้น

รูปวงจรที่ใช้ประกอบในโปรแกรม
(https://upload.wikimedia.org/wikipedia/commons/thumb/3/3d/555_Astable_Diagram.svg/300px-555_Astable_Diagram.svg.png)

ตัวอย่างหน้าตาของโปรแกรม
(http://www.mx7.com/i/b17/WpIAa0.png)

หัวข้อ: Re: งานครั้งที่ 3 เขียนโปรแกรมพื้นฐาน 3 (คำนวณหาค่าความต้านทานวงจรอะสเตเบิล)
เริ่มหัวข้อโดย: admin ที่ พฤศจิกายน 04, 2011, 08:51:34 AM

ค่าความต้านทานของ R1 ที่มีให้เลือกมีค่าดังนี้

โค๊ด: [Select]

100
200
330
470
1k
2.2k
3.3k
4.7k

ค่าตัวเก็บประจุ C1 ที่มีให้เลือกมีค่าดังนี้

โค๊ด: [Select]

0.01uF
0.1uF
0.47uF
1uF
4.7uF
10uF
47uF
100uF

หัวข้อ: Re: งานครั้งที่ 3 เขียนโปรแกรมพื้นฐาน 3 (คำนวณหาค่าความต้านทานวงจรอะสเตเบิล)
เริ่มหัวข้อโดย: admin ที่ พฤศจิกายน 04, 2011, 09:04:14 AM

โค้ดที่ปุ่ม ComboBox ที่เมื่อมีการคลิกแล้วได้ค่าที่สามารถนำไปใช้คำนวณได้มีดังนี้

โค๊ด: [Select]

Private Sub C_Click()
     If C.Text = "1uF" Then
                       C_value = 1
     ElseIf C.Text = "2.2uF" Then C_value = 2.2
     ElseIf C.Text = "4.7uF" Then C_value = 4.7
     ElseIf C.Text = "10uF" Then C_value = 10
     ElseIf C.Text = "22uF" Then C_value = 22
     ElseIf C.Text = "47uF" Then C_value = 47
     End If
End Sub