به گزارش روابط عمومي معاونت آموزش متوسطه به نقل از مركز اطلاع رساني و روابط عمومي وزارت آموزش و پرورش،ابراهيم سحرخيز با اعلام خبر فوق اظهار كرد: با اين طرح فرصت لازم براي تعميق آموزش هاي فني وحرفه اي وارائه آموزش هاي كارگاهي وعملي مهيا خواهد شد. با اجراي كامل نظام آموزشي 3-3-6 :‌ سنوات آموزشي دوره هنرستان از2 سال به 3 سال افزايش مي يابد معاون آموزش متوسطه وزارت آموزش وپرورش از افزايش دوره هنرستان با اجراي نظام آموزشي 3-3-6 ازدوسال به 3 سال خبرداد. به گزارش روابط عمومي معاونت آموزش متوسطه به نقل از مركز اطلاع رساني و روابط عمومي وزارت آموزش و پرورش،ابراهيم سحرخيز با اعلام خبر فوق اظهار كرد: با اين طرح فرصت لازم براي تعميق آموزش هاي فني وحرفه اي وارائه آموزش هاي كارگاهي وعملي مهيا خواهد شد. وي ادامه داد: درحال حاضر دوره هنرستان دوساله است وهنرجويان 11 ساله ديپلم مي گيرند اما با اجراي كامل نظام آموزشي 3-3-6 يك سال به دوره تخصصي هنرستان افزوده مي شود. سحرخيز با اعلام اينكه با اين طرح تراكم برنامه درسي در اين دوره كاهش مي يابد، تصريح كرد: ساماندهي رشته هاي فني وحرفه اي وكاردانش دردستوركار سال 91 اين معاونت قراردارد وقصد داريم، تعداد رشته ها را محدود وبه روز كنيم. معاون آموزش متوسطه وزارت آموزش وپرورش از افزايش ظرفيت ورود دانش آموزان پايه اول به هنرستان ها طي سال تحصيلي آينده خبرداد وافزود: حضور دانش آموزان درسال اول متوسطه درهنرستان ها موجب جلب نظر آنها به اين شاخه مي شود. وي با اشاره به اينكه با اجرا واستقرار كامل نظام آموزشي 3-3-6 ،هدايت تحصيلي دانش آموزان به سال سوم راهنمايي منتقل خواهد شد، خاطرنشان كرد: با اجراي اين طرح، انتخاب رشته دانش آموزان دردوره راهنمايي (سه ساله اول متوسطه) انجام مي شود ودرسه ساله دوم دوره متوسطه دروس تخصصي ارائه خواهد شد.

مرحله كشوري مسابقات علمي ويژه دانش‌آموزان پايه اول هنرستان‌ها، همزمان با مسابقات علمي كاربردي هنرستانهاي شاخه كاردانش مورخ 1391/2/3 ساعت 9 صبح برگزار مي‌شود

برای دانلود کتاب کورل اینجا کلیک کنید:

دانلود

برای دانلود کتاب "آموزش مایا" اینجا کلیک کنید:(کتابی برای طراحی سه بعدی)

دانلود

برای دانلود کتاب آموزش   power point2007  در لینک زیر کلیک کنید:

دانلود

برای دانلود کتاب " آموزش هک به وسیله پورت ۲۱" اینجا کلیک کنید:(رمز باز کردن کتاب پس از دانلود : www.takbook.com)

دانلود

برای دانلود کتاب "آموزش طراحی قالب وب سایت با فتوشاپ" اینجا کلیک کنید:

دانلود

برای دانلود کتاب "آچار فرانسه ویندوز۷ " اینجا  کلیک کنید:(رمز باز کردن کتاب پس از دانلود:www.takbook.com)

دانلود

برای دانلود کتاب " بازیابی رمز عبور ورود به ویندوز" اینجا کلیک کنید:

دانلود

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

www.hab64.mihanblog.com

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

وبلاگ نرم افزار

http://www.hab64.mihanblog.com

دانلود جلد اول کتاب بسته های نرم افزاری 3

دانلود جلد دوم کتاب بسته های نرم افزاری 3

