طبقه بندی: آلبوم تصاویر،

تاریخ : چهارشنبه 8 مرداد 1393 | 08:29 ق.ظ | نویسنده : زنگ دانایی | نظرات

این ساندویچ ایتالیایی اسنکی خوشمزه و مناسب برای پس از مدرسه کودکان است. اگر نمی‌خواهید آن را فورا سرو کنید، با فویل بسته بندی کنید و در یخچال بگذارید.

نی نی بان: این ساندویچ ایتالیایی اسنکی خوشمزه و مناسب برای پس از مدرسه کودکان است. اگر نمی‌خواهید آن را فورا سرو کنید، با فویل بسته بندی کنید و در یخچال بگذارید.

 

 

زمان آماده سازی: 10 دقیقه

زمان پخت: 10 دقیقه

 

مواد لازم:

 

·        1 قاشق غذاخوری پوره گوجه فرنگی

·        تعداد کمی ریحان تازه خرد شده

·        1 حبه سیر کوچک خرد شده

·        4 تکه نان تست

·        1 تکه موتزارلا ورقه شده

·        4 برش نازک ژامبون

·        نمک و فلفل سیاه

·        1 عدد تخم مرغ بزرگ زده شده

·        4 قاشق غذاخوری شیر

·        روغن زیتون

·        کره

 

دستورالعمل:

 

1.      پوره گوجه فرنگی و ریحان خرد شده را با هم مخلوط کنید و آن را بر تکه‌های نان بمالید.

 

2.      روی آن موتزارلا و ژامبون را قرار دهید. فقط از هر طرف کمی فضای خالی بگذارید تا هنگام آب شدن بیرون نریزد. کمی نمک و فلفل را نیز به آن اضافه کنید.

 

3.      روی هر تکه را با تکه نان دیگری بپوشانید و فشار دهید.

 

4.      تخم مرغ و شیر را با هم مخلوط کنید و ساندویچ را در آن فرو برید طوری که همه جای آن را بپوشاند.

 

5.      ماهی تابه‌ای بردارید و کمی روغن زیتون و کره به آن اضافه کنید و بگذارید با حرارت متوسط گرم شود. پس از آن که روغن خوب داغ شد، ساندویچ‌ها را در آن سرخ کنید و هنگامی که رنگ آن کمی قهوه‌ای شد، از روی گاز بردارید.

 

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




طبقه بندی: زنگ تفریح،

تاریخ : سه شنبه 7 مرداد 1393 | 07:13 ق.ظ | نویسنده : زنگ دانایی | نظرات
اگر عددی بزرگتر از محدوده ی نوع داده داخل متغیر بریزد...........خطای زمان اجرا صادر می شود........
مانند:
 Dim  a as Byte
a=256

اگر یک مقدار اعشاری را در یک متغیر صحیح بریزید،پیام خطا ظاهر نمی شود بلکه ......عدد اعشاری به یک عدد صحیح گرد شده و نتیجه در متغیر صحیح قرار می گیرد..........

مانند:
Dim a as single
Dim b as integer
b=3.5:print b-->4
b= 2.5:print b-->2
a=3.5:print a-->3.5
a=2.5:print a-->2.5



اگر یک مقدار اعشار در یک متغیر صحیح ریخته شود،....ابتدا گرد می شود...........





طبقه بندی: پاسخ آزمونها،

تاریخ : یکشنبه 5 مرداد 1393 | 07:16 ق.ظ | نویسنده : زنگ دانایی | نظرات
نوار عنوان کوتاه تر شده و قلم نوار عنوان و دکمه close  کوچک تر می شود.

پاسخ:

مشخصه   Border Style    از  فرم

مقدار 4-Fixed  Tool  Window




طبقه بندی: پاسخ آزمونها،

تاریخ : یکشنبه 5 مرداد 1393 | 07:15 ق.ظ | نویسنده : زنگ دانایی | نظرات
نتیجه  چیست؟


ALi<32
ALI  یک متغیر Variant با مقدارEmpty  است وEmpty  در محل محاسبه صفر است. پاسخ   ،True  است.

""ALI"<"32

هر دو رشته بوده و کاراکتر به کاراکتر بررسی می شوند.پاسخ False است.رقم ها کوچکتر از حروف هستند.


ALI"<32

رشته را نمی توان با عدد مقایسه کرد.
پاسخ:Runtime Error:Type Mismatch
خطای زمان اجرا:عدم تطبیق نوع





طبقه بندی: پاسخ آزمونها،

تاریخ : شنبه 4 مرداد 1393 | 07:30 ب.ظ | نویسنده : زنگ دانایی | نظرات
متغیرهای منطقی در هنگام تعریف به طور خودکار ،مقدار.....False..و متغیرهای varriaant ،مقدار.......Empty...می گیرند.

