Tài liệu Chiêu thức lập trình Visual Basic pdf

Tác giả : Lê Nguyên Dũng

Lớp 11C1 trường THPT Đăk Nông (Thị xã Gia Nghĩa - Đăk Nông)

Email của mình : [email protected]

Nick : nguyen_dung_vb

Địa chỉ nhà : Thôn 1, thị trấn Đăk Mâm Huyện Krông Nô Tỉnh Đắk Nông

Tự hào ghê cái Logo của cuốn sách mình thiết kế bằng ... Word và Paint đấy. Nhìn vô cũng

chuyên nghiệp đấy chứ

Lời nói đầu

Sau khi “Xuất bản” cuốn “Chiêu thức lập trình” mình quả thật rất buồn vì chẳng có lấy một lời

động viên từ bất kỳ ai (Ở Đăk Nông này mình có biết ai mà khoe) còn anh em ở việt nam nét thì

chẳng đoái hoài gì cả vì vậy mình đã thật sự nản, để cuối cùng sau một sự cố nghề nghiệp phiên

bản Chiêu thức lập trình phiên bản 2 mình viết gần hoàn thành bỗng tan vào sương khói mình đã

tuyệt vọng. Nhưng mới hồi sáng khi mình “Viếng” www.caulacbovb.com một diễn đàn mình tham

gia từ khá lâu nhưng không mấy quan tâm mình đã thấy cuốn sách này được chia sẽ trên đó,

cùng với đó là lời khen của một nhân vật mình không nhớ tên đã làm mình rất vui, vì mình đã

nhận ra mình cũng được công nhận dù chỉ một chút. Cuốn Chiêu thức lập trình lần này sẽ được

nâng cấp lên với nhiều chiêu thức và hình vẽ minh hoạ để giúp các bạn nâng cao kiến thức.

Lời cầu cứu : Do từ năm lớp 9 đến nay mình chỉ tập trung vào học lập trình (Mà lại toàn tự học)

nên hiện nay đệ đã học sút rất nhiều nguy cơ rớt đại học ngày một đến gần mà ước mơ lớn nhất

của đời đệ là đậu vào khoa Công Nghệ Thông Tin Đại học Bách Khoa Hồ Chí Minh đệ mong

rằng có huynh nào đã từng phải nếm trải cảnh thi đại học thì chia sẻ kinh nghiệm học, học sách

gì ... Còn nếu có sách vở (Cũ cũng được) không cần dùng tới nhưng tốt để ôn thi đại học thì chia

sẽ cho đệ. Nếu có huynh nào có lòng “Hảo tâm” hãy gửi đến địa chỉ : (Đây là địa chỉ cô giáo dạy

Tin của trường đệ vào hết năm học này có thể thay đổi)

Phạm Thị Loan giáo viên trường Trung Học Phổ Thông Đăk Nông, xin ghi rõ là nhở gửi cho em

Lê Nguyên Dũng lớp 11C1

Cuốn sách này là cuốn sách hoàn toàn miễn phí để chia sẽ trong cộng đồng lập trình nên nếu có

ai múôn sử dụng để in sách thì cũng nên ghi rõ xuất sứ.

Trong sách tôi xin chỉ rõ xuất xứ, mong rằng các ban cũng sẽ tôn trong tác giả không chỉnh sửa

tác giả hay các xuất xứ

Cuốn sách này đi theo định hướng là sử dụng các hàm API hoặc các lệnh đơn giản để tạo thành

những thủ thuật và hạn chế tối đa phải sử dụng các công cụ hỗ trợ.

Đôc c

Đôc c

Đôc c

Đôc c

Đôc c

Đôc c

Đôc c

Đôc c

Đôc c

Đôc c

Đôc c

Đôc c

Đôc c

Đôc c

Đôc c

Đôc c

Đôc c

Đôc c

Đôc c

Đôc c

Đôc c

Đôc c

Đôc c

Đôc c

Đôc c

Đôc c

Đ

chiêu 1 : “Thả

chiêu 2 : Hiện

chiêu 3 : Hiện

chiêu 4 : Form

chiêu 5 : “Chụ

