ผู้เขียน หัวข้อ: งานครั้งที่ 5 เขียนโปรแกรมพื้นฐาน 5 (เรียกคิว)  (อ่าน 13740 ครั้ง)

admin

  • Administrator
  • Hero Member
  • *****
  • กระทู้: 688
    • ดูรายละเอียด
    • อีเมล์
โปรแกรมบัตรคิว
-สามารถกำหนดช่องบริการได้ 2,3,4 ช่อง (แยกหน้าต่าง)
-การเรียกหมายเลขใช้ปุ่ม F1-F4 โดย
  F1 เรียกหมายเลขมาช่องบริการที่ 1
  F2 เรียกหมายเลขมาช่องบริการที่ 2
  F3 เรียกหมายเลขมาช่องบริการที่ 3
  F4 เรียกหมายเลขมาช่องบริการที่ 4

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


ตัวอย่างหน้าตาของโปรแกรม
« แก้ไขครั้งสุดท้าย: พฤศจิกายน 19, 2015, 11:24:04 AM โดย admin »

admin

  • Administrator
  • Hero Member
  • *****
  • กระทู้: 688
    • ดูรายละเอียด
    • อีเมล์
Re: ครั้งที่ 5 โปรแกรมเรียกคิว
« ตอบกลับ #1 เมื่อ: ธันวาคม 15, 2009, 09:25:47 AM »
ชุดฟังก์ชั่นการอ่านการกดคีย์ (VB6.0)
โค๊ด: [Select]
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 เท่านั้น

ชุดฟังก์ชั่นการอ่านการกดคีย์ (VB2010)
โค๊ด: [Select]
[code]
Public Class Form1
    Dim nums As Integer
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.F1 Then
            nums = nums + 1
            Label1.Text = Format(nums, "000")
        Else
            nums = nums + 1
            Label2.Text = Format(nums, "000")
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        KeyPreview = True
    End Sub
End Class
« แก้ไขครั้งสุดท้าย: กันยายน 29, 2015, 11:35:22 AM โดย admin »

admin

  • Administrator
  • Hero Member
  • *****
  • กระทู้: 688
    • ดูรายละเอียด
    • อีเมล์
Re: งานครั้งที่ 5 เขียนโปรแกรมพื้นฐาน 5 (เรียกคิว)
« ตอบกลับ #2 เมื่อ: กันยายน 29, 2015, 01:18:01 PM »
จัดตำแหน่งโดยใช้ขนาดจอมาคำนวณ VB2010
โค๊ด: [Select]
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Top = Screen.PrimaryScreen.Bounds.Height / 2
        Me.Left = Screen.PrimaryScreen.Bounds.Width / 2
    End Sub