ครั้งที่ 5 โปรแกรมเรียกคิว

[admin]

-สามารถกำหนดช่องบริการได้ 1-4 ช่อง
-การเรียกหมายเลขใช้ปุ่ม F1-F4 โดย
  F1 เรียกหมายเลขมาช่องบริการที่ 1
  F2 เรียกหมายเลขมาช่องบริการที่ 2
  F3 เรียกหมายเลขมาช่องบริการที่ 3
  F4 เรียกหมายเลขมาช่องบริการที่ 4

  F12 ออกจากหน้าต่างการบริการสู่หน้าต่างโปรแกรมควบคุม

[admin]

ชุดฟังก์ชั่นการอ่านการกดคีย์

โค๊ด:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyF1 Then
      num = num + 1
      Label1.Caption = Format(num, "00#")
  ElseIf KeyCode = vbKeyF2 Then
      num = num + 1
      Label2.Caption = Format(num, "00#")
   End If
End Sub

แต่จะทำงานได้ก็ต่อเมื่อ พร๊อพเปอร์ตี้ของ Form ที่กำลังทำงานอยู่ในส่วนของ KeyPreveiw=Ture เท่านั้น

[hoikai]

นาบอธิพันธ์  ศรีห้วยไพร
นายสายทอง โสโพธิ์ทอง
อิเล็กทรอนิกส์  E3

โค๊ด:

Option Explicit

Dim num As Integer
Private Sub Command1_Click()
 num = num + 1
     Label1.Caption = Format(num, "00#")
End Sub
Private Sub Command2_Click()
 num = num + 1
     Label2.Caption = Format(num, "00#")
End Sub
Private Sub Command3_Click()
 num = num + 1
     Label3.Caption = Format(num, "00#")
End Sub
Private Sub Command4_Click()
 num = num + 1
     Label4.Caption = Format(num, "00#")
End Sub
Private Sub Command5_Click()
End
End Sub

Private Sub Command6_Click()
num = 0
Label1.Caption = Format(num, "#")
Label2.Caption = Format(num, "#")
Label3.Caption = Format(num, "#")
Label4.Caption = Format(num, "#")
End Sub

Private Sub Command7_Click()
Form2.Show
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyF1 Then
      num = num + 1
      Label1.Caption = Format(num, "00#")
  ElseIf KeyCode = vbKeyF2 And Option1.Value = False Then
      num = num + 1
      Label2.Caption = Format(num, "00#")
  ElseIf KeyCode = vbKeyF3 And Option1.Value = False And Option2.Value = False Then
      num = num + 1
      Label3.Caption = Format(num, "00#")
  ElseIf KeyCode = vbKeyF4 And Option1.Value = False And Option3.Value = False And Option2.Value = False Then
      num = num + 1
      Label4.Caption = Format(num, "00#")
  ElseIf KeyCode = vbKeyF12 Then
  End
   End If
End Sub
Private Sub Option3_Click()
num = 0
Command4.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Label4.Enabled = False
Label1.Enabled = True
Label2.Enabled = True
Label3.Enabled = True
Label1.Caption = Format(num, "#")
Label2.Caption = Format(num, "#")
Label3.Caption = Format(num, "#")
Label4.Caption = Format(num, "#")

End Sub
Private Sub Option2_Click()
num = 0
Command3.Enabled = False
Command4.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
Label4.Enabled = False
Label1.Enabled = True
Label2.Enabled = True
Label3.Enabled = False
Label1.Caption = Format(num, "#")
Label2.Caption = Format(num, "#")
Label3.Caption = Format(num, "#")
Label4.Caption = Format(num, "#")

End Sub
Private Sub Option1_Click()
num = 0
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command1.Enabled = True
Label4.Enabled = False
Label1.Enabled = True
Label2.Enabled = False
Label3.Enabled = False
Label1.Caption = Format(num, "#")
Label2.Caption = Format(num, "#")
Label3.Caption = Format(num, "#")
Label4.Caption = Format(num, "#")

End Sub
Private Sub Option4_Click()
num = 0
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command1.Enabled = True
Label4.Enabled = True
Label1.Enabled = True
Label2.Enabled = True
Label3.Enabled = True
Label1.Caption = Format(num, "#")
Label2.Caption = Format(num, "#")
Label3.Caption = Format(num, "#")
Label4.Caption = Format(num, "#")

End Sub

[somphop_teebuaban]

นายสมภพ  ทีบัวบาน
น.ส.สุดาพร  สมัตถะ
ห้อง E1

โค๊ด:

Option Explicit
Dim tem As Integer

Private Sub Command1_Click()
Form2.Show
Form1.Hide
End Sub

Private Sub Command2_Click()
Form3.Show
Form1.Hide
End Sub
Private Sub Command3_Click()
Form4.Show
Form1.Hide
End Sub
Private Sub Command4_Click()
Form5.Show
Form1.Hide
End Sub

