| Latest topics | » سلام علیک و رحمه الله...چه خبرا بچه ها؟
 by DARK Sat Apr 30, 2022 11:59 pm
» oon ghadima!!!
by Inj3ctor Wed Aug 18, 2021 4:26 am
» need a source code of any server for university project help me for it
by xerockss Sun Jun 09, 2019 10:28 pm
» New : Run Python based bots like Aurora, Blacksmith, VBOt in your Android Mobile
by ltc_mkt Wed Feb 27, 2019 5:09 pm
» دوره ی اضافه کردن سکه به برنامه هایی همچون فالوور بگیر و ممبرگیر و ... (خریداری شده)
by mr.pitza Mon Oct 01, 2018 8:10 pm
» hach any id f.a.c.e.b.o.o.k 2019
by christian777 Sat Apr 21, 2018 4:41 am
» هديه للجميع 500 نك فلوود قديم شغالين 500 old ids flood free
by christian777 Mon Apr 09, 2018 6:37 pm
» Freebuzz & Nimbuzz yadet bekheyr !
by DARK Thu Apr 05, 2018 1:54 pm
» new flood 2018 فلود جديد يعمل على جميع انواع نكات لفلود القديمة والجديدة
by christian777 Fri Oct 20, 2017 6:20 am
» STEALTH PROJECT WEB FLOOD NIMBUZZ
by djsaim Sat Sep 30, 2017 8:51 pm
» XIO server & online bots
by ltc_mkt Mon May 29, 2017 8:12 pm
» فریباز دوباره برمیگردد
by Mer+sad Thu Apr 06, 2017 3:34 am
» Xio Server Updated Elite Version
by lekshmi321 Wed Mar 29, 2017 11:35 am
» Join MulTi id nimbuzz 2016
by sami-alarifi Mon Dec 05, 2016 3:09 am
» انجمن تیم امنیتی آنانیموس سکوریتی
by shirsefat Thu Nov 17, 2016 6:12 pm
» Xio Server Latest Version
by shirsefat Thu Nov 17, 2016 6:04 pm
» amooZesh kamele hack dar yek file pdf
by shirsefat Fri Nov 11, 2016 2:23 am
» CRACKER IDS 2017 WORKING
by abdo-osmana Sat Oct 29, 2016 1:43 am
» NEW ... ROOM ANTI CAPCHA 2017 DESTROY ROOMS V 4 BY AL-JOOOCKER@N.C
by abdo-osmana Sat Oct 29, 2016 1:41 am
» NEW FLOOD ROOM AND PV 2017 ANTI CAPTCHA
by abdo-osmana Sat Oct 29, 2016 1:30 am
» add new server Work 24 hours --- تحديث حسابات السيرفرات قم بــاضافه السيرفرات الجديده تعمل 24 ساعه
by abdo-osmana Sat Oct 29, 2016 1:28 am
» new auto id maker
by sandy_rawat Tue Oct 04, 2016 4:24 pm
» wonderful list id arbic for crucker اكبر ليستة ايملات تخمين جديدة
by christian777 Sun Sep 25, 2016 12:59 am
» New Abdo Cobra Auto Id maker Source code working
by Kash007 Sat Sep 24, 2016 10:26 pm
» 2000 id flood free
by christian777 Sun Sep 18, 2016 3:54 am
» new ip address changer with crack@pishaash@n.c
by cebecis Sat Sep 10, 2016 3:19 am
» تجسس على الخصوصية
by majed5160 Thu Aug 25, 2016 3:26 am
» سلام دوستان من
by majed5160 Wed Aug 24, 2016 3:10 am
» Trusted online server bots
by bom Fri Aug 19, 2016 7:59 pm
» فلود جديد ناررررر
by christian777 Sat Aug 13, 2016 10:12 am
» Receive Captcha in PVT C# and VB.NET source code available
by wathk Thu Jul 28, 2016 3:01 am
» Attention nimbuzz users !
by -namakul- Tue Jul 26, 2016 8:27 pm
» Salam man az karbqraye qadimiton hastam lotfan komakam konid :(
by SALIJON* Sat Jul 23, 2016 6:34 pm
» Nimbuzz stylish ids for sale
by msb Wed Jul 20, 2016 12:33 pm
» Nuke Mobileserver V9
by launchar Tue Jul 19, 2016 1:51 pm
» help me please c sharp masters
by launchar Tue Jul 19, 2016 1:39 pm
» salam be dostane qadimi hamgi join bedin bebinm kojain :P
by ghaz_ghaz90 Sat Jul 09, 2016 12:22 am
» Xio Server Update
by ghaz_ghaz90 Fri Jul 08, 2016 11:15 pm
» Xio Auto Capcha ID Maker ( FASTEST IDMAKER EVER)
by karthik~ajay Thu Jul 07, 2016 10:59 pm
» All web defacers and SQLi hach
by mitu143 Thu Jun 16, 2016 1:24 pm
» special daface pages FreeBuzz-Team
by mitu143 Thu Jun 16, 2016 12:59 pm
» Meet A Stranger Room Advertizer BoT
by lekshmi321 Sun Jun 05, 2016 5:14 pm
» NEW STEALTH PROJECT WEB FLOOD NIMBUZZ
by gentarbumi Sun Apr 24, 2016 10:08 pm
» Moving the write using HTML تحريك الكتابة باستخدام جافا سكرييت
by faris.jra7 Sat Apr 23, 2016 11:40 pm
» فلود غرف النيمباز
by saeid Sat Apr 16, 2016 12:43 am
» How to Show Hidden Files and Folders In Windows 7
by i_am~the_best Fri Apr 15, 2016 8:45 am
» How to Earn Money Online From PTC Sites
by i_am~the_best Fri Apr 15, 2016 8:43 am
» Create Id and Chat
by star.iraq Sun Apr 10, 2016 2:51 pm
» Addlist DC + hanger + remote v2.0
by oye Tue Apr 05, 2016 9:18 am
» XIO ADD FLOOD V.2
by lekshmi321 Fri Mar 25, 2016 8:37 pm
|
| | | One Error In Vb6 |  |
|
+4admin vah6ati Charon Macsoud 8 posters | | Author | Message |
|---|
Macsoud
T-SBD
Posts : 116
Points : 26
Thanked : 1
Join date : 2013-07-08
| | Subject: One Error In Vb6 Sat Aug 10, 2013 5:27 pm | |
| Slm In Error Dakhele Full Bot Vase Vb6 Bud Harfe Hesabesh Chiye? Chi Mige?  | |
| | | | Charon
Administrator
Posts : 564
Points : 15067
Thanked : 23
Join date : 2012-08-31
| | Subject: Re: One Error In Vb6 Sat Aug 10, 2013 5:36 pm | |
| function answer o tarif nkrdi | |
| | | | vah6ati
T-SBD
Posts : 351
Points : 110
Thanked : 11
Join date : 2013-04-01
ASL : 20 zahedan
Nimbuzz Id : Vah6ati@Nimbuzz.com Tm.Bax.Hoosen@NimBuZz.Com
| | Subject: Re: One Error In Vb6 Sat Aug 10, 2013 6:09 pm | |
| Inam Function Answer : - Code:
-
Private Function Answer(ByVal Question As String) As String
On Error Resume Next
Dim j As String
Dim s As String
Dim d() As String
Dim Y As String
Dim X As String
Dim i As Integer
Dim lng As Long
s = Replace(LCase(Question), " ", "")
s = Mid(s, InStr(s, "chatting.") + 10)
s = Replace(s, "=...", "")
s = Replace(s, "thousand", "")
s = Replace(s, "hundred", "")
s = Replace(s, "and", ",")
s = Replace(s, "ten", "10")
s = Replace(s, "eleven", "11")
s = Replace(s, "twelve", "12")
s = Replace(s, "thirteen", "13")
s = Replace(s, "fourteen", "14")
s = Replace(s, "fifteen", "15")
s = Replace(s, "sixteen", "16")
s = Replace(s, "seventeen", "17")
s = Replace(s, "eighteen", "18")
s = Replace(s, "nineteen", "19")
s = Replace(s, "twenty-", "2")
s = Replace(s, "thirty-", "3")
s = Replace(s, "forty-", "4")
s = Replace(s, "fifty-", "5")
s = Replace(s, "sixty-", "6")
s = Replace(s, "seventy-", "7")
s = Replace(s, "eighty-", "8")
s = Replace(s, "ninety-", "9")
s = Replace(s, "twenty", "20")
s = Replace(s, "thirty", "30")
s = Replace(s, "forty", "40")
s = Replace(s, "fifty", "50")
s = Replace(s, "sixty", "60")
s = Replace(s, "seventy", "70")
s = Replace(s, "eighty", "80")
s = Replace(s, "ninety", "90")
s = Replace(s, "one", "1")
s = Replace(s, "two", "2")
s = Replace(s, "three", "3")
s = Replace(s, "four", "4")
s = Replace(s, "five", "5")
s = Replace(s, "six", "6")
s = Replace(s, "seven", "7")
s = Replace(s, "eight", "8")
s = Replace(s, "nine", "9") '
s = Replace(s, "is?", "")
If InStr(s, "-") <> 0 Then
Y = Mid(s, 1, 3)
X = Mid(s, 3, 3)
j = Val(Y) - Val(X)
ElseIf InStr(s, "+") <> 0 Then
Y = Mid(s, 2, 2)
X = Mid(s, 1, 2)
j = Val(Y) + Val(X)
ElseIf InStr(s, "*") <> 0 Then
Y = Mid(s, 1, 3)
X = Mid(s, 3, 3)
j = Val(Y) * Val(X)
ElseIf InStr(s, "whatisthe1stdigitof") <> 0 Then
j = Mid(s, InStr(s, "of") + 2)
j = Left(j, InStr(j, "?") - 5)
ElseIf InStr(s, "whatisthe2nddigitof") <> 0 Then
j = Mid(s, InStr(s, "of") + 3)
j = Left(j, InStr(j, "?") - 4)
ElseIf InStr(s, "whatisthe3rddigitof") <> 0 Then
j = Mid(s, InStr(s, "of") + 4)
j = Left(j, InStr(j, "?") - 3)
ElseIf InStr(s, "whatisthe4thdigitof") <> 0 Then
j = Mid(s, InStr(s, "of") + 5)
j = Left(j, InStr(j, "?") - 2)
ElseIf InStr(s, "whatisthe5thdigitof") <> 0 Then
j = Mid(s, InStr(s, "of") + 6)
j = Left(j, InStr(j, "?") - 1)
ElseIf InStr(s, "asdigits?") <> 0 Then
j = Mid(s, InStr(s, "whatis") + 6)
j = Left(j, InStr(j, "as") - 1)
ElseIf InStr(s, "whichisthesmallest?") <> 0 Then
j = Mid(s, InStr(s, "bers") + 4)
j = Left(j, InStr(j, ",w") - 1)
d = Split(j, ",")
lng = d(LBound(d))
For i = LBound(d) To UBound(d)
If lng > d(i) Then
lng = d(i)
End If
Next
j = lng
ElseIf InStr(s, "whichisthebiggest?") <> 0 Then
j = Mid(s, InStr(s, "bers") + 4)
j = Left(j, InStr(j, ",w") - 1)
d = Split(j, ",")
lng = d(UBound(d))
For i = LBound(d) To UBound(d)
If lng < d(i) Then
lng = d(i)
End If
Next
j = lng
ElseIf InStr(s, "the1stnumberof") <> 0 Then
j = Mid(s, InStr(s, "of") + 2)
d = Split(j, ",")
j = d(0)
ElseIf InStr(s, "the2ndnumberof") <> 0 Then
j = Mid(s, InStr(s, "of") + 2)
d = Split(j, ",")
j = d(1)
ElseIf InStr(s, "the3rdnumberof") <> 0 Then
j = Mid(s, InStr(s, "of") + 2)
d = Split(j, ",")
j = d(2)
ElseIf InStr(s, "the4thnumberof") <> 0 Then
j = Mid(s, InStr(s, "of") + 2)
d = Split(j, ",")
j = d(3)
ElseIf InStr(s, "the5thnumberof") <> 0 Then
j = Mid(s, InStr(s, "of") + 2)
d = Split(j, ",")
j = d(4)
End If
Answer = j
End Function
Ino Ghesmate General Formet Paste k.o.n | |
| | | | Macsoud
T-SBD
Posts : 116
Points : 26
Thanked : 1
Join date : 2013-07-08
| | Subject: Re: One Error In Vb6 Sat Aug 10, 2013 7:08 pm | |
| Vase Remoter Ehtiyaj B Code Dg i Nadare? Faqat Hamun Code? | |
| | | | Macsoud
T-SBD
Posts : 116
Points : 26
Thanked : 1
Join date : 2013-07-08
| | Subject: Re: One Error In Vb6 Sat Aug 10, 2013 7:17 pm | |
| Khob Alan In Error Ro Mide Vaghti Mikham Make Begiram  | |
| | | | admin
Administrator
Posts : 651
Points : 10562
Thanked : 29
Join date : 2012-04-18
ASL : AFRA 19
| | Subject: Re: One Error In Vb6 Sat Aug 10, 2013 7:26 pm | |
| siiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiigh
kho boro google translter error ro mani k.o.n bebin chi mige
aval sub ro end kardi bad code if instr(... neveshti
khate end sub ro akhare codat bezar | |
| | | | vah6ati
T-SBD
Posts : 351
Points : 110
Thanked : 11
Join date : 2013-04-01
ASL : 20 zahedan
Nimbuzz Id : Vah6ati@Nimbuzz.com Tm.Bax.Hoosen@NimBuZz.Com
| | Subject: Re: One Error In Vb6 Sat Aug 10, 2013 7:31 pm | |
| Daqiqan Injurii mishe End Sub Ro Delet k.o.n - Code:
-
Private Sub sk_OnRoomMessage(ByVal RoomName As String, ByVal Id As String, ByVal Message As String)
If InStr(Message, " the right answer to start chatting.") <> 0 Then
sk.WriteRoomMessage Text3.Text, Answer(Message)
End If
If InStr(1, Message, "#", vbTextCompare) <> 0 Then
'''''' Inja Baghiyeye Code Hat ''''''''
| |
| | | | DARK
T-SBD
Posts : 846
Points : -1821
Thanked : 17
Join date : 2012-10-17
ASL : DARK !
Nimbuzz Id : 0xd4rk@nimbuzz.com
| | Subject: Re: One Error In Vb6 Sat Aug 10, 2013 8:24 pm | |
| hodude 100hezar bar to 100hezar ta topic goftam ke
aqa jan
vb6 hanuz nemituni ye string tarif k.o.n.i chera miri soraqe barname nevisi ba socketo nimbuzz?
hanuz balad nisti ye if tarif konid chera miri donbale soft nevisi vase nim?
99.9% kesaei ke az in soalat miporsan payashun bikh 0 hast | |
| | | | Macsoud
T-SBD
Posts : 116
Points : 26
Thanked : 1
Join date : 2013-07-08
| | Subject: Re: One Error In Vb6 Sat Aug 10, 2013 8:31 pm | |
| Baz Ham In Error Ro Mide | |
| | | | vah6ati
T-SBD
Posts : 351
Points : 110
Thanked : 11
Join date : 2013-04-01
ASL : 20 zahedan
Nimbuzz Id : Vah6ati@Nimbuzz.com Tm.Bax.Hoosen@NimBuZz.Com
| | Subject: Re: One Error In Vb6 Sat Aug 10, 2013 11:04 pm | |
| azizam behet ke goftam :s In Function Answer : Code: - Code:
-
Private Function Answer(ByVal Question As String) As String
On Error Resume Next
Dim j As String
Dim s As String
Dim d() As String
Dim Y As String
Dim X As String
Dim i As Integer
Dim lng As Long
s = Replace(LCase(Question), " ", "")
s = Mid(s, InStr(s, "chatting.") + 10)
s = Replace(s, "=...", "")
s = Replace(s, "thousand", "")
s = Replace(s, "hundred", "")
s = Replace(s, "and", ",")
s = Replace(s, "ten", "10")
s = Replace(s, "eleven", "11")
s = Replace(s, "twelve", "12")
s = Replace(s, "thirteen", "13")
s = Replace(s, "fourteen", "14")
s = Replace(s, "fifteen", "15")
s = Replace(s, "sixteen", "16")
s = Replace(s, "seventeen", "17")
s = Replace(s, "eighteen", "18")
s = Replace(s, "nineteen", "19")
s = Replace(s, "twenty-", "2")
s = Replace(s, "thirty-", "3")
s = Replace(s, "forty-", "4")
s = Replace(s, "fifty-", "5")
s = Replace(s, "sixty-", "6")
s = Replace(s, "seventy-", "7")
s = Replace(s, "eighty-", "8")
s = Replace(s, "ninety-", "9")
s = Replace(s, "twenty", "20")
s = Replace(s, "thirty", "30")
s = Replace(s, "forty", "40")
s = Replace(s, "fifty", "50")
s = Replace(s, "sixty", "60")
s = Replace(s, "seventy", "70")
s = Replace(s, "eighty", "80")
s = Replace(s, "ninety", "90")
s = Replace(s, "one", "1")
s = Replace(s, "two", "2")
s = Replace(s, "three", "3")
s = Replace(s, "four", "4")
s = Replace(s, "five", "5")
s = Replace(s, "six", "6")
s = Replace(s, "seven", "7")
s = Replace(s, "eight", "8")
s = Replace(s, "nine", "9") '
s = Replace(s, "is?", "")
If InStr(s, "-") <> 0 Then
Y = Mid(s, 1, 3)
X = Mid(s, 3, 3)
j = Val(Y) - Val(X)
ElseIf InStr(s, "+") <> 0 Then
Y = Mid(s, 2, 2)
X = Mid(s, 1, 2)
j = Val(Y) + Val(X)
ElseIf InStr(s, "*") <> 0 Then
Y = Mid(s, 1, 3)
X = Mid(s, 3, 3)
j = Val(Y) * Val(X)
ElseIf InStr(s, "whatisthe1stdigitof") <> 0 Then
j = Mid(s, InStr(s, "of") + 2)
j = Left(j, InStr(j, "?") - 5)
ElseIf InStr(s, "whatisthe2nddigitof") <> 0 Then
j = Mid(s, InStr(s, "of") + 3)
j = Left(j, InStr(j, "?") - 4)
ElseIf InStr(s, "whatisthe3rddigitof") <> 0 Then
j = Mid(s, InStr(s, "of") + 4)
j = Left(j, InStr(j, "?") - 3)
ElseIf InStr(s, "whatisthe4thdigitof") <> 0 Then
j = Mid(s, InStr(s, "of") + 5)
j = Left(j, InStr(j, "?") - 2)
ElseIf InStr(s, "whatisthe5thdigitof") <> 0 Then
j = Mid(s, InStr(s, "of") + 6)
j = Left(j, InStr(j, "?") - 1)
ElseIf InStr(s, "asdigits?") <> 0 Then
j = Mid(s, InStr(s, "whatis") + 6)
j = Left(j, InStr(j, "as") - 1)
ElseIf InStr(s, "whichisthesmallest?") <> 0 Then
j = Mid(s, InStr(s, "bers") + 4)
j = Left(j, InStr(j, ",w") - 1)
d = Split(j, ",")
lng = d(LBound(d))
For i = LBound(d) To UBound(d)
If lng > d(i) Then
lng = d(i)
End If
Next
j = lng
ElseIf InStr(s, "whichisthebiggest?") <> 0 Then
j = Mid(s, InStr(s, "bers") + 4)
j = Left(j, InStr(j, ",w") - 1)
d = Split(j, ",")
lng = d(UBound(d))
For i = LBound(d) To UBound(d)
If lng < d(i) Then
lng = d(i)
End If
Next
j = lng
ElseIf InStr(s, "the1stnumberof") <> 0 Then
j = Mid(s, InStr(s, "of") + 2)
d = Split(j, ",")
j = d(0)
ElseIf InStr(s, "the2ndnumberof") <> 0 Then
j = Mid(s, InStr(s, "of") + 2)
d = Split(j, ",")
j = d(1)
ElseIf InStr(s, "the3rdnumberof") <> 0 Then
j = Mid(s, InStr(s, "of") + 2)
d = Split(j, ",")
j = d(2)
ElseIf InStr(s, "the4thnumberof") <> 0 Then
j = Mid(s, InStr(s, "of") + 2)
d = Split(j, ",")
j = d(3)
ElseIf InStr(s, "the5thnumberof") <> 0 Then
j = Mid(s, InStr(s, "of") + 2)
d = Split(j, ",")
j = d(4)
End If
Answer = j
End Function Ino Ghesmate General Formet Paste k.o.n Moshkelet hal mishe :s To edite kardan ham moshkel dariid :s | |
| | | | Mr.Moments
Programmer & Support
Posts : 703
Points : 258
Thanked : 32
Join date : 2013-01-28
ASL : emad ,21, iranshahr
Nimbuzz Id : Be Khatere Ha Peyvast
| | Subject: Re: One Error In Vb6 Sun Aug 11, 2013 3:45 am | |
| | |
| | | | Ahmad75
Badbuzzer
Posts : 275
Points : 41
Thanked : 2
Join date : 2013-06-27
ASL : ahmad 18 babolsar
Nimbuzz Id : Monster996
| | Subject: Re: One Error In Vb6 Sun Aug 11, 2013 8:12 pm | |
| | |
| | | | Macsoud
T-SBD
Posts : 116
Points : 26
Thanked : 1
Join date : 2013-07-08
| | Subject: Re: One Error In Vb6 Sun Aug 11, 2013 9:11 pm | |
| Man Code Javab Dadan B Admin Ro Neveshtam + Funication Vase Remot Chi Benevisam? Niyaz Nadare Ke Ghabl Ya Bad In Code Remoter Chizi Benevisam? - Code:
-
If InStr(1, Message, "/", vbTextCompare) <> 0 Then
Dim dastur As String
dastur = LCase(Left(Message, InStr(Message, "/") - 1))
Dim ids() As String
Dim i As Integer
ids = Split(Textxp22.Text, "#")
For i = LBound(ids) To UBound(ids)
If Id = ids(i) Then
Dim taraf As String
taraf = Mid(Message, InStr(Message, "/") + 1)
If dastur = "k" Then
sk.Kick Text4.Text, taraf
End If
If dastur = "b" Then
sk.Ban Text4.Text, taraf
End If
If dastur = "m" Then
sk.Member Text4.Text, taraf
End If
If dastur = "V" Then
sk.Visitor Text4.Text, taraf
End If
If dastur = "o" Then
sk.Owner Text4.Text, taraf
End If
If dastur = "a" Then
sk.Admin Text4.Text, taraf
End If
If dastur = "n" Then
sk.None Text4.Text, taraf
End If
End Sub | |
| | | | Macsoud
T-SBD
Posts : 116
Points : 26
Thanked : 1
Join date : 2013-07-08
| | Subject: Re: One Error In Vb6 Mon Aug 12, 2013 12:09 am | |
| | |
| | | | Macsoud
T-SBD
Posts : 116
Points : 26
Thanked : 1
Join date : 2013-07-08
| | Subject: Re: One Error In Vb6 Mon Aug 12, 2013 8:15 am | |
| | |
| | | | Macsoud
T-SBD
Posts : 116
Points : 26
Thanked : 1
Join date : 2013-07-08
| | Subject: Re: One Error In Vb6 Tue Aug 13, 2013 10:25 pm | |
| | |
| | | | qmars(pkq)
FreeBuzz Team
Posts : 590
Points : 26098
Thanked : 15
Join date : 2012-05-12
ASL : Q
| | Subject: Re: One Error In Vb6 Tue Aug 13, 2013 10:49 pm | |
| daqiqan eyne hamin soalo yeki dge am porside bood migashti bood mige functione answer admino nadadi oonjai ke bot mikhad javabe soale admino bede in codo be formet ezafe k.o.n - Code:
-
Private Function Answer(ByVal Question As String) As String
On Error Resume Next
Dim j As String
Dim s As String
Dim d() As String
Dim Y As String
Dim X As String
Dim i As Integer
Dim lng As Long
s = Replace(LCase(Question), " ", "")
s = Mid(s, InStr(s, "chatting.") + 10)
s = Replace(s, "=...", "")
s = Replace(s, "thousand", "")
s = Replace(s, "hundred", "")
s = Replace(s, "and", ",")
s = Replace(s, "ten", "10")
s = Replace(s, "eleven", "11")
s = Replace(s, "twelve", "12")
s = Replace(s, "thirteen", "13")
s = Replace(s, "fourteen", "14")
s = Replace(s, "fifteen", "15")
s = Replace(s, "sixteen", "16")
s = Replace(s, "seventeen", "17")
s = Replace(s, "eighteen", "18")
s = Replace(s, "nineteen", "19")
s = Replace(s, "twenty-", "2")
s = Replace(s, "thirty-", "3")
s = Replace(s, "forty-", "4")
s = Replace(s, "fifty-", "5")
s = Replace(s, "sixty-", "6")
s = Replace(s, "seventy-", "7")
s = Replace(s, "eighty-", "8")
s = Replace(s, "ninety-", "9")
s = Replace(s, "twenty", "20")
s = Replace(s, "thirty", "30")
s = Replace(s, "forty", "40")
s = Replace(s, "fifty", "50")
s = Replace(s, "sixty", "60")
s = Replace(s, "seventy", "70")
s = Replace(s, "eighty", "80")
s = Replace(s, "ninety", "90")
s = Replace(s, "one", "1")
s = Replace(s, "two", "2")
s = Replace(s, "three", "3")
s = Replace(s, "four", "4")
s = Replace(s, "five", "5")
s = Replace(s, "six", "6")
s = Replace(s, "seven", "7")
s = Replace(s, "eight", "8")
s = Replace(s, "nine", "9") '
s = Replace(s, "is?", "")
If InStr(s, "-") <> 0 Then
Y = Mid(s, 1, 3)
X = Mid(s, 3, 3)
j = Val(Y) - Val(X)
ElseIf InStr(s, "+") <> 0 Then
Y = Mid(s, 2, 2)
X = Mid(s, 1, 2)
j = Val(Y) + Val(X)
ElseIf InStr(s, "*") <> 0 Then
Y = Mid(s, 1, 3)
X = Mid(s, 3, 3)
j = Val(Y) * Val(X)
ElseIf InStr(s, "whatisthe1stdigitof") <> 0 Then
j = Mid(s, InStr(s, "of") + 2)
j = Left(j, InStr(j, "?") - 5)
ElseIf InStr(s, "whatisthe2nddigitof") <> 0 Then
j = Mid(s, InStr(s, "of") + 3)
j = Left(j, InStr(j, "?") - 4)
ElseIf InStr(s, "whatisthe3rddigitof") <> 0 Then
j = Mid(s, InStr(s, "of") + 4)
j = Left(j, InStr(j, "?") - 3)
ElseIf InStr(s, "whatisthe4thdigitof") <> 0 Then
j = Mid(s, InStr(s, "of") + 5)
j = Left(j, InStr(j, "?") - 2)
ElseIf InStr(s, "whatisthe5thdigitof") <> 0 Then
j = Mid(s, InStr(s, "of") + 6)
j = Left(j, InStr(j, "?") - 1)
ElseIf InStr(s, "asdigits?") <> 0 Then
j = Mid(s, InStr(s, "whatis") + 6)
j = Left(j, InStr(j, "as") - 1)
ElseIf InStr(s, "whichisthesmallest?") <> 0 Then
j = Mid(s, InStr(s, "bers") + 4)
j = Left(j, InStr(j, ",w") - 1)
d = Split(j, ",")
lng = d(LBound(d))
For i = LBound(d) To UBound(d)
If lng > d(i) Then
lng = d(i)
End If
Next
j = lng
ElseIf InStr(s, "whichisthebiggest?") <> 0 Then
j = Mid(s, InStr(s, "bers") + 4)
j = Left(j, InStr(j, ",w") - 1)
d = Split(j, ",")
lng = d(UBound(d))
For i = LBound(d) To UBound(d)
If lng < d(i) Then
lng = d(i)
End If
Next
j = lng
ElseIf InStr(s, "the1stnumberof") <> 0 Then
j = Mid(s, InStr(s, "of") + 2)
d = Split(j, ",")
j = d(0)
ElseIf InStr(s, "the2ndnumberof") <> 0 Then
j = Mid(s, InStr(s, "of") + 2)
d = Split(j, ",")
j = d(1)
ElseIf InStr(s, "the3rdnumberof") <> 0 Then
j = Mid(s, InStr(s, "of") + 2)
d = Split(j, ",")
j = d(2)
ElseIf InStr(s, "the4thnumberof") <> 0 Then
j = Mid(s, InStr(s, "of") + 2)
d = Split(j, ",")
j = d(3)
ElseIf InStr(s, "the5thnumberof") <> 0 Then
j = Mid(s, InStr(s, "of") + 2)
d = Split(j, ",")
j = d(4)
End If
Answer = j
End Function | |
| | | | Macsoud
T-SBD
Posts : 116
Points : 26
Thanked : 1
Join date : 2013-07-08
| | Subject: Re: One Error In Vb6 Wed Aug 14, 2013 2:17 am | |
| on code javab dadan b admin ro vared kardame hamrah ba funitcation porsidm k vase remoter gozashtan ghable dastura chi vared kunam agha aslan code ro bede paste kunam | |
| | | | Sponsored content
| | Subject: Re: One Error In Vb6 | |
| |
| | | | | | One Error In Vb6 | |
|
Similar topics | |
|
| | Permissions in this forum: | You cannot reply to topics in this forum
| |
| |
| |
ma mese shoma kelas barname nevisi naraftim akhaye darrk 
