บทความประกอบการเรียนรู้ > เทคนิคการอินเตอร์เฟส Visual Basic
งานครั้งที่ 3 เขียนโปรแกรมพื้นฐาน 3 (คำนวณหาค่าความต้านทานวงจรอะสเตเบิล)
(1/1)
admin:
เขียนโปรแกรมหาค่าความต้านทาน R2 จากวงจรไทเมอร์ 555 Astable โดยให้ผู้ใช้งานสามารถ
1. เลือกตัวต้านทาน R1 (ComboBox,ListBox) ขณะใช้งานแก้ค่าไม่ได้
2. เลือกตัวเก็บประจุ C1 (ComboBox,ListBox) ขณะใช้งานแก้ค่าไม่ได้
3. กรอกค่าความถี่ที่ต้องการ (TextBox) ขณะใช้งานป้อนค่าได้เฉพาะตัวเลขเท่านั้น
รูปวงจรที่ใช้ประกอบในโปรแกรม
ตัวอย่างหน้าตาของโปรแกรม
admin:
ค่าความต้านทานของ R1 ที่มีให้เลือกมีค่าดังนี้
--- โค๊ด: ---
100
200
330
470
1k
2.2k
3.3k
4.7k
--- End code ---
ค่าตัวเก็บประจุ C1 ที่มีให้เลือกมีค่าดังนี้
--- โค๊ด: ---
0.01uF
0.1uF
0.47uF
1uF
4.7uF
10uF
47uF
100uF
--- End code ---
admin:
โค้ดที่ปุ่ม ComboBox ที่เมื่อมีการคลิกแล้วได้ค่าที่สามารถนำไปใช้คำนวณได้มีดังนี้
--- โค๊ด: ---
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
--- End code ---
นำร่อง
[0] ดัชนีข้อความ
Go to full version