Learning English

Study English - IELTS Preparation - Australia Network

Autocad & VBA

'Trong AutoCad
Public ExcelApp As Excel.Application
Public Const Tenfile = "D:\Khoahoc2008\Hinhtru.xls"

Sub VeHinhTru_AutoCad()
Dim i As Integer
Dim AcadMo As AcadModelSpace
Dim AcadUt As AcadUtility
Dim DiemDauP As Variant 'Diem dau tien de ve
Dim DiemBaoP(0 To 11) As Double 'Diem bao phan to mat cat
'Khai bao ghi ky hieu Ten lop
Dim GhiTenlopP(0 To 2) As Double
Dim Tenlop As String
Dim TenlopT As AcadText
'Khai bao ghi do sau lop
Dim GhiDosauP(0 To 2) As Double
Dim DosauT As AcadText
'Khai bao To mat cat
Dim MatcatH As AcadHatch
Dim VongbaoPL(0) As AcadPolyline
'Khai bao noi dung Hinh tru
Dim HinhTruP(0 To 2) As Double
Dim HinhTruT As AcadText
'Khai bao ty le dung Hinh tru
Dim TLdung As Single
Dim TLdungP(0 To 2) As Double
Dim TLdungT As AcadText
'Khai bao chieu rong cua phan To ky hieu dia tang va Pi
Const Chieurong = 10: Const Pi = 3.14159
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Khoi dong Excel
Call KhoidongExcel
TLdung = Val(ExcelApp.Sheets("Khai bao").Range("J3"))
'Thiet lap font ".VnArial" cho kieu "Standard"
Set TxtStyleObj = ActiveDocument.TextStyles.Item("Standard")
TxtStyleObj.SetFont ".VnArial", False, False, 0, 34
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set AcadMo = ActiveDocument.ModelSpace
Set AcadUt = ActiveDocument.Utility
DiemDauP = AcadUt.GetPoint(, "Vao vi tri dau tien:")
'Ghi noi dung ten Hinh tru va Ty le dung
HinhTruP(0) = DiemDauP(0) + 8
HinhTruP(1) = DiemDauP(1) + 4
Set HinhTruT = AcadMo.AddText("HINH TRU HO KHOAN", HinhTruP, 1.5)
TLdungP(0) = HinhTruP(0) + 5
TLdungP(1) = HinhTruP(1) - 2.5
Set TLdungT = AcadMo.AddText("Tû lÖ ®øng: 1/" & TLdung, TLdungP, 1)
TLdungT.ObliqueAngle = 0.15
DiemBaoP(0) = DiemDauP(0)
DiemBaoP(1) = DiemDauP(1)

With ExcelApp.Worksheets("Khai bao").Range("B2")

'Tao vong lap qua tung diem
i = 1
Do
'Xac dinh do chenh sau giua cac lop dat
Chenhsau = (.Offset(i - 1, 1) - .Offset(i, 1)) * 1000 / TLdung
'Xac dinh cac diem bao va ve duong Polyline
DiemBaoP(3) = DiemBaoP(0) + Chieurong: DiemBaoP(4) = DiemBaoP(1)
DiemBaoP(6) = DiemBaoP(3): DiemBaoP(7) = DiemBaoP(4) + Chenhsau
DiemBaoP(9) = DiemBaoP(6) - Chieurong: DiemBaoP(10) = DiemBaoP(7)
Set VongbaoPL(0) = AcadMo.AddPolyline(DiemBaoP)
VongbaoPL(0).Closed = True 'Kep kin duong Polyline
VongbaoPL(0).color = acRed
'Ghi ten cac lop dat
GhiTenlopP(0) = DiemBaoP(3) + 2
GhiTenlopP(1) = DiemBaoP(4) + Chenhsau / 2
Tenlop = "Líp " & .Offset(i, 0) & ": " & .Offset(i, 2)
Set TenlopT = AcadMo.AddText(Tenlop, GhiTenlopP, 0.8)
'Ghi do sau lop
GhiDosauP(0) = DiemBaoP(6) + 0.5
GhiDosauP(1) = DiemBaoP(7)
Set DosauT = AcadMo.AddText(FormatNumber(.Offset(i, 1), 1), GhiDosauP, 1)
DosauT.color = acRed
'To ky hieu mat cat dia tang
Set MatcatH = AcadMo.AddHatch(1, .Offset(i, 4), True)
MatcatH.PatternScale = .Offset(i, 5)
MatcatH.PatternAngle = .Offset(i, 6) * Pi / 180
MatcatH.AppendOuterLoop (VongbaoPL)
MatcatH.Evaluate: MatcatH.Update
'Gan diem de sang lop moi
DiemBaoP(0) = DiemBaoP(9)
DiemBaoP(1) = DiemBaoP(10)

i = i + 1
Loop Until IsEmpty(.Offset(i, 0))
End With
ZoomAll
Xoa bo bien doi tuong
Set ExcelApp = Nothing
Set AcadMo = Nothing
Set AcadUt = Nothing

