4.1.1.1. Lưu đ khối B tăđ u Nhập Z1, A, R2, RC, DC i = 0 i > DC fi = (2*3.14159)/DC*i x1D = R2*Cos(fi)-A*Cos((1+Z1)*fi) y1D = R2*Sin(fi)-A*Sin((1+Z1)*fi) x2D=-R2*Sin(fi)+A*(1+Z1)*Sin((1+Z1)*fi y2D=R2*Cos(fi)-A*(1+Z1)*Cos((1+Z1)*fi X=x1D-(RC*y2D)/ 2 2 2 2D y D x Y=y1D+(RC*x2D)/ 2 2 2 2D y D x
Xuất X, Y ra file Excel
i = i + 1
Đúngă
Sai
K tăthúc
4.1.1.2. Chương trình Visual Basic
Private Sub cmdExit_Click() End
End Sub
Private Sub cmdExit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdExit.BackColor = &H8080FF End Sub
Private Sub cmdExport_Click() Dim Excel As Excel.Application Dim wb As Workbook
Dim ws As Worksheet Dim i, Z1, dc, rc As Integer Dim x1D, y1D As Double Dim x2D, y2D As Double Dim X, Y As Double Dim A, R2, fi As Double i = 0
Set Excel = CreateObject("excel.application") Excel.Visible = True 'add a workbooks Set wb = Excel.Workbooks.Add 'add a worksheet wb.Worksheets.Add Set ws = wb.Sheets(1) 'Rename worksheet1 ws.Name = "ketquaXY"
Z1 = txtZ1.Text A = txtA.Text R2 = txtR2.Text dc = txtDC.Text rc = txtRc.Text Cells(1, 1) = "STT" Cells(1, 2) = "Phi" Cells(1, 3) = "X" Cells(1, 4) = "Y" For i = 0 To dc Cells(i + 2, 1) = i fi = (2 * 3.14159) / dc * i Cells(i + 2, 2) = fi
x1D = R2 * Cos(fi) - A * Cos((1 + Z1) * fi) y1D = R2 * Sin(fi) - A * Sin((1 + Z1) * fi)
x2D = -R2 * Sin(fi) + A * (1 + Z1) * Sin((1 + Z1) * fi) y2D = R2 * Cos(fi) - A * (1 + Z1) * Cos((1 + Z1) * fi)
X = x1D - (rc * y2D) / Sqr(x2D * x2D + y2D * y2D) Y = y1D + (rc * x2D) / Sqr(x2D * x2D + y2D * y2D) Cells(i + 2, 3) = Round(X, 2)
Cells(i + 2, 4) = Round(Y, 2) Next
Set Excel = Nothing
End Sub
Private Sub cmdExport_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdExport.BackColor = &H8080FF End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdExport.BackColor = &HFFFF& cmdExit.BackColor = &HFFFF& End Sub
4.1.1.3. Hướng dẫn sử dụng chương trình
Sau khi cha ̣y ắCH NGăTRINHăTINHăXăYă” sẽ xuât hiê ̣n giao diện (hình
4.2), yêu câu nhâ ̣p cac thông sô R2, A, Z1, Rc, sô điểm chia.
Hình 4.2. Chương trinh tinh tọa độ X, Y
+ Sau khi nhâ ̣p cac thông sô xong, phân mêm sẽ xuât ra bảng Excel vơi các bộ giá trị (X, Y) tương ưng vơi sô điểm chia.
+ Lưu file Excel vơi đuôi la: *.SLDCRV + Khởi động phân mêm SolidWorks
+ Mở 1 New Solidworks part
+ Vào Insert--> Curve --> Curve through XYZ points.
+ Click Browse va cho ̣n file *.SLDCRV, chọn OK. Mô ̣t Curve sẽ xuât hiê ̣n
trên Design tree.