Private Sub Command6_Click()
End
End Sub

Private Sub Command7_Click()
Form6.Show
End Sub

โค๊ด:

Option Explicit
Dim num As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
            Case vbKeyF1
                    num = num + 1
                    LED1.Number = num
                     Case vbKeyF12
                    Form2.Hide
                    Form1.Show
                   End Select
                 
           End Sub
Private Sub Form_Load()
Form2.Top = 0
Form2.Left = 0
Form2.Width = Screen.Width
Form2.Height = Screen.Height
 LED1.Top = Form2.Height / 2 - LED1.Height / 2
LED1.Left = Form2.Width / 2 - LED1.Width / 2
End Sub

โค๊ด:

Option Explicit
Dim ccc As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
            Case vbKeyF1
                   ccc = ccc + 1
                    LED2.Number = ccc
              Case vbKeyF2
                     ccc = ccc + 1
                    LED3.Number = ccc
                     Case vbKeyF12
                    Form3.Hide
                    Form1.Show
                                  End Select
           End Sub

Private Sub Form_Load()
Form3.Top = 0
Form3.Left = 0
Form3.Width = Screen.Width
Form3.Height = Screen.Height
 LED2.Top = Form3.Height / 2 - LED2.Height / 2 - LED3.Height / 2
LED2.Left = Form3.Width / 2 - LED2.Width / 2 - LED3.Width / 2
LED3.Left = Form3.Width / 2 - LED2.Width / 2 - LED3.Width / 2
End Sub

โค๊ด:

Option Explicit
Dim zzz As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
            Case vbKeyF1
                  zzz = zzz + 1
                    LED4.Number = zzz
              Case vbKeyF2
                    zzz = zzz + 1
                    LED5.Number = zzz
              Case vbKeyF3
                    zzz = zzz + 1
                    LED6.Number = zzz
                     Case vbKeyF12
                    Form4.Hide
                    Form1.Show
                                  End Select
           End Sub

Private Sub Form_Load()
Form4.Top = 0
Form4.Left = 0
Form4.Width = Screen.Width
Form4.Height = Screen.Height
 LED4.Top = Form4.Height / 2 - LED4.Height / 2 - LED5.Height / 2 - LED6.Height / 2
LED4.Left = Form4.Width / 2 - LED4.Width / 2 - LED5.Width / 2 - LED6.Width / 2
LED5.Left = Form4.Width / 2 - LED4.Width / 2 - LED5.Width / 2 - LED6.Width / 2
LED6.Left = Form4.Width / 2 - LED6.Width / 2 - LED5.Width / 2 - LED4.Width / 2
End Sub

โค๊ด:

Option Explicit

Dim xxx As Integer




Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
            Case vbKeyF1
                  xxx = xxx + 1
                    LED7.Number = xxx
              Case vbKeyF2
                    xxx = xxx + 1
                    LED8.Number = xxx
              Case vbKeyF3
                    xxx = xxx + 1
                    LED9.Number = xxx
              Case vbKeyF4
                   xxx = xxx + 1
                    LED10.Number = xxx
                    Case vbKeyF12
                    Form5.Hide
                    Form1.Show
                                  End Select
           End Sub

Private Sub Form_Load()
Form5.Top = 0
Form5.Left = 0
Form5.Width = Screen.Width
Form5.Height = Screen.Height
 LED7.Top = Form5.Height / 2 - LED7.Height / 2 - LED8.Height / 2 - LED9.Height / 2 - LED10.Height / 2
LED7.Left = Form5.Width / 2 - LED7.Width / 2 - LED8.Width / 2 - LED9.Width / 2 - LED10.Width / 2
LED8.Left = Form5.Width / 2 - LED8.Width / 2 - LED7.Width / 2 - LED9.Width / 2 - LED10.Width / 2
LED9.Left = Form5.Width / 2 - LED9.Width / 2 - LED7.Width / 2 - LED8.Width / 2 - LED10.Width / 2
LED10.Left = Form5.Width / 2 - LED10.Width / 2 - LED7.Width / 2 - LED8.Width / 2 - LED9.Width / 2
End Sub

[E2_watcharapon]

นายปรีชา   ไพศาลพันธ์
นายวัชรพล   ศรีวงษ์ชัย
ชั้น ปวส.2 ชอ. E2

โค๊ด:

Option Explicit
Dim res As Integer
Private Sub Command1_Click()
            Form2.Show
           
End Sub
Private Sub Command2_Click()
            Form3.Show
           
End Sub
Private Sub Command3_Click()
            Form4.Show
           
End Sub
Private Sub Command4_Click()
            Form5.Show
           
End Sub

Private Sub Command5_Click()
            Form6.Show
           
End Sub

