VBA và barcode reader (1 người xem)

[khoa140383]

Chào cả nhà GPE !
Em đang làm một dự án nho nhỏ cho công ty, có sử dụng đầu đọc mã vạch. Các bác nào có kinh nghiệm cho em xin ý kiến nhé. Em muốn viết cái code khi sai cây scan nó kêu lên 3 tiếng bíp bíp bíp chẳng hạn.
Vd: if textbox1.value="abc" then bíp bíp bíp endif
Em cám ơn cả nhà đã xem bài !

 

[vu_tuan_manh_linh]

Chào cả nhà GPE !
Em đang làm một dự án nho nhỏ cho công ty, có sử dụng đầu đọc mã vạch. Các bác nào có kinh nghiệm cho em xin ý kiến nhé. Em muốn viết cái code khi sai cây scan nó kêu lên 3 tiếng bíp bíp bíp chẳng hạn.
Vd: if textbox1.value="abc" then bíp bíp bíp endif
Em cám ơn cả nhà đã xem bài !

Đoạn code sau sẽ phát âm thanh. Bạn muốn âm thanh thế nào thì vào thư mục theo đường dẫn để lấy tên file và thay vào code. Thậm chí, bạn có thể convert bất kỳ đoạn âm thanh nào thành đuôi .wav và copy vào thư mục trên để chạy. Code có thể dùng cho cả win 32 và 64.

#If VBA7 Then
Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
        Alias "sndPlaySoundA" _
        (ByVal lpszSoundName As String, _
        ByVal uFlags As Long) As Long
#Else
 Private Declare Function PlaySound Lib "winmm.dll" _
        Alias "sndPlaySoundA" _
        (ByVal lpszSoundName As String, _
        ByVal uFlags As Long) As Long
#End If
 
Sub Play_Wav_File()
    Dim sWAVFile    As String
    sWAVFile = "C:\Windows\Media\Chord.wav"
    On Error Resume Next
    PlaySound sWAVFile, 0
    If Err.Number Then Err.Clear
End Sub

 

[huuthang_bd]

VBA có sẵn tiếng bíp mà

Sub Bip()
Beep
Application.Wait Now + 1 / 86400
Beep
Application.Wait Now + 1 / 86400
Beep
End Sub

 

[khoa140383]

Cám ơn các bác đã nhiệt tình hổ trợ, nhưng có vẻ như các bác chưa hiểu ý của em thì phải. Ý của em là muốn cái âm thanh nó phát ra từ cây scan, chứ không phải computer các bác ơi. ( vì sử dụng scan không dây, các bạn vào kho lấy hàng, khi scan vào mã vạch nếu có trong list thì nó kêu 1 tiếng bíp - lấy hàng ra, khi scan vào mã hàng không có trong danh sách nó kêu bíp bíp bíp chẳng hạn, khi đó sẽ đi tìm mã hàng khác có trong list ).

[em đang làm một dự án nho nhỏ cho công ty, có sử dụng đầu đọc mã vạch. Các bác nào có kinh nghiệm cho em xin ý kiến nhé. Em muốn viết cái code khi sai cây scan nó kêu lên 3 tiếng bíp bíp bíp chẳng hạn. ]

 

[huuthang_bd]

Cám ơn các bác đã nhiệt tình hổ trợ, nhưng có vẻ như các bác chưa hiểu ý của em thì phải. Ý của em là muốn cái âm thanh nó phát ra từ cây scan, chứ không phải computer các bác ơi. ( vì sử dụng scan không dây, các bạn vào kho lấy hàng, khi scan vào mã vạch nếu có trong list thì nó kêu 1 tiếng bíp - lấy hàng ra, khi scan vào mã hàng không có trong danh sách nó kêu bíp bíp bíp chẳng hạn, khi đó sẽ đi tìm mã hàng khác có trong list ).

[em đang làm một dự án nho nhỏ cho công ty, có sử dụng đầu đọc mã vạch. Các bác nào có kinh nghiệm cho em xin ý kiến nhé. Em muốn viết cái code khi sai cây scan nó kêu lên 3 tiếng bíp bíp bíp chẳng hạn. ]

Nếu vậy thì chắc chỉ có nước tìm mua cây scan khác có hỗ trợ chức năng này mà thôi.

 

[khoa140383]

Nếu vậy thì chắc chỉ có nước tìm mua cây scan khác có hỗ trợ chức năng này mà thôi.

Không có cách nào để link với hardware của nó để bắt nó kêu bằng VBA hả bác ?

 

[VMH0307]

Không có cách nào để link với hardware của nó để bắt nó kêu bằng VBA hả bác ?

Như vậy là bạn "lập trình" lại cho phần cứng của cây scan rồi.
Tôi không rõ máy scan của bạn như thế nào, nhưng thường thì các vi sử lý của các máy được thiết kế riêng và có thể không nạp được lại firmware. Nếu muốn bạn phải tự mày mò và chế phần cứng dựa trên nguyên lý mạch của nó thôi. Và nó ngoài tầm của VBA.

 

[khoa140383]

Như vậy là bạn "lập trình" lại cho phần cứng của cây scan rồi.
Tôi không rõ máy scan của bạn như thế nào, nhưng thường thì các vi sử lý của các máy được thiết kế riêng và có thể không nạp được lại firmware. Nếu muốn bạn phải tự mày mò và chế phần cứng dựa trên nguyên lý mạch của nó thôi. Và nó ngoài tầm của VBA.

Cũng không hẳn vậy bác ơi, cây scan có các sẵng các chức năng này rồi, nhưng không hiểu cách truyển dữ liệu vào để nó thực thi thôi... E là phải qua trang motorola hỏi các cụ bên đó quá... hjx...

 

[VMH0307]

Cũng không hẳn vậy bác ơi, cây scan có các sẵng các chức năng này rồi, nhưng không hiểu cách truyển dữ liệu vào để nó thực thi thôi... E là phải qua trang motorola hỏi các cụ bên đó quá... hjx...

Cái này bạn phải cung cấp thêm thông tin về máy đó, cụ thể phải có datasheet liên quan. Giống như việc lập trình các hệ thống nhúng, hoặc up rom cho điện thoại chẳng hạn, cũng có thể làm được nhưng chưa chắc là có thể làm với VBA.