Tìm hiểu ngôn ngữ lập trình Visual Basic

nhap.Text, n - 1) & "2"
'i = 0
End Select
'****************phim so 3***************
Case 3
'user dung phim so trong menu quick access
If quickaccess = True Then
luumuc = clickquickaccess(3)
orderinquick = 3
Exit Sub
End If
'user dung phim so trong menu message
If messagelist = True Then
Call clickmessage(3)
Exit Sub
End If
'user dung phim so de nhap ky tu
Select Case i
Case 0
tbnhap.Text = tbnhap.Text & "D"
i = i + 1
Case 1
n = Len(tbnhap.Text)
tbnhap.Text = Left(tbnhap.Text, n - 1) & "E"
i = i + 1
Case 2
n = Len(tbnhap.Text)
tbnhap.Text = Left(tbnhap.Text, n - 1) & "F"
i = i + 1
Case 3
n = Len(tbnhap.Text)
tbnhap.Text = Left(tbnhap.Text, n - 1) & "3"
'i = 0
End Select
'***************phim so 4****************
Case 4
'user dung phim so trong menu quick access
If quickaccess = True Then
luumuc = clickquickaccess(4)
orderinquick = 4
Exit Sub
End If
'user dung phim so trong menu message
If messagelist = True Then
Call clickmessage(4)
Exit Sub
End If
'user dung phim so de nhap ky tu
Select Case i
Case 0
tbnhap.Text = tbnhap.Text & "G"
i = i + 1
Case 1
n = Len(tbnhap.Text)
tbnhap.Text = Left(tbnhap.Text, n - 1) & "H"
i = i + 1
Case 2
n = Len(tbnhap.Text)
tbnhap.Text = Left(tbnhap.Text, n - 1) & "I"
i = i + 1
Case 3
n = Len(tbnhap.Text)
tbnhap.Text = Left(tbnhap.Text, n - 1) & "4"
'i = 0
End Select
'************** phim so 5 ***************
Case 5
'user dung phim so trong menu quick access
If quickaccess = True Then
luumuc = clickquickaccess(5) 'menuaccess.thutu
orderinquick = 5
Exit Sub
End If
'user dung phim so trong menu message
If messagelist = True Then
Call clickmessage(5)
Exit Sub
End If
'user dung phim so de nhap ky tu
Select Case i
Case 0
tbnhap.Text = tbnhap.Text & "J"
i = i + 1
Case 1
n = Len(tbnhap.Text)
tbnhap.Text = Left(tbnhap.Text, n - 1) & "K"
i = i + 1
Case 2
n = Len(tbnhap.Text)
tbnhap.Text = Left(tbnhap.Text, n - 1) & "L"
i = i + 1
Case 3
n = Len(tbnhap.Text)
tbnhap.Text = Left(tbnhap.Text, n - 1) & "5"
'i = 0
End Select
'*************** phim so 6 ***************
Case 6
'user dung phim so trong menu quick access
If quickaccess = True Then
luumuc = clickquickaccess(6) 'menuaccess.thutu
orderinquick = 6
Exit Sub
End If
'user dung phim so trong menu message
If messagelist = True Then
Call clickmessage(6)
Exit Sub
End If
'user dung phim so de nhap ky tu
Select Case i
Case 0
tbnhap.Text = tbnhap.Text & "M"
i = i + 1
Case 1
n = Len(tbnhap.Text)
tbnhap.Text = Left(tbnhap.Text, n - 1) & "N"
i = i + 1
Case 2
n = Len(tbnhap.Text)
tbnhap.Text = Left(tbnhap.Text, n - 1) & "O"
i = i + 1
Case 3
n = Len(tbnhap.Text)
tbnhap.Text = Left(tbnhap.Text, n - 1) & "6"
'i = 0
End Select
'**************** phim so 7 **************
Case 7
'user dung phim so trong menu quick access
If quickaccess = True Then
luumuc = clickquickaccess(7)
orderinquick = 7
Exit Sub
End If
'user dung phim so trong menu message
If messagelist = True Then
Call clickmessage(7)
Exit Sub
End If
'user dung phim so de nhap ky tu
Select Case i
Case 0
tbnhap.Text = tbnhap.Text & "P"
i = i + 1
Case 1
n = Len(tbnhap.Text)
tbnhap.Text = Left(tbnhap.Text, n - 1) & "Q"
i = i + 1
Case 2
n = Len(tbnhap.Text)
tbnhap.Text = Left(tbnhap.Text, n - 1) & "R"
i = i + 1
Case 3
n = Len(tbnhap.Text)
tbnhap.Text = Left(tbnhap.Text, n - 1) & "S"
i = i + 1
Case 4
n = Len(tbnhap.Text)
tbnhap.Text = Left(tbnhap.Text, n - 1) & "7"
'i = 0
End Select
'*********** phim so 8 *******************
Case 8
'user dung phim so trong menu quick access
If quickaccess = True Then
luumuc = clickquickaccess(8)
orderinquick = 8
Exit Sub
End If
'user dung phim so trong menu message
If messagelist = True Then
Call clickmessage(8)
Exit Sub
End If
'user dung phim so de nhap ky tu
Select Case i
Case 0
tbnhap.Text = tbnhap.Text & "T"
i = i + 1
Case 1
n = Len(tbnhap.Text)
tbnhap.Text = Left(tbnhap.Text, n - 1) & "U"
i = i + 1
Case 2
n = Len(tbnhap.Text)
tbnhap.Text = Left(tbnhap.Text, n - 1) & "V"
i = i + 1
Case 3
n = Len(tbnhap.Text)
tbnhap.Text = Left(tbnhap.Text, n - 1) & "8"
'i = 0
End Select
'************* phim so 9 *****************
Case 9
'user dung phim so trong menu quick access
If quickaccess = True Then
luumuc = clickquickaccess(9)
orderinquick = 9
Exit Sub
End If
'user dung phim so trong menu message
If messagelist = True Then
Call clickmessage(9)
Exit Sub
End If
'user dung phim so de nhap ky tu
Select Case i
Case 0
tbnhap.Text = tbnhap.Text & "W"
i = i + 1
Case 1
n = Len(tbnhap.Text)
tbnhap.Text = Left(tbnhap.Text, n - 1) & "X"
i = i + 1
Case 2
n = Len(tbnhap.Text)
tbnhap.Text = Left(tbnhap.Text, n - 1) & "Y"
i = i + 1
Case 3
n = Len(tbnhap.Text)
tbnhap.Text = Left(tbnhap.Text, n - 1) & "Z"
i = i + 1
Case 4
n = Len(tbnhap.Text)
tbnhap.Text = Left(tbnhap.Text, n - 1) & "9"
'i = 0
End Select
End Select
End If
'********** phim cancle ******************
Select Case Index
Case 10
If volume.Visible = True Then
Exit Sub
End If
If locked = True Or autolocked = True Then
Exit Sub
End If
If callnumberfixed = True Then
callnumberfixed = False
End If
If listdial = True Then
listdial = False
'Exit Sub
End If
If callnumber = True Then
tbnhap.Text = "Menu"
callnumber = False
'Exit Sub
End If
If found = True Then 'And setup = False Then
tbnhap.Text = "Phone Book"
found = False
flag = False
menucon = False
Exit Sub
End If
If phonebook = True Then
tbnhap.Text = "Phone Book"
phonebook = False
send = False
Exit Sub
End If
'se thoat ra muc Phone Setup khi dang lam viec voi menu con cua no
If setup = True Then
tbnhap.Text = "Phone Setup"
setup = False
Exit Sub
End If
'neu dang nam trong menu quick access then
If quickaccess = True Then
tbnhap.Text = "Menu"
quickaccess = False
danhso = True
Exit Sub
End If
If longpress = True Then
tbnhap.Text = "Menu"
longpress = False
danhso = True
Exit Sub
End If
If tbnhap.Text = "Overwritten?" Then
tbnhap.Text = "Enter Location!" & vbCrLf
Exit Sub
End If
If accessory = True Then
tbnhap.Text = "Accessory Setup"
accessory = False
Exit Sub
End If
If network = True Then
tbnhap.Text = "Network Selection"
network = False
showlist = False
Exit Sub
End If
If features = True Then
tbnhap.Text = "Call Related Features"
features = False
Exit Sub
End If
If message1 = True Then
tbnhap.Text = "Messages"
message1 = False
messagelist = False
Exit Sub
End If
If tbnhap.Text = "Phone Book" Or tbnhap.Text = "Messages" Or tbnhap.Text = "Phone Setup" Then
tbnhap.Text = "Menu"
Exit Sub
End If
If tbnhap.Text = "Call Related Features" Or tbnhap.Text = "Network Selection" Or tbnhap.Text = "Accessory Setup" Then
tbnhap.Text = "Menu"
Exit Sub
End If
If tbnhap.Text = "Are you sure?" Then
tbnhap.Text = "Network Selection"
network = False
showlist = False
Exit Sub
End If
If availablenetwork = True Or addnetwork = True Then
tbnhap.Text = "Network Selection"
availablenetwork = False
addnetwork = False
Exit Sub
End If
If editentrylist = True Or eraseentrylist = True Or addentrylist = True Then
editentrylist = False
addentrylist = False
eraseentrylist = False
Exit Sub
End If
If danhso = False And cancle = True Then
tbnhap.Text = "Menu"
danhso = True
Exit Sub
End If
If danhso = True Or cancle = False Then
If editor = True Then
n = Len(tbnhap.Text)
If n = 0 Then
tbnhap.Text = "Messages"
editor = False
danhso = False
cancle = True
Exit Sub
Else
tbnhap.Text = Left(tbnhap.Text, n - 1)
Exit Sub
End If
End If
If setting = True Then
n = Len(tbnhap.Text)
If n = 0 Then
tbnhap.Text = "Messages"
danhso = False
cancle = True
setting = False
Else
tbnhap.Text = Left(tbnhap.Text, n - 1)
End If
Exit Sub
End If
k = InStr(tbnhap.Text, vbCr)
n = Len(tbnhap.Text)
If n = 0 Then
tbnhap.Text = "Menu"
Exit Sub
End If
If n = k + 1 Then
'Beep
tbnhap.Text = "Phone Book" '"Personal Number"
cancle = True
danhso = False
changecase = False
'Exit Sub
Else
If tbnhap.Text = "Menu" Then
Beep
Else
tbnhap.Text = Left(tbnhap.Text, n - 1)
Exit Sub
End If
End If
End If
'************ Phim menu-up ***************
Case 11
If tbnhap.Text = "Network Selection" Then
tbnhap.Text = "Phone Setup"
Exit Sub
End If
If tbnhap.Text = "Phone Setup" Then
tbnhap.Text = "Messages"
Exit Sub
End If
If tbnhap.Text = "Messages" Then
tbnhap.Text = "Call Related Features"
Exit Sub
End If
If tbnhap.Text = "Call Related Features" Then
tbnhap.Text = "Phone Book"
Exit Sub
End If
If tbnhap.Text = "Phone Book"...