PDA

View Full Version : تغییر کدهای سیستم به Integer



papa_toop
جمعه 23 فروردین 1387, 12:07 عصر
سلام به دوستان محترم

دوستان محترم من با این کد کد مادربرد و بیوس رو می گیریم

حالا من اگه بخوام این کد رو به اینتجر تبدیل کنم و با یه عدد دیگه جمع کنم باید چی کار کنم
البته Convert رو بلدم ولی تو اینجا نمیتونم

http://uploadbazar.com/634CodeMaker.rar

VBExpress
جمعه 23 فروردین 1387, 18:00 عصر
سلام

دانلود نمیشه ... ولی فکر کنم باید به Decimal تبدیلش کنی نه integer ...

papa_toop
شنبه 24 فروردین 1387, 17:39 عصر
لینک سالمه این هم آپلود تو خود فروم

amirsajjadi
یک شنبه 25 فروردین 1387, 14:07 عصر
با سلام
اگه بخواید اعدادی که برنامه ی شما تولید میکنه رو به اینتجر تبدیل کنید پیغام Overflow میده حتی شما به دسیمال هم نمیتونید تبدیل کنید ولی به هر حال این تابع عدد در مبنای 16 رو به مبنای 10 تبدیل میکنه

Private Function FromHex(ByVal Num As String) As Decimal
Dim s As Decimal = 0
Dim i, t, h As Integer
s = 0 : t = 0 : h = 0
For i = Len(Num) - 1 To 0 Step -1
h = System.Uri.FromHex(Num(i))
s += h * (16 ^ t)
t += 1
Next i
Return s
End Function
این تابع هم برای تبدیل یک کاراکتر مبنای 16 به اینتجر هست

Uri.FromHex(NumStr)

papa_toop
دوشنبه 26 فروردین 1387, 19:21 عصر
پس چی کار کنم؟