End Sub
'Lay so lieu tu xecel

Sub openexcel(ByVal tenfile As String)
On Error Resume Next
Set excelapp = GetObject(, "Excel.application")
If Err Then
Err.Clear
Set acadapp = CreateObject("Excel.application")
End If
excelapp.Visible = True
excelapp.Workbooks.Open (tenfile)
AppActivate AutoCAD.Caption
End Sub
Sub venuoi()
' This example creates a 4 X 4 polygonmesh in model space.
Dim meshObj As AcadPolygonMesh
Dim mSize, nSize, count As Integer
Dim points(0 To 47) As Double

mSize = 4: nSize = 4
' Create the matrix of points
points(0) = 0: points(1) = 0: points(2) = 0
points(3) = 2: points(4) = 0: points(5) = 1
points(6) = 4: points(7) = 0: points(8) = 0
points(9) = 6: points(10) = 0: points(11) = 1
points(12) = 0: points(13) = 2: points(14) = 0
points(15) = 2: points(16) = 2: points(17) = 1
points(18) = 4: points(19) = 2: points(20) = 0
points(21) = 6: points(22) = 2: points(23) = 1
points(24) = 0: points(25) = 4: points(26) = 0
points(27) = 2: points(28) = 4: points(29) = 1
points(30) = 4: points(31) = 4: points(32) = 0
points(33) = 6: points(34) = 4: points(35) = 0
points(36) = 0: points(37) = 6: points(38) = 0
points(39) = 2: points(40) = 6: points(41) = 1
points(42) = 4: points(43) = 6: points(44) = 0
points(45) = 6: points(46) = 6: points(47) = 0



' creates a 3Dmesh in model space
Set meshObj = ThisDrawing.ModelSpace.Add3DMesh(mSize, nSize, points)
' Change the viewing direction of the viewport to better see the cylinder
ZoomAll

End Sub


Quy Chế 43

Khoa đóng tàu bắt đầu đào tạo theo tiến chỉ bắt đầu từ khoá 49. Bạn nào quan tâm đến quy chế này thì liên Hệ với mình theo đia chỉ phamdinhba007@gmail.com để có được nội dung cụ thể của quy chế này.

Cách hiệu chỉnh và Viết một bài đăng trên blog

Long nhãn - vị thuốc bổ tâm, an thần

Nhãn cùi có giá trị sử dụng cao, thường được đóng hộp để xuất khẩu. Nhãn lồng Hưng Yên tiêu biểu cho loại nhãn cùi. Nhãn nước không quý bằng nhãn cùi, nhưng lại được nhiều người ưa thích vì độ ngọt đậm và mùi thơm của cùi quả.

Cùi quả vừa là thức ăn ngon, vừa là vị thuốc tốt. Muốn dùng làm thuốc, phải chế biến cùi quả thành long nhãn theo cách làm như sau: Với số lượng ít (ở phạm vi gia đình), để nguyên cả chùm nhãn, bỏ quả sâu, qủa thối, quả nứt vỏ, nhúng vào nước sôi độ 1-2 phút (để lâu quả bị nứt, không đạt yêu cầu). Lấy ra, ngày phơi nắng, đêm sấy nhẹ. Sau đó, bóc vỏ, lấy cùi đem phơi nắng hoặc sấy đến khi cầm không còn dính tay, cùi rời từng cái là được.
Khi phơi, chú ý tránh bụi bẩn và ruồi nhặng. Nếu nhiều (ở phạm vi sản xuất công nghiệp), đem sấy quả nhãn bằng than củi ở nhiệt độ 35-40 độ C đến khi cầm quả lắc nghe có tiếng lọc cọc ở trong là được. Bóc lấy cùi (chú ý nhẹ tay, tránh làm nát vụn). Tãi mỏng cùi trên nong sạch, sấy ở nhiệt độ 30-35 độ C đến khô. Cứ 10kg quả nhãn tươi có thể thu được 1-1,2 kg long nhãn.
Quả nhãn được dùng làm long nhãn thường là nhãn nước, loại nhãn trơ với cùi rất mỏng không được dùng làm long nhãn. Long nhãn tốt là những phiến dầy, khô bóng, mềm dẻo, sờ không dính tay, có màu cánh gián hoặc đôi khi màu nâu sẫm, mùi thơm, vị ngọt sắc. Nhiều người cho rằng ăn nhiều long nhãn thì nóng. Trên cơ sở khoa học, chính cái "nóng" ấy đã nói lên giá trị dinh dưỡng cao mà long nhãn cung cấp cho cơ thể nhiều năng lượng.
Do đó, y học cổ truyền coi long nhãn như một vị thuốc có tác dụng bồi bổ cơ thể, dưỡng huyết, an thần, thêm trí nhớ, vào hai kinh tâm và tỳ, chữa suy nhược thần kinh, mệt mỏi, kém ngủ, hay quên, hoảng hốt. Liều dùng hằng ngày: 6-15g dưới dạng thuốc sắc, chế cao hoặc ngâm rượu uống. Dùng riêng hoặc phối hợp với những vị thuốc khác trong những trường hợp khác.

