banner

[Rule] Rules  [Home] Main Forum  [Portal] Portal  
[Members] Member Listing  [Statistics] Statistics  [Search] Search  [Reading Room] Reading Room 
[Register] Register  
[Login] Loginhttp  | https  ]
 
Forum Index Thảo luận hệ điều hành Windows Đếm số đã xuất hiện trong 1 textbox  XML
  [Programming]   Đếm số đã xuất hiện trong 1 textbox 07/07/2009 11:36:36 (+0700) | #1 | 185636
trinhtrunghieu
Member

[Minus]    0    [Plus]
Joined: 06/05/2007 11:51:21
Messages: 6
Offline
[Profile] [PM]
Chào mọi người mình mới học vb.net muốn hỏi

Nếu có 2 textbox.

1 textbox nhập được các dãy số : 123434545....
1 textbox nhập 1 số trùng với 1 số của textbox trên : 5

thì sau khi đếm sẽ cho ra kết quả là 2

Để giải quyết bài trên thì phải làm ntn ?

thanks !
[Up] [Print Copy]
  [Programming]   Đếm số đã xuất hiện trong 1 textbox 07/07/2009 22:25:55 (+0700) | #2 | 185658
[Avatar]
kamikazeq
Member

[Minus]    0    [Plus]
Joined: 04/07/2006 03:20:53
Messages: 837
Location: Panic Malware Planet
Offline
[Profile] [PM] [Yahoo!]
Cho vòng lặp chạy từ 1 tới Length của Textbox1.
Xét 1 kí tự trong Textbox2 xem có trùng với từng kí tự trong chuỗi kia không.
Nếu có thì + thêm 1 vào biến đếm.

PS: mà bạn học Pascal chưa nhỉ.
IDM 5.18 http://tinyurl.com/pl2ejj | Quick Remove Malware http://tinyurl.com/lbbm9x - http://tinyurl.com/arna6g
[Up] [Print Copy]
  [Programming]   Đếm số đã xuất hiện trong 1 textbox 09/07/2009 10:25:00 (+0700) | #3 | 185826
trinhtrunghieu
Member

[Minus]    0    [Plus]
Joined: 06/05/2007 11:51:21
Messages: 6
Offline
[Profile] [PM]
Cảm ơn bạn nhưng cái mình cần là đếm được cả 2 số trở lên cơ : ví dụ mình nhập ở textbox1 là

1234543512 thì nhập số : 12 ở textbox2 sẽ đếm với kết quả là : 2

Public count As Integer = 0
Function CheckNumber()
Dim s1 As String
Dim s2 As String
Console.Write("Nhap s1 :")
s1 = Console.ReadLine()
Console.Write("Nhap s2 :")
s2 = Console.ReadLine()
Dim i As Integer
Dim count As Integer
For i = 0 To s1.Length - 1
If s1(i) = s2 Then
'MsgBox("so :" & s2 & " in " & i)
count += 1
End If
Next
Console.Write("Appears :" & count)
Return count
End Function
[Up] [Print Copy]
  [Programming]   Đếm số đã xuất hiện trong 1 textbox 18/07/2009 22:49:20 (+0700) | #4 | 186715
duongdragonxxx
Member

[Minus]    0    [Plus]
Joined: 27/11/2004 14:31:27
Messages: 2
Offline
[Profile] [PM]
đơn jản nhất
string[] temp= textbox1.text.Trim().Split("12");
//số 12 tìm dc là temp.Length-1
[Up] [Print Copy]
[digg] [delicious] [google] [yahoo] [technorati] [reddit] [stumbleupon]
Go to: 
 Users currently in here 
1 Anonymous

Powered by JForum - Extended by HVAOnline
 hvaonline.net  |  hvaforum.net  |  hvazone.net  |  hvanews.net  |  vnhacker.org
1999 - 2013 © v2012|0504|218|