تابع برگرداندن کد اسکی در وی بی دات نت [بایگانی]

Eng.moaiedi

پنج شنبه 06 فروردین 1394, 18:44 عصر

با سلام خدمت دوستان یک کدی رو توی پی اچ پی نوشتم الان همون رو توی وی بی دات نت نوشتم ولی خروجی ها کاملا متفاوت هست ممنون میشم راهنمایی بفرمایید.

کد پی اچ پی :

public function chk($str)
{
$counter=9;
for($i=97;$i<=(97+25);$i++)
{
++$counter;
if(strtolower($str)==chr($i))
{
return $counter;
}
else if(is_numeric($str))
{
return $str;
}
}
}

وی بی دات نت :

Private Function check(ByVal StrCode As String) As String
Dim IntCounter As Integer
Dim Counter As Integer

IntCounter = 9
For Counter = 97 To (97 + 25)
IntCounter += IntCounter
If StrCode.ToLower() = Chr(Counter) Then
StrCode = IntCounter
ElseIf (IsNumeric(StrCode)) Then
StrCode = StrCode
End If
Next
Return StrCode

End Function