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

admin

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

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


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



« แก้ไขครั้งสุดท้าย: พฤศจิกายน 15, 2016, 10:09:49 AM โดย admin »

admin

  • Administrator
  • Hero Member
  • *****
  • กระทู้: 706
    • ดูรายละเอียด
    • อีเมล์
ค่าความต้านทานของ 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
« แก้ไขครั้งสุดท้าย: พฤศจิกายน 15, 2016, 10:11:21 AM โดย admin »

admin

  • Administrator
  • Hero Member
  • *****
  • กระทู้: 706
    • ดูรายละเอียด
    • อีเมล์
โค้ดที่ปุ่ม 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