سفارش تبلیغ
صبا
http://holool.ParsiBlog.com
 
قالب وبلاگ

این برنامه درتمرینات کتاب برنامه نویسی یک سال دوم کامپیوتر شاخه ی فنی و حرفه ای وجود دارد که اکثر هنر جویان قادر به حل آن نیستند لذا جهت آشنایی بیشترهنرجویان با فنون برنامه نویسی یک نمونه از جواب این تمرین در این جا ارائه می گردد برنامه ای به زبان ویژوال بیسیک بنویسید که عدد دریافتی از مبنای شانزده را به مبنای ده محاسبه و نمایش دهد?

 

 

 

 

 

 

 

Private Sub Command1_Click()
Dim decimal1 As Single
Dim m As Integer
Dim i As Integer, intchar As Integer
Dim s1 As String, char As String
s1 = Text1.Text
m = Len(s1)
decimal1 = 0
For i = 0 To m - 1
char = Right(s1, 1)
s1 = Left(s1, Len(s1) - 1)
Select Case char
Case "A"
decimal1 = decimal1 + 10 * (16 ^ i)
Case "B"
decimal1 = decimal1 + 11 * (16 ^ i)
Case "c"
decimal1 = decimal1 + 12 * (16 ^ i)
Case "D"
decimal1 = decimal1 + 13 * (16 ^ i)
Case "E"
decimal1 = decimal1 + 14 * (16 ^ i)
Case "F"
decimal1 = decimal1 + 15 * (16 ^ i)
Case Else
intchar = Val(char)
If (intchar >= 0) And (intchar <= 9) Then
decimal1 = decimal1 + intchar * (16 ^ i)
Else
msgbox "your  hexadecimal number is error",,"error"
End If
End Select
Next i
Text2.Text = Str(decimal1)
End Sub


[ پنج شنبه 90/10/8 ] [ 12:33 صبح ] [ شول ] [ نظرات () ]


.: Weblog Themes By Iran Skin :.

درباره وبلاگ

موضوعات وب
لینک های مفید
صفحات دیگر
امکانات وب


بازدید امروز: 18
بازدید دیروز: 67
کل بازدیدها: 637923