Xin hỏi về cách lưu dữ liệu tự động trong VB ( mạch đếm sản phẩm giao tiếp máy tính)?

[congthien301]

Chào các pác, em đang làm đồ án mạch đếm sản phẩm giao tiếp máy tính mà kẹt ở chỗ không biết làm sao để lưu dữ liệu ( số lượng sản phẩm ) tự dộng vào máy tính, nghĩa là sống lượng sản phẩm dược cập nhật liên tuc và lưu thành 1 file với filename là ngày giờ của quá trình đếm, có 1 nút HISTORY khi bấm vào thì sẽ hiện ra dialog dể chọn file cần xem . Có pác nào biết xin chỉ giùm em với, xin đa tạ nhiều nhiều!!!!!!

[feehong]

Nhân tiện có ai biết cho mình hỏi lun là sao mình sài câu lệnh dem=dem +1 ở timer mà dem ko tăng đc vậy:

Private Sub Command1_Click()
Timer1.Interval = 1
End Sub

Private Sub Form_Load()
Dim IR1, IR2, IR3, i As Integer
End Sub

Private Sub Timer1_Timer()
IR1 = Inp32(&H379) And &H10
If IR1 = &H0 Then
Shape1.FillColor = &HFFFFFF
Else: IR1 = &H10
Shape1.FillColor = &HFF&
dem = dem + 1
Text2.Text = dem
End If
End Sub

trong khi đó Shape1 vẫn thay đổi màu bình thường khi có sự kiện

[hoctro89xxx]

Chào các pác, em đang làm đồ án mạch đếm sản phẩm giao tiếp máy tính mà kẹt ở chỗ không biết làm sao để lưu dữ liệu ( số lượng sản phẩm ) tự dộng vào máy tính, nghĩa là sống lượng sản phẩm dược cập nhật liên tuc và lưu thành 1 file với filename là ngày giờ của quá trình đếm, có 1 nút HISTORY khi bấm vào thì sẽ hiện ra dialog dể chọn file cần xem . Có pác nào biết xin chỉ giùm em với, xin đa tạ nhiều nhiều!!!!!!

Đơn giản nhất bạn hãy dùng RichTextBox để lưu và đọc file nội dung file text hoặc rtf...Dùng cái này dễ vì nó làm hết cho mình.
Nếu chuyên hơn bạn hãy dùng các lệnh tạo bản ghi, đọc , xoá... để truy cập, tạo các file theo ý mình.
@feehong:
Vì biến dem bạn không khai báo nên mỗi lần thực hiện hàm Timer1_Timer nó sẽ khai báo từ đầu và giá trị mặc định là 0, nên tăng 1 đơn vị thì luôn =1 ( vì vậy biến dem là biến được khai báo trong Timer1_Timer).
Bạn hãy khai báo biến dem ngay trên cùng là được.
Dim dem As Long

[feehong]

@hoctro89xxx: Thank bạn nha, mình làm đc rồi.
Cho mình hỏi thêm câu này, ta dùng hàm & Format(Now, "hh:nn:ss") để lấy thời gian thực trong máy tính tương ứng với giờhút:giây. Vậy muốn lấy khoảng thời gian nhỏ hơn như %giây chẳng hạn thì dùng hàm nào? vì mình nghe nói VB có thể lấy đc tới %giây. Mình tìm hoài trên google mà ko thấy.

[hoctro89xxx]

]@hoctro89xxx: Thank bạn nha, mình làm đc rồi.
Cho mình hỏi thêm câu này, ta dùng hàm & Format(Now, "hh:nn:ss") để lấy thời gian thực trong máy tính tương ứng với giờhút:giây. Vậy muốn lấy khoảng thời gian nhỏ hơn như %giây chẳng hạn thì dùng hàm nào? vì mình nghe nói VB có thể lấy đc tới %giây. Mình tìm hoài trên google mà ko thấy.[/COLOR]

Bạn dùng Timer là được. bien=Timer
Chúc thành công

[feehong]

Bạn dùng Timer là được. bien=Timer
Chúc thành công

Timer nhưng ko chuẩn đâu cậu àh. Mình đã thử để Timer1.Interval = 1 và Timer1.Interval = 10. thực ra không chênh lệch nhau là mấy. Với lại trễ hơn rất nhiều so với thời gian thực. Trong Timer (Timer1.Interval = 1) đếm đc 1000 thì thời gian thực mất khoảng 16s. Có thể trễ do thời giân thực hiện các lệnh trong timer

Private Sub Timer1_Timer()
a=a+1
Text1.Text = a
End Sub

[hoctro89xxx]

Timer nhưng ko chuẩn đâu cậu àh. Mình đã thử để Timer1.Interval = 1 và Timer1.Interval = 10. thực ra không chênh lệch nhau là mấy. Với lại trễ hơn rất nhiều so với thời gian thực. Trong Timer (Timer1.Interval = 1) đếm đc 1000 thì thời gian thực mất khoảng 16s. Có thể trễ do thời giân thực hiện các lệnh trong timer

Bạn hãy đọc lại bài viết của tôi nhé. bien = Timer , Timer là 1 hàm có trong VB - không phải là 1 đối tượng như Timer1. Mỗi lần đọc Timer nó sẽ trả về 1 giá trị. Lấy giá trị sau - giá trị trước ta sẽ được khoảng thời gian - độ mịn tới % giây như bạn muốn.