Private Sub Command6_Click()
                End
               
End Sub

โค๊ด:

Option Explicit
Dim num As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyF1 Then
      num = num + 1
       Form2.Label7 = Format(num, "00#")
        ElseIf KeyCode = vbKeyF12 Then
              Form2.Hide
   End If
End Sub

Private Sub Form_Load()
  Form2.Top = 0
  Form2.Left = 0
  Form2.Width = Screen.Width
  Form2.Height = Screen.Height
 
End Sub

โค๊ด:

Option Explicit
Dim num As Integer


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyF1 Then
      num = num + 1
       Form3.Label9 = Format(num, "00#")
        ElseIf KeyCode = vbKeyF2 Then
      num = num + 1
      Form3.Label2 = Format(num, "00#")
        ElseIf KeyCode = vbKeyF12 Then
              Form3.Hide
             
   End If
End Sub
Private Sub Form_Load()
  Form3.Top = 0
  Form3.Left = 0
  Form3.Width = Screen.Width
  Form3.Height = Screen.Height
 
End Sub

โค๊ด:

Option Explicit
Dim num As Integer


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyF1 Then
      num = num + 1
       Form4.Label9 = Format(num, "00#")
        ElseIf KeyCode = vbKeyF2 Then
      num = num + 1
      Form4.Label2 = Format(num, "00#")
      ElseIf KeyCode = vbKeyF3 Then
      num = num + 1
      Form4.Label4 = Format(num, "00#")
        ElseIf KeyCode = vbKeyF12 Then
              Form4.Hide
             
   End If
End Sub
Private Sub Form_Load()
  Form4.Top = 0
  Form4.Left = 0
  Form4.Width = Screen.Width
  Form4.Height = Screen.Height
 
End Sub

โค๊ด:

Option Explicit
Dim num As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyF1 Then
      num = num + 1
       Form5.Label9 = Format(num, "00#")
        ElseIf KeyCode = vbKeyF2 Then
      num = num + 1
      Form5.Label2 = Format(num, "00#")
      ElseIf KeyCode = vbKeyF3 Then
      num = num + 1
      Form5.Label4 = Format(num, "00#")
            ElseIf KeyCode = vbKeyF4 Then
      num = num + 1
      Form5.Label5 = Format(num, "00#")
        ElseIf KeyCode = vbKeyF12 Then
              Form5.Hide
             
   End If
End Sub
Private Sub Form_Load()
  Form5.Top = 0
  Form5.Left = 0
  Form5.Width = Screen.Width
  Form5.Height = Screen.Height
 
End Sub

[E1kittipong]

นายกิตติพงษ์ เจริญทรัพย์
นายสุทธิพงษ์  มั่นคง
ชอ.E1

โค๊ด:

Option Explicit
Dim miniarm As Integer
Private Sub Command1_Click()
Form2.Show
Form1.Hide
End Sub

Private Sub Command2_Click()
Form3.Show
Form1.Hide
End Sub

Private Sub Command3_Click()
Form4.Show
Form1.Hide
End Sub

Private Sub Command4_Click()
Form5.Show
Form1.Hide
End Sub

Private Sub Command5_Click()
End
End Sub

โค๊ด:

Option Explicit
Dim arm As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
            Case vbKeyF1
                    arm = arm + 1
                    Label3.Caption = Format(arm, "00#")
                     Case vbKeyF12
                    Form2.Hide
                    Form1.Show
                   End Select
End Sub
Private Sub Form_Load()
Form2.Top = 0
Form2.Left = 0
Form2.Width = Screen.Width
Form2.Height = Screen.Height

End Sub

โค๊ด:

Option Explicit
Dim tum As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
            Case vbKeyF1
                   tum = tum + 1
                    Label5.Caption = Format(tum, "00#")
              Case vbKeyF2
                     tum = tum + 1
                    Label6.Caption = Format(tum, "00#")
                     Case vbKeyF12
                    Form3.Hide
                    Form1.Show
              End Select
             
End Sub

Private Sub Form_Load()
Form3.Top = 0
Form3.Left = 0
Form3.Width = Screen.Width
Form3.Height = Screen.Height
End Sub

โค๊ด:

Option Explicit
Dim tum1 As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
            Case vbKeyF1
                  tum1 = tum1 + 1
                    Label7.Caption = Format(tum1, "00#")
              Case vbKeyF2
                    tum1 = tum1 + 1
                    Label8.Caption = Format(tum1, "00#")
              Case vbKeyF3
                   tum1 = tum1 + 1
                    Label9.Caption = Format(tum1, "00#")
                     Case vbKeyF12
                    Form4.Hide
                    Form1.Show
         End Select
End Sub

Private Sub Form_Load()
Form4.Top = 0
Form4.Left = 0
Form4.Width = Screen.Width
Form4.Height = Screen.Height
 
