View Full Version : مبتدی: عدد بزرگتر
iran2008
چهارشنبه 13 آبان 1388, 18:49 عصر
سلام
ببخشید از سوال کاملا آماتور گونه ام :
من یه تکست باکس دارم که توش این متن رو نوشته :
AdadBozorg=[3213,546,8797,9,8797,879,7795,46,4114,46];
حال میخواستم بفهمم که چطوری میتونم عدد بزرگتر رو تشخیص بدم توش و بندازم تو تکست باکس دیگه نشونش بده ؟
مرسی :تشویق:
.:KeihanCPU:.
چهارشنبه 13 آبان 1388, 20:04 عصر
آیا همیشه چیدمان مقدار داخل تکست باکس به این صورته یا تغییر میکنه؟
اگر باری اسپمر میخواین لازم به ذکره که بعد از کروشه بزرگترین عدد رو داریم:چشمک:
IamOverlord
چهارشنبه 13 آبان 1388, 21:16 عصر
سلام دوست عزیز!
فکر کنم جواب این باشه:
Dim A As String
Dim B As String
Private Sub Command1_Click()
Adadha = Mid$(Text1.Text, 13, Len(Text1.Text) - 2 - 12) + ","
B = ""
For i = 1 To Len(Adadha)
If Mid$(Adadha, i, 1) = "," Then
If B = "" Then
B = A
Else
If Val(A) < Val(B) Then B = A
End If
A = ""
Else
A = A + Mid$(Adadha, i, 1)
End If
Next i
Text2.Text = B
End Sub
Private Sub Form_Load()
End Sub
iran2008
پنج شنبه 14 آبان 1388, 02:12 صبح
بله آقای .:KeihanCPU:. شما درست حدس زدید
اون خطی که میخوام ازش بزرگترین عدد رو بکشم بیرون در حقیقت اینه :
BlogComments=[17,4,16,3,15,1,14,0,13,1,12,1,11,3,10,6,9,0,8,1,7, 0,6,2,5,1,4,0,3,1,2,6,1,2];
متن BlogComments که ثابته .
حال من عدد بزرگتر که همون بعد از کروشه هست رو میخوام و اگه بشه اون عدد کناریش هم میخوام.
چون دو تا دو تا با هم هستند.
یکی شماره پسته و یکی دیگه هم تعداد نظر ارسالی اون پسته .
مرسی از شما .
راستی سورس آقای IamOverlord فکر کنم مورد داره . چون من تو اون همه عددی که تو پست اولی گذاشتم عدد بزرگتری داره که توی سورسی که آقای IamOverlord برام گذاشت عدد بزرگ رو 9 میده .
البته میدونم که بحث و فعالیت درباره اسپم و اینجور آشغال ها درست نیست .
اما من لازم دارم و هر جا هم هست پولیه.
دیگه خودم دست بکار شدم بسازمش.
iran2008
پنج شنبه 14 آبان 1388, 05:00 صبح
خودم روش کار کردم حل شد
مرسی
IamOverlord
پنج شنبه 14 آبان 1388, 23:17 عصر
سلام دوست عزیز!
خوشحالم که مشکلت حل شد!
فقط اینو بگم که سورسی که گذاشتم عدد کوچیک رو می ده... کافیه که علامت < رو بر عکس کنی:
یعنی این طوری:
Dim A As String
Dim B As String
Private Sub Command1_Click()
Adadha = Mid$(Text1.Text, 13, Len(Text1.Text) - 2 - 12) + ","
B = ""
For i = 1 To Len(Adadha)
If Mid$(Adadha, i, 1) = "," Then
If B = "" Then
B = A
Else
If Val(A) > Val(B) Then B = A
End If
A = ""
Else
A = A + Mid$(Adadha, i, 1)
End If
Next i
Text2.Text = B
End Sub
موفق باشی!:چشمک:
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.