ช่วยอธิบายทีค่ะ
มีcodeอยู่บ้างนิดหน่อยค่ะ แต่ไม่รู้เรื่องเลย ช่วยอธิบายให้หน่อยได้ไหมค่ะ แล้วไฟล์ที่โหลดมาในโปรแกรมต้องแนบไปตลอดเลยป่ะค่ะ Private Sub Command1_Click() Dim conn As New ADODB.Connection Dim cmd As New ADODB.Command Dim rs As New ADODB.Recordset GoA1 conn.Open "FILE NAME=C:\Documents and Settings\eat\Desktop\เขียนโปรแกรม\eat.udl" Set cmd.ActiveConnection = conn GraspA1 = InputBox("กรุณาส่จำนวนชิ้นงานที่หยิบออกไปแล้วจึงกดปุ่มOK", "หยิบชิ้นงาน") cmd.CommandText = "Update Inventory SET AN1 = AN1 - " & GraspA1 & "" rs.Open cmd, , adOpenDynamic, adLockReadOnly, -1 BackA1 End Sub
บางอันจะมีอันนี้แทรกเข้ามา 'Adodc1.RecordSource = "select AN1- " & GraspD1 & " from Inventory " 'Adodc1.Recordset.Update 'Adodc1.Refresh
Private Sub GoA1() For Zi = 1 To 37000 Out pwrite, &HC Out pwrite, &HC Out pwrite, &HC (ทำไมต้องมี3อันด้วยค่ะอันเดียวไม่ได้หรอ) delay1 Out pwrite, &H8 Out pwrite, &H8 Out pwrite, &H8 delay1 Z = Z + 1 Text3.Text = Z Next Zi For Yi = 1 To 680 Out pwrite, &H10 Delay Out pwrite, &H0 Delay Y = Y + 1 Text2.Text = Y Next Yi For Zi = 37001 To 41500 Out pwrite, &HC Out pwrite, &HC Out pwrite, &HC delay1 Out pwrite, &H8 Out pwrite, &H8 Out pwrite, &H8 delay1 Z = Z + 1 Text3.Text = Z Next Zi For Yi = 675 To 1 Step -1 Out pwrite, &H30 Delay Out pwrite, &H20 Delay Y = Y - 1 Text2.Text = Y Next Yi For Zi = 41500 To 800 Step -1 Out pwrite, &H4 Out pwrite, &H4 Out pwrite, &H4 delay1 Out pwrite, &H0 Out pwrite, &H0 Out pwrite, &H0 delay1 Z = Z - 1 Text3.Text = Z Next Zi End Sub
Private Sub BackA1() For Zi = 1 To 41500 Out pwrite, &HC Out pwrite, &HC Out pwrite, &HC delay1 Out pwrite, &H8 Out pwrite, &H8 Out pwrite, &H8 delay1 Z = Z + 1 Text3.Text = Z Next Zi For Yi = 1 To 690 Out pwrite, &H10 Delay Out pwrite, &H0 Delay Y = Y + 1 Text2.Text = Y Next Yi For Zi = 41500 To 37001 Step -1 Out pwrite, &H4 Out pwrite, &H4 Out pwrite, &H4 delay1 Out pwrite, &H0 Out pwrite, &H0 Out pwrite, &H0 delay1 Z = Z - 1 Text3.Text = Z Next Zi For Yi = 685 To 1 Step -1 Out pwrite, &H30 Delay Out pwrite, &H20 Delay Y = Y - 1 Text2.Text = Y Next Yi For Zi = 37000 To 500 Step -1 Out pwrite, &H4 Out pwrite, &H4 Out pwrite, &H4 delay1 Out pwrite, &H0 Out pwrite, &H0 Out pwrite, &H0 delay1 Z = Z - 1 Text3.Text = Z Next Zi End Sub
แล้วงงอันนี้ด้วยค่ะจะรู้ได้ไงว่าจะใช้&H30คู่กับ&H20 Out pwrite, &H30 Delay Out pwrite, &H20 Delay
|