Print vbCrLfنقل قول:
باعث ميشه كه اشاره گر بياد به خط بعدي
Printable View
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 جان ببخشید اگه تو کارت دخالت کردم
کمک به یکدیگه که این حرف هارو بر نمیداره.;)