: Cả hai Dip Switch bật lên đồng thời Lỗi ở RAM của CPU
Đoạn code viết cho nút lệnh In phiếu tính tiền và lát cơ sở đữ liệu:
Pivate Sub CmdInPhieu_CHeckQ 1f FrmMain.CmbBienSo = "" Then
MsgBox "Nhap vao so xe", vbOKOnly, "Error" Else
"Tim Sp
Eor 1 = I To Val(FrmMain.txtSoPhieu)
Tf FrmMain.CmbBienSo.Text = Phieu().BienSo Then
SP=i End If Nexti FrmMain.Luoi1.Col = 1 FrmMain.Lnoil.Row = 5 PrintPreview.txtprintLogo.Text = ”" PrintPreview.txtprintLogo.OLEObjects.Add, , "fASomlconLOGO.BMP"
PrintPreview.txtprint.Text = "TRƯỜNG ĐẠI HỌC KỸ THUẬT CÔNG NGHỆ TP.HCM " & Chr$(13) & Chr$(10) _ NGHỆ TP.HCM " & Chr$(13) & Chr$(10) _
& "KHOA CƠ KHÍ TỰ ĐỘNG & ROBOTS" & Chr$(13) & Chr$(10) _ & "PHIẾU CÂN XE" & Chr$(13) & Chr$(10) _ & "PHIẾU CÂN XE" & Chr$(13) & Chr$(10) _
& n# x% % 4e" 6 Chr$(13) & Chr$(10) —
& "Ngày " & Date & Chr§(9) & Chr$(9) & Chr$(13) & Chr$(10) _
_ na“...
SVTH: TỐNG THÀNH SƠN
Luận Văn Tốt Nghiệp GVHD: ThS NGUYỄN THANH PHƯƠNG
& Trim(Time) & Chr$(9) & Chr$(9) & Chr$(9) & Chr$(13) & Chr$(10) _
& Chr$(13) & Chr$(10) _
& Chr$(9) & "Tên Người Trực " & Chr$(9) & ":” &
FrmMain.CmbTenNguoïTrue & Chr$(13) & Chr$(10) _
& Chr$(9) & "Tên khách hàng " & Chr$(9) & ":" &
Phieu(SP).TenkhachHang & Chr$(13) & Chr$(10) _
& Chr$(9) & "Biển số xe " & Chr$(9) & Chr$(9) & ":" & Phieu(SP).BienSo & Chr$(13) & Chr$(10) _
& Chr$(9) & "Trọng lượng vào" & Chr$(9) & ":" &
Phieu(SP).TrongLuongXe & Chr$(9) & " Kg" & Chr$(13) & Chr$(10) _
& Chr$(9) & "Trọng lượng ra" & Chr$(9) & ":” &
Phieu(SP).TrongLuongRa & Chr$(9) & " Kg" & Chr$(13) & Chr$(10) _ & Chr$(9) & "Trọng lượng hàng" & Chr$(9) & ":" &
Phieu(SP).TrongLuongHang & Chr$(9) & " Kg” & Chr$(13) & Chr$(10) _
& Chr$(9) & "Thành Tiển" & Chr$(9) & Chr$(9) & ":" &
FrmMain.Luoil.Text & Chr$(9) & " Đồng" & Chr$(13) & Chr$(10) _
& Chr$(13) & Chr$(10) _
& Chr$(9) & Chr$(9) & Chr$(9) & Chr$(9) & Chr$(9) & Chr$(9) & Chr$(9) & Chr$(9) & "Ký tên " & Chr$(13) & Chr$(10)
PrintPreview.txiprint,SelStart = 0
PrintPreview.txtprint.SelLength = 108
PrintPreview.†xtprint.SelAlignment = 2 ' chon dong o chính giua PrintPreview.txtprint.SelStart = 109 PrintPreview.ixtprint.SelLength = 30 PrintPreview.txtprint.SelAlignment = I PrintPreview.Show End If End Sub
* Đoạn code viết cho nút lệnh cân lần :
Private Sub Cmdcan1_ ClickQ With FrmMain
"Kiem tra
If KiemTraBienSo(.txtBienSoXe, Val(.txtSoPhieu)) = False Then
.tx(SoPhieu = str$(Val(txtSoPhieu) + 1) Phieu(Val(txtSoPhieu)).BienSo = .txtBienSoXe Phieu(Val(.txtSoPhieu)).TenkhachHang = .txfTenKhachHang Phieu(Val(.txtSoPhieu)).TrongLuongXe = .TxtTrongLuong SVTH: TỐNG THÀNH SƠN
Luận Văn Tốt Nghiệp GVHD: Th§ NGUYỄN THANH PHƯƠNG ' Add to Combo .CmbBienSo.AddItem Phieu(Val(.txtSoPhieu)).BienSo 1f .CmbBienSo.ListCount = I Then .CmbBienSo.Listlndex = 0 End If Else
Call MsgBox( "Sai Blen So, da co xe so " & .txtBienSoXe, vbOKOnly, "Error ”)
Exit Sub End Tf End With End Sub
*' Đoạn code viết cho nút lệnh thoát khỏi chương trình:
Private Sub cmdThoat_ CHckQ)
MSComm1.PortOpen = False
End End Sub
* Đoạn code viết cho nút lệnh báo cáo Report: Private Sub cmdBaoCaoReport_ClickQ
Call open_mdđb
Report_BaoCao.Show End Sub
*' Đoạn code viết cho nút lệnh thoát khỏi chương trình từ menu chính: Private Sub exit_Click(Index AÀs Integer)
MSComm1.PortOpen = False
End End Sub
* Đoạn code viết cho form chính. Khi chương trình khởi động:
Private Sub Form_LoadQ Timer2.Enabled = True MSComm1.CommPort = ] MSComm1.PortOpen = True opt1.Value = True With FrmMain SVTH: TỐNG THÀNH SƠN
| Luận Văn Tốt Nghiệp GVHD: Th§ NGUYỄN THANH PHƯƠNG ===ễễ———bẦ—
.TxtTrongLuong = "00000”
.xtTenKhachHang = "Lê Văn Tiến " .txtBicnSoXe = "54H-0202”
.txtSoPhieu = "001”
.CmbTenNguorTruc.Clear
.CmbTenNguoiTruc.Addltem "Tống Thành Sơn” .CmbTenNguoiTruc.AddItem "Nguyễn Duy Vũ” .CmbTenNguoiTruc.Addltem "Đặng Văn Tuấn” .CmbTenNguoïTruc.AddItem "Phùng Duy Vũ" .‹CmbTenNguoïTruc.Listlndex = 9 Call Luoil_Init .Luoil.Row = 4 .Luoil.Col = 1 .Luoi1.Text = "30” End With Call ResetApp End Sub
* Đoạn code viết cho MSComm1. Dùng để giao tiếp với cổng Com :
Private Sub MSComml_OnComm() Dim GT
Do
GT =GT + MSComm1.Input
Loop While Right$(GT, 1) <> Chr$(13)
TxtTrongLuong.Text = Mid$(GT, 8, 5) End Sub
*' Đoạn code viết cho nút lệnh Program từ menu chính : Private Sub pro_Click(ndex As Integer)
ÍfrmAbout.Show
End Sub
* Đoạn code viết cho nút lệnh Set RS232 từ menu chính của chương trình:
| Private Sub set_Click(ndex Ás Integer)
| frmSetting.Show 1
End Sub
———————————— ———————————=nn_-—— ———————————=nn_-——
Luận Văn Tốt Nghiệp GVHD: Th§ NGUYỄN THANH PHƯƠNG
——————ee— * Đoạn code viết cho lưới 1 dùng để nhập giá trị đơn giá khi Db[Clích vào nó:
'Private Sub Luoil_DblClickQ
'Tf Luoi1.ColSel = 1 And Luoi1.RowSel = 4 Then ' Form1.Show
'End If 'End Sub