در زمان تعریف ثابت ها، می توان به جای ..مقدار.........از عبارت استفاده کرد .منتها  مقدار یا عبارت  نباید به صورت مجهول باشد..

مثال:Const  ali=5-x



طبقه بندی: پاسخ آزمونها،

تاریخ : شنبه 4 مرداد 1393 | 06:54 ب.ظ | نویسنده : زنگ دانایی | نظرات
نوع داده Varriant  می تواند هر مقداری به جز رشته های ....با طول ثابت...........را در خود جای دهد.

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



طبقه بندی: پاسخ آزمونها،

تاریخ : شنبه 4 مرداد 1393 | 07:14 ق.ظ | نویسنده : زنگ دانایی | نظرات

با سلام و تقدیم احترام
ضمن آرزوی قبولی طاعات و عبادات شما عزیزان،و یادآوری روز جمعه 24 مرداد 93 -زمان کنکور کاردانی پیوسته-

توجه هنرآموزان و هنرجویان عزیز را به نمونه سوالات کنکوری و طبقه بندی شده براساس فصلهای کتاب درسی جلب

می نماییم.


این سوالات در پستهای جداگانه وبلاگ گروه‌ آموزشی كامپیوتر فنی‌وحرفه‌ای شهر تهران بارگذاری شده است.


سوالات کنکور و مسابقات علمی

سوالات تستی درس مبانی رایانه

سوالات تستی درس برنامه سازی1

سوالات تستی درس برنامه سازی2

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

سوالات تستی درس سخت افزار



گروه‌ آموزشی كامپیوتر فنی‌وحرفه‌ای شهر تهران




طبقه بندی: برنامه سازی 2، مبانی رایانه، آزمون برنامه سازی 1، برنامه سازی 1، اطلاعیه، آزمون مبانی،

تاریخ : جمعه 3 مرداد 1393 | 02:43 ب.ظ | نویسنده : زنگ دانایی | نظرات
1-حلقه یک بار اجرا شود.

For    k=20        to  

پاسخ 20 است.یعنی باید مقدار پایانی با مقدار اولیه برابر باشد تا حلقه یک بار اجرا شود.

2-حلقه اجرا نشود.

For       L=5    to   ……….  Step  -2

گام حلقه منفی است ،پس باید مقدار پایانی کمتر از 5 باشد(مقدار اولیه)،

برای اینکه حلقه اجرا نشود باید یک مقدار بزرگتر از 5 در نظر بگیریم.مثلا 10





طبقه بندی: پاسخ آزمونها،

تاریخ : جمعه 3 مرداد 1393 | 11:24 ق.ظ | نویسنده : زنگ دانایی | نظرات

1- جهت نگهداری  متن از کدام نوع داده استفاده می شود؟String


2-کدام گزینه یک متغیر دو بایتی است؟

test&                                                               test#

test @                                                      test%




طبقه بندی: پاسخ آزمونها،

تاریخ : جمعه 3 مرداد 1393 | 02:22 ق.ظ | نویسنده : زنگ دانایی | نظرات

حلقه چند بار اجرا می شود؟


Do while  true


loop

حلقه همیشه درست بی نهایت اجرا می شود.یک حلقه تکرار دائم است.




طبقه بندی: پاسخ آزمونها،

تاریخ : پنجشنبه 2 مرداد 1393 | 11:47 ق.ظ | نویسنده : زنگ دانایی | نظرات

خروجی چیست؟


For   i=10   to   5  step- 5

Print "*";

Next i

این حلقه 2 بار اجرا می شود ودر هر بار یک * چاپ می کند.یعنی جواب ** است.




طبقه بندی: پاسخ آزمونها،

تاریخ : پنجشنبه 2 مرداد 1393 | 11:38 ق.ظ | نویسنده : زنگ دانایی | نظرات
خروجی چیست؟



Select     Case     5>4                       

                     Case true 

                           Label.caption="false"

                    Case else

                          Label.caption="true"

         End select  
چون 5 بزرگتر از 4 است ،پس True است.حالت درست اجرا می شود.یعنی عنوان برچسب را برابر  False قرار می دهد.



طبقه بندی: پاسخ آزمونها،

تاریخ : پنجشنبه 2 مرداد 1393 | 11:32 ق.ظ | نویسنده : زنگ دانایی | نظرات

خروجی چیست؟


A%=12.75

Print A%

پاسخ:13:مقدار عدد صحیح در نظر می گیرد البته عدد را گرد می کند.



g=cstr(3)

 3


c=val(12/30)

:فقط تا جائیکه کاراکتر عددی است حساب می کند و رشته را به عدد تبدیل می کند.12


f=lcase("ASDF")
:به حروف کوچک تبدیل می کندasdf



If  -1>3  then   print  “A” else  print “AA”
جواب شرط نادرست است پس else  اجرا می شود یعنی AA



طبقه بندی: پاسخ آزمونها،

