Printable View
سلام
می خواهیم برنامه ای بنویسیم که کاراکتر های اسکی را چاپ کند:Private sub command1_click()For i=0 to 255Print chr(i);Next iEnd sub
تابع داخلی chr یک کد اسکی می گیرد و کاراکتر معادلش را نمایش می دهد ولی وقتی این برنامه را اجرا می کنیم حدود بیست تا کاراکتر مربع چاپ میشه و دیگه هیچی .
ممنون میشم اگر که اشتباهی در این کد هست توضیح بدید و یا بگویید چطوری میشه جدول اسکی را چاپ کرد ؟ با تشکر
سلام.
لطفا کدها رو داخل تگ کد قرار دهید.
برای نمایش کاراکتر ها هم به جای دستور print از تکس باکس یا لیست باکس استفاده کنید.
اشتباه شما در این است که روی فرم شما فقط جا برای نمایش همان تعداد کاراکتر اول کدهای اسکی وجود دارهنقل قول:
و کدهای شما هیچ اشکالی نداره
در ضمن چرا جلوي دستر پرينت از علامت ; استفاده کردين؟؟؟؟؟
کدی رو که نوشتی اجرا کردم و اجرا شد ! !
حالا واسه اینکه مطمئن شی این کدو بنویس اجرا کن البته با یه 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
با تشکر از همگی ولی منظور من این است که چرا کاراکتر های خاصی مثل پیک و دل و خاج و خشت را چاپ نمی کند . اگر در جدول اسکی نگاه کنید می بینید که کدهای 1 تا 31 شکلهای گرافیکی است 3و 4و 5 و 6هم مربوط به پیک و غیره است چرا اینها چاپ نمی شوند و به جای آنها مربع چاپ می شود چطور باید با کدنویسی انها را چاپ کنیم ؟ با تشکر
من فكر ميكنم به خاطر اين دو تا دليله:
1. تكست باكس قادر به نشون دادن اون كاركتر ها نيست
2. بايد فونت تكست باكس رو به فونت خاصي تنظيم كني ( كه فكر نكنم بازم نتيجه بده )
سلام
بی زحمت سوال منم جواب بدین
در فرمی که چند تا تکست باکس داره چطوری بفهمونم که هنگام اجرا کرسر ماوس در تکست1 قرار بگیره
توی فرم لود text1.setfocus می نویسم ارور می ده
mer 30
- در پاسخ به پیمان: وقتی جلوی دستور پرینت سمی کولون میزاریم افقی چاپ می کنه
شرمنده میشه کد این شکل رو بهم بگین
دستتون درد نکنه*********************
همون كد رو توي رويداد Form_Activate بنويس درست ميشه !نقل قول:
سیاوش جان ممنون امدی به جمع ما