- از کلیدهای میانبر صفحه کلید استفاده کنید
با استفاده از ماوس مي‌توانید پنجره‌ها را در صفحه نمایش جا‌به‌جا کنید یا پنجره را به بالای صفحه بکشید تا کل صفحه را بگیرد. کلیدهای میانبر زیر مي‌توانيد سریع‌تر اين کار را انجام دهيد:
  کلید جهت‌دار سمت راست+Win و کلید جهت‌دار سمت چپ + Win: پنجره فعال را به سمت راست و چپ صفحه حرکت مي‌دهد.
  کلید جهت‌دار سمت بالا+Win و کلید جهت‌دار سمت پایین+Win: پنجره فعال را بزرگ‌ (Maximize) و کوچک (Minimize) مي‌کند.
  Win + M: تمام پنجره‌ها را کوچک (Minimize) مي‌کند.
  کلید جهت دار سمت بالا + Alt،‌ کلید جهت‌دار سمت چپ + Alt و کلید جهت‌دار سمت راست + Alt: به یک پوشه بالاتر مي‌رود که معادل Back و Forward در مرورگر ویندوز عمل مي‌کند.
  Win + Home: تمام پنجره‌های باز غیر از پنجره فعال را کوچک (Minimize) مي‌کند.
  Alt+Win+#: فهرست پرشی از بیش‌ترین برنامه‌هاي استفاده شده را روی منوی taskbar باز مي‌کند.

2- آیکون‌هاي سیستم Tray را مرتب کنید
می توانید آیکون‌هاي Taskbar را به سلیقه خود مرتب کنید و با فشردن کلیدهای Win + 1 و Win + 2 و ... ده برنامه نخست Taskbar را به ترتیب از سمت چپ اجرا کنید. همچنین مي‌توانید آیکون‌هاي سیستم Tray را هم تغییر دهید (به گوشه سمت راستTaskbar ،‌ System Tray گفته مي‌شود.) آیکون‌ها را درون خود Tray جابه‌جا کنید یا آن‌ها را بیرون بیاورید. آیکون‌هايي راکه بیشتر احتیاج دارید در محل دیدتان قرارداده و آیکون‌هاي دیگر را در قسمت Customize تحت کنترل درآورید.

3- با استفاده از کلید چپ ماوس به لیست پرشی دسترسی پیدا کنید.
وقتی روی آیکون‌هاي Taskbar راست کلیک مي‌کنید لیست‌هاي پرشی نمایش‌داده مي‌شوند همچنین مي‌توانید با چپ کلیک روی آیکون‌ها و نگه داشتن و کشیدن ماوس به سمت بالا به لیست‌ها دسترسی پیدا کنید. اگر از لپ‌‌تاپ یا صفحه‌هاي لمسی استفاده مي‌کنید کار راحت تر است چون نیازی به کلیک کردن ندارید و فقط با بردن مکان نما روی آیکون‌ها مي‌توانید محتوای آن را ببینید.

4- پوشه موردنظر را به علاقه‌مندی‌هاي خود (Favorites) اضافه کنید
شما مي‌توانید هر کتابخانه یا پوشه‌اي را به قسمت علاقه‌مندی‌هاي خود در مرورگر ویندوز اضافه کنید. برای اضافه‌کردن یک فولدر، آن را در مرورگر ویندوز به سمت Favorites بکشید،‌ روی گزینه Favorites در قسمت بالا سمت چپ، راست کلیک کنید و گزینه Add current location to Favorites را انتخاب کنید. اکنون مي‌توانید به تمام پوشه‌هاي موردعلاقه خود دسترسی سریع داشته باشید.

5- پوشه‌هايي که بیشتر استفاده مي‌کنید را به Taskbar متصل کنید
برنامه‌ها یا پوشه‌هايي را که بیشتر نیاز دارید مي‌توانید با کشیدن آن به سمت Taskbar یا راست کلیک روی آیکون برنامه بازشده در پایین صفحه و انتخاب گزینه Pin this program to taskbar به Taskbar متصل کنید. هم اکنون این برنامه‌ها در لیست پرشی شما قرار دارند.

6- کنترل پنل را به Taskbar متصل کنید
برای متصل‌کردن کنترل پنل نمی‌توانید از طریق منوی استارت یا با کشیدن آن به روی Taskbar اقدام کنید. برای این‌کار کنترل پنل را باز کنید و روی آیکون آن در Taskbar مانند شکل راست کلیک کنید. مزیت این کار این است که لیست پرشی کنترل پنل اجازه دسترسی سریع به برنامه‌هايي که به تازگي استفاده شده را مي‌دهد.

