dim s as string*10
"s="1234567890
dim s2 as string*1
dim i as byte
do
cls
for i=1 to 10
(s2=mid(s,i,1
lcd=s2
waitms 500
next i
loop
ما زنده به آنیم که آرام نگیریم موجیم که آسودگی ما عدم ماست
وقتی یک ملت برای فرهنگ و نژاد و ملیت خویش ارزشی قائل نشد و حقی را که طبیعت برای نگاهداری نژاد پاکش به او ارزانی داشته بود پایمال ساخت و به بیگانگان روی آورد و تسلیم شد دیگر حق ندارد از شکست و بدبختی سیاسی که خودش باعث آن شده است شکایت کند .ادولف هیتلر
:eek:
منکه با بیسکام نوشتم فقط بجای نوشته شما از اعداد استفاده کردم
ما زنده به آنیم که آرام نگیریم موجیم که آسودگی ما عدم ماست
وقتی یک ملت برای فرهنگ و نژاد و ملیت خویش ارزشی قائل نشد و حقی را که طبیعت برای نگاهداری نژاد پاکش به او ارزانی داشته بود پایمال ساخت و به بیگانگان روی آورد و تسلیم شد دیگر حق ندارد از شکست و بدبختی سیاسی که خودش باعث آن شده است شکایت کند .ادولف هیتلر
دیدگاه