Printable View
برنامه ای بنویسید که اعداد 0 تا 121 را به فاصله 16 تایی از هم در مبنای هگزا دسیمال با طول 8 بیت در یک لیست باکس نشان دهد
خروجی باید به صورت زیر باشد
00010000
00010010
00010020
00010030
00010040
00010050
00010060
00010070
00010080
00010090
000100A0
000100B0
000100C0
000100D0
000100F0
00010100
00010110
00010120
توضیح اینکه خیلی ساده بنظر میرسه ولی عمرا نمیشه یه جنریتور براش نوشت :19:
من خودم کانورتور را درست کردم. البته طبق الگوی بالا اعداد باید از 0 تا 291 میبود که من اشتباهی نوشتم 121
الان کدهای هگز کاملا مانند الگوی بالا درست میشند مانند الگوی رم کامپیوتر
فقط مشکل اینه که خروجی ی این کدها اعداد هگزادسیمال استرینگ هستند در صورتی که باید هگزادسیمال لانگ باشند
کی میتونه string-Hexadecimal را به long-Hexadecimal تبدیل کنه
مثلا این عدد یک هگزادسیمال استرینگ هست
اینو اگه بدیم به تابع قاط میزنهکد:
"&H10510"
باید عدد اینطور به تابع داده بشه
چکار کنم کتیشن ها از بین بره و یک عدد لانگ تحویل بگیرمکد:&H10510
اینم جنریتور
کد:
For i = 0 To 291 Step 16
If Len(Hex(i)) = 1 Then
List1.AddItem "0001000" & Hex(i)
ElseIf Len(Hex(i)) = 2 Then
List1.AddItem "000100" & Hex(i)
ElseIf Len(Hex(i)) = 3 Then
List1.AddItem "00010" & Hex(i)
ElseIf Len(Hex(i)) = 4 Then
List1.AddItem "0001" & Hex(i)
ElseIf Len(Hex(i)) = 5 Then
List1.AddItem "000" & Hex(i)
ElseIf Len(Hex(i)) = 6 Then
List1.AddItem "00" & Hex(i)
ElseIf Len(Hex(i)) = 7 Then
List1.AddItem "0" & Hex(i)
ElseIf Len(Hex(i)) = 8 Then
List1.AddItem Hex(i)
End If
Next i
دوستان اینجا که جای در خواست پروژه نیست شما می تونید کمک بگیرید و دوستان راه نمایی کنن و هر جا مشکل داشتید بگید
کجای این سرنگار و این چهار تا کد بچه بازی شبه به پروژه است من که نمیدانم هیچ! ممکن است بیل کلینتون هم نفهمه کجاش شباهت داره؟نقل قول:
شما اگر کننده کاری کمک کن دوست عزیز
من چجوری کد را را برگردانم. در سایت های خارجی نمونه کدهایی را گرفتم ولی کامل نیست !!
پروژه داریم 1000 خط این در خواست شما بیشتر شباهت به انجام کارای درسی یا دانشگاهی دارهنقل قول:
من نمی دونم می فهمه یا نه از خودش بپرس
اگر بچه بازی هست نیاز به پرسیدن پس نیست
من تا جایی که بتونم به دیگران کمک می کنم . خوب خودت میگی نمونه کد بقیه کد رو تلاش کن بنویس
کدی رو خودت بنویسی بهتره از این که منو دوستان دیگه بگیم تازه یادم میگیری این تجربه بوده برای من
به حر حال من منکر این نمیشم که کمک نمی کنم هر چی در توانم باشه میگم
این بخشی از پروسه خواندن اطلاعات رم کامپیوتر استنقل قول:
اگر در دانشگاه های مملکت ما چنین چیزهایی یاد میدانند الان ما خیلی حال و روزمان بهتر بود این بود
من هنوز کد را ننوشتم. هر کی بلده این کار را بکنه یا علی !!