Thuốc bổ toàn thân

Long nhãn 100g, táo Tàu 50g, giã nhỏ ngâm với 500ml rượu 40 độ C, càng lâu càng tốt. Ngày uống 2-3 chén con trước bữa ăn, có thể thêm đương quy, thục địa, tang thầm. Hoặc long nhãn 30g, sâm bố chính 20g, tẩm nước gừng sao vàng; trộn chung hãm với 100ml nước sôi, uống làm hai lần trong ngày.
Cao "Nhị long ẩm" của Hải Thượng Lãn Ông gồm 50% long nhãn và 50% cao ban long là phương thuốc bổ cổ điển rất tốt cho người cao tuổi đang trong thể trạng suy yếu. Cách chế và dùng như sau: Sắc long nhãn với nước rồi cho cao ban long đã thái mỏng vào. Đun nóng cho tan cao. Để nguội, khi dùng lấy mỗi lần 10g uống vào lúc sáng sớm và trước khi ngủ.

Thuốc bổ tâm, an thần

Long nhãn 100g, giã nhuyễn, trộn với bột hạt sen 100g, thêm mật ong vừa đủ để thành một khối bột dẻo, rồi làm viên bằng hạt đỗ xanh. Ngày uống 3 lần, mỗi lần 12g.
Long nhãn 200g, liên nhục 200g, táo Tàu 200g, táo nhân 200g, hoài sơn 200g, lá vông nem 150g, cam thảo 130g. Long nhãn, táo Tàu, lá vông nem nấu thành cao lỏng; liên nhục, hoài sơn, táo nhân sao giòn, tán nhỏ, rây bột mịn. Trộn cao và bột, đánh đều, làm viên bằng hạt ngô. Ngày uống 20-40 viên chia làm 2 lần. Hoặc long nhãn 30g, phục thần 30g, hoàng kỳ 30g, toan táo nhân 3g, nhân sâm 15g, mộc hương 15g, chích cam thảo 8g, đương quy 3g, viễn chí 3g, ngâm rượu uống hằng ngày (Quy tỳ thang).

Tương Bần

Anh đi anh nhớ quê nhà

Nhớ canh rau muống, nhớ cà dầm tương

Câu ca dao xưa đi vào lòng người gợi nhớ tới đồng quê, biển lúa. Dân ta có câu “tương cà gia bản”, chỉ cần một ao rau muống, một chum tương với một vại cà thì yên chí cả năm không phải lo đến việc ăn uống thường nhật.
Tương ngon phải kể đến tương Bần, tương Phố Hiến. Tương ở đây sánh vàng, thơm ngậy, hạt đỗ được xay nhỏ, nước tương màu cánh gián. Nó được chế biến bằng gạo nếp cái với đỗ tương ta, hạt nhỏ chứa nhiều đạm. Rang đỗ là một nghệ thuật của tài củi lửa. Đỗ phải rang với cát, tay đảo đều, lửa đượm, hạt đỗ chín đều lên màu vàng bốc mùi thơm. Ủ mốc người ta dùng lá khoai, lá sen. Khi mốc lên hoa hòe, cầm nắm mốc xốp nhẹ là được.
Ngả tương là một ngày trọng đại. Chum tương đã được ngâm nước vài lần, cọ rửa sạch sẽ. Nước ngâm đỗ phải là nước giếng đất hoặc giếng xây đá tổ ong, không dùng nước máy. Nước ngâm đỗ có váng bọt vớt bỏ ra ngoài. Vào một buổi sáng mát lành, liều lượng đã thuộc, thì ngả tương cho đến khi mặt trời lên cao nắng nóng thì nghỉ. Sau đó cứ sáng ra người ta lấy gậy khuấy đều rồi đậy bằng chậu sành, tránh nắng chứ không tránh nóng. Tương ngấu càng để lâu càng ngon, người ta san ra hũ, ra chai ăn dần.
Người ta gọi tương ngọt không phải ngọt như nước đường, mà vì có độ đạm cao, chế biến tinh khiết, nguyên liệu chọn lọc, để lâu không hỏng. Nhìn mâm cơm có bát tương gừng, người ta nghĩ đến đĩa thịt luộc, hoặc bát thịt bò tái với cút rượu Trương Xá. Cái béo ngậy của thịt, đậm ngọt của tương, thơm cay của gừng thêm nhánh rau thơm, mấy thứ ấy bổ sung cho nhau bữa ăn có thể nói là nhớ đời.
Tương là món ăn mang ý nghĩa cộng đồng. Trong mâm cơm mọi thứ rau dưa, thịt cá đều chấm vào đó, mới nổi hương vị. Nó đằm thắm mà khiêm tốn, không xốc nổi, sắc sảo như các thứ nước mắm miền biển, được coi là gia bản, xứng đáng được người Hưng Yên ưa chuộng.

Chùm ảnh về đảo cò ở Hải Dương