7- برای برنامه‌ها کلیدهای میانبر صفحه کلید بسازید
می توانید برای هر برنامه‌ای در ویندوز 7 کلیدهای میانبر درصفحه کلید بسازید. روی برنامه راست کلیک‌کرده و با استفاده از گزینه Properties،‌ زبانه Shortcut را برگزینید‌، برای انتخاب کلیدهای میانبر روبه‌روی گزینه Shortcut key کلیک کنید و دکمه‌هاي موردنظر خود را فشار دهید.

آنچه درباره ویندوز 8 نمی دانید

می‌دانیم که قرار است به ویندوز 8، امکانات متفاوت و خوبی اضافه شود اما چیزی را که هنوز نمی‌دانیم مشکلات و معضلات ویندوز جدید با امکانات قبلی است.
اگر از ویندوز 7 استفاده می‌کنید، احتمالا هیچ مشکل خاصی با سیستم عامل آینده مایکروسافت نخواهید داشت چرا که ویندوز 8 برای تبلت‌ها با توانایی‌ و قدرت محدود طراحی شده است. پس نباید زیان نگران سخت‌افزار و ارتقای آن باشید. اما تغییرات ویندوز، نگرانی‌هایی درباره کار با نرم‌افزارها بوجود می‌آورد:

تغییر در نرم‌افزارها
مثلا کار با ماشین حساب و یا Notepad با وجود رابط گرافیکی مترو متفاوت خواهد شد اما چگونه؟ معلوم نیست! تکلیف Office چه می‌شود؟ قرار است از این به بعد Word چگونه متنی را ایجاد یا ویرایش کند؟ آیا قرار است برنامه‌های ویندوز روی کامپیوترهای رومیزی و تبلت‌ها متفاوت باشد؟ به نظر می‌رسد مایکروسافت با تغییراتی اساسی برنامه‌هایی با برای هماهنگی با نسخه‌های تبلت و دسکتاپ ویندوز ارائه دهد و احتمالا بیشتر این هماهنگ‌سازی‌ها بر دوش روش ابری باشد.

آینده برنامه‌های قبلی
آیا شرکت‌های برنامه‌نویسی خود را با این تغییرات منطبق می‌کنند؟ آیا همچنان تسلط مایکروسافت بر روی بازار باقی می‌ماند و با هر تغییری که در ویندوز داد، سایر شرکت‌ها را به تکاپو وا می‌دارد؟ مثلا قرار است فتوشاپی برای ویندوز 8 داشته باشیم یا فتوشاپ‌های قبلی با ویندوز 8 کار می‌کنند؟

تعداد سایت های دنیا را بدانید

شاید سوال شما نیز باشد! ولی اینکه بتوانید حدس بزنید چند وب سایت وجود دارد، به نظر کمی سخت است.
طبق گفته های netcraft، هم اکنون بیش از 644,275,754 وب سایت فعال وجود دارند! مسئله جالب تر، رشد سر سام آور تعداد آن هاست،
به طوری که تنها طی یک ماه گذشته تعداد آنها حدود ۵٫۱درصد رشد یافته است. همچنین تعداد دامنه ها نیز از مرز ۲۲۵ میلیون عبور کرده است.
به گزارش «24»،شاید در چند سال آینده این ارقام از مرز یک میلیارد نیز بگذرد، که البته با در نظر گرفتن کارایی و حجم اینترنت دور از انتظار نیز نیست. اینترنت و شبکه جهانی آن، روزی جایگزین تمام وسایل ارتباطی کنونی بشر خواهد شد

برای دانلود اینجا کلیک کنید:

دانلود

نوروز، اگرچه روز نو سال است، روز کهنه قرن­هاست. پیری فرتوت است که سالی یکبار جامه­ی جوانی می­پوشاند، تا بشکرانه­ی آنکه روزگاری چنین دراز بسر برده و با این همه دمسردی ِزمانه تاب آورده است، چند روزی شادی کند. از این­جاست که شکوه پیران و نشاطِ جوانان در اوست. پیر نوروز یادها در سر دارد. از آن کرانه زمان می­آید، از آن­جا که نشانش پیدا نیست. دراین راه دراز رنج­ها دیده و تلخی­ها چشیده است، اما هنوز شاد و امیدوار است. جامه­های رنگارنگ پوشیده است، اما از آن همه یک رنگ بیشتر آشکار نیست، و آن رنگِ ایران است

پیام نوروز این است.دوست داشته باشید و زندگی کنید.زمان همیشه از ان شما نیست .

