Saturday, April 12, 2014

( if there is any) الى أذكياء الصف الاول/ ميكاترونك !!!

Samples of easy Numerical (Computer System) Questions  With Solution:
http://www.4shared.com/office/Yi2kitNRce/Numerical_Questions.htmlClick Here to Download the page!

Tuesday, April 08, 2014

MATLAB 2nd. semester Exam Questions(One for 2nd. Mechatronics and other for Ref. A/C Dept.s ! أسئلة امتحان الفصل الثاني 2013-2014

Click the Links for Matlab Exam. Questions Copy!








2nd. grade Mechatronics
2nd. grade Ref. & A/C 
http://www.4shared.com/office/wUFkbGX5ce/Mechat2-S2-2013-2014Answers.htmlClick to download Answers (Mechatronics Only)!

Saturday, April 05, 2014

Mini VB6 Project!

مشروع مصغر: برنامج فيجوال بيسك 6 لرسم مخططات بيانية مع استخدام ازرار أوامر غير تقليدية (الازرار تُهيأ مسبقاً باحد برامج الرسم)ـ هناك ايضاً صورة خفية تظهر بعد الضغط على مفتاح عرض الصورة... (مثال للاطلاع و الاستفادة فقط)!ـ 
Mini VB6 Project: This program Plots Graph chart, it also uses unconventional  Graphical Command Buttons (Prepared in a graphical software or even in a Microsoft Office App.) such as (Show Chart) button!














There is also a Hidden image that will appear after Clicking       (Show image) button, Reset and Exit Buttons (4Command Buttons).
Program Code:
'===================================================
'= Plotting 2 Functions by Option with start and end x values=
'= Graphical Buttons are used to give a stunt looking design!=
'= (Notice also that Form's BorderStyle used is No.4              =
'===================================================

Private Sub Command1_Click()
s = Val(Text1.Text)
e = Val(Text2.Text)

If Option1.Value = True Then
For X = s To e Step 0.001
Y = Sin(3 * X)
PSet (2500 + (X * 400), 1200 - (Y * 500)), vbBlue ' Curve Plotting by Point Set statement
Next X
End If

If Option2.Value = True Then
For X = s To e Step 0.001
Y = Exp(-X ^ 2)
PSet (2500 + (X * 400), 1200 - (Y * 500)), vbRed ' Curve Plotting by Point Set statement
Next X
End If

End Sub

Private Sub Command2_Click()
Cls
Text1.Text = ""
Text2.Text = ""
Option1.Value = False
Option2.Value = False
Image1.Visible = False

End Sub

Private Sub Command3_Click()
Image1.Visible = True
Beep
End Sub

Private Sub Command4_Click()
End
End Sub

Friday, April 04, 2014

VB6 Example for Temperature degrees conversion!

Example: Write VB6 program Code to Convert Temperature Degrees from Celsius to Fahrenheit and vice verse using the following design. Notice that the conversion formulas are represented as an Image that will be visible only when conversion command buttons are being clicked, also a Reset button is used to reset values and make image invisible again?













Solution:
Private Sub Command1_Click()
C = Val(Text1.Text)
F = C * (9 / 5) + 32
Label2.Caption = F
Image1.Visible = True
End Sub

Private Sub Command2_Click()
F = Val(Text1.Text)
C = (F - 32) * (5 / 9)
Label3.Caption = C
Image1.Visible = True
End Sub

Private Sub Command3_Click()
Text1.Text = ""
Label2.Caption = ""
Label3.Caption = ""
Image1.Visible = False
End Sub