چرا این کد کوتاه کار نمی کند ؟

[peikesaba]

سلام
می خواهیم برنامه ای بنویسیم که کاراکتر های اسکی را چاپ کند:

Private sub command1_click()

For i=0 to 255

Print chr(i);

Next i

End sub

تابع داخلی chr یک کد اسکی می گیرد و کاراکتر معادلش را نمایش می دهد ولی وقتی این برنامه را اجرا می کنیم حدود بیست تا کاراکتر مربع چاپ میشه و دیگه هیچی .
ممنون میشم اگر که اشتباهی در این کد هست توضیح بدید و یا بگویید چطوری میشه جدول اسکی را چاپ کرد ؟ با تشکر

[Payman_62]

سلام.
لطفا کدها رو داخل تگ کد قرار دهید.
برای نمایش کاراکتر ها هم به جای دستور print از تکس باکس یا لیست باکس استفاده کنید.

[majj]

سلام
می خواهیم برنامه ای بنویسیم که کاراکتر های اسکی را چاپ کند:

Private sub command1_click()

For i=0 to 255

Print chr(i);

Next i

End sub

تابع داخلی chr یک کد اسکی می گیرد و کاراکتر معادلش را نمایش می دهد ولی وقتی این برنامه را اجرا می کنیم حدود بیست تا کاراکتر مربع چاپ میشه و دیگه هیچی .
ممنون میشم اگر که اشتباهی در این کد هست توضیح بدید و یا بگویید چطوری میشه جدول اسکی را چاپ کرد ؟ با تشکر

اشتباه شما در این است که روی فرم شما فقط جا برای نمایش همان تعداد کاراکتر اول کدهای اسکی وجود داره
و کدهای شما هیچ اشکالی نداره

[peyman1987]

در ضمن چرا جلوي دستر پرينت از علامت ; استفاده کردين؟؟؟؟؟

[haj_hamid]

کدی رو که نوشتی اجرا کردم و اجرا شد ! !
حالا واسه اینکه مطمئن شی این کدو بنویس اجرا کن البته با یه textbox که multilineش true باشه
Private Sub command1_click()
Dim i As Integer
For i = 1 To 255
Text1.Text = Text1.Text + " " + Chr(i)
Next
Text1.Text = Text1.Text + vbCrLf
End Sub

[peikesaba]

با تشکر از همگی ولی منظور من این است که چرا کاراکتر های خاصی مثل پیک و دل و خاج و خشت را چاپ نمی کند . اگر در جدول اسکی نگاه کنید می بینید که کدهای 1 تا 31 شکلهای گرافیکی است 3و 4و 5 و 6هم مربوط به پیک و غیره است چرا اینها چاپ نمی شوند و به جای آنها مربع چاپ می شود چطور باید با کدنویسی انها را چاپ کنیم ؟ با تشکر

[__siavash__]

من فكر ميكنم به خاطر اين دو تا دليله:
1. تكست باكس قادر به نشون دادن اون كاركتر ها نيست
2. بايد فونت تكست باكس رو به فونت خاصي تنظيم كني ( كه فكر نكنم بازم نتيجه بده )

[noor_programer]

سلام
بی زحمت سوال منم جواب بدین
در فرمی که چند تا تکست باکس داره چطوری بفهمونم که هنگام اجرا کرسر ماوس در تکست1 قرار بگیره
توی فرم لود text1.setfocus می نویسم ارور می ده
mer 30
- در پاسخ به پیمان: وقتی جلوی دستور پرینت سمی کولون میزاریم افقی چاپ می کنه

[noor_programer]

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

******

*****

****

***

**

*

دستتون درد نکنه

[__siavash__]

سلام
بی زحمت سوال منم جواب بدین
در فرمی که چند تا تکست باکس داره چطوری بفهمونم که هنگام اجرا کرسر ماوس در تکست1 قرار بگیره
توی فرم لود text1.setfocus می نویسم ارور می ده
mer 30
- در پاسخ به پیمان: وقتی جلوی دستور پرینت سمی کولون میزاریم افقی چاپ می کنه

همون كد رو توي رويداد Form_Activate بنويس درست ميشه !