کد شماره ی 1 کد دکمه ای در حال حرکت
کد شماره ی 2 کد امکان ارسال ایمیل
کد شماره ی 3 کد ماشین حساب در سایت
کد شماره ی 4 کد نمایش متن ها به طور زیبا
کد شماره ی 5 کد تغییر رنگ پشت صفحه بر اساس کد رنگ
کد شماره ی 6 کد برای از چپ به راست بردن اسکرول
کد شماره ی 7 کد نمایش متن متحرک در نوت پد
کد شماره ی 8 کد اطلاعاتی در مورد صفحه
کد شماره ی 9 کد نشان دهنده مدت زمان به وجود آمدن صفحه
کد شماره ی 10 کد نشان دهنده تصویر
کد شماره ی 11 کد منوی کشویی لینک که با کلیک بلافاصله وارد لینک شود
کد شماره ی12 کد منوی کشویی لینک که با اسکرول نیز وارد لینک می شود
کد شماره ی 13 کد منوی کشوی لینک پس از انتخاب و زدن دکمه وارد لینک شود
کد شماره ی 14 کد یک منو بسیار زیبا
کد شماره ی 15 کد نمایش پیام به صورت افکت
کدشماره ی 16 کد به حرکت در آوردن اسکرول لاک از بالا به پایین
کد شماره ی 17 کدنمایش لینک به صورت منویی
کد شماره ی 18 کد نمایش متن به صورت افکت
کد شماره ی 19 کد اضافه کردن صفحه به بوکمارک
کد شماره ی 20 کد دو خط قرمز بسیار زیبا به دنبال موس
کد شماره ی 21 کد اتوماتیک صفحه را ماکزیمم می کند
کد شماره ی 22 کد پرش به بالای صفحه
کد شماره ی 23 کد منوی زیبایی که همیشه همراهتان است
کد شماره ی 24 کد نمایش متن دلخاه به دور موس
کد شماره ی 25 کد تغییر رنگ پشت صفحه
کد شماره ی 26 کد ایجاد لینک زیر شاخه ای
کد شماره ی 27 کد دکمه ای برای خاموش و روشن کردن صفحه
کد شماره ی 28 کد نمایش متن به صورت حلقه به دور موس
کد شماره ی 29 کد آمدن پیغام مورد نظر شما هنگام ورود افراد به سایت شما
کد شماره ی 30 کد رنگی کردن اسکرول بار
کد شماره ی 31 کد گذاشتن جستجو در سایت یا وبلاگ
کد شماره ی 32 کد ستاره باران در سایت
کد شماره ی 33 کد برف باران در سایت
کد شماره ی 34 کد گلباران در سایت
کد شماره ی 35 کد جستوجو گر گوگل در سایت
کد شماره ی 36 کد جستجوگر ام اس ان در سایت
کد شماره ی 37 کد خروج از صفحه
کد شماره ی 38 کد ساعت عقربه دار
کد شماره ی 39 کد دکمه ی عقب و جلو در سایت
کد شماره ی 40 کد برای پرینت از صفحه
کد شماره ی 41 کد حرکت جستجو گر به صورت جالب
کد شماره ی 42 کد ویزیتور برای سایت
کد شماره ی 43 کد مدت زمانی که شخص وارد سایت یا وبلاگ شده است
کد شماره ی 44 کد دریافت نام کاربر و رنگ مورد علاقه او و خوش آمد گویی به او با همان رنگ
کد شماره ی 45 کد ساعت دیجیتال (کامپیوتری) در سایت
کد شماره ی 46 کد تاریخ میلادی در سایت
کد شماره ی 47 کد دکمه ذخیره صفحه سایت
کد شماره ی 48 کد از بین بردن آندر لاین زیر لینکها
کد شماره ی 49 کد نمایش متن در استاتوس بار با رفتن بر روی تصویر
کد شماره ی 50 کد رقص متن در استاتوس بار 1
کد شماره ی 51 کد رقص متن در استاتوس بار 2
کد شماره ی 52 کد رقص متن در استاتوس بار 3
کد شماره ی 53 کد لرزش موقت در سایت
کد شماره ی 54 کد باز شئن صفحه ای جدید
کد شماره ی 55 کد تغییر رنگ به صورت تصادفی
کد شماره ی 56 کد برای باز کردن فایل
کد شماره ی 57 کد داشتن دکمه ای ثابت
کد شماره ی 58 کد دکمه ای برای میل زدن
کد شماره ی 59 کد دکمه ای به حالت عکس
کد شماره ی 60 کد گذاشتن موزیک در سایت
کد شماره ی 61 کد افکت به متن به صورت زیبا
کد شماره ی 62 کد قفل کردن راست کلیک
کد شماره ی 63 کد برای لینک دادن
کد شماره ی 64 کد پروانه در سایت
کد شماره ی 65 کد بازی با موس
کد شماره ی 66 کد ستاره باران در سایت
کد شماره ی 67 کد پرواز پروانه
کد شماره ی 68 کد پرتاب ستاره
کد شماره ی 69 کد قیمت رورانه طلا و ارز در بازار جهانی
کد شماره ی 70 کد حرکت عکس پشت ضمینه
کد شماره ی 71 کد ساعت و تاریخ در استاتوس بار
کد شماره ی 72 کدعکس به دنبال موس
کد شماره ی 73 کد بازی پازل در سایت
کد شماره ی 74 کد آمار بازدید کنندگان
کد شماره ی 75 کد برداشتن تبلیغات بلاگ اسکای
کد شماره ی 76 کد قرار دادن تاریخ در سایت (همان روز) با نام روز
کد شماره ی 77 کد بیرون آمدن سی دی رم و رایتر
کد شماره ی 78 کد این که بفهمید بازدید کنندگانتان از کجا آمده اند
کد شماره ی 79 کد باز شدن وب دیگری همراه صفحه وب شما
کد شماره ی 80 کد بسته شدن صفحه سایت پس از مدتی معین
کد شماره ی 81 کد تغییر رنگ زمینه سایت توسط بازدیدکنندگان
کد شماره ی 82 کد تایین صحت پسورد
کد شماره ی 83 کد منوی متحرک کنار صفحه
کد شماره ی 84 کد توضیح یک لینک در استاتوس بار
کد شماره ی 85 کد ساعت دینامیکی
کد شماره ی 86 کد فرم گذاری برای سایت
کد شماره ی 87 کد نمایش جملات از کوچک به بزرگ
کد شماره ی 88 کد نشان دهنده مدت عمر اشخاص
کد شماره ی 89 کد ساعت های زنده دنیا
کد شماره ی 90 کد fade in در سایت
کد شماره ی 91 کد نوشته را رنگی می کند
کد شماره ی 92 کد تغییر دادن رنگ پشت صفحه با چندین رنگ
کد شماره ی 93 کد عوض کرن رنگ پشت صفحه با دکمه ای
کد شماره ی 94 کد بازی با اشکال مختلف
کد شماره ی 95 کد عوض کردن نوع خط
کد شماره ی 96 کد تغییر دهنده رنگ بوسیله ی خود کاربر
کد شماره ی 97 کد ذخیره کردن نام افراد بازدید کننده
کد شماره ی 98 کد مخلوط کردن رنگ های پشت ضمینه با رنگ های دیگر
کد شماره ی 99 کد ستاره باران در سایت مثل پشت ضمینه همین سایت
رجیستری چیست؟
رجیستری یک بانک اطلاعاتی بسیار قدرتمند است که جهت ذخیره سازی تنظیمات و تغییرات اعمال شده در نسخه های 32 بیتی Microsoft Windows شامل 95 ، 98 ، NT ، 2000 و XP بکار می رود. رجیستری شامل اطلاعات و تنظیمات برای تمام سخت افزارها ، نرم افزارها ، کاربران ، اولویت های PC و .... می باشد. هنگامی که یک کاربر تغییراتی در تنظیمات Control Panel ، انتساب فایلها ، سیاستهای امنیتی و یا برنامه های نصب شده ایجاد می کند ، این تغییرات به رجیستری منعکس شده و در آنجا ذخیره می شود.
فایلهای فیزیکی که رجیستری را آرایش می دهند ، بطور مجزا و وابسته به هم ، در نسخه ویندوز شما ذخیره شده اند. در ویندوز 95 و 98 ، رجیستری در داخل دو فایل مخفی واقع در دایرکتوری ویندوز ، به نامهای User.dat و System.dat گنجانیده شده است. در ویندوز Me ، علاوه بر آن دو فایل ، در یک فایل دیگر نیز به نام Classes.dat نیز ذخیره شده است. در صورتی که در ویندوز NT ، 2000 و XP ، فایلها بطور جداگانه در داخل دایرکتوری %SystemRoot%System32Confing قرار دارد. شما نمی توانید به طور مستقیم به این فایل ها دسترسی پیدا کنید ، بلکه باید از یک ابزار شناخته شده به نام "Registry Editor" جهت ویرایش و ایجاد تغییرات در رجیستری استفاده کنید.
خرد کردن
تعداد دفعات ممکن خرد کردن اسکناس 2000 ریالی بکمک سکه های 50 ؛ 100 و 250 ریالی به شرط اینکه از هر سکه حداقل یکی باشد .
Cls
K = 0
For P = 1 To 33
For S = 1 To 17
For D = 1 To 7
Let sum = P * 50 + S * 100 + d * 250
If Sum = 2000 Then k = k + 1
Next D , s , p
Print K
End
تاکسی تلفنی آسیا
آماده ارائه سرویس دهی منظم به تمام کشور ایران
در اسرع وقت به صورت شبانه روزی
تلفن : 2238018 - 2238019 0172
-----------------------------------------------
با هر سرویس می توانید به صورت ماهیانه تا ماه رمضان از شانس خود بهره مند شوید
جوایز قرعه کشی
چارقد ترکمنی به ارزش 150000 ریال
روسری هندی ( یالیق ) به ارزش 55000 ریال
سرویس بیشتر = امتیاز بیشتر
منتظر جوایز بعدی در عید فطر و قربان باشید
آدرس : گنبد - خیابان امام خمینی شمالی - جنب پل آخوند آباد
برنامه بیسیک
شما به ورودی این برنامه جمله ای درجه اول وارد می کنید که داخل آن فقط عبارت های جمع و تفریق وجود دارد پس از اجرای برنامه مقدار متغیر ها از شما خواسته می شود و در انتها جواب نوشته خواهد شد
!!!! لطفا عبارت های خود را با حرف کوچک وارد کنید !!!!
مثال :
X+2-X+Z-20 ورودی برنامه
X = ? 10
Z = ? 4 درخواست های برنامه
?? - خروجی برنامه
CLS
INPUT a
($n = LEN(a
OPTION BASE 0
(DIM a$(n + 1), a(n + 1), t(n
FOR i = 1 TO n
( a$(i) = MID$(a$, i, 1
(( a(i) = ASC(a$(i
NEXT i
FOR i = 1 TO n
IF a(i) > 96 AND a(i) < 123 THEN
(( q = INSTR(sum$, a$(i
( sum$ = sum$ + a$(i
g = g + 1
IF q = 0 THEN
; " = ";( PRINT a$(i
( INPUT t(g
ELSE
( t(g) = t(q
END IF
IF a$(i - 1) = "-" THEN
( sum = sum - t(g
ELSE
( sum = sum + t(g
END IF
END IF
IF a(i) > 47 AND a(i) < 58 THEN
( z = i: s$ = a$(i
DO
z = z + 1
IF a(z) < 48 OR a(z) > 57 THEN EXIT DO
( s$ = s$ + a$(z
LOOP
IF a$(i - 1) = "-" THEN
($ sum = sum - VAL(s
ELSE
($ sum = sum + VAL(s
END IF
i = z - 1
END IF
NEXT i
PRINT sum
END
sms
لازم نیست که به اینترنت وصل باشید
لازم نیست که کامپیوتر را روشن کنید
هر کجا که باشید
هر چیزی که بخواهید فقط با یک تماس کوتاه در اختیارتونه
هر گزینه را که می خواهید انتخاب کنید فقط شمارش را به ما sms کنید
چی می خواهید به وبلاگ اضافه کنیم ؟
1- آموزش بیسیک مقدماتی کد:239091
2- آموزش بیسیک پیشرفته کد:239092
3- ترفند ریجستری کد:239093
4- ترفند ویندوز کد:239094
5- طریقه ی از بین بردن ویروس کد:239095
6- عکس های زیبا کد:239096
7- تبلیغات جدید کد:239097
8- آموزش ورد کد:239098
9- آموزش ایکسل کد:239099
10- نرم افزار کد:2390910
11- آموزش فلش کد:2390911
12- آموزش ویندوز کد:2390912
13- سخت افزار کد:2390913
شرکت در نظرسنجی: برای شرکت در نظرسنجی، کد مقابل گزینه مورد نظر را به شماره 30009324 (یا 3000webg) اساماس کنید.
در حال حاضر امکان ارسال اساماس با خطوط تالیا و ایرانسل نمی باشد.
qbasic
شماره ی روز از کل سال را گرفته و خروجی آن این است که معلوم می کند چندمین روز و چندمین ماه سال است
مثال
ورودی 241
خروجی ماه هشتم و روز 25
در انتها عبارت q را پاک کنید
CLS : o = 31 q
INPUT "enter days ( 1 - 365 ) : ", n q
FOR i = 1 TO 11 q
IF n <= o THEN EXIT FOR q
n = n - o q
IF i = 6 THEN o = 30 q
NEXT i q
PRINT "month = "; i, "day = "; n q
END
بدون استفاده از سه تابع رشته ای زیر سه کارکتر اول رشته ی ورودی را چاپ کند
(( mid , Right , Left ))
در انتهای عبارت های زیر q را پاک کنید
CLS
INPUT a$ q
FOR i = 1 TO 3 q
FOR j = 1 TO 255 q
b$ = CHR$(j) q
n = INSTR(i, a$, b$) q
IF n = i THEN PRINT b$; : EXIT FOR q
NEXT j, i q
END q
مربع جادویی
به ورودی این برنامه طول ضلع مربع را میدهیم البته باید عددی فرد باشد
مثلا ما عدد سه را وارد می کنیم خروجی ان برنامه یک مربع سه در سه خواهد بود که اعداد داخل خانه ها را هرگونه جمع کنید یک عدد ثابتی می شود
CLS
c = 1
INPUT n
OPTION BASE 0
DIM a(n + 1, n + 1)
IF n MOD 2 = 0 THEN END
b = n 2 + 1
a(c, b) = 1
FOR i = 2 TO n ^ 2
c = c - 1: b = b + 1
IF a(c, b) = 0 THEN
IF c = 0 THEN k = c: c = n
IF b = n + 1 THEN
q = b: b = 1
END IF
IF a(c, b) > 0 THEN c = k + 2: b = q - 1
ELSE
c = c + 2
b = b - 1
END IF
a(c, b) = i
NEXT i
FOR i = 1 TO n
FOR j = 1 TO n
PRINT USING "####"; a(i, j);
NEXT
PRINT
PRINT
NEXT
END
چند برنامه ی ساده ی بیسیک
مثال 1 : برنامه ای بنویسید که اعداد یک تا ده را چاپ کند سپس مقابل هریک ریشه چهارم آن را نمایش دهد .
CLS
FOR i = 1 TO 10
( ( PRINT i ; " " ; SQR ( SQR( i
NEXT i
END
توضیح : به منظور ایجاد فاصله بین عدد و ریشه چهارمش از یک رشته خالی به طول 20 کاراکتر استفاده شده است . می توانستید به جای اینکه 20 بار space را فشار دهید از تابعی که به همین منظور آماده شده ، استفاده کنید : تابع (SPC(a به تعداد مشخص شده ( a تا ) فضای خالی ایجاد می کند . در این صورت خط سوم برنامه به این صورت در می آمد که صحیح تر و بهتر است :
( ( PRINT i ; SPC (20) ; SQR ( SQR( i
=================================================
مثال 2 : برنامه ای بنویسید که کلیه مقسوم علیه های یک عدد ورودی را محاسبه و چاپ کند .
CLS
INPUT "Enter a number" , num
FOR i = 1 TO num
IF INT( num / i ) = num / i THEN PRINT i
NEXT i
END
توضیح : این بار این مسئله را با استفاده از تابع ( )INT حل کردیم . اگر num بر i بخشپذیر باشد ، پس حاصل num/i یک عدد صحیح است و جزءصحیح آن با خودش برابر است .
=================================================
مثال 3 : برنامه ای را بنویسید که جدول مقادیر مثلثاتی زوایای 1 تا 90 را نمایش دهد .
CLS
CONST pi = 3.1415
"PRINT "Degree" ; SPC(3) ; "Sin" ; SPC(3) ; "Cos" ; SPC(3) ; "Tan" ; SPC(3) ; "Cot
PRINT
FOR i = 1 TO 90
;( PRINT i ; SPC(3
rad = i * pi / 180
( PRINT SIN(rad); SPC(3); COS(rad); SPC(3); TAN(rad); SPC(3); 1/Tan(rad
NEXT i
END
=================================================
مثال 4 : برنامه ای بنویسید که یک رشته را دریافت کرده و حروف آن را معکوس کرده ، نمایش دهد .
CLS
$INPUT "Enter a string : " , test
" " = $reverse
( $FOR i = 1 TO LEN ( test
( temp$ = MID$ ( test$ , i , 1
$ reverse$ = temp$ + reverse
NEXT i
$PRINT "Reverse of string : " ; reverse
END
=================================================
مثال 5 : برنامه ای بنویسید که یک رشته را از ورودی دریافت کرده و تمام فاصله های آن را (جاهای خالی رشته) به ستاره تبدیل کند .
$INPUT a
" " = $b
($FOR i = 1 TO LEN (a
( temp$=MID$ ( a$ , i , 1
"*"=$IF temp$ = " " THEN temp
$b$ = b$ + temp
NEXT i
$PRINT b
END
=================================================
مثال 6 : برنامه ای بنویسید که یک رشته اصلی را دریافت کند و یک رشته که درون آن موجود است را دریافت کرده و به رشته ای دیگر تغییر دهد . مثلا رشته "This is a test" را به عنوان رشته اصلی دریافت کند . سپس به جای حروف "s" حرف "V" را چاپ کند . یعنی خروجی باید به صورت "ThiV iV a tevt" باشد .
$INPUT "Enter the mail string ", mainstr
$INPUT "What string do you want to replace it ?",oldstr
$INPUT "What is new string ?",newstr
INPUT "Enter start position : "start
DO
($pos=INSTR(start,mainstr$,oldstr
IF pos<>0 THEN
(Leftstr$=LEFT$(mainstr$,pos-1
($Rightstr$=RIGHT$(mainstr$,pos+LEN(oldstr
$mainstr$=Leftstr$+newstr$+Rightstr
ENDIF
LOOP WHILE pos<>0
" :PRINT "New main string is
$PRINT mainstr
END
=================================================
مثال 7 : برنامه ای بنویسید که یک عدد را دریافت کند و تعداد رقم های آن را چاپ کند .
INPUT "Type a number ranging from 1 to 7 digits ",num
( ( a = LEN ( STR$ ( num
"PRINT "You typed a "; a ; "digit number
END
=================================================
مثال 8 : برنامه ای بنویسید که یک عدد را در مبنای 2 دریافت کرده و معادل آن را در مبنای ده نمایش دهد .
INPUT "Enter a binary number ",numbin
(numbin$ = MID$ (STR ( numbin ) , 1
sum = 0
pow = 0
FOR i = LEN ( numbin$ ) TO 1 STEP -1
( abit$ = MID$ ( numbin$ , i , 1
IF VAL ( abit$ ) > 1 THEN
"!PRINT "Error in number
sum = 0
EXIT FOR
ENDIF
sum = sum + VAL ( abit$ ) * 2^pow
pow = pow + 1
NEXT i
PRINT "Decimal form is : " ; sum
END
=================================================
مثال 9 : برنامه ای بنویسید که نام و نمره دانش آموزان را بگیرد و در آرایه ذخیره کند . سپس امکان جستجو را به این ترتیب برای کاربر فراهم کند که با دریافت نام دانش آموز ، نمره وی را نمایش دهد . برنامه را طوری بنویسید که case sensitive نباشد . ( نسبت به بزرگی و کوچکی حروف حساس نباشد )
INPUT "How many students are there ?" , n
(DIM name$(n
(DIM grade(n
count = 1
DO WHILE count <= n
PRINT "Enter name of student " ; count
( INPUT name$( count
PRINT "Enter grade of student " ; count
( INPUT grade ( count
count = count + 1
LOOP
FOR i = 1 TO n : name$ ( i ) = UCASE ( name$ ( i ) ) : NEXT i
$INPUT "Enter name of student to see her/his grade " , a
FOR i = 1 TO n
( IF name$(i)=UCASE$(a$) THEN PRINT name$(i)" 's grade is : " ; grade (i
NEXT i
END
=================================================
مثال ?? : برنامه ای بنویسید که دو رشته را دریافت کرده و تمام محل های وجود رشته دوم را در رشته اول بررسی کرده و نشان دهد .
CLS
$INPUT "Enter the main string " , main
$INPUT "What string is you want to search it ? " , search
DO
($location = INSTR (location+1 , main$ , search
IF location = 0 THEN EXIT DO
PRINT " Location : " ; location
LOOP
END
=================================================
?-
REM This program can show the name of colors
CLS
%INPUT "Enter a number from 1 to 6 " , a
%SELECT CASE a
CASE 1
" PRINT " Black
CASE 2
" PRINT " Red
CASE 3
" PRINT " Green
CASE 4
" PRINT " Blue
CASE 5
" PRINT " Orange
CASE 6
" PRINT " Brown
CASE ELSE
" PRINT " Invalid number
END SELECT
END
=================================================
?-
CLS
%INPUT "Enter a number ( >=0 )",num
count = 1
fact = 1
IF num% >= 0 THEN
% DO WHILE count <= num
fact = fact * count
count = count +1
LOOP
PRINT num% ; "! =" ; fact
ELSE
" PRINT " Invaid number
END IF
END
توضیح : برنامه دارای متغیری به نام count است که حکم شمارنده ای را دارد که از مقدار ? شروع می شود و تا زمانی که به عدد ورودی کاربر برسد ، هربار در عدد قبلی خود ضرب شده و در متغیری به نام fact قرار می گیرد . سپس یک واحد به آن اضافه شده و دوباره در عدد قبلی ضرب می شود . به این ترتیب حاصلضرب اعداد از ? تا n ) n عدد ورودی کاربر است ) محاسبه شده که همان فاکتوریل است . به دستور PRINT قبل از ELSE دقت کنید . این دستور از سه قسمت تشکیل شده است . دو قسمت عددی و یک قسمت رشته ای به این ترتیب که ابتدا عدد ورودی کاربر نمایش داده می شود . سپس علامت فاکتوریل (!) روبه روی عدد قرار می گیرد .آنگاه با چاپ علامت مساوی (=) فاکتوریل عدد در مقابل مساوی چاپ می شود . برای مثال اگر عدد ورودی کاربر ? باشد ، از آنجا که 0>1 یک عبارت نادرست است ، حلقه DO WHILE اجرا نمی شود و دستور بعدی که همان دستور PRINT است اجرا شده و با توجه به اینکه مقدار fact تغییری نکرده است ، خروجی به فرم زیر خواهد بود :
1 = ! 0
=================================================
?-
REM This program can calculate (1+2+3+..+n)^2
INPUT "Enter the last number (n) " , n
sum = 0
FOR i = 1 TO n
sum = sum + i
NEXT i
PRINT "Answer is : ";sum^2
END