text:
TOP Các hàm sắp xếp theo ABC
Chia sẻ: Danh Ngoc | Ngày: | Loại File: PDF | Số trang:56
lượt xem 46
download
TOP Các hàm sắp xếp theo ABC
Cần bảo đảm loại bỏ tất cả các khoá với câu lệnh Unlock tương ứng trước khi đóng tập tin hoặc thoát khỏi chương trình(các đối số phải tương hợp chính xác). Nếu không tập tin có thể bị rối loạn.Gọi một cửa sổ đang chạy activate (Nếu cửa sổ đó chưa được mở sẽ xảy ra lỗi). Gán các giá trị trong arglist vào một mảng.
Bình luận(0) Đăng nhập để gửi bình luận!
Nội dung Text: TOP Các hàm sắp xếp theo ABC
- TOP Các hàm sắp xếp theo ABC A B C D E F G H H I J K L M N O P Q R S T U V W X Y Z Tên hàm: Abs Mô tả: Abs (number) Lấy trị tuyệt đối của số Number Tham số: Number Số cần tính Ví dụ: Option Explicit Private Sub Form_Load() Dim MyNumber MyNumber = Abs(50.3)' Returns 50.3. MyNumber = Abs(-50.3)' Returns 50.3. End Sub .................................. Return Top ................................... Tên hàm: AppActivate Mô tả: AppActivate title [, wait] Gọi một cửa sổ đang chạy activate (Nếu cửa sổ đó chưa được mở sẽ xảy ra lỗi) Tham số: title Tiêu đề của cửa sổ đó wait Thời gian chờ Ví dụ: Option Explicit Private Sub Form_Load() Dim MyAppID, ReturnValue AppActivate "Microsoft Word"' Activate Microsoft ' Ham AppActivate co the su dung gia tri do hm shell tra ve MyAppID = Shell("C:\WORD\WINWORD.EXE", 1)' Run Microsoft Word. AppActivate MyAppID' Activate Microsoft ' Word. ReturnValue = Shell("c:\EXCEL\EXCEL.EXE", 1)' Run Microsoft Excel. AppActivate ReturnValue' Activate Microsoft ' Excel. End Sub Tham khảo thêm: SendKeys Shell .................................. Return Top ..................................... Tên hàm: Array Mô tả: Array(arglist) Gán các giá trị trong arglist vào một mảng. Tham số: arglist : chứa giá trị của cần tạo mảng, các giá trị cách nhau bằng dấu phẩy (,). Giá trị đầu sẽ được gán cho chỉ số index đầu, giá trị thứ 2 gán cho chỉ số index 2...
- Ví dụ: Dim MyWeek, MyDay MyWeek = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun") ' Return values assume lower bound set to 1 (using Option Base ' statement). MyDay = MyWeek(2)' MyDay contains "Tue". MyDay = MyWeek(4)' MyDay contains "Thu". .................................. Return Top ..................................... Tên hàm: Asc Mô tả: Asc (string) Chuyển ký tự thành mã Ascii Tham số: string Chuỗi cần chuyển Ví dụ: Option Explicit Private Sub Form_Load() Dim MyNumber MyNumber = Asc("A")' Returns 65. MyNumber = Asc("a")' Returns 97. MyNumber = Asc("Apple")' Returns 65. End Sub Tham khảo thêm: Chr .................................. Return Top ..................................... Tên hàm: AscW Mô tả: AscW (string) Chuyển ký tự thành mã Ascii (hỗ trợ Unicode) Tham số: string Chuỗi cần chuyển Ví dụ: Option Explicit Private Sub Form_Load() Dim MyNumber MyNumber = AscW("A")' Returns 65. MyNumber = AscW("a")' Returns 97. MyNumber = AscW("Apple")' Returns 65. End Sub Tham khảo thêm: ChrW .................................. Return Top .................................... Tên hàm: Atn Mô tả: Atn (number) Lấy Arctang của số Number Tham số: Number Số cần tính Ví dụ: Option Explicit Private Sub Form_Load() Dim Pi Pi = 4 * Atn(1)' Tinh gia tri cua hang so Pi End Sub Tham khảo thêm: Cos Sin Sqr Tan .................................. Return Top ....................................
- Tên hàm: Beep Mô tả: Beep Phát ra tiếng Beep từ loa của hệ thống Ví dụ: Option Explicit Private Sub Form_Load() Dim I 'Phat ra ba tieng beep lien tuc For I = 1 To 3 Beep Next I End Sub .................................. Return Top .................................... Tên hàm: Call Mô tả: [Call] name [argumentlist] Thực thi 1 sub, function hay 1 DLL procedure. Từ khóa Call thì tùy chọn, nhưng nếu nó được sử dụng thì bạn phải đặt argumentlist trong dấu đóng mở ngoặc () và nên có truyền đối số. Tham số: name : tên thủ tục cần gọi. argumentlist : danh sách các đối số truyền vào (tùy chọn). Ví dụ: ' Call a Sub procedure. Call PrintToDebugWindow("Hello World") ' The above statement causes control to be passed to the following ' Sub procedure. Sub PrintToDebugWindow(AnyString) Debug.Print AnyString' Print to the Immediate window. End Sub ' Call an intrinsic function. The return value of the function is ' discarded. Call Shell(AppName, 1)' AppName contains the path of the ' executable file. ' Call a Microsoft Windows DLL procedure. The Declare statement must be ' Private in a Class Module, but not in a standard Module. Private Declare Sub MessageBeep Lib "User" (ByVal N As Integer) Sub CallMyDll() Call MessageBeep(0)' Call Windows DLL procedure. MessageBeep 0' Call again without Call keyword. End Sub .................................. Return Top .................................... Tên hàm: CallByName Mô tả: CallByName (object, procname, calltype[, args()]) Điều khiển một đối tượng thông qua các thuộc tính của nó Tham số: object Tên đối tượng procname Tên thuộc tính calltype Phương thức giao tiếp args() Giá trị mảng
- Ví dụ: Option Explicit Private Sub Form_Load() Dim Result ' Gan thuoc tinh MousePointer cua Text1 = vbCrosshair CallByName Text1, "MousePointer", VbLet, vbCrosshair 'Lay thuoc tinh MousePointer hien tai cua Text1 Result = CallByName(Text1, "MousePointer", VbGet) 'Di chuyen Text1 den vi tri 100, 100 CallByName Text1, "Move", VbMethod, 100, 100 End Sub .................................. Return Top .................................... Tên hàm: CBool Mô tả: Cbool (expression) Chuyển đổi biểu thức expression sang kiểu Boolean Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim A, B Dim Check As Boolean A = 5: B = 5'Khoi tao bien Check = CBool(A = B)' Returns True A = 0' Define variable. Check = CBool(A)' Returns False End Sub .................................. Return Top .................................... Tên hàm: CByte Mô tả: Cbyte (expression) Chuyển đổi biểu thức expression sang kiểu Byte Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDouble, MyByte MyDouble = 125.5678' khoi tao MyByte = CByte(MyDouble)' MyByte = 126. End Sub .................................. Return Top ..................................... Tên hàm: CCur Mô tả: Ccur (expression) Chuyển đổi biểu thức expression sang kiểu Currency Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDouble, MyCurr MyDouble = 543.214588' Khoi tao MyCurr = CCur(MyDouble * 2)' Chuyen doi MyDouble * 2 ' Returns (1086.429176) to a ' Returns Currency (1086.4292). End Sub .................................. Return Top .....................................
- Tên hàm: CDate Mô tả: Cdate (expression) Chuyển đổi biểu thức expression sang kiểu Date Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDate, MyShortDate, MyTime, MyShortTime MyDate = "August 10, 2003"' Khoi tao MyShortDate = CDate(MyDate)'Returns 8/10/1003 MyTime = "4:35:47 PM"' Khoi tao MyShortTime = CDate(MyTime)'Returns 4:35:47 PM End Sub .................................. Return Top ..................................... Tên hàm: CDbl Mô tả: CDbl (expression) Chuyển đổi biểu thức expression sang kiểu Double Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyCurr, MyDouble MyCurr = CCur(234.456784) MyDouble = CDbl(MyCurr * 8.2 * 0.01) End Sub .................................. Return Top .................................... Tên hàm: CDec Mô tả: Cdec (expression) Chuyển đổi biểu thức expression sang kiểu Decimal Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDecimal, MyCurr MyCurr = 10000000.0587 MyDecimal = CDec(MyCurr)' Returns 10000000.0587 End Sub .................................. Return Top ..................................... Tên hàm: ChDir Mô tả: ChDir Path Thay đổi đường dẫn của các thư mục hiện hành Tham số: Path Đường dẫn muốn đến Ví dụ: Option Explicit Private Sub Form_Load() ChDir "D:\MyPicture" End Sub Tham khảo thêm: ChDrive
- CurDir Dir .................................. Return Top .................................... Tên hàm: ChDrive Mô tả: ChDirve Drive Thay đổi ổ đĩa hiện hành Tham số: Drive ổ đĩa muốn đến Ví dụ: Option Explicit Private Sub Form_Load() ChDrive "D:\" End Sub Tham khảo thêm: ChDir CurDir Dir .................................. Return Top ..................................... Tên hàm: Choose Mô tả: Choose(index, choice-1[, choice-2,... [, choice-n]]) Chọn một giá trị trong dãy giá trị cho trước ham số: index Vi trí giá trị muốn chọn choice-1[, choice-2, ... [, choice-n]] Dãy giá trị ban đầu Ví dụ: Option Explicit Private Sub Form_Load() Dim Result Result = Choose(1, "Speedy", "United", "Federal")'Returns Speedy Result = Choose(3, "Speedy", "United", "Federal")'Returns Federal End Sub Tham khảo thêm: IIf Switch .................................. Return Top ..................................... Tên hàm: Chr Mô tả: Chr(charcode) Chuyển mã Ascii thành ký tự Tham số: charcode Mã cần chuyển Ví dụ: Option Explicit Private Sub Form_Load() Dim MyChar MyChar = Chr(65)' Returns A. MyChar = Chr(97)' Returns a. MyChar = Chr(62)' Returns >. MyChar = Chr(37)' Returns %. End Sub Tham khảo thêm: Asc .................................. Return Top ....................................
- Tên hàm: ChrW Mô tả: ChrW(charcode) Chuyển mã Ascii thành ký tự (Hỗ trợ Unicode) Tham số: charcode Mã cần chuyển Ví dụ: Option Explicit Private Sub Form_Load() Dim MyChar MyChar = ChrW(65)' Returns A. MyChar = ChrW(97)' Returns a. MyChar = ChrW(62)' Returns >. MyChar = ChrW(37)' Returns %. End Sub Tham khảo thêm: AscW .................................. Return Top ..................................... Tên hàm: CInt Mô tả: Cint (expression) Chuyển đổi biểu thức expression sang kiểu Integer Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDouble, MyInt MyDouble = 2345.5678' Khoi tao MyInt = CInt(MyDouble)' Returns 2346. End Sub .................................. Return Top ..................................... Tên hàm: CLng Mô tả: CLng (expression) Chuyển đổi biểu thức expression sang kiểu Long Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyVal1, MyVal2, MyLong1, MyLong2 MyVal1 = 25427.45: MyVal2 = 25427.55' Khoi tao MyLong1 = CLng(MyVal1)'Returns 25427. MyLong2 = CLng(MyVal2)'Returns 25428. End Sub .................................. Return Top ..................................... Tên hàm: Close Mô tả: Close (#Filenum)' Đóng tập tin đã được mở bằng lệnh Open. Tham số: #Filenum : chỉ số của tập tin. Ví dụ: Option Explicit Type Record ID As Integer Name As String * 20 End Type Private Sub Form_Load()
- Dim MyRecord As Record Open "TESTFILE" For Random As #1 Len = Len(MyRecord)' Mo file Do While Not EOF(1)' Lap cho den khi ket thuc file Get #1, , MyRecord' Doc mau tin Debug.Print Seek(1)' In so mau tin 'Seek #1, 3 'Trỏ tới vị trí mẫu tin thứ 3 Loop Close #1' Dong file. End Sub Tham khảo thêm: Open .................................. Return Top ..................................... Tên hàm: Command Mô tả: Command Lấy đối số truyền từ dòng lệnh Ghi chú: Ví dụ nếu bạn có ứng dụng tên MyApp thì khi bạn chạy: MyApp.exe caulacbovb ---> đối số bạn nhận được là: caulacbovb Ví dụ: Function GetCommandLine(Optional MaxArgs) 'Declare variables. Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs 'See if MaxArgs was provided. If IsMissing(MaxArgs) Then MaxArgs = 10 'Make array of the correct size. ReDim ArgArray(MaxArgs) NumArgs = 0: InArg = False 'Get command line arguments. CmdLine = Command() CmdLnLen = Len(CmdLine) 'Go thru command line one character 'at a time. For I = 1 To CmdLnLen C = Mid(CmdLine, I, 1) 'Test for space or tab. If (C " " And C vbTab) Then 'Neither space nor tab. 'Test if already in argument. If Not InArg Then 'New argument begins. 'Test for too many arguments. If NumArgs = MaxArgs Then Exit For NumArgs = NumArgs + 1 InArg = True End If 'Concatenate character to current argument. ArgArray(NumArgs) = ArgArray(NumArgs) & C Else 'Found a space or tab. 'Set InArg flag to False. InArg = False End If Next I 'Resize array just enough to hold arguments. ReDim Preserve ArgArray(NumArgs) 'Return Array in Function name. GetCommandLine = ArgArray() End Function .................................. Return Top .....................................
- Tên hàm: Const Mô tả: [Public | Private] Const constname [As type] = expression Khai báo 1 hằng số. Từ khóa [Public | Private] tùy chọn dùng để định nghĩa phạm vi sử dụng của hằng số Tham số: constname : tên hằng số. [As type] : kiểu dữ liệu (tùy chọn). Nếu không khai báo sẽ lấy kiểu dữ liệu phù hợp với giá trị hiện có. expression : giá trị miêu tả. Ví dụ: ' Constants are Private by default. Const MyVar = 459 Const Pi = 3.14 ' Declare Public constant. Public Const MyString = "HELP" ' Declare Private Integer constant. Private Const MyInt As Integer = 5 ' Declare multiple constants on same line. Const MyStr = "Hello", MyDouble As Double = 3.4567 .................................. Return Top .................................... Tên hàm: Cos Mô tả: Cos (number) Lấy Cos của số Number Tham số: Number Số cần tính Ví dụ: Option Explicit Private Sub Form_Load() Dim MyAngle, MySecant MyAngle = 1.3' Khoi tao MySecant = 1 / Cos(MyAngle)' Tinh secant End Sub Tham khảo thêm: Atn Sin Sqr Tan .................................. Return Top.................................... Tên hàm: CSng Mô tả: CSng (expression) Chuyển đổi biểu thức expression sang kiểu Single Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDouble1, MyDouble2, MySingle1, MySingle2 MyDouble1 = 75.3421115: MyDouble2 = 75.3421555' khoi tao MySingle1 = CSng(MyDouble1)' Returns 75.34211. MySingle2 = CSng(MyDouble2)' Returns 75.34216. End Sub .................................. Return Top ....................................
- Tên hàm: CStr Mô tả: CStr (expression) Chuyển đổi biểu thức expression sang kiểu String Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDouble, MyString MyDouble = 437.324' Khoi tao MyString = CStr(MyDouble)' Returns "437.324". End Sub .................................. Return Top ..................................... Tên hàm: CurDir Mô tả: CurDir ([Drive]) Xem đường dẫn hiện tại trên một ổ đĩa Tham số: Drive ổ đĩa muốn xem Ví dụ: Option Explicit Private Sub Form_Load() Dim MyPath ' Gia su duong dan hien tai tren o C la "C:\WINDOWS\SYSTEM" . ' Gia su duong dan hien tai tren o D la "D:\EXCEL". ' Gia su o dia hien hanh la o C MyPath = CurDir' Returns "C:\WINDOWS\SYSTEM". MyPath = CurDir("C")' Returns "C:\WINDOWS\SYSTEM". MyPath = CurDir("D")' Returns "D:\EXCEL". End Sub Tham khảo thêm: ChDir ChDrive Dir .................................. Return Top .................................... Tên hàm: CVar Mô tả: Cvar (expression) Chuyển đổi biểu thức expression sang kiểu Variant Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyInt, MyVar MyInt = 4534' MyInt is an Integer. MyVar = CVar(MyInt & "000")' MyVar contains the string 4534000. End Sub .................................. Return Top .................................... Tên hàm: CVErr Mô tả: CVErr(errornumber) Trả về con số kiểu lỗi định nghĩa bởi người dùng. Tham số: errornumber : số lỗi. Ví dụ: ' Call CalculateDouble with an error-producing argument. Sub Test()
- Debug.Print CalculateDouble("345.45robert") End Sub ' Define CalculateDouble Function procedure. Function CalculateDouble(Number) If IsNumeric(Number) Then CalculateDouble = Number * 2' Return result. Else CalculateDouble = CVErr(2001)' Return a user-defined error End If' number. End Function .................................. Return Top .................................... Tên hàm: Date Mô tả: Hàm: Date Trả về ngày hiện tại của hệ thống. Lệnh: Date = date Đặt lại ngày hiện tại cho hệ thống. Ví dụ: 'Lấy ngày hiện tại của hệ thống: Dim MyDate MyDate = Date' MyDate contains the current system date. 'Đặt lại ngày hiện tại cho hệ thống: Dim MyDate MyDate = #February 12, 1985#' Assign a date. Date = MyDate' Change system date. .................................. Return Top ..................................... Tên hàm: DateAdd Mô tả: DateAdd(interval, number, date) Thêm thời gian Tham số: interval Đơn vị thời gian number Thời gian thêm vào date Thời gian cần thêm vào Ghi chú: Dùng cho tham số interval yyyy Year q Quarter m Month y Day of year d Day w Weekday ww Week h Hour n Minute s Second Ví dụ: Option Explicit Private Sub Form_Load() Dim FirstDate As Date Dim IntervalType As String
- Dim Number As Integer Dim Msg IntervalType = "m"' "m" gan don vi la thang FirstDate = InputBox("Nhap vao thoi gian")' Vi du 08/10/2003 Number = InputBox("Nhap vao so thang ban muon them")'3 ' Returns 11/10/2003 Msg = "New date: " & DateAdd(IntervalType, Number, FirstDate) MsgBox Msg End Sub .................................. Return Top .................................... Tên hàm: DateDiff Mô tả: DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) Tính khoảng thời gian giữa date1 và date2 Tham số: interval Đơn vị thời gian date1 Thời điểm 1 date2 Thời điểm 2 firstdayofweek Ngày đầu tiên trong tuần firstweekofyear Tuần đầu tiên trong năm Ghi chú: Dùng cho tham số interval yyyy Year q Quarter m Month y Day of year d Day w Weekday ww Week h Hour n Minute s Second Dùng cho tham số firstdayofweek vbUseSystem = 0 Sử dụng NLS API setting. VbSunday = 1 Sunday (default) vbMonday = 2 Monday vbTuesday = 3 Tuesday vbWednesday = 4 Wednesday vbThursday = 5 Thursday vbFriday = 6 Friday vbSaturday = 7 Saturday Dùng cho tham số firstweekofyear
- vbUseSystem 0 Sử dụng NLS API setting. vbFirstJan1 = 1 Bắt đầu tại tuần thứ nhất trong tháng một (default) vbFirstFourDays = 2 Bắt đầu tại tuần thứ nhất và có ít nhất 4 ngày trong năm vbFirstFullWeek = 3 Bắt đầu với cả tuần thứ nhất trong năm Ví dụ: Option Explicit Private Sub Form_Load() Dim TheDate As Date Dim Msg TheDate = InputBox("Enter a date") Msg = "Days from today: " & DateDiff("d", Now, TheDate) MsgBox Msg End Sub Tham khảo thêm: DatePart .................................. Return Top ..................................... Tên hàm: DatePart Mô tả: DatePart (interval, date [,firstdayofweek [, firstweekofyear]]) Rút bất kỳ thông tin ngày tháng và thời gian từ giá trị date Tham số: interval Đơn vị thời gian date Thời gian firstdayofweek Ngày đầu tiên trong tuần firstweekofyear Tuần đầu tiên trong năm Ghi chú: Dùng cho tham số interval yyyy Year q Quarter m Month y Day of year d Day w Weekday ww Week h Hour n Minute s Second Dùng cho tham số firstdayofweek vbUseSystem = 0 Sử dụng NLS API setting. VbSunday = 1 Sunday (default) vbMonday = 2 Monday vbTuesday = 3 Tuesday vbWednesday = 4
- Wednesday vbThursday = 5 Thursday vbFriday = 6 Friday vbSaturday = 7 Saturday Dùng cho tham số firstweekofyear vbUseSystem 0 Sử dụng NLS API setting. vbFirstJan1 = 1 Bắt đầu tại tuần thứ nhất trong tháng một (default) vbFirstFourDays = 2 Bắt đầu tại tuần thứ nhất và có ít nhất 4 ngày trong năm vbFirstFullWeek = 3 Bắt đầu với cả tuần thứ nhất trong năm Ví dụ: Option Explicit Private Sub Form_Load() Dim TheDate As Date Dim Msg TheDate = InputBox("Enter a date:")' 08/10/2003 Msg = "Quarter: " & DatePart("d", TheDate)' Returns 10 Msg = "Quarter: " & DatePart("m", TheDate)' Returns 08 MsgBox Msg End Sub Tham khảo thêm: DateDiff .................................. Return Top .................................... Tên hàm: DateSerial Mô tả: DateSerial (year, month, day) Chuyển các thông số rời rạc của ngày tháng thành một chuỗi ngày tháng Tham số: year Năm month Tháng day Ngày Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDate MyDate = DateSerial(2003, 8, 10)' Return 8/10/2003 End Sub Tham khảo thêm: TimeSerial .................................. Return Top .................................... Tên hàm: DateValue Mô tả: DateValue(date) Chuyển ngày tháng dạng chuỗi sang giá trị Tham số: date Ngày tháng cần chuyển Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDate MyDate = DateValue("August 10, 2003")' Return 8/10/2003 End Sub
- Tham khảo thêm: TimeValue .................................. Return Top ..................................... Tên hàm: Day Mô tả: Day(date) Lấy thông tin ngày từ chuỗi date Tham số: date Ngày tháng Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDate, MyDay MyDate = #8/10/2003#' Khoi tao MyDay = Day(MyDate)' Returns 10 End Sub Tham khảo thêm: Month Year .................................. Return Top .................................... Tên hàm: Declare Mô tả: [Public | Private] Declare Sub name Lib "libname" [Alias "aliasname"] [([arglist])] hay [Public | Private] Declare Function name Lib "libname" [Alias "aliasname"] [([arglist])] [As type] Khai báo tham chiếu tới 1 thủ tục Sub hay Function trong 1 file DLL (dynamic-link library). Từ khóa [Public | Private] tùy chọn chỉ định phạm vi sử dụng. Tham số: name : tên Sub hay Function cần gọi. libname : chỉ rỏ file DLL có chứa Sub hay Function được gọi. aliasname : chỉ rỏ bí danh của Sub hay Function trong file DLL. arglist : danh sách các đối số. As type : kiểu dữ liệu trả về của Function. Ghi chú: Nếu sử dụng Function bạn phải chỉ rỏ kiểu dữ liệu trả về. Phát biểu Declare chỉ được sử dụng ở cấp độ module. Ví dụ: ' In Microsoft Windows (16-bit): Declare Sub MessageBeep Lib "User" (ByVal N As Integer) ' Assume SomeBeep is an alias for the procedure name. Declare Sub MessageBeep Lib "User" Alias "SomeBeep"(ByVal N As Integer) ' Use an ordinal in the Alias clause to call GetWinFlags. Declare Function GetWinFlags Lib "Kernel" Alias "#132"() As Long ' In 32-bit Microsoft Windows systems, specify the library USER32.DLL, ' rather than USER.DLL. You can use conditional compilation to write ' code that can run on either Win32 or Win16. #If Win32 Then Declare Sub MessageBeep Lib "User32" (ByVal N As Long) #Else Declare Sub MessageBeep Lib "User" (ByVal N As Integer) #End If .................................. Return Top ..................................... Tên hàm: DeleteSetting Mô tả: DeleteSetting appname, section [, key] Xóa registry Tham số: appname Tên registry section
- Tên section key Tên key Ví dụ: Option Explicit Private Sub Form_Load() ' luu mot thong tin registry moi SaveSetting appname:="MyApp", section:="Startup", _ Key:="Top", setting:=75 SaveSetting "MyApp", "Startup", "Left", 50 ' Xoa key Startup trong MyApp DeleteSetting "MyApp", "Startup" End Sub Tham khảo thêm: GetAllSettings GetSetting SaveSetting .................................. Return Top ..................................... Tên hàm: Dir Mô tả: Dir [(pathname [, attributes])] Tham số: pathname Đường dẫn muốn kiểm tra attributes Thuộc tích của file hay folder muốn kiểm tra Ghi chú: Dùng cho tham số attributes vbNormal = 0 Không quan tâm đến thuộc tính của các hồ sơ vbReadOnly = 1 Chỉ quan tâm đến các hồ sơ có thuộc tính chỉ đọc vbHidden = 2 Chỉ quan tâm đến các hồ sơ có thuộc tính ẩn vbVolume = 8 Chỉ quan tâm đến các hồ sơ không có thuộc tính vbDirectory 16 Chỉ quan tâm đến các thư mục Ví dụ: Option Explicit Private Sub Form_Load() Dim MyFile, MyPath, MyName ' Myfile = WIN.INI neu file do co ton tai MyFile = Dir("C:\WINDOWS\WIN.INI") ' Myfile = file dau tien trong thu muc C:Windows\ co duoi la INI MyFile = Dir("C:\WINDOWS\*.INI") ' Goi lai viec kiem tra MyFile = Dir ' Myfile = file dau tien trong thu muc C:Windows\ co duoi la TXT va co thuoc tinh an MyFile = Dir("*.TXT", vbHidden) MyPath = "c:\"' Gan MyPath = "C:\" MyName = Dir(MyPath, vbDirectory)' Gan MyName= ten thu muc dau tien trong MyPath Do While MyName ""' Bat dau vong lap 'Bo qua cac thu muc hien tai va thu muc xung quanh If MyName "." And MyName ".." Then ' Su dung su so sanh phan theo Bit de chac chac MyName la mot thu muc If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then Debug.Print MyName End If End If MyName = Dir' Nhay den thu muc ke tiep Loop End Sub
- Tham khảo thêm: ChDir ChDrive CurDir .................................. Return Top .................................... Tên hàm: Environ Mô tả: Environ({envstring | number}) Tìm đường dẫn environment của hệ thống Tham số: envstring | number Tên của environment Ví dụ: Option Explicit Private Sub Form_Load() Dim EnvString, Indx, Msg, PathLen' Declare variables. Indx = 1 Do EnvString = Environ(Indx)' Lay ten environment ' Kiem tra duong dan co ton tai khong If Left(EnvString, 5) = "PATH=" Then PathLen = Len(Environ("PATH"))' lay chieu dai duong dan Msg = "PATH entry = " & Indx & " and length = " & PathLen Exit Do Else Indx = Indx + 1' Tiep tu voi cac environment khac End If Loop Until EnvString = "" If PathLen > 0 Then MsgBox Msg Else MsgBox "Khong co Path environment nao ton tai." End If End Sub .................................. Return Top ..................................... Tên hàm: EOF Mô tả: EOF(filenumber) Kiểm tra xem file đã kết thúc chưa Tham số: filenumber Tên file (dạng số #n) Ví dụ: Option Explicit Private Sub Form_Load() Dim InputData Open "MYFILE" For Input As #1' Mo file de doc Do While Not EOF(1)' Kiem tra xem file da ket thuc chua Line Input #1, InputData' Doc tung dong Debug.Print InputData' in ra tung dong Loop Close #1' Dong file End Sub Tham khảo thêm: Loc LOF .................................. Return Top ....................................
- Tên hàm: Exp Mô tả: Exp(number) Hàm mũ Tham số: Number Số cần tính Ví dụ: Option Explicit Private Sub Form_Load() Dim MyAngle, MyHSin MyAngle = 1.3'Khoi tao ' Tinh hyperbolic sine. MyHSin = (Exp(MyAngle) - Exp(-1 * MyAngle)) / 2 End Sub Tham khảo thêm: Log .................................. Return Top ..................................... Tên hàm: FileAttr Mô tả: FileAttr(filenumber, returntype) Xem thuộc tính của file đang mở Tham số: filenumber Tên file (dạng số #n) returntype Loại giá trị trả về Ghi chú: ********Giá trị trả về********* Input = 1 Nhập Output = 2 Xuất Random = 4 Ngẫu nhiên Append = 8 Thêm vào Binary = 32 Nhị phân Ví dụ: Option Explicit Private Sub Form_Load() Dim FileNum, Mode, Handle FileNum = 1' Khoi tao Open "TESTFILE" For Append As FileNum' Mo File Mode = FileAttr(FileNum, 1)' Returns 8 (Append file) Handle = FileAttr(FileNum, 2)' Returns file handle. Close FileNum' Close file. End Sub .................................. Return Top .................................... Tên hàm: FileCopy Mô tả: FileCopy source, destination Copy file từ thư mục này sang thư mục khác Tham số: source Đường dẫn nguồn destination Đường dẫn đích Ví dụ: Option Explicit Private Sub Form_Load() FileCopy "D:\MyFile.txt", "C:\MyFile.txt"
- End Sub Tham khảo thêm: FileLen Kill .................................. Return Top .................................... Tên hàm: FileDateTime Mô tả: FileDateTime (pathname) Trả về chuỗi ngày giờ mà File được tạo hoặc ngày giờ chỉnh sửa cuối cùng Tham số: pathname Đường dẫn file muốn kiểm tra Ví dụ: Option Explicit Private Sub Form_Load() Dim MyStamp ' Gia su C:\TestFile.txt duoc chinh sua lan cuoi vao ngay 01/08/2003 4:10:45 PM MyStamp = FileDateTime("C:\TestFile.txt")' MyStamp = "01/08/2003 4:10:45 PM" End Sub .................................. Return Top .................................... Tên hàm: FileLen Mô tả: FileLen (pathname) Tra ve so Byte cua File Tham số: pathname Đường dẫn file muốn lấy kích thước Ví dụ: Option Explicit Private Sub Form_Load() FileLen "D:\MyFile.txt"'Return so byte cua MyFile.txt End Sub Tham khảo thêm: FileCopy Kill .................................. Return Top .................................... Tên hàm: Filter Mô tả: Filter (sourcearray, match [, include [, compare]]) Lọc mảng sourcesrray với giá trị lọc là match Tham số: sourcearray Mảng cần lọc match Giá trị lọc include Lọc đảo (True hoặc False) compare Chỉ rõ kiểu dữ liệu để so sánh trong quá trình lọc Ghi chú: Dùng cho tham số compare vbUseCompareOption = –1 Chế độ tùy chọn, VB sẽ tự động lựa lọai dữ liệu thích hợp vbBinaryCompare = 0 So sánh nhị phân vbTextCompare = 1 So sánh chuỗi vbDatabaseCompare = 2 So sánh dữ liệu Ví dụ: Option Explicit Private Sub Form_Load() Dim selNames() As String
- Dim Names(1 To 5) As String Names(1) = "A" Names(2) = "B" Names(3) = "C" Names(4) = "D" Names(5) = "E" selNames = Filter(Names, "A")' Returns "A" selNames = Filter(Names, "B", False)'Returns "A" , "C", "D", "E" End Sub .................................. Return Top .................................... Tên hàm: Fix Mô tả: Fix (number) Lấy phần nguyên của số Number Tham số: Number Số cần tính Ví dụ: Option Explicit Private Sub Form_Load() Dim MyNumber MyNumber = Int(99.8)' Returns 99. MyNumber = Fix(99.2)' Returns 99. MyNumber = Int(-99.8)' Returns -100. MyNumber = Fix(-99.8)' Returns -99. MyNumber = Int(-99.2)' Returns -100. MyNumber = Fix(-99.2)' Returns -99. End Sub Tham khảo thêm: Int Round .................................. Return Top .................................... Tên hàm: Format Mô tả: Format (expression [, format [, firstdayofweek [, firstweekofyear]]]) Chuyển biểu thức expression theo định dạng mong muốn Tham số: expression Biểu thức cần định dạng format Kiểu định dạng firstdayofweek Ngày đầu tiên trong tuần firstweekofyear Tuần đầu tiên trong năm Ghi chú: Dùng cho tham số firstdayofweek vbUseSystem = 0 Sử dụng NLS API setting. VbSunday = 1 Sunday (default) vbMonday = 2 Monday vbTuesday = 3 Tuesday vbWednesday = 4 Wednesday vbThursday = 5 Thursday vbFriday = 6 Friday vbSaturday = 7 Saturday Dùng cho tham số firstweekofyear
CÓ THỂ BẠN MUỐN DOWNLOAD
-
Chương 3: Các phương pháp sắp xếp và tìm kiếm
11 p | 504 | 149
-
Giáo trình giải thuật - tìm kiếm và sắp xếp
0 p | 301 | 130
-
CHƯƠNG 17: SẮP XẾP
25 p | 366 | 125
-
Bài giảng cách giải thuật sắp xếp
63 p | 246 | 91
-
Bài toán sắp xếp
7 p | 258 | 78
-
BÀI TẬP LẬP TRÌNH - DEMO CÁC PHƯƠNG PHÁP SẮP XẾP
37 p | 250 | 72
-
Chương 4. SẮP XẾP THỨ TỰ
37 p | 167 | 57
-
Bài toán về sắp xếp
22 p | 115 | 54
-
Chapter 17: SẮP XẾP
21 p | 121 | 51
-
Phụ lục 5. Tóm tắt các hàm của Turbo C theo thứ tự ABC
5 p | 88 | 20
-
Bài giảng Cấu trúc dữ liệu và giải thuật - Chương 6: Các thuật toán sắp xếp
54 p | 39 | 18
-
Session 20 - Các Kiểu dữ liệu Nâng cao và Sắp xếp
8 p | 42 | 10
-
Bài giảng Các thuật toán sắp xếp
40 p | 20 | 6
-
2.9.Sắp xếp trang trong tập tin bản vẽ
3 p | 88 | 5
-
Bài giảng Các giải thuật tìm kiếm, sắp xếp
98 p | 28 | 4
-
Thực tập Kỹ thuật lập trình: Thực hiện các chức năng sắp xếp
17 p | 7 | 4
-
Bài giảng Giới thiệu các thuật toán sắp xếp
26 p | 3 | 1

markdown:
# TOP Các hàm sắp xếp theo ABC
Chia sẻ: Danh Ngoc | Ngày: | Loại File: PDF | Số trang:56
lượt xem 46
download
![](http://image.tlvnimg.com/document/thumbnail/2010/20100504/nuoiheocuoivo/80x100/ham_vb_6_theo_abc_1714.jpg)
##
TOP Các hàm sắp xếp theo ABC
[Vui lòng tải xuống để xem tài liệu đầy đủ](javascript:void(0);)
Download
![](http://static.tlvnimg.com/b2013az/templates/version1/default/images/down16x21.png)
Cần bảo đảm loại bỏ tất cả các khoá với câu lệnh Unlock tương ứng trước khi đóng tập tin hoặc thoát khỏi chương trình(các đối số phải tương hợp chính xác). Nếu không tập tin có thể bị rối loạn.Gọi một cửa sổ đang chạy activate (Nếu cửa sổ đó chưa được mở sẽ xảy ra lỗi). Gán các giá trị trong arglist vào một mảng.
Bình luận(0)
[Đăng nhập để gửi bình luận!](javascript:void(0);)
##
Nội dung Text: TOP Các hàm sắp xếp theo ABC
- TOP Các hàm sắp xếp theo ABC A B C D E F G H H I J K L M N O P Q R S T U V W X Y Z Tên hàm: Abs Mô tả: Abs (number) Lấy trị tuyệt đối của số Number Tham số: Number Số cần tính Ví dụ: Option Explicit Private Sub Form_Load() Dim MyNumber MyNumber = Abs(50.3)' Returns 50.3. MyNumber = Abs(-50.3)' Returns 50.3. End Sub .................................. Return Top ................................... Tên hàm: AppActivate Mô tả: AppActivate title [, wait] Gọi một cửa sổ đang chạy activate (Nếu cửa sổ đó chưa được mở sẽ xảy ra lỗi) Tham số: title Tiêu đề của cửa sổ đó wait Thời gian chờ Ví dụ: Option Explicit Private Sub Form_Load() Dim MyAppID, ReturnValue AppActivate "Microsoft Word"' Activate Microsoft ' Ham AppActivate co the su dung gia tri do hm shell tra ve MyAppID = Shell("C:\WORD\WINWORD.EXE", 1)' Run Microsoft Word. AppActivate MyAppID' Activate Microsoft ' Word. ReturnValue = Shell("c:\EXCEL\EXCEL.EXE", 1)' Run Microsoft Excel. AppActivate ReturnValue' Activate Microsoft ' Excel. End Sub Tham khảo thêm: SendKeys Shell .................................. Return Top ..................................... Tên hàm: Array Mô tả: Array(arglist) Gán các giá trị trong arglist vào một mảng. Tham số: arglist : chứa giá trị của cần tạo mảng, các giá trị cách nhau bằng dấu phẩy (,). Giá trị đầu sẽ được gán cho chỉ số index đầu, giá trị thứ 2 gán cho chỉ số index 2...
- Ví dụ: Dim MyWeek, MyDay MyWeek = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun") ' Return values assume lower bound set to 1 (using Option Base ' statement). MyDay = MyWeek(2)' MyDay contains "Tue". MyDay = MyWeek(4)' MyDay contains "Thu". .................................. Return Top ..................................... Tên hàm: Asc Mô tả: Asc (string) Chuyển ký tự thành mã Ascii Tham số: string Chuỗi cần chuyển Ví dụ: Option Explicit Private Sub Form_Load() Dim MyNumber MyNumber = Asc("A")' Returns 65. MyNumber = Asc("a")' Returns 97. MyNumber = Asc("Apple")' Returns 65. End Sub Tham khảo thêm: Chr .................................. Return Top ..................................... Tên hàm: AscW Mô tả: AscW (string) Chuyển ký tự thành mã Ascii (hỗ trợ Unicode) Tham số: string Chuỗi cần chuyển Ví dụ: Option Explicit Private Sub Form_Load() Dim MyNumber MyNumber = AscW("A")' Returns 65. MyNumber = AscW("a")' Returns 97. MyNumber = AscW("Apple")' Returns 65. End Sub Tham khảo thêm: ChrW .................................. Return Top .................................... Tên hàm: Atn Mô tả: Atn (number) Lấy Arctang của số Number Tham số: Number Số cần tính Ví dụ: Option Explicit Private Sub Form_Load() Dim Pi Pi = 4 * Atn(1)' Tinh gia tri cua hang so Pi End Sub Tham khảo thêm: Cos Sin Sqr Tan .................................. Return Top ....................................
- Tên hàm: Beep Mô tả: Beep Phát ra tiếng Beep từ loa của hệ thống Ví dụ: Option Explicit Private Sub Form_Load() Dim I 'Phat ra ba tieng beep lien tuc For I = 1 To 3 Beep Next I End Sub .................................. Return Top .................................... Tên hàm: Call Mô tả: [Call] name [argumentlist] Thực thi 1 sub, function hay 1 DLL procedure. Từ khóa Call thì tùy chọn, nhưng nếu nó được sử dụng thì bạn phải đặt argumentlist trong dấu đóng mở ngoặc () và nên có truyền đối số. Tham số: name : tên thủ tục cần gọi. argumentlist : danh sách các đối số truyền vào (tùy chọn). Ví dụ: ' Call a Sub procedure. Call PrintToDebugWindow("Hello World") ' The above statement causes control to be passed to the following ' Sub procedure. Sub PrintToDebugWindow(AnyString) Debug.Print AnyString' Print to the Immediate window. End Sub ' Call an intrinsic function. The return value of the function is ' discarded. Call Shell(AppName, 1)' AppName contains the path of the ' executable file. ' Call a Microsoft Windows DLL procedure. The Declare statement must be ' Private in a Class Module, but not in a standard Module. Private Declare Sub MessageBeep Lib "User" (ByVal N As Integer) Sub CallMyDll() Call MessageBeep(0)' Call Windows DLL procedure. MessageBeep 0' Call again without Call keyword. End Sub .................................. Return Top .................................... Tên hàm: CallByName Mô tả: CallByName (object, procname, calltype[, args()]) Điều khiển một đối tượng thông qua các thuộc tính của nó Tham số: object Tên đối tượng procname Tên thuộc tính calltype Phương thức giao tiếp args() Giá trị mảng
- Ví dụ: Option Explicit Private Sub Form_Load() Dim Result ' Gan thuoc tinh MousePointer cua Text1 = vbCrosshair CallByName Text1, "MousePointer", VbLet, vbCrosshair 'Lay thuoc tinh MousePointer hien tai cua Text1 Result = CallByName(Text1, "MousePointer", VbGet) 'Di chuyen Text1 den vi tri 100, 100 CallByName Text1, "Move", VbMethod, 100, 100 End Sub .................................. Return Top .................................... Tên hàm: CBool Mô tả: Cbool (expression) Chuyển đổi biểu thức expression sang kiểu Boolean Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim A, B Dim Check As Boolean A = 5: B = 5'Khoi tao bien Check = CBool(A = B)' Returns True A = 0' Define variable. Check = CBool(A)' Returns False End Sub .................................. Return Top .................................... Tên hàm: CByte Mô tả: Cbyte (expression) Chuyển đổi biểu thức expression sang kiểu Byte Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDouble, MyByte MyDouble = 125.5678' khoi tao MyByte = CByte(MyDouble)' MyByte = 126. End Sub .................................. Return Top ..................................... Tên hàm: CCur Mô tả: Ccur (expression) Chuyển đổi biểu thức expression sang kiểu Currency Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDouble, MyCurr MyDouble = 543.214588' Khoi tao MyCurr = CCur(MyDouble * 2)' Chuyen doi MyDouble * 2 ' Returns (1086.429176) to a ' Returns Currency (1086.4292). End Sub .................................. Return Top .....................................
- Tên hàm: CDate Mô tả: Cdate (expression) Chuyển đổi biểu thức expression sang kiểu Date Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDate, MyShortDate, MyTime, MyShortTime MyDate = "August 10, 2003"' Khoi tao MyShortDate = CDate(MyDate)'Returns 8/10/1003 MyTime = "4:35:47 PM"' Khoi tao MyShortTime = CDate(MyTime)'Returns 4:35:47 PM End Sub .................................. Return Top ..................................... Tên hàm: CDbl Mô tả: CDbl (expression) Chuyển đổi biểu thức expression sang kiểu Double Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyCurr, MyDouble MyCurr = CCur(234.456784) MyDouble = CDbl(MyCurr * 8.2 * 0.01) End Sub .................................. Return Top .................................... Tên hàm: CDec Mô tả: Cdec (expression) Chuyển đổi biểu thức expression sang kiểu Decimal Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDecimal, MyCurr MyCurr = 10000000.0587 MyDecimal = CDec(MyCurr)' Returns 10000000.0587 End Sub .................................. Return Top ..................................... Tên hàm: ChDir Mô tả: ChDir Path Thay đổi đường dẫn của các thư mục hiện hành Tham số: Path Đường dẫn muốn đến Ví dụ: Option Explicit Private Sub Form_Load() ChDir "D:\MyPicture" End Sub Tham khảo thêm: ChDrive
- CurDir Dir .................................. Return Top .................................... Tên hàm: ChDrive Mô tả: ChDirve Drive Thay đổi ổ đĩa hiện hành Tham số: Drive ổ đĩa muốn đến Ví dụ: Option Explicit Private Sub Form_Load() ChDrive "D:\" End Sub Tham khảo thêm: ChDir CurDir Dir .................................. Return Top ..................................... Tên hàm: Choose Mô tả: Choose(index, choice-1[, choice-2,... [, choice-n]]) Chọn một giá trị trong dãy giá trị cho trước ham số: index Vi trí giá trị muốn chọn choice-1[, choice-2, ... [, choice-n]] Dãy giá trị ban đầu Ví dụ: Option Explicit Private Sub Form_Load() Dim Result Result = Choose(1, "Speedy", "United", "Federal")'Returns Speedy Result = Choose(3, "Speedy", "United", "Federal")'Returns Federal End Sub Tham khảo thêm: IIf Switch .................................. Return Top ..................................... Tên hàm: Chr Mô tả: Chr(charcode) Chuyển mã Ascii thành ký tự Tham số: charcode Mã cần chuyển Ví dụ: Option Explicit Private Sub Form_Load() Dim MyChar MyChar = Chr(65)' Returns A. MyChar = Chr(97)' Returns a. MyChar = Chr(62)' Returns >. MyChar = Chr(37)' Returns %. End Sub Tham khảo thêm: Asc .................................. Return Top ....................................
- Tên hàm: ChrW Mô tả: ChrW(charcode) Chuyển mã Ascii thành ký tự (Hỗ trợ Unicode) Tham số: charcode Mã cần chuyển Ví dụ: Option Explicit Private Sub Form_Load() Dim MyChar MyChar = ChrW(65)' Returns A. MyChar = ChrW(97)' Returns a. MyChar = ChrW(62)' Returns >. MyChar = ChrW(37)' Returns %. End Sub Tham khảo thêm: AscW .................................. Return Top ..................................... Tên hàm: CInt Mô tả: Cint (expression) Chuyển đổi biểu thức expression sang kiểu Integer Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDouble, MyInt MyDouble = 2345.5678' Khoi tao MyInt = CInt(MyDouble)' Returns 2346. End Sub .................................. Return Top ..................................... Tên hàm: CLng Mô tả: CLng (expression) Chuyển đổi biểu thức expression sang kiểu Long Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyVal1, MyVal2, MyLong1, MyLong2 MyVal1 = 25427.45: MyVal2 = 25427.55' Khoi tao MyLong1 = CLng(MyVal1)'Returns 25427. MyLong2 = CLng(MyVal2)'Returns 25428. End Sub .................................. Return Top ..................................... Tên hàm: Close Mô tả: Close (#Filenum)' Đóng tập tin đã được mở bằng lệnh Open. Tham số: #Filenum : chỉ số của tập tin. Ví dụ: Option Explicit Type Record ID As Integer Name As String * 20 End Type Private Sub Form_Load()
- Dim MyRecord As Record Open "TESTFILE" For Random As #1 Len = Len(MyRecord)' Mo file Do While Not EOF(1)' Lap cho den khi ket thuc file Get #1, , MyRecord' Doc mau tin Debug.Print Seek(1)' In so mau tin 'Seek #1, 3 'Trỏ tới vị trí mẫu tin thứ 3 Loop Close #1' Dong file. End Sub Tham khảo thêm: Open .................................. Return Top ..................................... Tên hàm: Command Mô tả: Command Lấy đối số truyền từ dòng lệnh Ghi chú: Ví dụ nếu bạn có ứng dụng tên MyApp thì khi bạn chạy: MyApp.exe caulacbovb ---> đối số bạn nhận được là: caulacbovb Ví dụ: Function GetCommandLine(Optional MaxArgs) 'Declare variables. Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs 'See if MaxArgs was provided. If IsMissing(MaxArgs) Then MaxArgs = 10 'Make array of the correct size. ReDim ArgArray(MaxArgs) NumArgs = 0: InArg = False 'Get command line arguments. CmdLine = Command() CmdLnLen = Len(CmdLine) 'Go thru command line one character 'at a time. For I = 1 To CmdLnLen C = Mid(CmdLine, I, 1) 'Test for space or tab. If (C " " And C vbTab) Then 'Neither space nor tab. 'Test if already in argument. If Not InArg Then 'New argument begins. 'Test for too many arguments. If NumArgs = MaxArgs Then Exit For NumArgs = NumArgs + 1 InArg = True End If 'Concatenate character to current argument. ArgArray(NumArgs) = ArgArray(NumArgs) & C Else 'Found a space or tab. 'Set InArg flag to False. InArg = False End If Next I 'Resize array just enough to hold arguments. ReDim Preserve ArgArray(NumArgs) 'Return Array in Function name. GetCommandLine = ArgArray() End Function .................................. Return Top .....................................
- Tên hàm: Const Mô tả: [Public | Private] Const constname [As type] = expression Khai báo 1 hằng số. Từ khóa [Public | Private] tùy chọn dùng để định nghĩa phạm vi sử dụng của hằng số Tham số: constname : tên hằng số. [As type] : kiểu dữ liệu (tùy chọn). Nếu không khai báo sẽ lấy kiểu dữ liệu phù hợp với giá trị hiện có. expression : giá trị miêu tả. Ví dụ: ' Constants are Private by default. Const MyVar = 459 Const Pi = 3.14 ' Declare Public constant. Public Const MyString = "HELP" ' Declare Private Integer constant. Private Const MyInt As Integer = 5 ' Declare multiple constants on same line. Const MyStr = "Hello", MyDouble As Double = 3.4567 .................................. Return Top .................................... Tên hàm: Cos Mô tả: Cos (number) Lấy Cos của số Number Tham số: Number Số cần tính Ví dụ: Option Explicit Private Sub Form_Load() Dim MyAngle, MySecant MyAngle = 1.3' Khoi tao MySecant = 1 / Cos(MyAngle)' Tinh secant End Sub Tham khảo thêm: Atn Sin Sqr Tan .................................. Return Top.................................... Tên hàm: CSng Mô tả: CSng (expression) Chuyển đổi biểu thức expression sang kiểu Single Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDouble1, MyDouble2, MySingle1, MySingle2 MyDouble1 = 75.3421115: MyDouble2 = 75.3421555' khoi tao MySingle1 = CSng(MyDouble1)' Returns 75.34211. MySingle2 = CSng(MyDouble2)' Returns 75.34216. End Sub .................................. Return Top ....................................
- Tên hàm: CStr Mô tả: CStr (expression) Chuyển đổi biểu thức expression sang kiểu String Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDouble, MyString MyDouble = 437.324' Khoi tao MyString = CStr(MyDouble)' Returns "437.324". End Sub .................................. Return Top ..................................... Tên hàm: CurDir Mô tả: CurDir ([Drive]) Xem đường dẫn hiện tại trên một ổ đĩa Tham số: Drive ổ đĩa muốn xem Ví dụ: Option Explicit Private Sub Form_Load() Dim MyPath ' Gia su duong dan hien tai tren o C la "C:\WINDOWS\SYSTEM" . ' Gia su duong dan hien tai tren o D la "D:\EXCEL". ' Gia su o dia hien hanh la o C MyPath = CurDir' Returns "C:\WINDOWS\SYSTEM". MyPath = CurDir("C")' Returns "C:\WINDOWS\SYSTEM". MyPath = CurDir("D")' Returns "D:\EXCEL". End Sub Tham khảo thêm: ChDir ChDrive Dir .................................. Return Top .................................... Tên hàm: CVar Mô tả: Cvar (expression) Chuyển đổi biểu thức expression sang kiểu Variant Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyInt, MyVar MyInt = 4534' MyInt is an Integer. MyVar = CVar(MyInt & "000")' MyVar contains the string 4534000. End Sub .................................. Return Top .................................... Tên hàm: CVErr Mô tả: CVErr(errornumber) Trả về con số kiểu lỗi định nghĩa bởi người dùng. Tham số: errornumber : số lỗi. Ví dụ: ' Call CalculateDouble with an error-producing argument. Sub Test()
- Debug.Print CalculateDouble("345.45robert") End Sub ' Define CalculateDouble Function procedure. Function CalculateDouble(Number) If IsNumeric(Number) Then CalculateDouble = Number * 2' Return result. Else CalculateDouble = CVErr(2001)' Return a user-defined error End If' number. End Function .................................. Return Top .................................... Tên hàm: Date Mô tả: Hàm: Date Trả về ngày hiện tại của hệ thống. Lệnh: Date = date Đặt lại ngày hiện tại cho hệ thống. Ví dụ: 'Lấy ngày hiện tại của hệ thống: Dim MyDate MyDate = Date' MyDate contains the current system date. 'Đặt lại ngày hiện tại cho hệ thống: Dim MyDate MyDate = #February 12, 1985#' Assign a date. Date = MyDate' Change system date. .................................. Return Top ..................................... Tên hàm: DateAdd Mô tả: DateAdd(interval, number, date) Thêm thời gian Tham số: interval Đơn vị thời gian number Thời gian thêm vào date Thời gian cần thêm vào Ghi chú: Dùng cho tham số interval yyyy Year q Quarter m Month y Day of year d Day w Weekday ww Week h Hour n Minute s Second Ví dụ: Option Explicit Private Sub Form_Load() Dim FirstDate As Date Dim IntervalType As String
- Dim Number As Integer Dim Msg IntervalType = "m"' "m" gan don vi la thang FirstDate = InputBox("Nhap vao thoi gian")' Vi du 08/10/2003 Number = InputBox("Nhap vao so thang ban muon them")'3 ' Returns 11/10/2003 Msg = "New date: " & DateAdd(IntervalType, Number, FirstDate) MsgBox Msg End Sub .................................. Return Top .................................... Tên hàm: DateDiff Mô tả: DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) Tính khoảng thời gian giữa date1 và date2 Tham số: interval Đơn vị thời gian date1 Thời điểm 1 date2 Thời điểm 2 firstdayofweek Ngày đầu tiên trong tuần firstweekofyear Tuần đầu tiên trong năm Ghi chú: Dùng cho tham số interval yyyy Year q Quarter m Month y Day of year d Day w Weekday ww Week h Hour n Minute s Second Dùng cho tham số firstdayofweek vbUseSystem = 0 Sử dụng NLS API setting. VbSunday = 1 Sunday (default) vbMonday = 2 Monday vbTuesday = 3 Tuesday vbWednesday = 4 Wednesday vbThursday = 5 Thursday vbFriday = 6 Friday vbSaturday = 7 Saturday Dùng cho tham số firstweekofyear
- vbUseSystem 0 Sử dụng NLS API setting. vbFirstJan1 = 1 Bắt đầu tại tuần thứ nhất trong tháng một (default) vbFirstFourDays = 2 Bắt đầu tại tuần thứ nhất và có ít nhất 4 ngày trong năm vbFirstFullWeek = 3 Bắt đầu với cả tuần thứ nhất trong năm Ví dụ: Option Explicit Private Sub Form_Load() Dim TheDate As Date Dim Msg TheDate = InputBox("Enter a date") Msg = "Days from today: " & DateDiff("d", Now, TheDate) MsgBox Msg End Sub Tham khảo thêm: DatePart .................................. Return Top ..................................... Tên hàm: DatePart Mô tả: DatePart (interval, date [,firstdayofweek [, firstweekofyear]]) Rút bất kỳ thông tin ngày tháng và thời gian từ giá trị date Tham số: interval Đơn vị thời gian date Thời gian firstdayofweek Ngày đầu tiên trong tuần firstweekofyear Tuần đầu tiên trong năm Ghi chú: Dùng cho tham số interval yyyy Year q Quarter m Month y Day of year d Day w Weekday ww Week h Hour n Minute s Second Dùng cho tham số firstdayofweek vbUseSystem = 0 Sử dụng NLS API setting. VbSunday = 1 Sunday (default) vbMonday = 2 Monday vbTuesday = 3 Tuesday vbWednesday = 4
- Wednesday vbThursday = 5 Thursday vbFriday = 6 Friday vbSaturday = 7 Saturday Dùng cho tham số firstweekofyear vbUseSystem 0 Sử dụng NLS API setting. vbFirstJan1 = 1 Bắt đầu tại tuần thứ nhất trong tháng một (default) vbFirstFourDays = 2 Bắt đầu tại tuần thứ nhất và có ít nhất 4 ngày trong năm vbFirstFullWeek = 3 Bắt đầu với cả tuần thứ nhất trong năm Ví dụ: Option Explicit Private Sub Form_Load() Dim TheDate As Date Dim Msg TheDate = InputBox("Enter a date:")' 08/10/2003 Msg = "Quarter: " & DatePart("d", TheDate)' Returns 10 Msg = "Quarter: " & DatePart("m", TheDate)' Returns 08 MsgBox Msg End Sub Tham khảo thêm: DateDiff .................................. Return Top .................................... Tên hàm: DateSerial Mô tả: DateSerial (year, month, day) Chuyển các thông số rời rạc của ngày tháng thành một chuỗi ngày tháng Tham số: year Năm month Tháng day Ngày Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDate MyDate = DateSerial(2003, 8, 10)' Return 8/10/2003 End Sub Tham khảo thêm: TimeSerial .................................. Return Top .................................... Tên hàm: DateValue Mô tả: DateValue(date) Chuyển ngày tháng dạng chuỗi sang giá trị Tham số: date Ngày tháng cần chuyển Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDate MyDate = DateValue("August 10, 2003")' Return 8/10/2003 End Sub
- Tham khảo thêm: TimeValue .................................. Return Top ..................................... Tên hàm: Day Mô tả: Day(date) Lấy thông tin ngày từ chuỗi date Tham số: date Ngày tháng Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDate, MyDay MyDate = #8/10/2003#' Khoi tao MyDay = Day(MyDate)' Returns 10 End Sub Tham khảo thêm: Month Year .................................. Return Top .................................... Tên hàm: Declare Mô tả: [Public | Private] Declare Sub name Lib "libname" [Alias "aliasname"] [([arglist])] hay [Public | Private] Declare Function name Lib "libname" [Alias "aliasname"] [([arglist])] [As type] Khai báo tham chiếu tới 1 thủ tục Sub hay Function trong 1 file DLL (dynamic-link library). Từ khóa [Public | Private] tùy chọn chỉ định phạm vi sử dụng. Tham số: name : tên Sub hay Function cần gọi. libname : chỉ rỏ file DLL có chứa Sub hay Function được gọi. aliasname : chỉ rỏ bí danh của Sub hay Function trong file DLL. arglist : danh sách các đối số. As type : kiểu dữ liệu trả về của Function. Ghi chú: Nếu sử dụng Function bạn phải chỉ rỏ kiểu dữ liệu trả về. Phát biểu Declare chỉ được sử dụng ở cấp độ module. Ví dụ: ' In Microsoft Windows (16-bit): Declare Sub MessageBeep Lib "User" (ByVal N As Integer) ' Assume SomeBeep is an alias for the procedure name. Declare Sub MessageBeep Lib "User" Alias "SomeBeep"(ByVal N As Integer) ' Use an ordinal in the Alias clause to call GetWinFlags. Declare Function GetWinFlags Lib "Kernel" Alias "#132"() As Long ' In 32-bit Microsoft Windows systems, specify the library USER32.DLL, ' rather than USER.DLL. You can use conditional compilation to write ' code that can run on either Win32 or Win16. #If Win32 Then Declare Sub MessageBeep Lib "User32" (ByVal N As Long) #Else Declare Sub MessageBeep Lib "User" (ByVal N As Integer) #End If .................................. Return Top ..................................... Tên hàm: DeleteSetting Mô tả: DeleteSetting appname, section [, key] Xóa registry Tham số: appname Tên registry section
- Tên section key Tên key Ví dụ: Option Explicit Private Sub Form_Load() ' luu mot thong tin registry moi SaveSetting appname:="MyApp", section:="Startup", _ Key:="Top", setting:=75 SaveSetting "MyApp", "Startup", "Left", 50 ' Xoa key Startup trong MyApp DeleteSetting "MyApp", "Startup" End Sub Tham khảo thêm: GetAllSettings GetSetting SaveSetting .................................. Return Top ..................................... Tên hàm: Dir Mô tả: Dir [(pathname [, attributes])] Tham số: pathname Đường dẫn muốn kiểm tra attributes Thuộc tích của file hay folder muốn kiểm tra Ghi chú: Dùng cho tham số attributes vbNormal = 0 Không quan tâm đến thuộc tính của các hồ sơ vbReadOnly = 1 Chỉ quan tâm đến các hồ sơ có thuộc tính chỉ đọc vbHidden = 2 Chỉ quan tâm đến các hồ sơ có thuộc tính ẩn vbVolume = 8 Chỉ quan tâm đến các hồ sơ không có thuộc tính vbDirectory 16 Chỉ quan tâm đến các thư mục Ví dụ: Option Explicit Private Sub Form_Load() Dim MyFile, MyPath, MyName ' Myfile = WIN.INI neu file do co ton tai MyFile = Dir("C:\WINDOWS\WIN.INI") ' Myfile = file dau tien trong thu muc C:Windows\ co duoi la INI MyFile = Dir("C:\WINDOWS\*.INI") ' Goi lai viec kiem tra MyFile = Dir ' Myfile = file dau tien trong thu muc C:Windows\ co duoi la TXT va co thuoc tinh an MyFile = Dir("*.TXT", vbHidden) MyPath = "c:\"' Gan MyPath = "C:\" MyName = Dir(MyPath, vbDirectory)' Gan MyName= ten thu muc dau tien trong MyPath Do While MyName ""' Bat dau vong lap 'Bo qua cac thu muc hien tai va thu muc xung quanh If MyName "." And MyName ".." Then ' Su dung su so sanh phan theo Bit de chac chac MyName la mot thu muc If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then Debug.Print MyName End If End If MyName = Dir' Nhay den thu muc ke tiep Loop End Sub
- Tham khảo thêm: ChDir ChDrive CurDir .................................. Return Top .................................... Tên hàm: Environ Mô tả: Environ({envstring | number}) Tìm đường dẫn environment của hệ thống Tham số: envstring | number Tên của environment Ví dụ: Option Explicit Private Sub Form_Load() Dim EnvString, Indx, Msg, PathLen' Declare variables. Indx = 1 Do EnvString = Environ(Indx)' Lay ten environment ' Kiem tra duong dan co ton tai khong If Left(EnvString, 5) = "PATH=" Then PathLen = Len(Environ("PATH"))' lay chieu dai duong dan Msg = "PATH entry = " & Indx & " and length = " & PathLen Exit Do Else Indx = Indx + 1' Tiep tu voi cac environment khac End If Loop Until EnvString = "" If PathLen > 0 Then MsgBox Msg Else MsgBox "Khong co Path environment nao ton tai." End If End Sub .................................. Return Top ..................................... Tên hàm: EOF Mô tả: EOF(filenumber) Kiểm tra xem file đã kết thúc chưa Tham số: filenumber Tên file (dạng số #n) Ví dụ: Option Explicit Private Sub Form_Load() Dim InputData Open "MYFILE" For Input As #1' Mo file de doc Do While Not EOF(1)' Kiem tra xem file da ket thuc chua Line Input #1, InputData' Doc tung dong Debug.Print InputData' in ra tung dong Loop Close #1' Dong file End Sub Tham khảo thêm: Loc LOF .................................. Return Top ....................................
- Tên hàm: Exp Mô tả: Exp(number) Hàm mũ Tham số: Number Số cần tính Ví dụ: Option Explicit Private Sub Form_Load() Dim MyAngle, MyHSin MyAngle = 1.3'Khoi tao ' Tinh hyperbolic sine. MyHSin = (Exp(MyAngle) - Exp(-1 * MyAngle)) / 2 End Sub Tham khảo thêm: Log .................................. Return Top ..................................... Tên hàm: FileAttr Mô tả: FileAttr(filenumber, returntype) Xem thuộc tính của file đang mở Tham số: filenumber Tên file (dạng số #n) returntype Loại giá trị trả về Ghi chú: ********Giá trị trả về********* Input = 1 Nhập Output = 2 Xuất Random = 4 Ngẫu nhiên Append = 8 Thêm vào Binary = 32 Nhị phân Ví dụ: Option Explicit Private Sub Form_Load() Dim FileNum, Mode, Handle FileNum = 1' Khoi tao Open "TESTFILE" For Append As FileNum' Mo File Mode = FileAttr(FileNum, 1)' Returns 8 (Append file) Handle = FileAttr(FileNum, 2)' Returns file handle. Close FileNum' Close file. End Sub .................................. Return Top .................................... Tên hàm: FileCopy Mô tả: FileCopy source, destination Copy file từ thư mục này sang thư mục khác Tham số: source Đường dẫn nguồn destination Đường dẫn đích Ví dụ: Option Explicit Private Sub Form_Load() FileCopy "D:\MyFile.txt", "C:\MyFile.txt"
- End Sub Tham khảo thêm: FileLen Kill .................................. Return Top .................................... Tên hàm: FileDateTime Mô tả: FileDateTime (pathname) Trả về chuỗi ngày giờ mà File được tạo hoặc ngày giờ chỉnh sửa cuối cùng Tham số: pathname Đường dẫn file muốn kiểm tra Ví dụ: Option Explicit Private Sub Form_Load() Dim MyStamp ' Gia su C:\TestFile.txt duoc chinh sua lan cuoi vao ngay 01/08/2003 4:10:45 PM MyStamp = FileDateTime("C:\TestFile.txt")' MyStamp = "01/08/2003 4:10:45 PM" End Sub .................................. Return Top .................................... Tên hàm: FileLen Mô tả: FileLen (pathname) Tra ve so Byte cua File Tham số: pathname Đường dẫn file muốn lấy kích thước Ví dụ: Option Explicit Private Sub Form_Load() FileLen "D:\MyFile.txt"'Return so byte cua MyFile.txt End Sub Tham khảo thêm: FileCopy Kill .................................. Return Top .................................... Tên hàm: Filter Mô tả: Filter (sourcearray, match [, include [, compare]]) Lọc mảng sourcesrray với giá trị lọc là match Tham số: sourcearray Mảng cần lọc match Giá trị lọc include Lọc đảo (True hoặc False) compare Chỉ rõ kiểu dữ liệu để so sánh trong quá trình lọc Ghi chú: Dùng cho tham số compare vbUseCompareOption = –1 Chế độ tùy chọn, VB sẽ tự động lựa lọai dữ liệu thích hợp vbBinaryCompare = 0 So sánh nhị phân vbTextCompare = 1 So sánh chuỗi vbDatabaseCompare = 2 So sánh dữ liệu Ví dụ: Option Explicit Private Sub Form_Load() Dim selNames() As String
- Dim Names(1 To 5) As String Names(1) = "A" Names(2) = "B" Names(3) = "C" Names(4) = "D" Names(5) = "E" selNames = Filter(Names, "A")' Returns "A" selNames = Filter(Names, "B", False)'Returns "A" , "C", "D", "E" End Sub .................................. Return Top .................................... Tên hàm: Fix Mô tả: Fix (number) Lấy phần nguyên của số Number Tham số: Number Số cần tính Ví dụ: Option Explicit Private Sub Form_Load() Dim MyNumber MyNumber = Int(99.8)' Returns 99. MyNumber = Fix(99.2)' Returns 99. MyNumber = Int(-99.8)' Returns -100. MyNumber = Fix(-99.8)' Returns -99. MyNumber = Int(-99.2)' Returns -100. MyNumber = Fix(-99.2)' Returns -99. End Sub Tham khảo thêm: Int Round .................................. Return Top .................................... Tên hàm: Format Mô tả: Format (expression [, format [, firstdayofweek [, firstweekofyear]]]) Chuyển biểu thức expression theo định dạng mong muốn Tham số: expression Biểu thức cần định dạng format Kiểu định dạng firstdayofweek Ngày đầu tiên trong tuần firstweekofyear Tuần đầu tiên trong năm Ghi chú: Dùng cho tham số firstdayofweek vbUseSystem = 0 Sử dụng NLS API setting. VbSunday = 1 Sunday (default) vbMonday = 2 Monday vbTuesday = 3 Tuesday vbWednesday = 4 Wednesday vbThursday = 5 Thursday vbFriday = 6 Friday vbSaturday = 7 Saturday Dùng cho tham số firstweekofyear
CÓ THỂ BẠN MUỐN DOWNLOAD
-
Chương 3: Các phương pháp sắp xếp và tìm kiếm
11 p |
504 |
149
-
Giáo trình giải thuật - tìm kiếm và sắp xếp
0 p |
301 |
130
-
CHƯƠNG 17: SẮP XẾP
25 p |
366 |
125
-
Bài giảng cách giải thuật sắp xếp
63 p |
246 |
91
-
Bài toán sắp xếp
7 p |
258 |
78
-
BÀI TẬP LẬP TRÌNH - DEMO CÁC PHƯƠNG PHÁP SẮP XẾP
37 p |
250 |
72
-
Chương 4. SẮP XẾP THỨ TỰ
37 p |
167 |
57
-
Bài toán về sắp xếp
22 p |
115 |
54
-
Chapter 17: SẮP XẾP
21 p |
121 |
51
-
Phụ lục 5. Tóm tắt các hàm của Turbo C theo thứ tự ABC
5 p |
88 |
20
-
Bài giảng Cấu trúc dữ liệu và giải thuật - Chương 6: Các thuật toán sắp xếp
54 p |
39 |
18
-
Session 20 - Các Kiểu dữ liệu Nâng cao và Sắp xếp
8 p |
42 |
10
-
Bài giảng Các thuật toán sắp xếp
40 p |
20 |
6
-
2.9.Sắp xếp trang trong tập tin bản vẽ
3 p |
88 |
5
-
Bài giảng Các giải thuật tìm kiếm, sắp xếp
98 p |
28 |
4
-
Thực tập Kỹ thuật lập trình: Thực hiện các chức năng sắp xếp
17 p |
7 |
4
-
Bài giảng Giới thiệu các thuật toán sắp xếp
26 p |
3 |
1

Set-Cookie: TLDEVNamespace=k3rt2bfkoai3r8kvv4f6igakf2; path=/; domain=.tailieu.vn; HttpOnly


text:
V-ray for Sketchup - Hướng dẫn tiếng Vệt
Chia sẻ: Pham Van Sang | Ngày: | Loại File: PDF | Số trang:97
lượt xem 612
download
V-ray for Sketchup - Hướng dẫn tiếng Vệt
Tài liệu tham khảo về V-ray for Sketchup , tài liệu này hướng dẫn tiếng Việt. Hiện nay, Sketchup là phần mềm dựng hình 3D nhanh nhất với những tính năng vượt trội. Sketchup được Google và người dùng hỗ trợ rất nhiều Plugins, vật dụng cũng như chất liệu để bạn có thể dễ dàng phác thảo và thể hiện ý tưởng của mình với tốc độ chóng mặt. Có thể nói Sketchup là phần mềm chuyên về dựng hình và Vray chính là một Plugins bổ sung cần thiết cho công việc render và hoàn thiện thiết kế....
Bình luận(0) Đăng nhập để gửi bình luận!
CÓ THỂ BẠN MUỐN DOWNLOAD

markdown:
# V-ray for Sketchup - Hướng dẫn tiếng Vệt
Chia sẻ: Pham Van Sang | Ngày: | Loại File: PDF | Số trang:97
lượt xem 612
download
![](http://image.tlvnimg.com/document/thumbnail/2010/20101220/sangpv/80x100/vray_for_sketchup_vietnamese_version_1_1_9754.jpg)
##
V-ray for Sketchup - Hướng dẫn tiếng Vệt
[Vui lòng tải xuống để xem tài liệu đầy đủ](javascript:void(0);)
Download
![](http://static.tlvnimg.com/b2013az/templates/version1/default/images/down16x21.png)
Tài liệu tham khảo về V-ray for Sketchup , tài liệu này hướng dẫn tiếng Việt. Hiện nay, Sketchup là phần mềm dựng hình 3D nhanh nhất với những tính năng vượt trội. Sketchup được Google và người dùng hỗ trợ rất nhiều Plugins, vật dụng cũng như chất liệu để bạn có thể dễ dàng phác thảo và thể hiện ý tưởng của mình với tốc độ chóng mặt. Có thể nói Sketchup là phần mềm chuyên về dựng hình và Vray chính là một Plugins bổ sung cần thiết cho công việc render và hoàn thiện thiết kế....
Bình luận(0)
[Đăng nhập để gửi bình luận!](javascript:void(0);)
CÓ THỂ BẠN MUỐN DOWNLOAD

WARC-Type: response

Content-Type: application/http; msgtype=response

Set-Cookie: TLDEVNamespace=5geupas7bvdm8j7adkmes10t46; path=/; domain=.tailieu.vn; HttpOnly

Connection: close

Server: Apache/2.2.31 (CentOS)

Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0

Pragma: no-cache

Vary: Accept-Encoding

Content-Type: text/html; charset=UTF-8


text:
Tinh dầu là gì
-
Tinh dầu là sản phẩm thực vật tự nhiên, có thể chăm sóc cho các loại da khô, da nhăn, da mụn, da hỗn hợp... một cách an toàn và dịu nhẹ. Tinh dầu có khả năng chăm sóc da kỳ diệu, nó nuôi dưỡng và bảo vệ da như một sản phẩm chăm sóc da chuyên nghiệp. Tinh dầu thiên nhiên cung cấp một khối lượng lớn oxy cho các tế bào da, trị và phòng chống vi khuẩn, phục hồi lại độ khỏe, đẹp của làn da. Tinh dầu trà cho da mụn .Có thể nói tinh dầu trà là...
4p hoachuong_1 26-10-2012 35 8 Download
-
Bài giảng Tinh dầu và dược liệu chứa tinh dầu được biên soạn với kết cấu nội dung giới thiệu đến người học các kiến thức về Tinh dầu. Với nội dung cụ thể trình bày về tinh dầu là gì, tính chất lý - hóa của tinh dầu, cách định tính - định lượng được tinh dầu, cách phân tích thành phần hóa học của tinh dầu,...
93p lg123456 25-06-2014 405 184 Download
-
Tham khảo tài liệu 'ðau đầu là gì?', y tế - sức khoẻ, y học thường thức phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả
10p nguquaivietnam 03-08-2010 77 7 Download
-
Phong Linh Cô, một cô gái ngoài 20 luôn nghĩ: Tình yêu là gì chứ, yêu nhau tha thiết, .thề non hẹn biển rồi hứa hẹn đủ điều, nào là hạnh phúc giản đơn mỗi sớm mai thức dậy có nhau trong đời…Cứ yêu cứ hứa cứ ước nguyện để đến cuối cùng quay lưng thành hai lối rẽ chỉ còn lại là những hận tình, bi ai, đau đớn và dằn vặt. Tất cả chỉ là phù du và ảo ảnh, chẳng có gì là mãi mãi, cuộc sống này trần trụi và đáng buồn. Chỉ nên tin vào chính mình,...
21p camp_1 14-08-2013 16 3 Download
-
Định nghĩa vui : Tình yêu là gì ..... ??? Thợ ảnh: Ngắm nghía tự do! - Thợ sửa đồng hồ: Cần dò từng tí! - Thợ săn: Đi gài bẫy khắp nơi để hi vọng mình… mắc bẫy! - Nhà sử học: Khi Eva giả nai để thu về nô lệ nam! - Lái xe: Sự êm ái của ghế ngồi, sự tít mù của bánh xe và sự thay đổi đột ngột của phanh! - Nhà kinh doanh: Đầu tư vật chất để hi vọng sẽ có lãi tinh thần! - Thợ may: Sự liên kết giữa hai tấm...
7p phucnguuson 17-03-2010 458 188 Download
-
Từ trước tới giờ chúng ta biết nhiều về những tác dụng kì diệu của dầu olive, dầu dừa,… . Vậy các Mẹ đã biết gì về tinh dầu Tràm chưa?
6p cuctay_5 12-04-2013 42 7 Download
-
Sau Ethernet 10G sẽ là gì? Thời đại của Ethernet tốc độ 10 Gb/giây đang bắt đầu với kinh phí 25% trong tổng số 18 tỉ USD thị phần chuyển mạch Ethernet là 10G. Tiếp theo là gì? Mặc dù với tốc độ 10 Gb/giây hiện nay đã "quá cỡ ông thợ mộc" đối với nhiều người.
5p robben1357 07-03-2011 62 6 Download
-
Cô, một cô gái ngoài 20 luôn nghĩ: Tình yêu là gì chứ, yêu nhau tha thiết, thề non hẹn biển rồi hứa hẹn đủ điều, nào là hạnh phúc giản đơn mỗi sớm mai thức dậy có nhau trong đời…Cứ yêu cứ hứa cứ ước nguyện để đến cuối cùng quay lưng thành hai lối rẽ chỉ còn lại là những hận tình, bi ai, đau đớn và dằn vặt. Tất cả chỉ là phù
28p hatchonguoiyeudau123 15-08-2013 11 4 Download
-
Ðạp xe lòng vòng, rốt cuộc em lại quay về chốn cũ, ngồi lại một chỗ ngồi – cái nơi quen thuộc mà cả anh và em thường đến vào những chiều thứ bảy. Cảnh vật đều như xưa chỉ khác một điều là bên em không có anh như ngày nào, anh ra đi để lại cho em biết bao kỷ niệm... kỷ niệm nhạt nhòa... Có nhiều lúc em tự hỏi “Quá khứ” là gì? Phải chăng là những gì thuộc về ngày hôm qua, nhưng em lại sợ phải đối diện với nó – em không muốn...
2p meomeonz 20-05-2013 23 3 Download
-
Sơ cấp cứu là những trợ giúp hay chữa trị ngay lúc ban đầu cho nạn nhân bị bất cứ chấn thương, sự cố hay bị một căn bệnh đột ngột nào đó trước khi có xe cấp cứu, bác sĩ, hoặc người có chuyên môn đến chữa trị. Việc sơ cấp cứu dó là vô cùng cần thiết bởi vì thời gian chờ đợi bác sĩ hay những người cấp cứu đến có thể làm nạn nhân lâm vào tình trạng nguy hiểm hay không thể cứu được nữa cho dù được đưa đến bệnh viện.
7p doremonmap 09-08-2010 487 112 Download
-
Tồng quan về mạng di động GPRS GPRS là gì? GPRS đã được nhắc đến nhiều trong khoảng 3-4 năm trở lại đây. Hiện nay với các nước tiên tiến (đi đầu trong lĩnh vực Hình minh họa: Tồng quan về mạng di động GPRS Viễn thông) thì công nghệ GPRS được ví như là bữa ăn hàng ngày. Hầu hết các máy điện thoại gần đây đều được trang bị chức năng truy nhập GPRS.
5p maicon2425 06-04-2011 243 64 Download
-
Nasdaq 100 là gì ? Nasdaq 100 (AMEX: QQQ) theo 100 cổ phiếu lớn nhất được niêm yết bởi thị trường Nasdaq. Đây là một mạng máy tính cho phép những nhà môi giới mua bán với nhau.
4p thoaimy91 08-12-2010 109 16 Download
-
Khi tổ chức đệm là các mạch máu trĩ ở ống hậu môn bị giãn quá mức và gây triệu chứng: đau, chảy máu hoặc sa lồi ở hậu môn khi đi tiêu Þ bệnh trĩ. YẾU TỐ THUẬN LỢI GÂY BỆNH TRĨ 1- Tăng áp lực trong ống hậu môn khi rặn đi cầu: táo bón, tiêu chảy ở người bệnh đại tràng mạn tính … 2- Tăng áp lực trong xoang bụng: bệnh phổi mạn tính - ho nhiều, lao động nặng… 3- Ap lực tĩnh mạch trĩ tăng do tư thế: ngồi lâu, đứng nhiều ở những người làm...
6p 2barbie 13-09-2010 155 11 Download
-
Chứng ù tai là gì ? Một bệnh nhân bị chứng ù tai khi họ nghe được những tiếng động như tiếng ù ù, ve kêu, tiếng sột soạt, vun vút … hay những tiếng động khác, được cảm giác như là xuất phát từ trong tai hay trong đầu họ. Thông thường chứng này không gây ảnh hưởng gì nghiêm trọng, nhưng trong một số trường hợp làm cho bệnh nhân thấy khó chịu và phiền phức. Đó không được coi là một bệnh, mà là triệu chứng của rất nhiều bệnh nền.
6p xukadethuong 03-07-2010 70 7 Download
-
Web 2.0 là gì? Làm sao phân biệt đâu là Web 1.0 đâu là Web 2.0? Thuật ngữ "Web 2.0" đang trở nên thịnh hành và có phần được lăng xê quá mức. Thực chất, Web 2.0 có nghĩa là sử dụng web đúng với bản chất và khả năng của nó! Mục tiêu đầu tiên của những người tiên phong xây dựng Internet là nhằm kết nối các nhà nghiên cứu và các máy tính dịch; còn SOAP (Simple Object Access Protocol) thì phụ thuộc máy chủ trong việc duy trì thông tin trạng thái....
4p bibocumi42 22-05-2013 50 6 Download
-
Tôi đưa tay thật nhanh khóa kín những ô cửa kính đang run bần bật trong mưa gió. Một ngày áp thấp đang đến. Quay lại giường, tôi vùi mình vào tấm chăn ấm áp. Tôi cố gắng đưa mình vào giấc ngủ. Tôi muốn tiếp tục giấc mơ đang dang dở… Đúng là dang dở thật! Mối tình đầu của tôi. Đã lâu lắm rồi tôi không còn gặp lại anh. “Anh bây giờ như thế nào ?” “Anh đang làm gì ?” .Có một khoảng thời gian dài những câu hỏi đó luôn hiện ra trong tâm trí tôi. Nhưng...
9p muatrenbienvang_1511 29-05-2013 38 6 Download
-
Đau mạn tính: phỏng vấn một chuyên gia của Bệnh viện Mayo Sống chung với đau mạn tính có thể khiến người ta nản lòng. Một số người không biết cái gì khiến họ bị đâu. Một số khác biết nhưng vẫn tìm kiếm cách điều trị hiệu quả, Tiến sĩ David Martin là một bác sỹ gây mê chuyên về đau ở Bệnh viện Mayo. Dưới đây ông trả lời những câu hỏi mà ông thường được hỏi khi tiếp xúc với bệnh nhân.
7p meoheo6 28-05-2011 37 5 Download
-
Suy van tĩnh mạch là gì ? là thuật ngữ chỉ sự suy giảm chức năng đưa máu trở về tim của hệ thống tĩnh mạch nằm ở vùng chân dẫn đến hiện tượng máu ứ đọng lại sẽ gây ra những biến đổi về huyết động và biến dạng tổ chức mô xung quanh, gây ra các triệu chứng như nhức mỏi, nặng chân, phù chân, tê dị cảm, kiến bò, vọp bẻ (chuột rút) về ban đêmcẳng chân và đùi giãn to ngoằn ngoèo. Giai đoạn đầu chỉ thấy tĩnh mạch nổi li ti, nhất là ở...
2p tuanhoangbank123 15-07-2013 26 5 Download
-
Hôm nay anh dẫn cô ấy đi cùng tới mời em dự lễ cưới. Em đánh cái nhìn thăm dò một lượt từ đầu đến chân với vợ chưa cưới của anh. Rồi có gì đó như ngạc nhiên quá đỗi trong mắt em.
3p windows_1 10-08-2013 32 5 Download
-
Em nhớ anh, thực sự rất nhớ anh. Em muốn nhắn cho anh dù chỉ một dòng tin ngắn ngủi, chỉ để thỏa nỗi mong chờ. Em muốn gọi điện cho anh mà không biết nói gì, đơn giản chỉ là muốn được nghe giọng nói ấm áp của anh, chỉ đơn giản là muốn ghi nhớ cái giọng nói Huế trầm ấm mà nhẹ nhàng, thân thương. Nhưng ….tất cả chỉ là muốn..và…muốn ..của chỉ riêng em mà thôi. Lần đầu tiên anh hỏi : -Nhắn tin cho anh em không thấy ngại à? Em giật mình nhận ra....
3p nhinhanhnz 15-05-2013 21 2 Download
CHỦ ĐỀ BẠN MUỐN TÌM
- Thương mại điện tử là gì
- Truyền thông là gì
- Quỹ đầu tư là gì
- GIS là gì
- Đầu tư là gì
- Dự án đầu tư là gì
- Hệ điều hành là gì
- Quản trị mạng là gì
- Mạng máy tính là gì
- Phần cứng máy tính là gì
- Thư điện tử là gì
- Tín dụng là gì
- Cơ sở dữ liệu là gì
- Công nghệ thông tin là gì
- Quản trị là gì
- Mạng là gì
- Tin học là gì
- Mạng lan là gì
- Hệ thống mạng là gì
- Bảo mật mạng là gì

markdown:
# Tinh dầu là gì
**Tinh dầu là gì**
-
Tinh dầu là sản phẩm thực vật tự nhiên, có thể chăm sóc cho các loại da khô, da nhăn, da mụn, da hỗn hợp... một cách an toàn và dịu nhẹ. Tinh dầu có khả năng chăm sóc da kỳ diệu, nó nuôi dưỡng và bảo vệ da như một sản phẩm chăm sóc da chuyên nghiệp. Tinh dầu thiên nhiên cung cấp một khối lượng lớn oxy cho các tế bào da, trị và phòng chống vi khuẩn, phục hồi lại độ khỏe, đẹp của làn da. Tinh dầu trà cho da mụn .Có thể nói tinh dầu trà là...
4p
hoachuong_1
26-10-2012
35
8
Download
-
Bài giảng Tinh dầu và dược liệu chứa tinh dầu được biên soạn với kết cấu nội dung giới thiệu đến người học các kiến thức về Tinh dầu. Với nội dung cụ thể trình bày về tinh dầu là gì, tính chất lý - hóa của tinh dầu, cách định tính - định lượng được tinh dầu, cách phân tích thành phần hóa học của tinh dầu,...
93p
lg123456
25-06-2014
405
184
Download
-
Tham khảo tài liệu 'ðau đầu là gì?', y tế - sức khoẻ, y học thường thức phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả
10p
nguquaivietnam
03-08-2010
77
7
Download
-
Phong Linh Cô, một cô gái ngoài 20 luôn nghĩ: Tình yêu là gì chứ, yêu nhau tha thiết, .thề non hẹn biển rồi hứa hẹn đủ điều, nào là hạnh phúc giản đơn mỗi sớm mai thức dậy có nhau trong đời…Cứ yêu cứ hứa cứ ước nguyện để đến cuối cùng quay lưng thành hai lối rẽ chỉ còn lại là những hận tình, bi ai, đau đớn và dằn vặt. Tất cả chỉ là phù du và ảo ảnh, chẳng có gì là mãi mãi, cuộc sống này trần trụi và đáng buồn. Chỉ nên tin vào chính mình,...
21p
camp_1
14-08-2013
16
3
Download
-
Định nghĩa vui : Tình yêu là gì ..... ??? Thợ ảnh: Ngắm nghía tự do! - Thợ sửa đồng hồ: Cần dò từng tí! - Thợ săn: Đi gài bẫy khắp nơi để hi vọng mình… mắc bẫy! - Nhà sử học: Khi Eva giả nai để thu về nô lệ nam! - Lái xe: Sự êm ái của ghế ngồi, sự tít mù của bánh xe và sự thay đổi đột ngột của phanh! - Nhà kinh doanh: Đầu tư vật chất để hi vọng sẽ có lãi tinh thần! - Thợ may: Sự liên kết giữa hai tấm...
7p
phucnguuson
17-03-2010
458
188
Download
-
Từ trước tới giờ chúng ta biết nhiều về những tác dụng kì diệu của dầu olive, dầu dừa,… . Vậy các Mẹ đã biết gì về tinh dầu Tràm chưa?
6p
cuctay_5
12-04-2013
42
7
Download
-
Sau Ethernet 10G sẽ là gì? Thời đại của Ethernet tốc độ 10 Gb/giây đang bắt đầu với kinh phí 25% trong tổng số 18 tỉ USD thị phần chuyển mạch Ethernet là 10G. Tiếp theo là gì? Mặc dù với tốc độ 10 Gb/giây hiện nay đã "quá cỡ ông thợ mộc" đối với nhiều người.
5p
robben1357
07-03-2011
62
6
Download
-
Cô, một cô gái ngoài 20 luôn nghĩ: Tình yêu là gì chứ, yêu nhau tha thiết, thề non hẹn biển rồi hứa hẹn đủ điều, nào là hạnh phúc giản đơn mỗi sớm mai thức dậy có nhau trong đời…Cứ yêu cứ hứa cứ ước nguyện để đến cuối cùng quay lưng thành hai lối rẽ chỉ còn lại là những hận tình, bi ai, đau đớn và dằn vặt. Tất cả chỉ là phù
28p
hatchonguoiyeudau123
15-08-2013
11
4
Download
-
Ðạp xe lòng vòng, rốt cuộc em lại quay về chốn cũ, ngồi lại một chỗ ngồi – cái nơi quen thuộc mà cả anh và em thường đến vào những chiều thứ bảy. Cảnh vật đều như xưa chỉ khác một điều là bên em không có anh như ngày nào, anh ra đi để lại cho em biết bao kỷ niệm... kỷ niệm nhạt nhòa... Có nhiều lúc em tự hỏi “Quá khứ” là gì? Phải chăng là những gì thuộc về ngày hôm qua, nhưng em lại sợ phải đối diện với nó – em không muốn...
2p
meomeonz
20-05-2013
23
3
Download
-
Sơ cấp cứu là những trợ giúp hay chữa trị ngay lúc ban đầu cho nạn nhân bị bất cứ chấn thương, sự cố hay bị một căn bệnh đột ngột nào đó trước khi có xe cấp cứu, bác sĩ, hoặc người có chuyên môn đến chữa trị. Việc sơ cấp cứu dó là vô cùng cần thiết bởi vì thời gian chờ đợi bác sĩ hay những người cấp cứu đến có thể làm nạn nhân lâm vào tình trạng nguy hiểm hay không thể cứu được nữa cho dù được đưa đến bệnh viện.
7p
doremonmap
09-08-2010
487
112
Download
-
Tồng quan về mạng di động GPRS GPRS là gì? GPRS đã được nhắc đến nhiều trong khoảng 3-4 năm trở lại đây. Hiện nay với các nước tiên tiến (đi đầu trong lĩnh vực Hình minh họa: Tồng quan về mạng di động GPRS Viễn thông) thì công nghệ GPRS được ví như là bữa ăn hàng ngày. Hầu hết các máy điện thoại gần đây đều được trang bị chức năng truy nhập GPRS.
5p
maicon2425
06-04-2011
243
64
Download
-
Nasdaq 100 là gì ? Nasdaq 100 (AMEX: QQQ) theo 100 cổ phiếu lớn nhất được niêm yết bởi thị trường Nasdaq. Đây là một mạng máy tính cho phép những nhà môi giới mua bán với nhau.
4p
thoaimy91
08-12-2010
109
16
Download
-
Khi tổ chức đệm là các mạch máu trĩ ở ống hậu môn bị giãn quá mức và gây triệu chứng: đau, chảy máu hoặc sa lồi ở hậu môn khi đi tiêu Þ bệnh trĩ. YẾU TỐ THUẬN LỢI GÂY BỆNH TRĨ 1- Tăng áp lực trong ống hậu môn khi rặn đi cầu: táo bón, tiêu chảy ở người bệnh đại tràng mạn tính … 2- Tăng áp lực trong xoang bụng: bệnh phổi mạn tính - ho nhiều, lao động nặng… 3- Ap lực tĩnh mạch trĩ tăng do tư thế: ngồi lâu, đứng nhiều ở những người làm...
6p
2barbie
13-09-2010
155
11
Download
-
Chứng ù tai là gì ? Một bệnh nhân bị chứng ù tai khi họ nghe được những tiếng động như tiếng ù ù, ve kêu, tiếng sột soạt, vun vút … hay những tiếng động khác, được cảm giác như là xuất phát từ trong tai hay trong đầu họ. Thông thường chứng này không gây ảnh hưởng gì nghiêm trọng, nhưng trong một số trường hợp làm cho bệnh nhân thấy khó chịu và phiền phức. Đó không được coi là một bệnh, mà là triệu chứng của rất nhiều bệnh nền.
6p
xukadethuong
03-07-2010
70
7
Download
-
Web 2.0 là gì? Làm sao phân biệt đâu là Web 1.0 đâu là Web 2.0? Thuật ngữ "Web 2.0" đang trở nên thịnh hành và có phần được lăng xê quá mức. Thực chất, Web 2.0 có nghĩa là sử dụng web đúng với bản chất và khả năng của nó! Mục tiêu đầu tiên của những người tiên phong xây dựng Internet là nhằm kết nối các nhà nghiên cứu và các máy tính dịch; còn SOAP (Simple Object Access Protocol) thì phụ thuộc máy chủ trong việc duy trì thông tin trạng thái....
4p
bibocumi42
22-05-2013
50
6
Download
-
Tôi đưa tay thật nhanh khóa kín những ô cửa kính đang run bần bật trong mưa gió. Một ngày áp thấp đang đến. Quay lại giường, tôi vùi mình vào tấm chăn ấm áp. Tôi cố gắng đưa mình vào giấc ngủ. Tôi muốn tiếp tục giấc mơ đang dang dở… Đúng là dang dở thật! Mối tình đầu của tôi. Đã lâu lắm rồi tôi không còn gặp lại anh. “Anh bây giờ như thế nào ?” “Anh đang làm gì ?” .Có một khoảng thời gian dài những câu hỏi đó luôn hiện ra trong tâm trí tôi. Nhưng...
9p
muatrenbienvang_1511
29-05-2013
38
6
Download
-
Đau mạn tính: phỏng vấn một chuyên gia của Bệnh viện Mayo Sống chung với đau mạn tính có thể khiến người ta nản lòng. Một số người không biết cái gì khiến họ bị đâu. Một số khác biết nhưng vẫn tìm kiếm cách điều trị hiệu quả, Tiến sĩ David Martin là một bác sỹ gây mê chuyên về đau ở Bệnh viện Mayo. Dưới đây ông trả lời những câu hỏi mà ông thường được hỏi khi tiếp xúc với bệnh nhân.
7p
meoheo6
28-05-2011
37
5
Download
-
Suy van tĩnh mạch là gì ? là thuật ngữ chỉ sự suy giảm chức năng đưa máu trở về tim của hệ thống tĩnh mạch nằm ở vùng chân dẫn đến hiện tượng máu ứ đọng lại sẽ gây ra những biến đổi về huyết động và biến dạng tổ chức mô xung quanh, gây ra các triệu chứng như nhức mỏi, nặng chân, phù chân, tê dị cảm, kiến bò, vọp bẻ (chuột rút) về ban đêmcẳng chân và đùi giãn to ngoằn ngoèo. Giai đoạn đầu chỉ thấy tĩnh mạch nổi li ti, nhất là ở...
2p
tuanhoangbank123
15-07-2013
26
5
Download
-
Hôm nay anh dẫn cô ấy đi cùng tới mời em dự lễ cưới. Em đánh cái nhìn thăm dò một lượt từ đầu đến chân với vợ chưa cưới của anh. Rồi có gì đó như ngạc nhiên quá đỗi trong mắt em.
3p
windows_1
10-08-2013
32
5
Download
-
Em nhớ anh, thực sự rất nhớ anh. Em muốn nhắn cho anh dù chỉ một dòng tin ngắn ngủi, chỉ để thỏa nỗi mong chờ. Em muốn gọi điện cho anh mà không biết nói gì, đơn giản chỉ là muốn được nghe giọng nói ấm áp của anh, chỉ đơn giản là muốn ghi nhớ cái giọng nói Huế trầm ấm mà nhẹ nhàng, thân thương. Nhưng ….tất cả chỉ là muốn..và…muốn ..của chỉ riêng em mà thôi. Lần đầu tiên anh hỏi : -Nhắn tin cho anh em không thấy ngại à? Em giật mình nhận ra....
3p
nhinhanhnz
15-05-2013
21
2
Download
## CHỦ ĐỀ BẠN MUỐN TÌM
[Thương mại điện tử là gì](http://tailieu.vn/tag/thuong-mai-dien-tu-la-gi.html) [Truyền thông là gì](http://tailieu.vn/tag/truyen-thong-la-gi.html) [Quỹ đầu tư là gì](http://tailieu.vn/tag/quy-dau-tu-la-gi.html) [GIS là gì](http://tailieu.vn/tag/gis-la-gi.html) [Đầu tư là gì](http://tailieu.vn/tag/dau-tu-la-gi.html) [Dự án đầu tư là gì](http://tailieu.vn/tag/du-an-dau-tu-la-gi.html) [Hệ điều hành là gì](http://tailieu.vn/tag/he-dieu-hanh-la-gi.html) [Quản trị mạng là gì](http://tailieu.vn/tag/quan-tri-mang-la-gi.html) [Mạng máy tính là gì](http://tailieu.vn/tag/mang-may-tinh-la-gi.html) [Phần cứng máy tính là gì](http://tailieu.vn/tag/phan-cung-may-tinh-la-gi.html) [Thư điện tử là gì](http://tailieu.vn/tag/thu-dien-tu-la-gi.html) [Tín dụng là gì](http://tailieu.vn/tag/tin-dung-la-gi.html) [Cơ sở dữ liệu là gì](http://tailieu.vn/tag/co-so-du-lieu-la-gi.html) [Công nghệ thông tin là gì](http://tailieu.vn/tag/cong-nghe-thong-tin-la-gi.html) [Quản trị là gì](http://tailieu.vn/tag/quan-tri-la-gi.html) [Mạng là gì](http://tailieu.vn/tag/mang-la-gi.html) [Tin học là gì](http://tailieu.vn/tag/tin-hoc-la-gi.html) [Mạng lan là gì](http://tailieu.vn/tag/mang-lan-la-gi.html) [Hệ thống mạng là gì](http://tailieu.vn/tag/he-thong-mang-la-gi.html) [Bảo mật mạng là gì](http://tailieu.vn/tag/bao-mat-mang-la-gi.html)

Set-Cookie: TLDEVNamespace=udq0i6i97mk0h9dnubqh50ooj5; path=/; domain=.tailieu.vn; HttpOnly


text:
-
Hãy dành vài giây Đăng nhập hoặc Đăng ký tài khoản để truy cập và sử dụng TBit hiệu quả nhất.Ẩn thông báo
-
Bạn hãy like trang Facebook của TBit để nhận được tin tức công nghệ nhanh nhất từ chúng tôi.Ẩn thông báo
Phần mềm diệt virus
Trang: 1/2
Tùy chọn hiển thị chủ đề
Đang tải...
Trang: 1/2

markdown:
-
Hãy dành vài giây
[hoặc](/dang-nhap) **Đăng nhập** [để truy cập và sử dụng TBit hiệu quả nhất.](/dang-nhap) **Đăng ký tài khoản** [Ẩn thông báo](tai-khoan/dismiss-notice?notice_id=2)
-
Bạn hãy like
[trang Facebook của TBit](http://facebook.com/tbitvn)để nhận được tin tức công nghệ nhanh nhất từ chúng tôi. [Ẩn thông báo](tai-khoan/dismiss-notice?notice_id=9)
# Phần mềm diệt virus
Trang: 1/2
[Tùy chọn hiển thị chủ đề](#)
Đang tải...
Trang: 1/2

Cache-control: private, max-age=0

X-Frame-Options: SAMEORIGIN

Vary: Accept-Encoding,User-Agent


text:
Thông báo v/v học vét
Forum trường Trung cấp chuyên nghiệp Nha Trang :: Your first category :: Đại học liên thông :: Khóa tuyển sinh 2011 :: 11TH2L
Trang 1 trong tổng số 1 trang • Share •
Thông báo v/v học vét
Để kịp được tốt nghiệp tháng 9/2014, BP.Đào tạo sẽ đề xuất mở lớp thi vét các môn mà SV còn nợ. Các bạn SV trong lớp nhanh chóng đăng ký các môn mình còn nợ cho lớp trưởng.
Nội dung đăng ký ghi cụ thể: MSSV, họ tên, môn nợ, điện thoại liên hệ
Lớp trưởng tổng hợp gửi lại cho bp.Đào tạo.
Thời hạn: đến ngày 02/03/2014.
Nội dung đăng ký ghi cụ thể: MSSV, họ tên, môn nợ, điện thoại liên hệ
Lớp trưởng tổng hợp gửi lại cho bp.Đào tạo.
Thời hạn: đến ngày 02/03/2014.
Admin
- Admin
- Tổng số bài gửi : 929
Join date : 02/10/2012
-
Forum trường Trung cấp chuyên nghiệp Nha Trang :: Your first category :: Đại học liên thông :: Khóa tuyển sinh 2011 :: 11TH2L
Trang 1 trong tổng số 1 trang
Permissions in this forum:Bạn không có quyền trả lời bài viết

markdown:
[Thông báo v/v học vét](/t788-topic) [Forum trường Trung cấp chuyên nghiệp Nha Trang](/) :: [Your first category](/c1-category) :: [Đại học liên thông](/f4-forum) :: [Khóa tuyển sinh 2011](/f7-forum) :: [11TH2L](/f10-forum)
Trang
**1**trong tổng số **1**trang • [Share](#)•
[Thông báo v/v học vét](/t788-topic#794)
Để kịp được tốt nghiệp tháng 9/2014, BP.Đào tạo sẽ đề xuất mở lớp thi vét các môn mà SV còn nợ. Các bạn SV trong lớp nhanh chóng đăng ký các môn mình còn nợ cho lớp trưởng.
Nội dung đăng ký ghi cụ thể: MSSV, họ tên, môn nợ, điện thoại liên hệ
Lớp trưởng tổng hợp gửi lại cho bp.Đào tạo.
Thời hạn: đến ngày 02/03/2014.
Nội dung đăng ký ghi cụ thể: MSSV, họ tên, môn nợ, điện thoại liên hệ
Lớp trưởng tổng hợp gửi lại cho bp.Đào tạo.
Thời hạn: đến ngày 02/03/2014.
**Admin**
- Admin
- Tổng số bài gửi : 929
Join date : 02/10/2012
[Forum trường Trung cấp chuyên nghiệp Nha Trang](/) [ :: ]() [Your first category](/c1-category) :: [Đại học liên thông](/f4-forum) :: [Khóa tuyển sinh 2011](/f7-forum) :: [11TH2L](/f10-forum)
Trang
**1**trong tổng số **1**trang
Bạn
**Permissions in this forum:** **không có quyền**trả lời bài viết

WARC-Truncated: length

X-XSS-Protection: 1; mode=block

Cache-Control: no-cache

X-Content-Type-Options: nosniff

Vary: User-Agent

P3P: CP="IDC DSP COR ADM DEVi TAIi PSA PSD IVAi IVDi CONi HIS OUR IND CNT"

Content-Type: text/html; charset=utf-8


text:
Graphit tấm chặn đuôi lò, bôi trơn con lăn xi măng
Xem trong 'Làng Chợ Trời' đăng bởi ducminhbg, 24/3/16, [ Mã Tin: 40354 ] [181 lượt xem - 0 bình luận]
Xem trong 'Làng Chợ Trời' đăng bởi ducminhbg, 24/3/16, [ Mã Tin: 40354 ] [181 lượt xem - 0 bình luận]

markdown:
# Graphit tấm chặn đuôi lò, bôi trơn con lăn xi măng
Xem trong '
[Làng Chợ Trời](forum/lang-cho-troi.138/)' đăng bởi [ducminhbg](members/ducminhbg.4720/), [24/3/16](threads/graphit-tam-chan-duoi-lo-boi-tron-con-lan-xi-mang.40354/), [ Mã Tin: 40354 ]
**[181 lượt xem - 0 bình luận]**
Xem trong '
[Làng Chợ Trời](forum/lang-cho-troi.138/)' đăng bởi [ducminhbg](members/ducminhbg.4720/), [24/3/16](threads/graphit-tam-chan-duoi-lo-boi-tron-con-lan-xi-mang.40354/), [ Mã Tin: 40354 ]
**[181 lượt xem - 0 bình luận]**

Server: nginx


text:
Thiết kế web miễn phí - Thiết kế web In ấn - Quảng cáo - Sự kiện
- Chi tiết | Đặt hàng
- Web: In ấn - Quảng cáo - Sự kiện
- Code: DV01071015
- View: 983
- Giá: Miễn phí
- Đặt mua
- Chi tiết | Đặt hàng
- Web: In ấn - Quảng cáo - Sự kiện
- Code: webinan02090615
- View: 1144
- Giá: Miễn phí
- Đặt mua
- Chi tiết | Đặt hàng
- Web: In ấn - Quảng cáo - Sự kiện
- Code: webinan01090615
- View: 1119
- Giá: Miễn phí
- Đặt mua
- Chi tiết | Đặt hàng
- Web: In ấn - Quảng cáo - Sự kiện
- Code: inan240415
- View: 1230
- Giá: Miễn phí
- Đặt mua
- Chi tiết | Đặt hàng
- Web: In ấn - Quảng cáo - Sự kiện
- Code: Inan130814
- View: 1567
- Giá: Miễn phí
- Đặt mua
- Chi tiết | Đặt hàng
- Web: In ấn - Quảng cáo - Sự kiện
- Code: Inan130814
- View: 1555
- Giá: Miễn phí
- Đặt mua
Thiết kế web miễn phí
- Chọn giao diện web (459)
- Công nghệ - Thiết bị (26)
- Thể thao du lịch - vận tải (26)
- Dược phẩm - Y tế - thiết bị (17)
- Điện tử, điện máy (21)
- Hoa - áo cưới (28)
- In ấn - Quảng cáo - Sự kiện (13)
- Xây dựng - nội thất (65)
- Nhà hàng & Cafe (25)
- Oto - xe đạp - xe máy (12)
- Mỹ phẩm - Thời trang (57)
- Thương mại điện tử (79)
- Thủ công - mỹ nghệ (32)
- Văn hóa GD - Nghệ thuật - Luật (43)
- Thiết Bị Công Nghiệp (14)

markdown:
### Thiết kế web miễn phí - Thiết kế web In ấn - Quảng cáo - Sự kiện
[Chi tiết](thiet-ke-web-mien-phi.asp?cat=19&pro=451&-dich-vu-chung---01071015.htm)| [Đặt hàng](addcart.asp?pid=451)
- Web: In ấn - Quảng cáo - Sự kiện
- Code: DV01071015
- View: 983
- Giá:
**Miễn phí** [Đặt mua](addcart.asp?pid=451) [Chi tiết](thiet-ke-web-mien-phi.asp?cat=19&pro=420&-web-mien-phi-in-an-mau-02090615.htm)| [Đặt hàng](addcart.asp?pid=420)
- Web: In ấn - Quảng cáo - Sự kiện
- Code: webinan02090615
- View: 1144
- Giá:
**Miễn phí** [Đặt mua](addcart.asp?pid=420) [Chi tiết](thiet-ke-web-mien-phi.asp?cat=19&pro=419&-web-mien-phi-in-an-mau-01090615.htm)| [Đặt hàng](addcart.asp?pid=419)
- Web: In ấn - Quảng cáo - Sự kiện
- Code: webinan01090615
- View: 1119
- Giá:
**Miễn phí** [Đặt mua](addcart.asp?pid=419) [Chi tiết](thiet-ke-web-mien-phi.asp?cat=19&pro=408&-in-an---240415.htm)| [Đặt hàng](addcart.asp?pid=408)
- Web: In ấn - Quảng cáo - Sự kiện
- Code: inan240415
- View: 1230
- Giá:
**Miễn phí** [Đặt mua](addcart.asp?pid=408) [Chi tiết](thiet-ke-web-mien-phi.asp?cat=19&pro=345&-in-an-1.htm)| [Đặt hàng](addcart.asp?pid=345)
- Web: In ấn - Quảng cáo - Sự kiện
- Code: Inan130814
- View: 1567
- Giá:
**Miễn phí** [Đặt mua](addcart.asp?pid=345) [Chi tiết](thiet-ke-web-mien-phi.asp?cat=19&pro=344&-in-an-2.htm)| [Đặt hàng](addcart.asp?pid=344)
- Web: In ấn - Quảng cáo - Sự kiện
- Code: Inan130814
- View: 1555
- Giá:
**Miễn phí** [Đặt mua](addcart.asp?pid=344)
### Thiết kế web miễn phí
[Chọn giao diện web (459)](web_template.asp) [Công nghệ - Thiết bị (26)](thiet-ke-web.asp?cat=23&p=thiet-ke-web-cong-nghe---thiet-bi.htm) [Thể thao du lịch - vận tải (26)](thiet-ke-web.asp?cat=2&p=thiet-ke-web-the-thao-du-lich---van-tai.htm) [Dược phẩm - Y tế - thiết bị (17)](thiet-ke-web.asp?cat=18&p=thiet-ke-web-duoc-pham---y-te---thiet-bi-.htm) [Điện tử, điện máy (21)](thiet-ke-web.asp?cat=6&p=thiet-ke-web-dien-tu-dien-may.htm) [Hoa - áo cưới (28)](thiet-ke-web.asp?cat=10&p=thiet-ke-web-hoa---ao-cuoi.htm) [In ấn - Quảng cáo - Sự kiện (13)](thiet-ke-web.asp?cat=19&p=thiet-ke-web-in-an---quang-cao---su-kien.htm) [Xây dựng - nội thất (65)](thiet-ke-web.asp?cat=15&p=thiet-ke-web-xay-dung---noi-that.htm) [Nhà hàng & Cafe (25)](thiet-ke-web.asp?cat=5&p=thiet-ke-web-nha-hang-&-cafe.htm) [Oto - xe đạp - xe máy (12)](thiet-ke-web.asp?cat=12&p=thiet-ke-web-oto---xe-dap---xe-may.htm) [Mỹ phẩm - Thời trang (57)](thiet-ke-web.asp?cat=9&p=thiet-ke-web-my-pham---thoi-trang.htm) [Thương mại điện tử (79)](thiet-ke-web.asp?cat=29&p=thiet-ke-web-thuong-mai-dien-tu.htm) [Thủ công - mỹ nghệ (32)](thiet-ke-web.asp?cat=11&p=thiet-ke-web-thu-cong---my-nghe.htm) [Văn hóa GD - Nghệ thuật - Luật (43)](thiet-ke-web.asp?cat=28&p=thiet-ke-web-van-hoa-gd---nghe-thuat---luat.htm) [Thiết Bị Công Nghiệp (14)](thiet-ke-web.asp?cat=36&p=thiet-ke-web-thiet-bi-cong-nghiep.htm)

Content-Type: text/html; Charset=UTF-8

Cache-control: private


text:
CHÍNH CHỦ BÁN CĂN 1420 CHUNG CƯ HH2B LINH ĐÀM
CĂN 2 NGỦ - RỘNG THOÁNG – VIEW HỒ
=>> HOTLINE: 0936 204 669 <<=
Căn hộ 1420 thuộc tổ hợp chung cư Linh Đàm đầy đủ tiện nghi, gần bệnh viện, trường học, công viên, hồ bơi, view hồ Linh Đàm
Thiết kế 2 ngủ, 2 vệ sinh, 1 ban công ngoài phòng khách, phòng rộng rãi, thoáng sáng.
Căn 1420 view hồ, phòng ngủ, phòng khách đều nhìn hồ, giúp thư giãn, thoải mái
Chung cư HH2B Linh đàm nằm ở vị trí gần hồ, gần đường, thoáng mát, vị trí cực kỳ lý tưởng.
Diện tích 55,59m2
Giá gốc 15,5 triệu/m2
Chênh thương lượng
Hỗ trợ gói vay 30 000 tỷ, vay 70 % giá trị hợp đồng, lãi suất chỉ 5%/năm, thời hạn vay tối đa 15 năm.
Liên hệ để được tư vấn trực tiếp 24/7 miễn phí :
Hồng Tuyết : 0936 204 669 // 0915 644 451
Email: hongtuyet.sandatviet@gmail.com
Phòng 1407 - 18T2 Lê Văn Lương - KĐT Trung Hòa Nhân Chính - Thanh Xuân - Hà Nội

markdown:
**CHÍNH CHỦ BÁN CĂN 1420 CHUNG CƯ HH2B LINH ĐÀM** **CĂN 2 NGỦ - RỘNG THOÁNG – VIEW HỒ** **=>> HOTLINE: 0936 204 669 <<=**
Căn hộ
**1420** thuộc tổ hợp chung cư Linh Đàm đầy đủ tiện nghi, gần bệnh viện, trường học, công viên, hồ bơi, view hồ Linh Đàm
Thiết kế
**2 ngủ**, 2 vệ sinh, 1 ban công ngoài phòng khách, phòng rộng rãi, thoáng sáng.
Căn
**1420** view hồ, phòng ngủ, phòng khách đều nhìn hồ, giúp thư giãn, thoải mái **Chung cư HH2B Linh đàm** nằm ở vị trí gần hồ, gần đường, thoáng mát, vị trí cực kỳ lý tưởng. *Diện tích* **55,59m2** *Giá gốc* ** 15,5 triệu/m2**
Chênh thương lượng
Hỗ trợ gói vay 30 000 tỷ, vay 70 % giá trị hợp đồng, lãi suất chỉ 5%/năm, thời hạn vay tối đa 15 năm.
Liên hệ để được tư vấn trực tiếp 24/7 miễn phí :
**Hồng Tuyết : 0936 204 669 // 0915 644 451** **Email: hongtuyet.sandatviet@gmail.com**
Phòng 1407 - 18T2 Lê Văn Lương - KĐT Trung Hòa Nhân Chính - Thanh Xuân - Hà Nội