الى السيد GI_manager و بقيت الأعضاء

zakaria_GI3 كتب:

السلام عليكم و رحمة الله تعالى و بركته .

لقد احببت ان اطلعكم على ما تعلمته المساء البارحة , ولقد طورة فكرة بعض شيئ بحيث أنجزت تطبيق الة حاسبة بسطة بالغة vb .
و هذا كود vb:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
If RadioButton1.Checked = True Then
Label3.Text = Single.Parse(TextBox1.Text) Single.Parse(TextBox2.Text)
ElseIf RadioButton2.Checked = True Then
Label3.Text = Single.Parse(TextBox1.Text) - Single.Parse(TextBox2.Text)
ElseIf RadioButton3.Checked = True Then
Label3.Text = Single.Parse(TextBox1.Text) * Single.Parse(TextBox2.Text)
ElseIf RadioButton4.Checked = True Then
Label3.Text = Single.Parse(TextBox1.Text) / Single.Parse(TextBox2.Text)
End If
Catch
MsgBox("SVP ENTRE UN NOMBER ^_^")
TextBox1.Clear()
TextBox2.Clear()
TextBox1.Focus()
End Try
End Sub

Private Sub QUIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QUIT.Click
TextBox1.Text = ""
TextBox2.Text = ""
Label3.Text = ""
End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Label5.Text = " "
End Sub

Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
Label5.Text = "/"
End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
Label5.Text = "x"
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
Label5.Text = "-"
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()

End Sub
End Class

هذه بعض صور.






المرجوا أن تلقى استحسانكم , كما أرجوا بعض ملاحظات من أجل هذا



وشكرا جزيلا

issam_GI19 كتب:c po mal continue comme ca!! et je suis sure que tu sera encore meilleur en programmation

zakaria_GI3 كتب:السلام عليكم و رحمة الله تعالى و بركته
لقد أحببت أن أطور شيئ ما في موضعي السابق بحيث أعتمدت على vb6 كما نصحتني الأخت سماح
لكنني مازلت في بداية الطريق و هناك الكثير لأكتشفه و أتعلمه .
ومن هنا ألتمس من سادتكم كل توجيهات و ملاحظات بصدد هذا الموضوع , مع علم أنه يلزمه الكثير و كثير و به كذالك العيوب مثلا في حساب الدوال(Cos-Sin-Tan).
هذه صورة لي واجهة


و هذا كود سورس


Dim OP As String
Dim N1 As Integer
Dim N2 As Integer

Private Sub Com0_Click()
Text.Text = Text.Text & "0"
End Sub

Private Sub Com1_Click()
Text.Text = Text.Text & "1"
End Sub

Private Sub Com10_Click()
Text.Text = Text.Text & "."
End Sub

Private Sub Com2_Click()
Text.Text = Text.Text & "2"
End Sub

Private Sub Com3_Click()
Text.Text = Text.Text & "3"
End Sub

Private Sub Com4_Click()
Text.Text = Text.Text & "4"
End Sub

Private Sub Com5_Click()
Text.Text = Text.Text & "5"
End Sub

Private Sub Com6_Click()
Text.Text = Text.Text & "6"
End Sub

Private Sub Com7_Click()
Text.Text = Text.Text & "7"
End Sub

Private Sub Com8_Click()
Text.Text = Text.Text & "8"
End Sub

Private Sub Com9_Click()
Text.Text = Text.Text & "9"
End Sub

Private Sub Comd1_Click()
Text.Text = (Text.Text) ^ 2
End Sub

Private Sub Comd2_Click()
Text.Text = Cos(Text.Text)
End Sub

Private Sub Comd3_Click()
Text.Text = Sin(Text.Text)
End Sub

Private Sub Command1_Click()
N1 = Text.Text
Text.Text = ""
OP = "+"
Command5.Visible = True
Command1.Visible = False
End Sub

Private Sub Command16_Click()
Text.Text = Tan(Text.Text)
End Sub

Private Sub Command2_Click()
N1 = Text.Text
Text.Text = ""
OP = "-"
Command8.Visible = True
Command2.Visible = False
End Sub

Private Sub Command3_Click()
N1 = Text.Text
Text.Text = ""
OP = "*"
Command6.Visible = True
Command3.Visible = False
End Sub

Private Sub Command4_Click()
N1 = Text.Text
Text.Text = ""
OP = "/"
Command7.Visible = True
Command4.Visible = False
End Sub

Private Sub Command5_Click()
N2 = Text.Text
If OP = "+" Then
Text.Text = N1 + N2
ElseIf OP = "-" Then
Text.Text = N1 + N2
ElseIf OP = "*" Then
Text.Text = N1 * N2
ElseIf OP = "/" Then
Text.Text = N1 / N2
End If
Command1.Visible = True
Command5.Visible = False
End Sub

Private Sub Command6_Click()
N2 = Text.Text
If OP = "+" Then
Text.Text = N1 + N2
ElseIf OP = "-" Then
Text.Text = N1 + N2
ElseIf OP = "*" Then
Text.Text = N1 * N2
ElseIf OP = "/" Then
Text.Text = N1 / N2
End If
Command3.Visible = True
Command6.Visible = False
End Sub

Private Sub Command7_Click()
N2 = Text.Text
If OP = "+" Then
Text.Text = N1 + N2
ElseIf OP = "-" Then
Text.Text = N1 + N2
ElseIf OP = "*" Then
Text.Text = N1 * N2
ElseIf OP = "/" Then
Text.Text = N1 / N2
End If
Command4.Visible = True
Command7.Visible = False
End Sub

Private Sub Command8_Click()
N2 = Text.Text
If OP = "+" Then
Text.Text = N1 + N2
ElseIf OP = "-" Then
Text.Text = N1 + N2
ElseIf OP = "*" Then
Text.Text = N1 * N2
ElseIf OP = "/" Then
Text.Text = N1 / N2
End If
Command2.Visible = True
Command8.Visible = False
End Sub

Private Sub CommandAC_Click()
Text.Text = ""
End Sub

Private Sub CommandOFF_Click()
End
End Sub

Private Sub CommandX_Click()
N2 = Text.Text
If OP = "+" Then
Text.Text = N1 + N2
ElseIf OP = "-" Then
Text.Text = N1 + N2
ElseIf OP = "*" Then
Text.Text = N1 * N2
ElseIf OP = "/" Then
Text.Text = N1 / N2
End If
End Sub

أتمنى أن تنال اعجابكم كما أرجوا انتقاداتكم و توجهاتكم .
و شكرا جزيلا.