End Sub

โค๊ด:

Option Explicit
Dim tum2 As Integer




Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
            Case vbKeyF1
                  tum2 = tum2 + 1
                    Label9.Caption = Format(tum2, "00#")
              Case vbKeyF2
                    tum2 = tum2 + 1
                    Label12.Caption = Format(tum2, "00#")
              Case vbKeyF3
                    tum2 = tum2 + 1
                    Label10.Caption = Format(tum2, "00#")
              Case vbKeyF4
                   tum2 = tum2 + 1
                    Label11.Caption = Format(tum2, "00#")
                    Case vbKeyF12
                    Form5.Hide
                    Form1.Show
              End Select
End Sub

Private Sub Form_Load()
Form5.Top = 0
Form5.Left = 0
Form5.Width = Screen.Width
Form5.Height = Screen.Height
 
End Sub

[Sinver_Black]

นายอัครเดช  แก่นจันทร์ดา
นายสุดรัก  วงศ์กลม
ชอ. E1

โค๊ด:

Option Explicit

Dim num As Integer

Private Sub Command1_Click()
Form2.Show
Form1.Hide
End Sub

Private Sub Command2_Click()
Form3.Show
Form1.Hide
End Sub
Private Sub Command3_Click()
Form4.Show
Form1.Hide
End Sub
Private Sub Command4_Click()
Form5.Show
Form1.Hide
End Sub

Private Sub Command5_Click()
Form6.Show
End Sub

Private Sub Command6_Click()
End
End Sub

โค๊ด:

Option Explicit
Dim kkk As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
            Case vbKeyF1
                    kkk = kkk + 1
                    Label2.Caption = Format(kkk, "00#")
                     Case vbKeyF12
                    Form2.Hide
                    Form1.Show
                   End Select
                
           End Sub
Private Sub Form_Load()
Form2.Top = 0
Form2.Left = 0
Form2.Width = Screen.Width
Form2.Height = Screen.Height

End Sub

โค๊ด:

Option Explicit
Dim sss As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
            Case vbKeyF1
                   sss = sss + 1
                    Label3.Caption = Format(sss, "00#")
              Case vbKeyF2
                     sss = sss + 1
                    Label4.Caption = Format(sss, "00#")
                     Case vbKeyF12
                    Form3.Hide
                    Form1.Show
                                  End Select
           End Sub

Private Sub Form_Load()
Form3.Top = 0
Form3.Left = 0
Form3.Width = Screen.Width
Form3.Height = Screen.Height

End Sub

โค๊ด:

Option Explicit
Dim aaa As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
            Case vbKeyF1
                  aaa = aaa + 1
                    Label3.Caption = Format(aaa, "00#")
              Case vbKeyF2
                    aaa = aaa + 1
                    Label4.Caption = Format(aaa, "00#")
              Case vbKeyF3
                    aaa = aaa + 1
                    Label6.Caption = Format(aaa, "00#")
                     Case vbKeyF12
                    Form4.Hide
                    Form1.Show
                                  End Select
           End Sub

Private Sub Form_Load()
Form4.Top = 0
Form4.Left = 0
Form4.Width = Screen.Width
Form4.Height = Screen.Height
 
End Sub

โค๊ด:

Option Explicit

Dim ppp As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
            Case vbKeyF1
                  ppp = ppp + 1
                    Label3.Caption = Format(ppp, "00#")
              Case vbKeyF2
                    ppp = ppp + 1
                    Label4.Caption = Format(ppp, "00#")
              Case vbKeyF3
                    ppp = ppp + 1
                    Label6.Caption = Format(ppp, "00#")
              Case vbKeyF4
                   ppp = ppp + 1
                    Label8.Caption = Format(ppp, "00#")
                    Case vbKeyF12
                    Form5.Hide
                    Form1.Show
                                  End Select
           End Sub

Private Sub Form_Load()
Form5.Top = 0
Form5.Left = 0
Form5.Width = Screen.Width
Form5.Height = Screen.Height
 
End Sub

[E1 wasan]

นาย วสันต์  แดงสกุล
นาย อดิศักดิ์ จันทะดวง
E1

โค๊ด:

Option Explicit
Dim tem As Integer

Private Sub Command1_Click()
Form2.Show
Form1.Hide
End Sub

Private Sub Command2_Click()
Form3.Show
Form1.Hide
End Sub
Private Sub Command3_Click()
Form4.Show
Form1.Hide
End Sub
Private Sub Command4_Click()
Form5.Show
Form1.Hide
End Sub
Private Sub Command5_Click()
Form6.Show
Form1.Hide
End Sub
Private Sub Command_Click()
End
End Sub

โค๊ด:

Option Explicit
Dim num As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
            Case vbKeyF1
                 num = num + 1
                 Label1(0).Caption = Format(num, "00#")
            Case vbKeyF12
                 Form2.Hide
                 Form1.Show
