visual basic 6 0 tutorial pdf ebook free download

... 20 + 10 Print 20 - 10 Trang 13Print 20 * 10 Print 20 / 10 End Sub Figure 2.5: The output of example 2.2 Example 2.2 can also be written as Private Sub Form_Activate ( ) Print 20 + 10, 20 – 10, ... Form object 2 Write a program to display the sentence “I like Visual Basic” 3 Write a program to compute the value of 1500+1000-450*10+300÷5 4 Using a value of 9 to X and a value of 13 to y, write ... Description of Visual Basic 1 1.2 The Visual Basic Environment 2 LESSON 2 BUILDING THE VISUAL BASIC APPLICATIONS 5 2.1 Creating Simple Visual Basic Applications 5 2.2 Steps in Building a Visual Basic

Ngày tải lên: 23/03/2014, 05:22

... vi mạch 6402 từ TxD,chân DR sẽ chuyển mức 1,byte truyền tới được xuất ra song song ở RBR1-RBR8,muốn xóa DR ta cho ´ DRR ở mức 0 Trang 14Các bit điều khiển:CLS1=1,CLS2=1(00:5bit,01:6 bit,10:7 bit,11:8 ... đến -12V,”0”=3 đến 12V,RS485:”1” =-1.5 đến -5V,”0”=1.5 đến5V) nên ta cần dùng một bộ chuyển chuẩn phù hợp mới có thể truyền thông vớimáy tính qua cổng COM Trang 13 PC :giao diện Visual Basic để ... vềđó nhờ SN75176 chuyển sang chuẩn RS485 và truyền về máy tính qua bộ chuyểnđổi RS485/RS232.Vận tốc truyền được xác định bởi tần số tín hiệu ở chân RRC vàTRC,nhờ vi mạch chia tần HC4060 có thể thay

Ngày tải lên: 14/12/2013, 22:55

... "0.#####0") lbl_21.Caption = Format(Val(txt_m.Text), "0.###0") lbl_22.Caption = Format(Val(txt_m.Text), "0.###0") lbl_23.Caption = Format(Val(txt_m.Text), "0.###0") ... Val(txt_nhapx1.Text)), "0.#####0") lbl_kq2.Caption = Format(CSng((Val(Form12.txt_nhapn.Text) - 1) *CSng(txt_psm.Text) / Val(txt_nhapx2.Text)), "0.#####0") Trang 20Private Sub cmd_kq_Click() ... rằnggiá trị của nó bằng 0 ta đa ra giả thiết thống kê H:  = 0 Để kiểm định giả thiết2) Trờng hợp cha biết phơng sai Lúc đó tiêu chuẩn kiểm định là thống kê Trang 10ˆ(n 1)Sˆ( 1) 0 ˆ(n 1)S ; n ˆ( 1)

Ngày tải lên: 27/12/2013, 21:17

... x va -30 den 30 doi voi gia tri cau y i = 0 For i = 0 To 500 x = -3 + i * 6 / 500 y = a * x ^ 3 + b * x Form2.Line -((x + 3) * Form2.Width / 6, Form2.Height - (y + 30) * Form2.Height / 60) Next ... va -30 den 30 doi voi gia tri cau y i = 0 For i = 0 To 500 x = -3 + i * 6 / 500 y = a * b * x ^ 2 + a * x Form2.Line -((x + 3) * Form2.Width / 6, Form2.Height - (y + 30) * Form2.Height / 60) Next ... Form2.Width / 6 CurrentY = Form2.Height / 2 + 6 Print i Next For i = -30 To 30 Step 2 Trang 12CurrentX = Form2.Width / 2 - 6CurrentY = (i + 30) * Form2.Height / 60 Print i Next ' ve do thi trong khoang

Ngày tải lên: 21/03/2014, 19:45

... cao trong Visual Basic 6.0Lương Trần Hy Hiến Đại học Sư Phạm Tp HCM Email: hienlth@hcmup.edu.vn 1 Sử dụng các thư viện control Để sử dụng các control nâng cao trong Visual Basic 6.0, chúng ta ... MyListView.ListItems.Item(STTItem).SubItems(STTSubItem) = “1024KB” Trang 106 TREEVIEWĐối tượng TreeView dùng để hiển thị thông tin dạng phân cấp (dạng cây) Vào menu Project  Components, chọn Microsoft Window Common Control 6.0 Lưu ý: mọi ... dòng iRow, cột jCol Ví dụ: để gán nội dung tại dòng 0, cột 0 của đối tượng MSHFlexGrid1, ta thực hiện như sau Trang 13MSHFlexGrid1.TextMatrix(0, 0) = “abc”

Ngày tải lên: 07/07/2014, 11:20

