قرآن در کامپیوتر

رجیستری یک بانک اطلاعاتی بسیار قدرتمند است که جهت ذخیره سازی تنظیمات و تغییرات اعمال شده در نسخه های 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" جهت ویرایش و ایجاد تغییرات در رجیستری استفاده کنید.

مهندس سه‌شنبه 16 مرداد‌ماه سال 1386 ساعت 08:32 ب.ظ

0 نظر

خرد کردن

خرد کردن
تعداد دفعات ممکن خرد کردن اسکناس 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

مهندس سه‌شنبه 16 مرداد‌ماه سال 1386 ساعت 08:31 ب.ظ

0 نظر

تاکسی تلفنی آسیا

آماده ارائه سرویس دهی منظم به تمام کشور ایران

در اسرع وقت به صورت شبانه روزی

تلفن : 2238018 - 2238019 0172

-----------------------------------------------

با هر سرویس می توانید به صورت ماهیانه تا ماه رمضان از شانس خود بهره مند شوید

جوایز قرعه کشی

چارقد ترکمنی به ارزش 150000 ریال

روسری هندی ( یالیق ) به ارزش 55000 ریال

سرویس بیشتر = امتیاز بیشتر

منتظر جوایز بعدی در عید فطر و قربان باشید

آدرس : گنبد - خیابان امام خمینی شمالی - جنب پل آخوند آباد

مهندس سه‌شنبه 16 مرداد‌ماه سال 1386 ساعت 08:30 ب.ظ

0 نظر

جمع رشته

برنامه بیسیک
شما به ورودی این برنامه جمله ای درجه اول وارد می کنید که داخل آن فقط عبارت های جمع و تفریق وجود دارد پس از اجرای برنامه مقدار متغیر ها از شما خواسته می شود و در انتها جواب نوشته خواهد شد
!!!! لطفا عبارت های خود را با حرف کوچک وارد کنید !!!!
مثال :

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

مهندس سه‌شنبه 16 مرداد‌ماه سال 1386 ساعت 08:29 ب.ظ

0 نظر

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) اس‌ام‌اس کنید.
در حال حاضر امکان ارسال اس‌ام‌اس با خطوط تالیا و ایرانسل نمی باشد.

مهندس سه‌شنبه 16 مرداد‌ماه سال 1386 ساعت 08:27 ب.ظ

0 نظر

شماره ی روز از کل سال

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

مهندس سه‌شنبه 16 مرداد‌ماه سال 1386 ساعت 08:26 ب.ظ

0 نظر

برش رشته

بدون استفاده از سه تابع رشته ای زیر سه کارکتر اول رشته ی ورودی را چاپ کند
(( 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

مهندس سه‌شنبه 16 مرداد‌ماه سال 1386 ساعت 08:25 ب.ظ

0 نظر

مربع جادویی

مربع جادویی
به ورودی این برنامه طول ضلع مربع را میدهیم البته باید عددی فرد باشد
مثلا ما عدد سه را وارد می کنیم خروجی ان برنامه یک مربع سه در سه خواهد بود که اعداد داخل خانه ها را هرگونه جمع کنید یک عدد ثابتی می شود
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

مهندس سه‌شنبه 16 مرداد‌ماه سال 1386 ساعت 06:54 ب.ظ

0 نظر

چند برنامه ی ساده ی بیسیک

چند برنامه ی ساده ی بیسیک
مثال 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

مهندس سه‌شنبه 16 مرداد‌ماه سال 1386 ساعت 06:54 ب.ظ

1 نظر

نظرسنجی

روزانه‌ها

پیوندها

دسته‌ها

ابر برجسب

برگه‌ها

جدیدترین یادداشت‌ها

نویسندگان

بایگانی

جستجو