End Select
End Sub
Private Sub Form_Load()
Form2.Top = 0
Form2.Left = 0
Form2.Width = Screen.Width
Form2.Height = Screen.Height
End Sub

โค๊ด:

Option Explicit
Dim ccc As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
            Case vbKeyF1
                   ccc = ccc + 1
                    Label1(0).Caption = Format(ccc, "00#")
              Case vbKeyF2
                     ccc = ccc + 1
                    Label2(0).Caption = Format(ccc, "00#")
              Case vbKeyF12
                    Form3.Hide
                    Form1.Show
End Select
End Sub
Private Sub Form_Load()
Form3.Top = 0
Form3.Left = 0
Form3.Width = Screen.Width
Form3.Height = Screen.Height
End Sub

โค๊ด:

Option Explicit
Dim zzz As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
            Case vbKeyF1
                  zzz = zzz + 1
                    Label1(0).Caption = Format(zzz, "00#")
              Case vbKeyF2
                    zzz = zzz + 1
                    Label2(0).Caption = Format(zzz, "00#")
              Case vbKeyF3
                    zzz = zzz + 1
                    Label3(0).Caption = Format(zzz, "00#")
                     Case vbKeyF12
                    Form4.Hide
                    Form1.Show
End Select
End Sub
Private Sub Form_Load()
Form2.Top = 0
Form2.Left = 0
Form2.Width = Screen.Width
Form2.Height = Screen.Height
End Sub

โค๊ด:

Option Explicit
Dim xxx As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
            Case vbKeyF1
                  xxx = xxx + 1
                    Label1(0).Caption = Format(xxx, "00#")
              Case vbKeyF2
                    xxx = xxx + 1
                    Label2(0).Caption = Format(xxx, "00#")
              Case vbKeyF3
                    xxx = xxx + 1
                    Label3(0).Caption = Format(xxx, "00#")
              Case vbKeyF4
                   xxx = xxx + 1
                    Label4(0).Caption = Format(xxx, "00#")
              Case vbKeyF12
                    Form5.Hide
                    Form1.Show
End Select
End Sub
Private Sub Form_Load()
Form2.Top = 0
Form2.Left = 0
Form2.Width = Screen.Width
Form2.Height = Screen.Height
End Sub

โค๊ด:

Option Explicit
Dim num As Integer


Private Sub Command1_Click()
End
End Sub

[E1potjanee]

นางสาวพจนีย์  พรมสูงเนิน
นางสาวจีระนันท์    พงษ์เส็ง

โค๊ด:

Option Explicit
Private Sub Command1_Click()
Form2.Show
Form1.Hide
End Sub

Private Sub Command2_Click()
Form3.Show
Form1.Hide

End Sub

Private Sub Command3_Click()
Form4.Show
Form1.Hide
End Sub

Private Sub Command4_Click()
Form5.Show
Form1.Hide
End Sub

Private Sub Command5_Click()
Form6.Show
End Sub

Private Sub Command6_Click()
End
End Sub

[E1_SOMTAWIN]

นาย สมถวิล ช่วยกลาง
นาย วัชรพงศ์ มากศิริ
ชอ.E1

โค๊ด:

Option Explicit

Private Sub Command1_Click()
Form2.Show
Form1.Hide
End Sub

Private Sub Command2_Click()
Form3.Show
Form1.Hide
End Sub

Private Sub Command3_Click()
Form4.Show
Form1.Hide
End Sub

Private Sub Command4_Click()
Form5.Show
Form1.Hide
End Sub

Private Sub Command5_Click()
Form6.Show
Form1.Hide
End Sub

Private Sub Command6_Click()
End
End Sub

โค๊ด:

Option Explicit
Dim num As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
      Case vbKeyF1
         num = num + 1
         Label1.Caption = Format(num, "00#")
      Case vbKeyF12
         Form2.Hide
         Form1.Show
  End Select
End Sub
Private Sub Form_Load()
Form2.Top = 0
Form2.Left = 0
Form2.Width = Screen.Width
Form2.Height = Screen.Height
Label1.Top = Form2.Height / 2 - Label1.Height / 2
Label1.Left = Form2.Width / 2 - Label1.Width / 2
End Sub

โค๊ด:

Option Explicit
Dim MMM As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
        Case vbKeyF1
             MMM = MMM + 1
            Label1.Caption = Format(MMM, "00#")
            Case vbKeyF2
            MMM = MMM + 1
            Label6.Caption = Format(MMM, "00#")
            Case vbKeyF12
            Form3.Hide
            Form1.Show
  End Select
  End Sub

Private Sub Form_Load()
Form3.Top = 0
Form3.Left = 0
Form3.Width = Screen.Width
Form3.Height = Screen.Height
 Label1.Top = Form3.Height / 2 - Label1.Height / 3 - Label6.Height / 2