نوروز یعنی هیچ زمستانی ماندنی نیست  اگر چه کوتاهترین شبش یلدا باشد . . .

برای دانلود اینجا کلیک کنید:

دانلود فایل (پسورد فایل فشرده:                      www.vatandownload.com ) 

 

دانلود کتاب 3dmax      رمز باز کردن کتاب پس از دانلود :  www.elecdl.com

 

برای دانلود کنید:

دانلود کتاب آچار فرانسه ویندوز7

دانلود کتاب کلید های میانبر ویندوز 7 و xp

دانلود کتاب راهنمای ویندوز 7

برای دانلود اینجا کلیک کنید

دانلود کتاب

برای دانلود اینجا کلیک کنید

دانلود

دانلود کتاب ویژوال بیسیک

آموزش ویژوال بیسیک در n+1 روز

کار با منوها در ویژوال بیسیک

برنامه نویسی شبکه و اینترنت با ویژوال بیسیک

گرافیک در ویژوال بیسیک

ده عدد را گرفته تعیین کند کدام زوج و کدام فرد است.

Private Sub Command13_Click() '16

Cls

Dim i As Integer, n As Integer

For i = 1 To 10

n = InputBox("Enter the num")

Print n; Tab(10); IIf(n Mod 2 = 0, "Even", "Odd")

Next

End Sub

 

 

2  مجموع اعداد زوج و فرد 0 تا 100 را محاسبه کرده و جداگانه چاپ کند.

Private Sub Command14_Click()

Dim i As Integer, s As Integer

For i = 0 To 100 Step 2

s = s + i

Next

MsgBox Prompt:=s, Title:="Events"

s = 0

For i = 1 To 100 Step 2

s = s + i

Next

MsgBox Prompt:=s, Title:="Odds"

End Sub

 

   3  20 عدد را خوانده، بزرگترین و کوچکترین آنها را نمایش دهد.

Private Sub Command15_Click()

Dim min As Integer, max As Integer, n As Integer, i As Integer

For i = 1 To 20

n = InputBox("Enter a num")

If i = 1 Then min = n

If n > max Then max = n

If n < min Then min = n

Next

MsgBox "Max: " & max & " Min: " & min

End Sub

4   برنامه ای بنویسید که عدد چها رقمی فاقد صفر را به همراه تعداد کل آنها نمایش دهد.

Private Sub Command16_Click()

Cls

Dim i As Integer, b As Boolean, t As Integer, c As Integer

For i = 10 To 99

b = True

t = i

Do While t > 0 And b

If t Mod 10 = 0 Then b = False

t = t \ 10

Loop

If b Then

c = c + 1

Print i;

If c Mod 20 = 0 Then Print

End If

Next

MsgBox "Total: " & c

End Sub

 

5   برنامه ای بنویسید که یک عدد را خوانده، اول بودن آن را تعیین نماید و پیغام مناسبی چاپ کند.

 

Private Sub Command6_Click()

Cls

Dim i As Integer, n As Integer, t As Boolean

n = InputBox("Enter a num:")

t = True

i = 2

Do While i <= n / 2 And t

If n Mod i = 0 Then t = False

i = i + 1

Loop

If t Then

Print "Prim"

Else: Print "not prim"

End If

End sub

  6برنامه ای بنویسید که یک عدد را گرفته و فاکتوریل آن را محاسبه و چاپ کند.

 

Private Sub Command19_Click()

Dim i As Integer, f&

f = 1

For i = 1 To InputBox("Enter a number to reach its single factorial:")

f = f * i

Next

MsgBox f

End Sub

 

 

   7برنامه ای بنویسید که برای اعداد 1 تا 10 مجموع اعداد از یک تا آن عدد را نمایش دهد.

 

Private Sub Command20_Click()

Cls

Dim i As Integer, j As Integer, s As Integer

For i = 1 To 10

s = 0

For j = 1 To i

s = s + j

Next

Print s;

Next

End Sub

   8 برنامه ای بنویسید که عدد N را خوانده و مجموع ارقام آن را نشان دهد.

 

Private Sub Command21_Click() '25

Dim n As Integer, s As Integer

n = InputBox("Enter the num:")

While n > 0

s = s + n Mod 10

n = n \ 10

Wend

MsgBox s

 

 

 

    9برنامه ای بنویسید که یک عدد صحیح مثبت را خوانده جذر آن را نمایش دهد.

 

Private Sub Command23_Click()

Cls