... m_splitter.CreateView ( 0, 0, RUNTIME_CLASS(viewClass1), m_splitter.CreateView(0,1, RUNTIME_CLASS(viewClass2), } 11.10.5 CÁC VÍ DỤ THỰC HÀNH: 2 Thực hành 1: Viết ứng dụng như VD30 Tạo splitter trong ... 0, 1, hihi); hihi = myCtrl.InsertItem("Muc 3", 0, 1); myCtrl.InsertItem("Muc 31", 0, 1, hihi); myCtrl.InsertItem("Muc 321", 0, 1, myCtrl.InsertItem("Muc 32", 0, ... myCtrl.InsertItem("Muc 11", 0, 1, hihi); myCtrl.InsertItem("Muc 12", 0, 1, hihi); hihi = myCtrl.InsertItem("Muc 2", 0, 1); myCtrl.InsertItem("Muc 21", 0, 1, hihi); myCtrl.InsertItem("Muc

Ngày tải lên: 09/07/2014, 04:21

... RVMesst.[SriNHTO TẾ søpw Hình 9b Khi chọn HSr2 = 15 và HSr1 =0 165 Trang 25Nếu bạn lần lượt click vào các nút có tiêu đề : Hình 9c 166 Trang 26Theat khéi Form [7223 cdc sé chan va lẽ tờHsrr đến Hsr2 ... 2, nếu số dư bằng 1 thì ta kết tuận số đó là số lẻ So Mod 2 = 1 160 Trang 20+ Tương tự như vậy nếu là số chan thi So Mod 2 = 0 + Để tìm tổng giá trị của các số lẻ, ta dùng thêm một biến để cộng ... bằng 0 Sau đó Click chuột vào nút có tiêu đề “ Số số lẻ từ HSr1 đến HSr2 “ bạn sẽ có hình như sau : | Thuát khỏi Form | Tổng các số chẵn và lẽ từ Hsr† đến Hsr2 stat] |B 6: 03 39 (| bac |2156-P4i

Ngày tải lên: 10/08/2014, 15:21

... Or Mang(2) = 0 Or Mang(3) = 0 Or Mang(4} = 0 Or Mang(5) = 0 Or Mang(6) = 0 Or Mang(7) = 0 Or Mang(8) = 0 Or Mang(9) = 0 Trang 26lí Congboi > 1 And Mang(0) > 0 Then Ch1 = " Cấp số nhân ... CmdCapsoNhan_Click0 Trang 25Dim Mang(10)} As Single Mang(0) = Val(Txt1) ( Mang(1) = Val(Txt2) Congboi = Mang(1) / Mang(0) If Congboi = 0 Or Congboi = 1 Or Mang(0) = 0 Or Mang(1) =0 Or Mang(2) = 0 Or Mang(3) ... công bội là 0,5 + Bạn thử Click nút để kiểm tra cấp số cộng, bạn sẽ thấy báo không phải là cấp số cộng như hình sau : 204 Trang 4 PT Nhập vào 3 số a, h, Ủ Ba sé phan biét 0,5, 0,25, 0,125 theo

Ngày tải lên: 10/08/2014, 15:21

... bình phương của 9 số chẵn đầu tiên là 1140 Chúng ta kiểm tra xem kết quả thông báo như vậy là có đúng hay không 4^2=_ 16 6^2=_ 36 8^2=_ 64 10^2 = 100 12^2= 144 Trang 19 TINH a x b THEO THUẬT ... để “ Tính tổng : 2^2+4^2+6^2+ “ các bạn sẽ thấy hình như sau : Thoát khôi chương trì inh stat] | @ GD || Power ffm TONG or paed-ra_ | wrMeownw.] KE 6orrw 1042 =100 Vậy là kết quả thông báo ... chương trình | wiser] |B IEA 99 (Aynseetak.|RVMcoetw.| Z7Z16:Pa4 JÍS YHUCML- (£ 10037 Hình 19a Form của chương trình 276 Trang 56 bjchia cho sé chia pet eee Mời hạn nhận số chia E+ ⁄⁄4:]

Ngày tải lên: 10/08/2014, 15:21

... Nếua-b+c=0 | Khinào Phương trìù có 2 nghiệm nhánHiệt sRsuat| | @ 6; 2 8) || ạpgeat:M-| RỆMeoetV.| JØ36L.Pan || lal THỊ KẾ sp Hình 29g Form khí Click nút nghiệm số kép + Bạn thấy khi Delta = 0, ... 5 = ~ 0,8 + Bạn nhập xong và Click vào nút kết quả, bạn sẽ có hình như sau : 386 Trang 18 : Glai phuong trinh bac 2 + Đồng thời với 2 trường hợp đặc biệt là a + b + c = 0 và a~ b +c=0 + Và ... Trang 20+ Thêm vào phần chữ đậm, để khi bạn nhập hệ số a = 0 thì chương trình sẽ thông báo câu “ Hệ số a không được bằng 0 “ + Bậy giờ bạn chạy thử chương trình, sau đó bạn nhập : - a=0 - b=4

Ngày tải lên: 10/08/2014, 15:21

... 3600 = 1 (gid) + 3700 Mod 3600 = 100 (giây) + 100 \ 60 = 1 (phút) + 100 Mod 60 = 40 (giây) + Vậy kết quả sẽ là 1 giờ 1 phút 40 giây Bây giờ bạn thử nhập vào số 7250, sau đó Click vào nút Xem ... lại sau khi chia cho 3600, bạn phải tính Mod của TxtNhap cho 3600 Sogiay = TxtNhap Mod 3600 + Kết quả này nếu bạn chia nguyên cho 60, bạn sẽ được số phút Phụt = Sogiay \ 60 + Bạn tính số dự còn ... 3700 + Sau đó, bạn Click vào nút Command Button xem kết quả, bạn sẽ kết quả như hình sau : 463 Trang 24& DŨI THÔI GIAN mmm. Đổi ra giờ - phút - giây + 3700 \ 3600 = 1 (gid) + 3700 Mod 3600

Ngày tải lên: 10/08/2014, 15:21

... PHẦN MỀM VISUAL BASICVOICE MAIL SERVICE Phần mền được viết bằng ngôn ngữ Visual Basic 6.0 và quản lý CSDL bằngMicrosoft Access 97 Chương trình sử dụng Active X Microsoft Comm Control 6.0 để giao ... "STIN" Then Exit Sub If D_Signal = 10 Then D_Signal = 0 Trang 6Call StopWave ResRead.Delete ResRead.Update Read_BANTIN = "" Call PlayGA_Done(0) Endif Case "14" Trang 7If ... item = ListView1.ListItems.Add(i, , CStr(ResMail!SM), 1, 1) ' Thủ tục mở cổng Com, với tốc độ 2400, 8 bit data , Không kiểm tra chẳn lẻ, 1 bit stop Private Sub Open_Com() On Error Resume Next

Ngày tải lên: 14/10/2014, 00:54

... dụng Ghi chú Ngày….tháng…năm 2009 BTGĐ GĐNM PKT-CN Giám sát kho Người đề nghị  Mẫu phiếu Lệnh nhập hàng Trang 12NHÀ MÁY CÁN THÉP HOÀ PHÁTBM.10.07 Ngày hiệu lực: 01/08/07 quy cách hãng sản xuất) ... ………tháng…… năm 2009 Phòng vật tư (Ghi rõ họ tên) * Giấy đề nghị kiêm phiếu xuất vật tư SV : Lê Minh Trường Lớp TH39C12 Trang 13NHÀ MÁY CÁN THÉP HOÀ PHÁTBM.10.03 Ngày hiệu lực: 01/08/07 GIẤY ĐỀ ... kiêm tra chất lượng vật tư BM.10.08 Ngày hiệu lực: 01/08/07 Trang 14NHÀ MÁY CÁN THÉP HOÀ PHÁTBIÊN BẢN KIỂM TRA CHẤT LƯỢNG VẬT TƯ ĐẦU VÀO Vào hồi… ngày ……tháng… năm 2009 Tại: Nhà máy Cán Chúng tôi

Ngày tải lên: 24/04/2015, 22:14

... Tốcđộdữliệucựcđại 20Kbps Điệnápngõracựcđại ±25V Điệnápngõracótải ±5Vđến±15V Trởkhángngõvào 3Kđến7K Cáctốcđộtruyềndữliệuthôngdụngtrongcổngnốitiếplà:1200bps,4800bps,9600bpsvà 19200bps CổngCOMcóhailoại:đầunốiDB25(25chân)vàđầunốiDB9(9chân), ... các giá trị hợp lệ là: 300 9600 (măc định) 56000 + P: kiểm tra chẵn lẻ, với các giá trị: O Odd (kiểm tra lẻ) E Even (kiểm tra chẵn) M Mark (luôn bằng 1) S Space (luôn bằng 0) N Không kiểm tra + ... khung ComOver 1006 Phần cứng không đọc ký tự trước khi gửi ký tự kế ComCDTO 1007 Carrier Detect Timeout ComRxOver 1008 Tràn bộ đệm nhận Trang 9ComRxParity 1009 Lỗi ParityComTxFull 1010 Tràn bộ đệm

Ngày tải lên: 12/05/2015, 22:05

... Trang 3CHƯƠNG 1 TỔNG QUAN VỀ VISUAL BASIC 6.0 I Giới thiệu về Visual Basic 6.0 Visual Basic 6.0 (VB6) là một phiên bản của bộ công cụ lập trìnhVisual Basic (VB), cho phép người dùng tiếp cận ... TRÌNH VISUAL BASIC 6.0 VÀ ỨNG DỤNG VÀO GIẢI QUYẾT BÀI TOÁN PHỤC VỤ CÔNG CỘNG Sinh viên:Nguyễn Thanh Tùng Lớp :THKT K7A GVHD:Vũ Xuân Nam Trang 3CHƯƠNG 1 TỔNG QUAN VỀ VISUAL BASIC ... Microsoft Windows NT Workstation. III Làm quen với VB6 III.1 Bắt đầu một dự án mới với VB6 Từ menu Start chọn Programs, Microsoft Visual Basic 6.0 Khi đó bạn sẽ thấy màn hình đầu tiên như hình I.1

Ngày tải lên: 02/06/2015, 17:36