Label1.Left = Form3.Width / 3 - Label1.Width / 3 - Label6.Width / 2
Label6.Left = Form3.Width / 1.23 - Label1.Width / 4 - Label6.Width / 2
End Sub

โค๊ด:

Option Explicit
Dim MM1 As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
  Case vbKeyF1
        MM1 = MM1 + 1
       Label1.Caption = Format(MM1, "00#")
  Case vbKeyF2
       MM1 = MM1 + 1
       Label6.Caption = Format(MM1, "00#")
  Case vbKeyF3
       MM1 = MM1 + 1
       Label7.Caption = Format(MM1, "00#")
  Case vbKeyF12
       Form4.Hide
       Form1.Show
  End Select
End Sub

Private Sub Form_Load()
Form4.Top = 0
Form4.Left = 0
Form4.Width = Screen.Width
Form4.Height = Screen.Height
Label1.Top = Form4.Height / 1.43 - Label1.Height / 3 - Label6.Height / 2 - Label7.Height / 2
Label1.Left = Form4.Width / 2.8 - Label1.Width / 3 - Label6.Width / 2 - Label7.Width / 2
Label6.Left = Form4.Width / 1.5 - Label1.Width / 4.5 - Label6.Width / 2 - Label7.Width / 2
Label7.Left = Form4.Width / 0.95 - Label7.Width / 2 - Label6.Width / 2 - Label1.Width / 3
End Sub

โค๊ด:

Option Explicit
Dim MM3 As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
     Case vbKeyF1
         MM3 = MM3 + 1
         Label3.Caption = Format(MM3, "00#")
     Case vbKeyF2
         MM3 = MM3 + 1
         Label6.Caption = Format(MM3, "00#")
     Case vbKeyF3
         MM3 = MM3 + 1
         Label7.Caption = Format(MM3, "00#")
     Case vbKeyF4
        MM3 = MM3 + 1
        Label10.Caption = Format(MM3, "00#")
     Case vbKeyF12
        Form5.Hide
        Form1.Show
End Select
End Sub

Private Sub Form_Load()
Form5.Top = 0
Form5.Left = 0
Form5.Width = Screen.Width
Form5.Height = Screen.Height
Label3.Top = Form5.Height / 1.63 - Label3.Height / 3 - Label6.Height / 2 - Label7.Height / 2 - Label10.Height / 2
Label3.Left = Form5.Width / 1.8 - Label3.Width / 3 - Label6.Width / 2 - Label7.Width / 2 - Label10.Width / 2
Label6.Left = Form5.Width / 2 - Label6.Width / 10 - Label3.Width / 2 - Label7.Width / 2 - Label10.Width / 2
Label7.Left = Form5.Width / 0.99 - Label7.Width / 10 - Label3.Width / 2 - Label6.Width / 2 - Label10.Width / 2
Label10.Left = Form5.Width / 0.99 - Label10.Width / 10 - Label3.Width / 2 - Label6.Width / 2 - Label10.Width / 2
End Sub

[E1 sittipong]

นาย พิพัฒ  คลังเงิน
นาย สิทธิพงษ์ คงโพธิ์น้อย
ช.อ E1

โค๊ด:

Option Explicit

Dim tem As Integer

Private Sub Command_Click(Index As Integer)
Form3.Show
Form1.Hide
End Sub

Private Sub Command1_Click()
Form2.Show
Form1.Hide
End Sub


Private Sub Command2_Click()
Form3.Show
Form1.Hide
End Sub

Private Sub Command3_Click()
Form4.Show
Form1.Hide
End Sub
Private Sub Command4_Click()
Form5.Show
Form1.Hide
End Sub

Private Sub Command5_Click()
Form6.Show
Form1.Hide
End Sub

Private Sub Command6_Click()
End
End Sub

โค๊ด:

Option Explicit
Dim arm As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
            Case vbKeyF1
                    arm = arm + 1
                    Label(1).Caption = Format(arm, "00#")
                     Case vbKeyF12
                    Form2.Hide
                    Form1.Show
                   End Select
End Sub
Private Sub Form_Load()
Form2.Top = 0
Form2.Left = 0
Form2.Width = Screen.Width
Form2.Height = Screen.Height

End Sub

