بچه های کد نویس کمک

+7 امتیاز
39 بازدید
دوستان یک کد می خواستم به زبان ویژوال بیسیک ک بتونه تقارن های عددی اعداد 5 رفمی رو بدست بیاره و چاپ کنه

کسی میتونه کمک کنه؟؟

12321
34543
پرسیده شده مرداد ۱۳ , ۱۳۹۲ در نرم افزار توسط moin007
تو خروجی چی می خوای داشته باشی

یعنی همه اعداد 5 رقمی رو پیدا کنه که دارای تقارنی شبیه مثال تو هستند؟

و اینکه عدد وسطی چی باشه مهمه یا نه ؟
بله دقیقا
ن همه اش رو دیگه

1 پاسخ

+3 امتیاز
بهترین پاسخ

سلام 

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

اگه هر جاشو متوجه نشدی بگو برات توضیح بدم. موفق باشی

Private Sub Command0_Click()
s = 0
 
For i = 10000 To 99999
 
m1$ = i
m2$ = Left(m1$, 1)
m3$ = Right(m1$, 1)
 
If m2$ = m3$ Then
m4$ = Mid(m1$, 2, 1)
m5$ = Mid(m1$, 4, 1)
 
If m4$ = m5$ Then
s = s + 1
f$ = i
t$ = t$ + f$
[Text1] = t$
End If
 
End If
 
 
Next i
 
End Sub
پاسخ داده شده مرداد ۱۴ , ۱۳۹۲ توسط alirezalf
انتخاب شده مرداد ۱۴ , ۱۳۹۲ توسط moin007
واقعا تشکر دوست عزیز

میشه این قسمت رو ی کم توضیح بدید

 If m4$ = m5$ Then
s = s + 1
f$ = i
t$ = t$ + f$
[Text1] = t$
مفهوم خط هایی که نوشتی بدین صورت است که سوال می شود که آیا 2 متغیر رشته ای m4$ و m5$ با یکدیگر برابرند اگر برابرند در خط بعد به متغیر عددی s که شمارنده می باشد 1 عدد اضافه می نماید که البته این خط ضرورتی ندارد و صرفا برای شمارش تعداد خروجی ها می توانی استفاده نمایی.
در خط بعد متغیر رشته ای f$  را برابر شمارنده ابتدای برنامه قرار می دهد
و در خط بعد در هر دور لوپ مقدار متغیر I‌را با مقدار قبلی آن بصورت رشته ای جمع جبری می نماید و مقدار جدید را در لیبل text1 قرار می دهد.
بطور کلی یک متغیر شمارنده به نام I یه حلقه از عدد 10000  تا 99999  آخرین عدد پنج رقمی ایجاد و مقدار را در هر دور لوپ در متغیر عددی i قرار می دهد.
سپس عدد پنج رقمی درون متغیر رشته ای ریخته و چک می نماید که آیا رقم های دوسر این عدد با هم برابر است و اگر برابر است رقمهای بعدی نیز با هم برابر است که در صورت برابر بودن شرط ها برقرار و عدد حاصل که مقدار آن هم اکنون در متغیر i  موجود می باشد را به text1  اضافه می نماید.
راستی امتیاز یادت نره.
چشم ممنون
عالی ممنون دوست من

سوالات مشابه

+10 امتیاز
2 پاسخ
28 بازدید پرسیده شده مرداد ۲۰ , ۱۳۹۲ در عمومی توسط ایمان
+4 امتیاز
1 پاسخ
35 بازدید پرسیده شده مرداد ۲۵ , ۱۳۹۳ در کامپیوتر توسط mmousavi
+3 امتیاز
2 پاسخ
65 بازدید پرسیده شده اردیبهشت ۱۱ , ۱۳۹۳ در کامپیوتر توسط MAHDI_B
+3 امتیاز
1 پاسخ
29 بازدید پرسیده شده شهریور ۱۲ , ۱۳۹۲ در بازی های کامپیوتری توسط aliabi32
+3 امتیاز
0 پاسخ