3H4Y4N T-SBD
Posts : 86 Points : 21 Thanked : 0 Join date : 2013-06-11 ASL : Shayan 16
| Subject: Re: Help plz vase frb socket tu VB6 Sun Sep 01, 2013 12:24 am | |
| - 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 Text4.Text, Answer(Message) End If End Sub 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 Biya In Code Ro Paste Kun To Qesmate Code Nevisit | |
|