Printable View
سلام
چطور برنامه ای بنویسیم که
1
222
33333
444
5
و
------------------------------------------->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
1
22
333
4444
55555
رو روی فرم چاپ کنه
اونی که بهم یاد می ده گفت باید از تابع های SPC() و Tab() استفاده کنم این تابع ها چین؟
کسی این زحمت رو می کشه و برنامه رو با یه توضیه محتصر(ترجیحا کامل : دی) برام بنویسه؟
ممنون
Private Sub Command1_Click()
Print Spc(11); 1
Print Spc(10); 222
Print Spc(9); 33333
Print Spc(10); 444
Print Spc(11); 5
End Sub
ممنون از شما اما اعداد باید با یه حلقه for next خودشون ساخته بشن
راستی کار این تابع ها رو نگفتید
كار تابع Spc ايجاد فضاي خالي هست در مورد خلقه الان وقت ندارم و خيلي راحته خودت يه كم فكر كني مينويسي
خودم دو روز تموم فکر کردم : دی
بابا من اونقدرم حرفیه نیستم که
[HTML]Me.Cls
Me.AutoRedraw = True
For i = 1 To 9
For j = 1 To i
Print j;
Next
Print vbCrLf
Next
[/HTML]
اینم با حلقه:46:
[HTML]Me.Cls
Me.AutoRedraw = True
For i = 1 To 9
Print Spc(9 - i);
For j = 1 To i
Print i;
Next
Next
For i = 8 To 1 Step -1
Print Spc(9 - i);
For j = 1 To i
Print i;
Next
Next
[/HTML]
اینم اون شکل اولی.
-کار spc اینه که به اندازه داخل پرانتز فاصله(space) چاپ میکنه.:20:
اصلا با این کد آشنایی ندارم و نمی دونم چیکار می کنهنقل قول:
me.cls
me.autoredraw = true
نمیشه بدون این کد نوشت؟
Me.Clsنقل قول:
دستوري براي پاک کردن محتويات چاپ شده روي صفحه
Me.AutoRedraw = True
رسم خودکار
اگر توجه کردن خطهاي رسم شده روي فرم با قرار گرفتن يک قسمت بر روي آنها پاک مي شوند با استفاده از اين خصيصه آنها ديگر پاک نمي شوند.
راستی این vbcrlf چیه؟
Print vbCrLfنقل قول:
باعث ميشه كه اشاره گر بياد به خط بعدي
نمیشه یه پرینت خالی بزنیم؟
منظورت كدوم خطه ؟نقل قول:
چرا داداش میتونی print خالی هم بزنی(ایراد از من بود ببخشید):46:نقل قول:
راستی برنامه که دوستان دادن
1
222
33333
222
1
رو چاپ می کنه چطور
1
222
33333
444
5
رو بنویسم؟
ممنون
امیدوارم کارتو راه بندازه.نقل قول:
من همون کدهایی که Open-Source نوشته بود رو تغییر دادم. Open-Source جان ببخشید اگه تو کارت دخالت کردم.:11:
کد:Me.Cls
Me.AutoRedraw = True
For i = 1 To 4
Print Spc(4 - i);
For j = 1 To i
Print i;
Next
Next
For i = 5 To 9
Print Spc(i - 4);
For j = 1 To (8 - i)
Print i;
Next
Next
و حالا چطور بنویسیم که عدد ردیف وسط توسط یه تکست باکس دریافت بشه؟نقل قول:
ممنون
[HTML]Dim key As Integerنقل قول:
key = InputBox("Enter Key", "Key")
Me.Cls
Me.AutoRedraw = True
For i = 1 To 4
Print Spc(4 - i);
For j = 1 To i
If i = 4 Then
Print key;
Else
Print i;
End If
Next
Next
For i = 5 To 9
Print Spc(i - 4);
For j = 1 To (8 - i)
Print i;
Next
Next[/HTML]
خواهش میکنم رفیق.کد:جان ببخشید اگه تو کارت دخالت کردم
کمک به یکدیگه که این حرف هارو بر نمیداره.;)
خواهش میکنم رفیق.کد:open-source جان ببخشید اگه تو کارت دخالت کردم
کمک به یکدیگه که این حرف هارو بر نمیداره.;)
این اونی که من میخوام نیستنقل قول:
من میخوام عدد وسط رو بدیم بقیه اعداد اتوماتیک ساخته و چاپ بشه
و جا داره از تمامی دوستانی که منو راهنمایی کردن سپاس گزاری کنم
امیدوارم همونی باشه که میخوای.کد:Dim key As Integer
key = InputBox("enter key", "key")
Me.Cls
Me.AutoRedraw = True
For i = 1 To key
Print Spc(key - i);
For j = 1 To i
Print i;
Next
Next
For i = key + 1 To key * 2
Print Spc(i - key);
For j = 1 To ((key * 2) - i)
Print i;
Next
Nex
ایول همینه دستتون درد نکنه