งานที่มอบหมาย ครูประภาส

บทความประกอบการเรียนรู้ => เทคนิคการอินเตอร์เฟส Visual Basic => ข้อความที่เริ่มโดย: admin ที่ ธันวาคม 14, 2009, 02:14:09 PM

หัวข้อ: งานครั้งที่ 5 เขียนโปรแกรมพื้นฐาน 5 (เรียกคิว)
เริ่มหัวข้อโดย: admin ที่ ธันวาคม 14, 2009, 02:14:09 PM
โปรแกรมบัตรคิว
-สามารถกำหนดช่องบริการได้ 2,3,4 ช่อง (แยกหน้าต่าง)
-การเรียกหมายเลขใช้ปุ่ม F1-F4 โดย
  F1 เรียกหมายเลขมาช่องบริการที่ 1
  F2 เรียกหมายเลขมาช่องบริการที่ 2
  F3 เรียกหมายเลขมาช่องบริการที่ 3
  F4 เรียกหมายเลขมาช่องบริการที่ 4

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


ตัวอย่างหน้าตาของโปรแกรม
(http://www.uppicweb.com/x/i/is/lab51.png)
หัวข้อ: Re: ครั้งที่ 5 โปรแกรมเรียกคิว
เริ่มหัวข้อโดย: admin ที่ ธันวาคม 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
หัวข้อ: Re: งานครั้งที่ 5 เขียนโปรแกรมพื้นฐาน 5 (เรียกคิว)
เริ่มหัวข้อโดย: admin ที่ กันยายน 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