من در هیچ جا با نام های Arnh - سیاهکر - شوالیه فعالیت نمی کنم و تنها دامنه بعضی از بلاگ های من Arnh است و هرگز این نام را برای فعالیت های دیگر گزینش نکرده ام . هیچ مورد از خرابکاری ها انجام شده طی هفته های گذشته با این نام ها و با آدرس این بلاگ را به عهده نمی گیرم .
تنها نام مورد استفاده من علیرضا و گاهی اوقات no.h می باشد. که اگر سو استفاده ای از این نام ها در آینده با نام این بلاگ شد. من هیچ مسئولیتی را نمی پذیرم .این بلاگ صرفا جنبه آموزشی دارد و بعضا تمام مطالب این بلاگ از خودم نیست و مربوط به منابعی می شود که بعدا ذکر خواهم کرد .
کسانی که ادعای در مورد این مطالب یا فقط مطلبی خاص دارند . در زیر مطلب کامنت خود و نام بلاگ منبع را بگذارند . مطمئن باشند . که در اسرع وقت به خود مطلب افزوده خواهد شد.
با تشکر علیرضا .::.
برنامه تشخیص نزدیک ترین توان تک رقمی با پایه یک رقمی به عدد وارد شده.
|
Text1=Textbox MultiLine=True Scrollbars=2 |
Textbox=text2 |
CommandButton=Command1 |
Private Sub Command1_Click()
Text1=""
m = 999999999
For i = 1 To 9
For j = 1 To 9
Text1 = Text1 + Str(i) + ".." + Str(j) + "..:" + Str(i ^ j) + vbNewLine
If Text2 - (i ^ j) >= 0 Then
If m > Text2 - (i ^ j) Then
m = Text2 - (i ^ j)
s = Str(i) + Str(j)
End If
End If
Next j
Next i
Text1 = Text1 + "Final::" + Str(m) + s
End Sub
بازدن F5 برنامه اجرا می شود . یک عدد کوچکتر از نه رقم را در text2 وارد کنید . و بر روی command1 کلیک کنید . برنامه در انتهای tex1 نزدیک ترین توان موجود با نماد تک رقمی و پایه تک رقمی به شما خواهد داد.
کاربرد:
این برنامه بصورت عمومی کاربرد ندارد . اما در برنامه های فشرده سازی و... این کد با کمی تغییرات برای اعداد استفاده می شود.
منیع :
آموزش برنامه نویسی ویژال بیسیک