[sadlove1605]

sao ban khong up ca bai va so do nguyen ly len cho moi nguoi cung xem???up len di ban oi!!!

[congthien301]

Cám ơn các bạn đã quan tâm. Mình đang làm từng phần nhỏ rồi ghép lại, mấy phần khác cũng tương đối ổn rồi chỉ còn bên VB là trục trặc chút xíu. Mình chưa vẽ sơ đồ hoàn thiên nữa, khi nào vẽ mình sẽ post lên sau nha. Như bạn hoctro89xxx nói ,mình dùng rich text box để lưu mà chưa được vì mình không rành VB lắm.mình dùng 89c51, mạch hoạt động như sau: bộ phận cảm biến hồng ngoại dùng để đếm sp đưa vào vđk, vđk truyền lên pc thông qua max232, mình dùng vb để viết chương trình trên pc hiển thị số lượng sp, đồng thời pc cũng tự động lưu lại số sp phòng khi cúp điện đôt ngột, mình dùng rich text box để lưu mà chưa được; còn nút HISTORY thì được dùng khi nào muốn xem lại các quá trình đã đếm, cài này minh cũng chưa được. Có gì nhờ các bạn chỉ giáo thêm giùm nha, nếu có code luôn thì tốt wá.

[nbb3i]

Chào các pác, em đang làm đồ án mạch đếm sản phẩm giao tiếp máy tính mà kẹt ở chỗ không biết làm sao để lưu dữ liệu ( số lượng sản phẩm ) tự dộng vào máy tính, nghĩa là sống lượng sản phẩm dược cập nhật liên tuc và lưu thành 1 file với filename là ngày giờ của quá trình đếm, có 1 nút HISTORY khi bấm vào thì sẽ hiện ra dialog dể chọn file cần xem . Có pác nào biết xin chỉ giùm em với, xin đa tạ nhiều nhiều!!!!!!

Bạn có thể đọc về FSO (file system objects) và DAO (Data Access Objects) hai cái này khá hay và cũng không quá phức tạp.

[feehong]

Bạn hãy đọc lại bài viết của tôi nhé. bien = Timer , Timer là 1 hàm có trong VB - không phải là 1 đối tượng như Timer1. Mỗi lần đọc Timer nó sẽ trả về 1 giá trị. Lấy giá trị sau - giá trị trước ta sẽ được khoảng thời gian - độ mịn tới % giây như bạn muốn.

Bạn có thể nói rõ hơn đc ko (mình hơi gà), bạn có thể lấy 1 ví dụ để mình dễ hiểu hơn.

[congthien301]

cám ơn bạn nbb3i nha, minh sẽ đọc xem thử. Thanks!

[congthien301]

cám ơn bạn nbb3i nha, minh sẽ đọc xem thử. Có gì nhờ các bạn chỉ giáo thêm.Thanks!

[feehong]

Đọc đề tài này hình như của trường CNHN hả, cái cậu cần nè:

Private Sub Command2_Click()
If Dir("C:\Dem so san pham.txt") <> "so san pham da duoc luu " Then
Open "C:\Demsosanpham.txt" For Append As #1
Else
Open "C:\Dem so san pham.txt" For Output As #1
End If
Print #1, "Thoi gian:"; Format(Now, "dd-mm-yyyy hh:nn:ss") & " So san pham la:" & v1
Close #1
End Sub

[tatdat]

Đơn giản nhất bạn hãy dùng RichTextBox để lưu và đọc file nội dung file text hoặc rtf...Dùng cái này dễ vì nó làm hết cho mình.
Nếu chuyên hơn bạn hãy dùng các lệnh tạo bản ghi, đọc , xoá... để truy cập, tạo các file theo ý mình.
@feehong:
Vì biến dem bạn không khai báo nên mỗi lần thực hiện hàm Timer1_Timer nó sẽ khai báo từ đầu và giá trị mặc định là 0, nên tăng 1 đơn vị thì luôn =1 ( vì vậy biến dem là biến được khai báo trong Timer1_Timer).
Bạn hãy khai báo biến dem ngay trên cùng là được.
Dim dem As Long

Em đã tham khảo khảo code của feehong và chỉnh sửa lại chút ít, như thế này:

Private Sub start_Click()

   If start.Caption = "Start" Then
        start.Caption = "Reset"
    Else
        start.Caption = "Start"
    End If

    Dim soxetai As Long
    Dim biendem1 As Byte
    soxetai = 0
    biendem1 = 0

End Sub

Private Sub Timer1_Timer()
        bien1 = Inp(&H379)
        biendem1 = (bien1 And 32) / 32

        If biendem1 = 0 Then
            Label13.Visible = False
           
        Else: biendem1 = 1
            Label13.Visible = True
            Label14.Visible = False
            soxehoi = soxehoi + 1
            xehoi.Caption = CStr(soxehoi)
            cuocphi.Caption = "50.000 VND"
        End If

End Sub

Vậy mà khi chạy, click vào start, chưa nối gì cả nó đã cho kết quả xehoi.caption = 1 rồi.
như thế này là sao ta?