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