ورود

View Full Version : Exp در ماشین حساب



mahdi.manian
چهارشنبه 18 اردیبهشت 1392, 11:30 صبح
با سلام.

من قصد دارم در ماشین حسابم، دکمه Exp را اضافه کنم.

همه چیز درست کار می کنه فقط یک مشکل کوچیک هست. اینکه با استفاده از دستور Print "0"; که در یک حلقه for هست به مقداری که در text1.text مقدار وارد شده 0 چاپ می کنه مثلا اگه عدد 3 وارد شده باشه، 000 را چاپ می کنه با این دستور ولی من می خواهم 000 توی یک متغیر ریخته بشه. اگه دستور را اینطوری تغییر دهیم: a = "0" چون توی حلقه هست کار نمی کنه.

چکار کنم؟

کد ها این شکلی هست:

For i = 1 To Text1.Text
Print "0";
Next i


چکار کنم تا به تعداد دفعات تکرار حلقه، 0 در یک متغیر ریخته بشه؟ مثلا اگه متغیر 4 بار اجرا شد مقدار 0000 در متغیر a ریخته بشه؟


با تشکر.

meys34
چهارشنبه 18 اردیبهشت 1392, 11:51 صبح
Dim a As String, i As Integer
a = ""
For i = 1 To Text1.Text
a = a & "0"
Next i
Print a

کاراکتر کلیدی ; در ویژوال بیسیک استفاده نمیشه... مختص java , .NET و ...

SlowCode
چهارشنبه 18 اردیبهشت 1392, 12:26 عصر
کاراکتر کلیدی ; در ویژوال بیسیک استفاده نمیشه... مختص java , .NET و ...
علامت سمی کولن بعد از تابع print باعث میشه که اطلاعات به صورت افقی چاپ بشن، در حالت عادی به صورت عمودی چاپ میشه.
دستور ایشون از لحاظ سینتکس درسته.

mahdi.manian
چهارشنبه 18 اردیبهشت 1392, 12:51 عصر
ممنون. درست شد.