Dim n As Integer, i As Integer, s As Integer, c As Integer

n = InputBox("Enter a natural number to get its square root (without sqr() function)")

i = 1

While s < n

s = s + i

i = i + 2

c = c + 1

Wend

If s > n Then

Print "Near "; (s / c) - 1

Else: Print "Really "; s / c

End If

'Or use n ^ 0.5 equation

End Sub

 

    10برنامه ای بنویسید که یک عدد حد اقل چهارقمی مثبت را خوانده، مغلوب آن را نمایش دهد.

 

Private Sub Command22_Click()

Cls

Dim n As Integer, i As Integer

n = InputBox("Enter the num:")

While n > 0

i = n Mod 10

Print CStr(i);

n = n \ 10

Wend

End Sub

 

     11برنامه ای بنویسید که 20 جمله اول سری فیبوناچی را نمایش دهد.

 

Private Sub Command24_Click()

Cls

Dim a As Integer, b As Integer, c As Integer, i As Integer

a = 1

For i = 1 To InputBox("Enter number of fibonacci series you want to make", , 20)

c = a + b

Print c

a = b

b = c

Next

End Sub

 

   12برنامه ای بنویسید که دو عدد صحیح از ورودی خوانده و عمل ضرب را بدون استفاده از عملگر ضرب محاسبه و نمایش دهد.

 

Private Sub Command25_Click()

Dim a As Integer, b As Integer, i As Integer, m As Integer

a = InputBox("Enter first num")

b = InputBox("Enter second num")

For i = 1 To b

m = m + a

Next

MsgBox a & " * " & b & " = " & m

End Sub

 

 

 

     13برنامه ای بنویسید که رشته ای را از ورودی دریافت کرده و تعداد حروف بزرگ و کوچک آن را نمایش دهد بصورت مجزا.

 

Private Sub Command1_Click()

Cls

Dim s As String

s = InputBox("")

For i = 1 To Len(s)

Select Case Mid(s, i, 1)

Case "A" To "Z"

u = u + 1

Case "a" To "z"

l = l + 1

End Select

Next

Print "horuf kuchak"; l

Print "horufe bozorg"; u

End Sub

     14برنامه ای بنویسید که رشته ای را از ورودی دریافت کرده و تعیین کند که آیا رشته از هردو طرف که در نظر گرفته شود یکسان است یا خیر؟

 

مثل؟ bacb?    یا    deed

Private Sub Command2_Click()

Cls

Dim t As String

t = InputBox("Enter string")

If StrReverse(t) = t Then

Print "YES"

Else: Print "NO"

End If

End Sub

 

 

   15برنامه ای بنویسید که بدون استفاده از تابع Replace، کار این تابع را شبیه سازی کند.

 

Private Sub Command3_Click()

Cls

Dim s As Integer, f As Integer, r As Integer, p1 As Integer, p2 As Integer, i As Integer

s = InputBox("Enter string")

f = InputBox("Find")

r = InputBox("Replace with")

Do Until InStr(1, s, f) = 0

i = InStr(1, s, f)

p1 = Mid(s, 1, i - 1)

p2 = Mid(s, i + Len(f))

s = p1 + r + p2

Loop

Print s

End Sub

 

   16برنامه ای بنویسید که رشته ای را از ورودی دریافت کند و مجموع ارقام نویسه ای موجود در رشته را محاسبه نماید و نمایش دهد. 
     

Private Sub Command5_Click()

Cls

Dim t As String, i As Integer, s As Integer, p As String

t = InputBox("Enter string")

For i = 1 To Len(t)

p = Mid(t, i, 1)

If IsNumeric(p) Then s = s + p

Next

Print s

End Sub

 

   17برنامه ای بنویسید که حاصل عبارت زیر را تا 10 جمله حساب کند:

 

Private Sub Command1_Click()

Dim i As Integer, a As Single

a = 1

For i = 1 To 9

a = a + i / (i + 1)

Next

Print a

End Sub

 

    18برنمه ای بنویسید که 50 اسم را از ورودی دریافت و تعداد افرادی را ه نامشان mohsen است، نمایش دهد.

 

Private Sub Command1_Click()

For i = 1 To 10

If LCase(InputBox("Enter a name: " & i)) = "mohsen" Then a = a + 1

Next

Print a

End Sub

براي دانلود سوالات اينجا كليك كنيد.

دانلود

 

برای دانلود اینجا کلیک کنید

دانلود