Xin giup do VB6

**traiheogiong** · 25-08-2002 09:39

Cho minh hoi nhe , trong VB6 minh tao mot text box dung de nhap du lieu . Sau do mot nut lenh se co nhiem vu sau day :
-do tung chu trong noi dung textbox da nhap .
-neu trong textbox co chu a thi do xem co tat ca bao nhieu chu , sau do ung voi mot chu thi co mot gia tri so nao do ( vi du la 1 ) , sau do cong tat ca gia tri do lai
- neu trong textbox co chu bthi cung do xem co tat ca la bao nhieu chu b , moi chu b lai ung voi mot gia tri nao do (vi du la 2) , sau do lai cong tat ca gia tri do lai ( cong luon ca gia tri cua chu a luc dau nua )
- tuong tu nhu vay doi voi cac chu c ,d ,e ....x , y , z .
- sau khi xong phan tren thi no lai lam tiep mot nhiem vu la cong tat ca cac chu so ma no co , cong cho den khi nao tong do la mot so .
- ung voi mot so nhu vay thi no se cho mot gia tri text vao mot text box thu hai ( hoac la lien ket den mot file nao do trong may )
Vi du : textbox1 : abcabcde
- co tat ca la 2 chu a ---> 2 * 1 = 2 ( gia tri chu a la 1)
- co tat ca la 2 chu b ---> 2*2 = 4 , 4+2 = 6 ( 2 la gia tri chu a o tren )
- co tat ca la 2 chu c ---> 2*3 =6 , 6+6=12
- co tat ca la 1 chu d ---> 4*1=4 , 4+12=16
- co tat ca la 1 chu e ---> 5*1 = 5 , 5+16=21
-sau khi do het gia tri trong text box roi , lai tiep tuc lay 2+1 = 3 ( lay tong cua cac chu so co trong so 21 )
- ung voi so 3 do , ta se cho textbox2 hien ra mot noi dung nao do , hay la se lien ket toi mot file nao do co trong may .

Minh da su dung array va cac vong lap for-next de gia quyet , nhung khong thanh cong . Minh mong ai biet se chi giup minh nhe . Neu co the thi gui bai len de moi nguoi cung doc , hoac la gui mail cho minh theo dia chi : traiheogiong@yahoo.com . Xin cam on

**quaitieutu** · 25-08-2002 09:44

hình như cái này giống như mấy trò " bói" trên báo Mực Tím hay hoa học trò phải không

**traiheogiong** · 25-08-2002 10:27

Dung la vay , nhung ma minh khong tim duoc cau tra loi

**quaitieutu** · 25-08-2002 11:27

Nếu không có cách nào hay hơn thì bạn làm theo cách này vậy
-Bạn " chiết từng kí tự trong chuỗi "
-Dùng vòng lặp để lấy từng kỹ tự một
-Khi đã có từng chữ rồi chuyển nó ra số ASCII
-VD trong Ascii thì a là 64 .bạn so sánh rồi gán nó là 1,b là hai
-chạy vòng lặp cho tới khi có các giá trị rồi
-Viết hàm cộng kết quả
-Sau đó so sánh kết quả đó ứng với quẻ bói nào rồi cho xuất ra kết quả
Nhưng cái này chỉ là làm đơn giản nhất thôi ,còn đối với chữ mà có dấu thì lại làm cách phức tạp hơn.

**traiheogiong** · 26-08-2002 10:01

Co mot Admin da giup minh giai quyet van de nay , xin gui cho cac ban cung tham khao nhe . Neu ban nao co cach nao hay thi pst len day de moi nguoi cung tham khao nhe .

------------------------------------------
Bo sung mot nut lenh , ten la cmdChange
Nhap va xuat trong mot textbox , ten la txtnum

-------------------
Private Sub cmdchange_Click()
tong = 0
For i = 1 To Len(txtnum.Text)
bien = Mid(txtnum.Text, i, 1)
Select Case bien
Case "a"
tong = tong + 1
Case "b"
tong = tong + 2
Case "c"
tong = tong + 3
Case "d"
tong = tong + 4
Case "e"
tong = tong + 5
Case "f"
tong = tong + 6
Case "g"
tong = tong + 7
Case "h"
tong = tong + 8
Case "i"
tong = tong + 9
Case "j"
tong = tong + 10
Case "k"
tong = tong + 11
Case "l"
tong = tong + 12
Case "m"
tong = tong + 13
Case "n"
tong = tong + 14
Case "o"
tong = tong + 15
Case "p"
tong = tong + 16
Case "q"
tong = tong + 17
Case "r"
tong = tong + 18
Case "s"
tong = tong + 19
Case "t"
tong = tong + 20
Case "u"
tong = tong + 21
Case "v"
tong = tong + 22
Case "w"
tong = tong + 23
Case "x"
tong = tong + 24
Case "y"
tong = tong + 25
Case "z"
tong = tong + 26
End Select
Next i
txtnum.Text = ""
txtnum.Text = tong
End Sub

**Đức Tâm** · 26-08-2008 13:58

Này bạn traiheogiong. mình nghĩ khi bạn post thông tin hay nhờ giúp đỡ thì xin bạn viết bằng chữ có dấu nha. Mình đọc rất lâu mới hiểu hết những gì bạn viết đấy. Mình là thành viên mới,mình rất thích lập trình. Mình cũng biết sơ qua về ngôn ngữ VB nên có gì hay mong bạn cho mình học hỏi với nha. Nhưng mình thấy yêu cầu của bạn và cách giải quyết không hay cho lắm và không đúng yêu cầu của đề thì phải.Mình rất yêu thích ngôn ngữ này. Và mình đã viết một vài chương trình bằng ngôn ngữ này rồi.