LỆNH - HÀM CƠ BẢN TRONG VISUAL BASIC
2. Một số hàm cơ bản của Visual Basic a. Hàm xử lý chuỗi
• Hàm Val (String)
Hàm này trả về một số thực tương ứng với String. String là một chuỗi gồm các số hợp lệ.
Trong đó:
- Nếu String là một chuỗi có kí tự đầu là kí tự thì sẽ cho giá trị là 0.
- Nếu String là một chuỗi gồm toàn số thì sẽ đổi chuỗi đó thành số.
- Nếu String là một chuỗi bắt đầu là những số và sau đó là chữ hoặc chữ và số, thì hàm Val sẽ lấy những ký số liên tục nằm trước ký tự đầu tiên.
- Nếu các số cách nhau với những khoảng trắng, hàm Val sẽ cắt bỏ những khoảng trắng đó và cho ra dãy số nằm gần nhau.
- Nếu String là một chuỗi có số thập phân, ta phải dùng dấu chấm và thì hàm Val sẽ cho kết quả có số thập phân. Nếu ta dùng dấu phẩy thì hàm Val chỉ lấy phần nguyên.
Ví dụ:
Dim x As Single Dim ch As String
Private Sub Cmmd_Click()
ch = InputBox (‘’Nhap vao mot chuoi ch’’) x = Val(ch)
Txt1 = x End Sub
• Hàm Str (Number)
Hàm này cho phép chuyển ngược một số sang chuỗi.
Ví dụ:
Dim x As Single Dim ch As String
Private Sub Command1_Click()
x = InputBox (‘’Nhap vao mot so’’) ch = Str(x)
Txt1 = ch End Sub
• Hàm Ltrim (String)
Hàm này trả về một chuỗi sau khi cắt bỏ các khoảng trống bên trái của chuỗi.
Ví dụ:
Dim ch1 As String Dim ch2 As String
Private Sub Command1_Click()
ch1 = InputBox (‘’Nhap vao mot chuoi’’) ch2 = LTrim(ch1)
Txt1 = ch2 End Sub
• Hàm Rtrim (String)
Hàm này trả về một chuỗi sau khi cắt bỏ các khoảng trống bên phải của chuỗi.
Ví dụ:
Dim ch1 As String Dim ch2 As String
Private Sub Command1_Click()
ch1 = InputBox (‘’Nhap vao mot chuoi’’) ch2 = RTrim(ch1)
Txt1 = ch2 End Sub
• Hàm Trim (String).
Hàm này trả về một chuỗi sau khi cắt bỏ các khoảng trống ở 2 đầu của chuỗi.
Ví dụ:
Dim ch1 As String Dim ch2 As String
Private Sub Command1_Click()
ch1 = InputBox (‘’Nhap vao mot chuoi’’) ch2 = Trim(ch1)
Txt1 = ch2 End Sub
• Hàm Left (String,n)
Hàm này trả n ký tự trái của chuỗi ký tự String (kể cả khoảng trắng nếu có)
Ví dụ:
Dim str As String Dim ch2 As String Dim n As integer
Private Sub Command1_Click()
Str = InputBox (‘’Nhap vao mot chuoi’’) n = InputBox(‘’Nhap vao so ky tu can lay’’) ch2 = Left(Str,n)
Txt1 = ch2 End Sub
• Hàm Right (String,n)
Hàm này trả n ký tự phải của chuỗi ký tự String (kể cả khoảng trắng nếu có) Ví dụ:
Dim str As String Dim ch2 As String Dim n As integer
Private Sub Command1_Click()
Str = InputBox (‘’Nhap vao mot chuoi’’) n = InputBox (‘’Nhap vao so ky tu can lay’’) ch2= Right(Str,n)
Txt1 = ch2 End Sub
b. Hàm xử lý số
• Hàm Format (value, format)
Hàm này dùng để định dạng cho kết quả tính toán. Trong đó:
- Value: giá trị cần định dạng - Format: các ký hiệu định dạng 0 : ghi giá trị kết quả.
. : dấu ngăn cách phần thập phân , : dấu ngăn cách phần ngàn
• Hàm Sin
Hàm này trả về một số thực là Sin của một góc (tính bằng Radian).
Công thức chuyển từ độ sang Radian.
Radian = độ * Pi/180
Ví dụ: Giả sử tính sin của một góc là một số bất kỳ.
hình 29
Private Sub Cmdkq_Click() Const pi = 3.1416
Dim goc As Double, kq As Double goc = Val(txtgoc.Text)
kq = Sin(goc * pi/180) Txtkq = Format(kq, ‘’0.0’’) End Sub
Private Sub Cmdtiep_Click() txtgoc = ‘’’’
txtkq = ‘’’’
txtgoc.SetFocus End Sub
Private Sub Cmddong_Click() End
End Sub
• Hàm Cos
Hàm này trả về một số thực là Cos của một góc (tính bằng Radian)/
• Hàm Tan
Hàm này trả về một số thực là Tang của một góc (tính bằng Radian).
• Hàm Atn
Hàm này trả về một số thực là Arctang của một góc (tính bằng Radian).
c. Các hàm xử lý ngày
• Hàm Day (ngaythangnam)
Hàm này trả về một con số, ghi ngày của biến ngaythangnam
• Hàm Month (ngaythangnam)
Hàm này trả về một con số, ghi tháng của biến ngaythangnam
• Hàm Year (ngaythangnam)
Hàm này trả về một con số, ghi năm của biến ngaythangnam
• Hàm Weekday (ngaythangnam)
Hàm này cho biết thứ mấy trong tuần ứng với biến ngaythangnam
Ví dụ: Cho biết là ngày thứ trong tuần của giá trị ngày tháng năm được nhập từ bàn phím.
hình 30
Private Sub Cmdkq_Click()
Dim ngay As Double, kq As Double ngay = Val(txtngay.Text) kq = Weekday(ngay) txtkq.text = kq
End Sub
Private Sub Cmdtiep_Click() txtngay = “ ”
txtkq = “ ”
txtngay.SetFocus End Sub
Private Sub Cmddong_Click() End
End Sub
d.Hàm kiểm tra điều kiện
IF(điều kiện, bt1, bt2): Trả về giá trị của biểu thức 1 (bt1) khi điều kiện đúng; ngược lại trả về giá trị của biểu thức 2 (bt2).
3. Một số phương thức (Method)