• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Giải Thích Lệnh Trong VB6

Góc trao đổi, hỏi đáp của ngôn ngữ Visual Basic 6 và Visual Basic Script

Moderator: tungblt

hoanclub
Posts: 2
Joined: Sun 14/03/2010 4:01 am

Giải Thích Lệnh Trong VB6

Postby hoanclub » Sun 14/03/2010 4:18 pm

các anh giải thích giùm em lệnh dưới này nhé
Code1:
Private Sub Thoigianmaytinhchay()
Dim gio, phut
Text1.Text = Fix((GetTickCount / 60000) / 60) & ":" & (Round(GetTickCount / 60000) Mod 60)
'gio = Fix((GetTickCount / 60000) / 60)
'phut = Fix((GetTickCount / 60000) Mod 60)
End Sub
(GetTickCount là gì vậy?)

cho em hỏi thêm 1 vấn đề nữa. em muốn tạo 1 ô ComboBox, rùi em đặt List của ComboBox gồm: Hz, Khz , Mhz, vậy em fai dùng câu lệnh nào để khi em chọn Khz thì kết quả sẽ được gán bằng 1000Hz và Mhz thì được gán bằng 10^6Hz ? nói đơn giản hơn: ví dụ em nhập số 7 vào ô Text1.text, sau đó em chọn trong ComboBox đơn vị là Hz thì kết quả hiển thị ra ô Text2.text là 7. nếu em chọn trong ComboBox là Khz thì ô Text2.text hiển thị là 7000 (đơn vị chuẩn là Hz), các pác giúp em nhé!



User avatar
vie87vn
Thành viên tích cực
Thành viên tích cực
Posts: 150
Joined: Sat 05/04/2008 10:15 am
Location: Quán Đôi - Củ Chi
Been thanked: 2 times
Contact:

Re: Giải Thích Lệnh Trong VB6

Postby vie87vn » Sun 14/03/2010 8:23 pm

1/. Đó là hàm do người sử dụng định nghĩa (tức là người ta tự viết ra, nếu trong 1 project nào đó, bạn nhấn Ctrl + F, chọn option phía dưới là Current Project, rồi gõ vào ô text là GetTickCount rồi bắt đầu tìm, bạn sẽ tìm được trong project đó).
2/. Nếu muốn làm vậy, bạn cần viết 1 hàm đổi chung: 2 hàm đổi từ MHz -> Hz, từ KHz -> Hz và 2 hàm đổi từ Hz -> KHz, từ Hz -> MHz, lúc đó bất người dùng đổi từ đâu sang đâu ta đều có cái để đổi. Ví dụ từ KHz sang MHz, thì trước tiên ta lôi hàm KHz -> Hz rồi hàm Hz -> MHz. Mình tư vấn cho bạn cách làm thôi, còn cái chính và do code của bạn, cứ viết code đi khi nào viết hok ra rồi lên đây thảo luận tiếp.

P/S: Lưu ý chủ thớt, nhầm tránh các Admin và Mod chém vào thớt, thì xin pác đánh dấu khối văn bản code rồi chọn ngôn ngữ trong ComboBox lúc pác tạo chủ đều mới nha, hoặc gắn nó vào thẻ vb nha.
Hoàng Sa và Trường Sa là của Việt Nam.

User avatar
thuongall
Quản trị
Quản trị
Posts: 456
Joined: Wed 26/01/2005 8:05 am
Location: Quê hương Đồng Khởi
Been thanked: 9 times
Contact:

Re: Giải Thích Lệnh Trong VB6

Postby thuongall » Sun 14/03/2010 8:45 pm

1. GetTickCount là hàm API, không phải hàm do người dùng tự định nghĩa, nó trả về số ms đã trôi qua kể từ khi Windows khởi động.
2. Đâu cần nhiều hàm thế, tạo Form với 2 textbox và 1 combobox:
  1. Private Sub Form_Load()
  2.     Combo1.AddItem "Hz"
  3.     Combo1.AddItem "kHz"
  4.     Combo1.AddItem "MHz"
  5. End Sub
  6.  
  7. Private Sub Combo1_Click()
  8.     Select Case Combo1.ListIndex
  9.         Case 0: Text2.Text = Text1.Text
  10.         Case 1: Text2.Text = 1000 * Text1.Text
  11.         Case 2: Text2.Text = 1000000 * Text1.Text
  12.     End Select
  13. End Sub

Chú ý là bạn cần phải bẫy lỗi khi người dùng nhập vào text1 không phải là số.

User avatar
xuanquy_th
Guru
Guru
Posts: 803
Joined: Tue 05/08/2008 9:15 pm
Location: Thanh Hoá
Has thanked: 1 time
Been thanked: 10 times
Contact:

Re: Giải Thích Lệnh Trong VB6

Postby xuanquy_th » Mon 15/03/2010 8:28 am

Khi Chúa Trời đóng cánh cửa này lại, Ngài sẽ mở một cánh cửa khác cho ta.
Nhưng ta thường nhìn quá lâu vào cánh cửa đã đóng nên không thấy được có một cánh cửa khác đang mở ra cho ta!!!

hoanclub
Posts: 2
Joined: Sun 14/03/2010 4:01 am

Re: Giải Thích Lệnh Trong VB6

Postby hoanclub » Mon 15/03/2010 3:51 pm

vâng,cảm ơn các anh nhé. EM viết đc code rùi. lúc nào có câu hỏi nào em lại hỏi, hì! em mới học mừ! :">


Return to “Visual Basic 6 và Visual Basic Script (VB & VBS)”

Who is online

Users browsing this forum: No registered users and 8 guests