งานครั้งที่ 3 เขียนโปรแกรมพื้นฐาน 3 (คำนวณหาค่าความต้านทานวงจรอะสเตเบิล)

[admin]

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

รูปวงจรที่ใช้ประกอบในโปรแกรม


ตัวอย่างหน้าตาของโปรแกรม

[admin]

ค่าความต้านทานของ 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

[admin]

โค้ดที่ปุ่ม 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