تاریخ : پنجشنبه 2 مرداد 1393 | 08:39 ق.ظ | نویسنده : زنگ دانایی | نظرات

خروجی دستور زیر چیست؟

Dim x   As Boolean

X=-12:print x

هر عددی غیر از صفر معادل True است برای متغیر منطقی.پس پاسخ True  است.



طبقه بندی: پاسخ آزمونها،

تاریخ : چهارشنبه 1 مرداد 1393 | 05:37 ق.ظ | نویسنده : زنگ دانایی | نظرات

 خروجی چیست؟

A=3

Do until  a<>3

A=a*2

loop

می دانیم باید شرط در ابتدا غلط باشد تا حلقه until اجرا شود پس a<>3 نیست وارد می شود مقدار a=6 می شود.و چون شرط درست می شود یعنی 6 مخالف 3 است از حلقه خارج می گردد.پس جواب 6 است.



طبقه بندی: پاسخ آزمونها،

تاریخ : چهارشنبه 1 مرداد 1393 | 05:32 ق.ظ | نویسنده : زنگ دانایی | نظرات

Dim lngtime  As Long
Dim i As Integer
Dim j As Integer

Private Sub cmdstart_Click()
  '  Timer1.Enabled = True
End Sub

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
       imgplane.Move X - (imgplane.Width) / 2, Y - (imgplane.Height) / 2
      
End Sub

Private Sub Form_Load()
    imgplane.Left = 5520
    imgplane.Top = 0
    imgplane.DragMode = 1 - automatic
    j = 0
End Sub

Private Sub imgb1_DragOver(Index As Integer, Source As Control, X As Single, Y As Single, State As Integer)
     Select Case Index
            Case 0
                  If State = 0 Or State = 1 Or State = 2 Then j = j + 1
            Case 1
                  If State = 0 Or State = 1 Or State = 2 Then j = j + 1
            Case 2
                  If State = 0 Or State = 1 Or State = 2 Then j = j + 1
            Case 3
                  If State = 0 Or State = 1 Or State = 2 Then j = j + 1
            Case 4
                  If State = 0 Or State = 1 Or State = 2 Then j = j + 1
            Case 5
                  If State = 0 Or State = 1 Or State = 2 Then j = j + 1
            Case 6
                  If State = 0 Or State = 1 Or State = 2 Then j = j + 1
            Case 7
                  If State = 0 Or State = 1 Or State = 2 Then j = j + 1
     End Select
End Sub

Private Sub Timer1_Timer()
  lngtime = lngtime + 1
 

  If imgplane.Left <= 240 Then
      Timer1.Enabled = False
      MsgBox "you win!" + "your time is:" + Str(lngtime) + "second.", vbCritical, "the End"
  End If
  If j <> 0 Then Timer1.Enabled = False: MsgBox "Game over!!!"
End Sub




طبقه بندی: برنامه سازی 2، آموزشی،

تاریخ : چهارشنبه 1 مرداد 1393 | 12:17 ق.ظ | نویسنده : زنگ دانایی | نظرات


ابزار لازم:
همان ابزار های ماشین حساب قبلی بعلاوه لیست باكس.
نامگذاری:
l1,l2,t1,t2,c1,ls1
كد نویسی:


Dim sum As Long' be jaaye integer
Dim j As Long
Private Sub Form_Load()
Form1.Caption = "SIMPLE CALCULATOR"
c1.Caption = "Add"
l1.Caption = "write numbers"
l2.Caption = "SUM="
t1.Text = 0
t2.Text = 0
t1.MaxLength = 9 ' be jaaye 4
t2.Enabled = False
End Sub

Private Sub c1_Click()
j = sum
sum = sum + t1.Text
t2.Text = sum
ls1.AddItem (j & "+" & t1.Text & vbtab & "sum=" & sum)
t1.Text = ""
End Sub

خطوط آبی رنگ جدید اضافه شده.

متغیر ((لانگ)) پذیرش بیشتری دارد . در قسمتی كه با رنگ قرمز مشخص شده ، می بینید كه به جای 4 توانسته ایم اجازه دهیم ورودی عددی 9 رقمی باشد.
همچنین به شیوه توضیح نویسی كه با رنگ سبز مشخص شده ، توجه كنید. این توضیحات اجرا نمی شود. توضیحات برای خوانایی برنامه لازم است.



تاریخ : سه شنبه 31 تیر 1393 | 04:44 ب.ظ | نویسنده : زنگ دانایی | نظرات



طبقه بندی: آلبوم تصاویر،

تاریخ : شنبه 28 تیر 1393 | 05:59 ب.ظ | نویسنده : زنگ دانایی | نظرات
تاریخ : جمعه 27 تیر 1393 | 05:28 ب.ظ | نویسنده : زنگ دانایی | نظرات

تعداد کل صفحات : 72 :: 1 2 3 4 5 6 7 ...

  • | |