[imghttp://uppic.net/tq/q7wy3.png][/img]

โค๊ด:

Option Explicit
Dim tum As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
            Case vbKeyF1
                   tum = tum + 1
                    Label(1).Caption = Format(tum, "00#")
              Case vbKeyF2
                     tum = tum + 1
                    Label(3).Caption = Format(tum, "00#")
                     Case vbKeyF12
                    Form3.Hide
                    Form1.Show
              End Select
             
End Sub

Private Sub Form_Load()
Form3.Top = 0
Form3.Left = 0
Form3.Width = Screen.Width
Form3.Height = Screen.Height
End Sub

โค๊ด:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
            Case vbKeyF1
                  tum1 = tum1 + 1
                    Label(1).Caption = Format(tum1, "00#")
              Case vbKeyF2
                    tum1 = tum1 + 1
                    Label(3).Caption = Format(tum1, "00#")
              Case vbKeyF3
                   tum1 = tum1 + 1
                    Label(5).Caption = Format(tum1, "00#")
                     Case vbKeyF12
                    Form4.Hide
                    Form1.Show
         End Select
End Sub

Private Sub Form_Load()
Form4.Top = 0
Form4.Left = 0
Form4.Width = Screen.Width
Form4.Height = Screen.Height
 
End Sub

[imghttp://uppic.net/tr/rac75.png][/img]

โค๊ด:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
            Case vbKeyF1
                  tum2 = tum2 + 1
                    Label(1).Caption = Format(tum2, "00#")
              Case vbKeyF2
                    tum2 = tum2 + 1
                    Label(3).Caption = Format(tum2, "00#")
              Case vbKeyF3
                    tum2 = tum2 + 1
                    Label(5).Caption = Format(tum2, "00#")
              Case vbKeyF4
                   tum2 = tum2 + 1
                    Label(6).Caption = Format(tum2, "00#")
                    Case vbKeyF12
                    Form5.Hide
                    Form1.Show
              End Select
End Sub

Private Sub Form_Load()
Form5.Top = 0
Form5.Left = 0
Form5.Width = Screen.Width
Form5.Height = Screen.Height
 
End Sub

[E1potjanee]

นางสาวพจนีย์  พรมสูงเนิน
นางสาวจีระนันท์   พงษ์เส็ง
E1

โค๊ด:

Option Explicit
Private Sub Command1_Click()
Form2.Show
Form1.Hide
End Sub

Private Sub Command2_Click()
Form3.Show
Form1.Hide

End Sub

Private Sub Command3_Click()
Form4.Show
Form1.Hide
End Sub

Private Sub Command4_Click()
Form5.Show
Form1.Hide
End Sub

Private Sub Command5_Click()
Form6.Show
End Sub

Private Sub Command6_Click()
End
End Sub

โค๊ด:

Option Explicit
Dim bom As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
            Case vbKeyF1
                    bom = bom + 1
                    Label1.Caption = Format(bom, "00#")
                     Case vbKeyF12
                    Form2.Hide
                    Form1.Show
                   End Select
                 
           End Sub
Private Sub Form_Load()
Form2.Top = 0
Form2.Left = 0
Form2.Width = Screen.Width
Form2.Height = Screen.Height
   Label1.Top = Form2.Height / 2 - Label1.Height / 2
   Label1.Left = Form2.Width / 2 - Label1.Width / 2
End Sub

โค๊ด:

Option Explicit
Dim ke As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
            Case vbKeyF1
                   ke = ke + 1
                    Label1.Caption = Format(ke, "00#")
              Case vbKeyF2
                     ke = ke + 1
                    Label4.Caption = Format(ke, "00#")
                     Case vbKeyF12
                    Form3.Hide
                    Form1.Show
                  End Select
End Sub
Private Sub Form_Load()
Form3.Top = 0
Form3.Left = 0
Form3.Width = Screen.Width
Form3.Height = Screen.Height
 Label1.Top = Form3.Height / 4 - Label1.Height / 16 - Label4.Height / 3
 Label1.Left = Form3.Width / 3 - Label1.Width / 4 - Label4.Width / 4
 Label4.Left = Form3.Width / 3 - Label1.Width / 4 - Label4.Width / 4
End Sub

โค๊ด:

Option Explicit
Dim dee As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
            Case vbKeyF1
                  dee = dee + 1
                    Label1.Caption = Format(dee, "00#")
              Case vbKeyF2
                     dee = dee + 1
                    Label4.Caption = Format(dee, "00#")
              Case vbKeyF3
                     dee = dee + 1
                    Label7.Caption = Format(dee, "00#")
                     Case vbKeyF12
                    Form4.Hide
                    Form1.Show
                    End Select
End Sub
Private Sub Form_Load()
Form4.Top = 0
Form4.Left = 0
Form4.Width = Screen.Width
Form4.Height = Screen.Height
Label1.Top = Form4.Height / 2 - Label1.Height / 2 - Label4.Height / 2 - Label7.Height / 3
Label1.Left = Form4.Width / 2 - Label1.Width / 2 - Label4.Width / 2 - Label7.Width / 5
Label4.Left = Form4.Width / 2 - Label1.Width / 2 - Label4.Width / 2 - Label7.Width / 5
Label7.Left = Form4.Width / 2 - Label7.Width / 2 - Label4.Width / 2 - Label1.Width / 5
End Sub

โค๊ด:

Option Explicit
Dim aom As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
            Case vbKeyF1
                  aom = aom + 1
                    Label1.Caption = Format(aom, "00#")
              Case vbKeyF2
                    aom = aom + 1
                     Label4.Caption = Format(aom, "00#")
              Case vbKeyF3
                    aom = aom + 1
                    Label7.Caption = Format(aom, "00#")
              Case vbKeyF4
                   aom = aom + 1
                    Label8.Caption = Format(aom, "00#")
                    Case vbKeyF12
                    Form5.Hide
                    Form1.Show
                    End Select
End Sub
Private Sub Form_Load()
Form5.Top = 0
Form5.Left = 0
Form5.Width = Screen.Width
Form5.Height = Screen.Height
 Label1.Top = Form5.Height / 2 - Label1.Height / 2 - Label4.Height / 2 - Label7.Height / 2 - Label8.Height / 4
 Label1.Left = Form5.Width / 2 - Label1.Width / 2 - Label4.Width / 2 - Label7.Width / 5.5 - Label8.Width / 10
Label4.Left = Form5.Width / 2 - Label4.Width / 2 - Label1.Width / 2 - Label7.Width / 5.5 - Label8.Width / 10
Label7.Left = Form5.Width / 2 - Label7.Width / 2 - Label1.Width / 2 - Label4.Width / 5.5 - Label8.Width / 10
Label8.Left = Form5.Width / 2 - Label8.Width / 2 - Label1.Width / 2 - Label4.Width / 5.5 - Label7.Width / 10
End Sub

โค๊ด:

Option Explicit

Private Sub Command1_Click()
Form1.Show
Form2.Hide
End Sub

[tossapit doungsichin]

นาย ทศพฤทธิ์  ด้วงสีชิน
นางสาว นิภาพร  ศรีชัยภูมิ
ชอ. E1

โค๊ด:

Option Explicit
Dim taw As Integer
Private Sub Command9_Click()
End
End Sub
Private Sub Command_Click()
Form6.Show
End Sub
Private Sub Command1_Click()
Form2.Show
End Sub
Private Sub Command10_Click()
End
End Sub
Private Sub Command2_Click()
Form3.Show
End Sub
Private Sub Command3_Click()
Form4.Show
End Sub
Private Sub Command4_Click()
Form5.Show
End Sub
Private Sub Form_Load()
  Form1.Top = 0
  Form1.Left = 0
  Form1.Width = Screen.Width
  Form1.Height = Screen.Height
End Sub

โค๊ด:

Option Explicit
Dim taw As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyF1 Then
      taw = taw + 1
       Form2.Label6 = Format(taw, "00#")
       ElseIf KeyCode = vbKeyF12 Then
       Form2.Hide
   End If
End Sub
Private Sub Form_Load()
  Form2.Top = 0
  Form2.Left = 0
  Form2.Width = Screen.Width
  Form2.Height = Screen.Height
End Sub

โค๊ด:

Option Explicit
Dim taw As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyF1 Then
      taw = taw + 1
       Form2.Label6 = Format(taw, "00#")
       ElseIf KeyCode = vbKeyF12 Then
       Form2.Hide
   End If
End Sub
Private Sub Form_Load()
  Form2.Top = 0
  Form2.Left = 0
  Form2.Width = Screen.Width
  Form2.Height = Screen.Height
End Sub

โค๊ด:

Option Explicit
Dim taw As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyF1 Then
      taw = taw + 1
       Form3.Label6 = Format(taw, "00#")
        ElseIf KeyCode = vbKeyF2 Then
      taw = taw + 1
      Form3.Label7 = Format(taw, "00#")
        ElseIf KeyCode = vbKeyF12 Then
         Form3.Hide
       End If
End Sub
Private Sub Form_Load()
  Form3.Top = 0
  Form3.Left = 0
  Form3.Width = Screen.Width
  Form3.Height = Screen.Height
End Sub

โค๊ด:

Option Explicit
Dim taw As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyF1 Then
      taw = taw + 1
       Form5.Label1 = Format(taw, "00#")
        ElseIf KeyCode = vbKeyF2 Then
      taw = taw + 1
      Form5.Label2 = Format(taw, "00#")
      ElseIf KeyCode = vbKeyF3 Then
      taw = taw + 1
      Form5.Label3 = Format(taw, "00#")
            ElseIf KeyCode = vbKeyF4 Then
      taw = taw + 1
      Form5.Label4 = Format(taw, "00#")
        ElseIf KeyCode = vbKeyF12 Then
      Form5.Hide
   End If
End Sub
Private Sub Form_Load()
  Form5.Top = 0
  Form5.Left = 0
  Form5.Width = Screen.Width
  Form5.Height = Screen.Height
  End Sub