نمایش اولین عدد بعد از اعشار در تکست

[keepsake]

سلام دوستان عزیز من چند سال عضو این سایت خوب هستم و از مطالبش استفاده میکنم
اما این دفعه به مشکلی برخوردم که این شد که دومین پست خودم رو در این جا قرار بدم و از شما اساتید استفاده کنم .
سوالم اینه که
حاصل جمع و تقسیم یک عدد توی لیبل به شکل زیر در میاد
49/6666666666667
و میخوام کاری کنه که در تکستی جدا گانه، اولین عدد بعد اعشار به نمایش در بیاد، به این صورت:
6
البته طبق نوشته بالا بدون اعشار ، مثلا این عدد نباشد : 0/6
حالا اگر اینطور امکانش نیست ، با اعشار مثلا 0/6 بشه هم خوبه
یا این که عدد بدست امده که 49.6666666666667 اگر بزرگتر 9 باشه اینقدر تقسیم کنه تا باقیماندش عدد صحیح از 1 تا 9 بشه و بدون اعشار در تکست مورد نظر نمایش داده بشه
حالا هر کدوم که به نظرتون راحتر هست و اماکنش هست.

سوال دیگر هم اینه که کدی باشه که بتونم با کلید جهت نما بالا و پایین بین تکست ها و کامند ها حرکت کنم، که سوال اول واجب تره

از دوستان و اساتید بزرگوار و خصوصا این سایت که سالها برای ما حکم معلم داشته پیشاپیش بسیار سپاسگذارم

[isaac23]

سلام دوست عزیز با SPLIT میشه این کار رو انجام داد ...

یک عدد بعد از مقدار اعشار رو میگیره و بهت توی لیبل نشون میده .
Dim txt
txt = Split(Text1, "/")(1)
txt = Left(txt, 1)
Label1 = txt

در مورد سوال دومت هم از خاصیت های کیبود استفاده کنید مثلا




Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then
Text1.SetFocus
End If
End Sub

[keepsake]

سلام دوست عزیز با SPLIT میشه این کار رو انجام داد ...

یک عدد بعد از مقدار اعشار رو میگیره و بهت توی لیبل نشون میده .
Dim txt
txt = Split(Text1, "/")(1)
txt = Left(txt, 1)
Label1 = txt

در مورد سوال دومت هم از خاصیت های کیبود استفاده کنید مثلا




Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then
Text1.SetFocus
End If
End Sub


سلامممم
دستت درد نکنه
خدا خیرت بده استاد گرامی...
اولی خیلی مهم بود حل شد...
اما دومی کار نکرد
من با اینتر توی خاصیت تکست کی پرس این کار رو به این صورت کردم و عمل کرد
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

ولی برای کلید های جهت نما نشد

...............
حالا کدی دومی که شما دادید نشد اما بازم خدا خییرت بده واقعا...

[isaac23]

سلام کد دومی باید در خاصیت KeyDown فرم یا تکست باشه تا کار کنه با کلید ها میخای کار کنی باید از این استفاده کنی

[keepsake]

سلام کد دومی باید در خاصیت KeyDown فرم یا تکست باشه تا کار کنه با کلید ها میخای کار کنی باید از این استفاده کنی
سلام
احسنت استاد
درست شددد. متشکرم
فقط وقتی روی کامند ست فوکس میکنه دیگه نمیشه با کلیدا تغییرش داد ،توی خاصیت keydown کامند هم ریختم اما نشد.

[isaac23]

دوست عزیز یه سورس برات پیوست کردم ببین منظورت اینه ......

با کلید های UP و Down می تونی بین Text ها جابجا بشی....

موفق باشی ..

یه تشکر بزنی هم بد نیست .

[keepsake]

سلامم من همیشه اط شما به خاطر کمکتون سپاسگذار هستم . واقعا ممنونم از کمکتون .:قلب:
فقط یه سوال بی ربط نسبت به این موضوع هم داشتم اما خیلی مهمه که چطور پروزم رو ستاپ کنم ؟؟ ستاپ سبک و عالی که روی همه سیستم ها هم کار کنه و نصب بشه و هم تست شده باشه ؟ :متفکر:
بله این کد خوب کار میکنه و من استفاده کردم :تشویق:
و فایل ارسالی هم عالی بود . :قلب:
اما سوال من برای کامند بود command . برای کامدند چیکار کنیم ؟ توی چه خاصیتیش کپی کنم؟

[siyn71]

از برنامه Setup Factory 9 استفاده کن عالیه..راحت و سبک
تو گوگل بچرخ دانلودش کن

[keepsake]

سلام بله
این برنامه رو دارم ولی متاسفانه ارور میده

[isaac23]

من خودم از نرم افزار Advanced Installer استفاده میکنم برنامه عالی و خوبی هستش . یه فایل ستاپ میسازه هم نسخه 32 و هم 64 رو جواب میده و تا روی ویندوز 10 اخرین نسخه هم تست کردم عالی خوب و راحت هستش.

بروز رسانی خوبی هم داره.

[keepsake]

سلام
فوق العاده عالی و حرفه ای و محیطی کار بر پسند داشت
ممنونم . پروزه من به پایان رسید ، واقعا ازتون سپاسگذارم , و براتو آرزوی خیر سلامتی دارم .
و همچنین از siyn71 عزیز هم سپاسگذارم.