chiêu 6 : “Vô h

chiêu 7 : “Kéo

chiêu 8 : “Ghi

chiêu 9 : Đóng

chiêu 10 : Tạo

chiêu 11 : Tha

chiêu 12 : Đón

chiêu 13 : Tạo

chiêu 14 : Tha

chiêu 15 : So

chiêu 16 : Liệt

chiêu 17 : Chư

chiêu 18 : Play

chiêu 19 : Kho

chiêu 20 : Để

chiêu 21 : Tex

chiêu 22 : Để

chiêu 23 : Lấy

chiêu 24 : Ché

chiêu 25 : Dấu

chiêu 26 :Mở

Đôc chiêu 27 :

một câu từ tr

một câu bằn

con trỏ động

m có hình dạn

ụp ảnh màn hì

hiệu hoá butto

o form di chuy

lại tất cả nhữ

g một ứng dụ

o phím nóng c

ay đổi hình nề

ng mở khay C

o một System

ay đổi Font tiế

sánh hai ảnh

t kê danh sác

ương trình kh

y một file nhạ

oá một file ản

form của bạn

xtBox chỉ “Chị

form trở nên

y tên người sử

ép cả màn hìn

u dữ liệu dạng

từng hộp thoạ

: Mã hoá dữ l

rên cao xuốn

ng cách lần lư

g tại một đối tư

ng theo một hì

ình vào một P

on close và m

yển từ một điể

ững phím gõ t

ng bất kỳ

cho chương t

ền cho Deskto

CD-ROM

mTray cho ứng

ếng việt cho M

ch các thành p

hởi động cùng

ạc Midi

h định dạng .

n ở chế độ “Lu

ịu” nhận số

trong suốt

ử dung của W

nh làm việc v

g text vào 1 fi

ại trong Cont

iệu dạng text

Mục lục

g” (Có thể nó

ượt hiện từng

ượng nào đó

ình ảnh bất k

Picture”

menu của form

ểm bất kỳ”

tên bàn phím”

trình

op

g dụng của bạ

Menu của Win

phần phần cứ

g với Window

.bmp

uôn nổi”

Windowns

ào một Pictur

ile bất kỳ

rol Panel

t

ói như vậy)

chữ

ỳ

m (cả Alt-F4 lu

”

ạn

ndow

ứng trong máy

wns

re

uôn)”

y

Đôc chiêu 1 : “Thả một câu từ trên cao xuống” (Có thể nói như vậy) home

Xuất xứ : www.pscode.com

Binh khí sử dụng : Một Picture và một CommandButton

Đoạn mã :

Option Explicit

Private Sub command1_Click()

Randomize Timer 'Init Rnd

'Declarations

Dim StartTime(100) 'Starttime of a up/down

movement

Dim DownMovement(100) As Boolean 'are we doing a up or down

movement ???

Dim MoveDistance As Double 'distance target has moved

since the start of the movement

Dim YPos(100) As Double 'Holds the y position of a

letter

Dim MovementDone(100) As Boolean 'Is set to true when a up /

down movement is completed

Dim StartHeight(100) As Double 'From which hight will

the letter fall down ?

Dim UpMovementTime(100) As Double 'How long will it the

letter take to move up

Dim PowerLoss(100) As Double 'losing xx% of power

when touching the ground

Dim Message As String 'Message you want to

display

Dim Looop As Integer 'Loop var

Dim TextColor(100) As ColorConstants 'Color of one letter

'Settings

picture1.ScaleMode = 4

picture1.FontName = "Courier New"

Message = "Ohh my god ! It's raining letters today !!! Contact me:

[email protected]" 'Message you want to display

For Looop = 1 To Len(Message)

PowerLoss(Looop) = 0.2 + ((Rnd * 25) / 100)

'losing xx% of power when touching the ground

StartHeight(Looop) = 0

TextColor(Looop) = RGB(80 + Looop * 2, 80 + Looop * 2, 255)

Next Looop

For Looop = 1 To Len(Message)

StartTime(Looop) = Timer 'Setting up

startime for a following movement, needed for calculation of position

Next Looop

Do

picture1.Cls 'Clear picturebox