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!!!!!!
Thông báo
Collapse
No announcement yet.
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)?
Collapse
X
-
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
-
Nguyên văn bởi congthien301 Xem bài viếtChà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ế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
email:mahaco@fpt.vn
Comment
-
@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.
Comment
-
Nguyên văn bởi feehong;243838[COLOR="magenta"]@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]
Chúc thành công
email:mahaco@fpt.vn
Comment
-
Nguyên văn bởi hoctro89xxx Xem bài viếtBạn dùng Timer là được. bien=Timer
Chúc thành công
Private Sub Timer1_Timer()
a=a+1
Text1.Text = a
End Sub
Comment
-
Nguyên văn bởi feehong Xem bài viếtTimer 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
email:mahaco@fpt.vn
Comment
-
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á.
Comment
-
Nguyên văn bởi congthien301 Xem bài viếtChà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!!!!!!123...
Comment
-
Nguyên văn bởi hoctro89xxx Xem bài viếtBạ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.
Comment
-
Đọ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
Comment
-
Nguyên văn bởi hoctro89xxx Xem bài viếtĐơ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
Code: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
như thế này là sao ta?
Comment
Bài viết mới nhất
Collapse
-
Trả lời cho Thắc mắc về hạ áp cho adapter laptopbởi LamVoNhấp nháy có thể do chu kỳ hoạt động bị rút ngắn quá dẫn đến không đủ nguồn nuôi ic, bác thử tăng giá trị tụ nguồn phụ nuôi ic và giảm giá trị điện trở hạn dòng cho nó xem có cải thiện không....
-
Channel: Điện tử dành cho người mới bắt đầu
hôm nay, 08:45 -
-
Trả lời cho Mạch tự động bật nguồnbởi nhathung1101Bác đúng là hệ Pháp, nên toàn quên chữ "d".
Nếu em được như bác, đúng 0h mới được stand by với hũ rượu và vợ thì tuyệt.
Nhưng đời không như là mơ, em và lão Đinh Vặn ngấm đủ mà.
Lão Đinh Vặn...-
Channel: Điện tử gia dụng
hôm nay, 00:17 -
-
Trả lời cho Thắc mắc về hạ áp cho adapter laptopbởi nhathung1101Vì bản chất của nó hoạt động theo dòng. Áp chỉ để mức giới hạn.
Cứ hiểu như bạn khôn hơn 10 người, nhưng khả năng thu nhận kiến thức chỉ bằng 1/10 người khác, thì nó sẽ tự điều chỉnh thôi.-
Channel: Điện tử dành cho người mới bắt đầu
Hôm qua, 23:41 -
-
Trả lời cho Mạch tự động bật nguồnbởi nhathung1101Ựa... có lý...
Dưng mà lão chỉ dùng 1 con opto là nguy hiểm lắm.
Có khi nó on lúc lão với ấy ấy về nhà lúc vắng vợ thì khổ. Nên phải thêm cái mạch logic nữa mới được....-
Channel: Điện tử gia dụng
Hôm qua, 23:20 -
-
Trả lời cho Thắc mắc về hạ áp cho adapter laptopbởi lct1610Bác có cách nào khác ngoài quấnlại/rút bớt vòng dây BA (và mua mới ) k nhỉ ? Tại gỡ ra cũng khá lằng nhằng và kì công...
-
Channel: Điện tử dành cho người mới bắt đầu
Hôm qua, 19:30 -
-
Trả lời cho Thắc mắc về hạ áp cho adapter laptopbởi mèomướpDạ với mức áp chênh lệch quá nhìu thì ngoài chỉnh hồi tiếp thì chú cần quấn lại thứ cấp biến áp nữa ạ. Tùy loại mà có thể sẽ khéo léo rút bớt vòng dây đỡ phải tách lõi ferit ạ...
-
Channel: Điện tử dành cho người mới bắt đầu
Hôm qua, 18:57 -
-
bởi lct1610E có adapter laptop cũ hiệu asus chạy tốt ,có đầu ra ổn định ở 19,4v dòng 3,42A ( công suất 60w). E định là hạ nó xuống 12v để cấp nguồn cho đầu camera. Và e đã thử bằng cách can thiệp vào phần hồi tiếp (sử dụng ic DAS001 hay TSM103W) thông...
-
Channel: Điện tử dành cho người mới bắt đầu
Hôm qua, 18:44 -
-
bởi nguyendinhvanỞ đây thì cũng chỉ có mấy cái máy tập gym là cùng, vào Nhà máy thì không đủ tuổi, mà bài thực hành thì không đủ cơm trưa.
Mà mấy cái máy gym thì cần giải pháp đồng bộ tốt hơn là biện pháp chắp vá....-
Channel: Đặt hàng
26-12-2024, 23:12 -
-
Trả lời cho Mạch tự động bật nguồnbởi nguyendinhvanMấy cái hệ thống Minh Thông đó là tôi tránh xa.
Vì một ngày mình bấm nút La- bô mấy lần, bấm vào những giờ nào nó cũng lưu vào datalog.
Dễ lộ bảo mật.
...-
Channel: Điện tử gia dụng
26-12-2024, 23:00 -
-
Trả lời cho Mạch tự động bật nguồnbởi vi van phamĐinh Vặn và Nhà Thùng ngồi uống bia thì cúp điện. Đinh Vặn vào trạng thái stanby, cầm ly bia mà không uống được. Đến khi có điện, cảm biến của Đinh Vặn phát huy chức năng, cầm chai bia tu 1 hơi.
Nhà Thùng vào trạng thái stanby,...-
Channel: Điện tử gia dụng
26-12-2024, 07:47 -
Comment