‫‪ 

‬‬
‫‪ ‬‬
‫‪ ‬‬
‫‪ ‬‬
‫‪ ‬‬
‫‪ ‬‬
‫‪ ‬‬
‫‪ ‬‬
‫‪ ‬‬
‫‪ ‬‬

‫ﺍﻟﺒـﺮﳎﺔ ﺑﻔﻴﺠﻮﻝ ﺑﻴﺴﻚ ﺩﻭﺕ ﻧﺖ‬

‫ﺗﻄﺒﻴﻘﺎﺕ ﻓﻘﻂ‬
 ‫ﳌﻦ ﻫﺬﺍ ﺍﻟﻜﺘﺎﺏ‬

‫ﳛﺘﻮ ﻱ ﻫﺬﺍ ﺍﻟﻜﺘﺎﺏ ﻋﻠﻰ ﺗﻄﺒﻴﻘﺎﺕ ﻓﻘﻂ ﺣﻴﺚ ﺃﻧﲏ ﻻ ﺣﻈﺖ ﺃﺛﻨﺎﺀ ﺗﻌﻠﻤﻲ ﻟﻔﻴﺠﻮﻝ ﺩﻭﺕ ﻧﺖ ﻣﻦ ﺍﻹﻧﺘﺮﻧﺖ ﻧﻘﺺ ﺍﻟﱪﺍﻣﺞ‬
‫ﺍﻟﺘﻄﺒﻴﻘﻴﺔ ﻣﻊ ﺗﻮﺍﻓﺮﻛﻢ ﻫﺎﺋﻞ ﻣﻦ ﺍﻟﻜﺘﺐ ﺍﻟﱵ ﺗﺸﺮﺡ ﺍﳌﻮﺿﻮﻉ ﺑﺸﻜﻞ ﻧﻈﺮﻱ ﻭﻟﺬﻟﻚ ﺍﻫﺘﻤﻤﺖ ﺃﻥ ﺃﺿﻊ ﺑﲔ ﻳﺪﻳﻚ ﺃﺧﻲ ﺍﳌﺘﻌﻠﻢ‬
‫ﻫﺬﻩ ﺍﻟﱪﺍﻣﺞ ﺍﻟﱵ ﺃﺳﺘﺨﺪﻣﻬﺎ ﰲ ﳎﺎﻝ ﻋﻤﻠﻲ ﻭﻫﻮ ﺍﻟﺘﺪﺭﻳﺲ ﻛﺘﻄﺒﻴﻖ ﻋﻠﻰ ﺍﺳﺘﺨﺪﺍﻡ ﺃﺩﻭﺍﺕ ﺍﻟﻠﻐﺔ ﻭﻟﺬﻟﻚ ﺃﻧﺖ ﲢﺘﺎﺝ ﻫﺬﺍ‬
‫ﺍﻟﻜﺘﺎﺏ ﺑﻌﺪ ﺃﻥ ﺗﻜﻮﻥ ﻗﺪ ﻗﺮﺃﺕ ﻫﺬﻩ ﺍﻟﻜﺘﺐ ﻭﻫﻲ ﻛﺜﲑﺓ ﺑﻔﻀﻞ ﺍﷲ ﻭﻣﻮﺟﻮﺩﻩ ﻋﻠﻰ ﻣﻮﺍﻗﻊ ﻛﺜﲑﺓ ﰒ ﺗﺴﺘﺨﺪﻡ ﻛﺘﺎﰊ ﻫﺬﺍ‬
‫ﻟﻠﺘﻄﺒﻴﻖ ﻓﺴﺘﺠﺪ ﺃﻧﲏ ﻭﺿﻌﺖ ﻭﺍﺟﻬﺔ ﺍﻟﱪﻧﺎﻣﺞ ﻭﺍﻟﻜﻮﺩ ﲜﻮﺍﺭﻫﺎ ﻭﻣﺎ ﻋﻠﻴﻚ ﺇﻻ ﺭﺳﻢ ﺍﻟﻮﺍﺟﻬﺔ ﰒ ﻛﺘﺎﺏ ﺍﻟﻜﻮﺩ ‪.‬‬

‫ﺃﻳﻀﺎ ﻳﺘﻀﻤﻦ ﻫﺬﺍ ﺍﻟﻜﺘﺎﺏ ﺷﺮﺡ ﳋﻄﻮﺍﺕ ﺭﺑﻂ ﻗﻮﺍﻋﺪ ﺍﻟﺒﻴﺎﻧﺎﺕ ﺑﺎﻷﻣﺜﻠﺔ‪.‬‬

‫ﺃﻳﻀﺎ ﺃﻧﺎ ﻻ ﺃﺩﻋﻲ ﺗﺄﻟﻴﻔﹰﺎ ﳍﺬﻩ ﺍﻟﱪﺍﻣﺞ ﻓﻠﻘﺪ ﺗﻌﻠﻤﺖ ﻣﻦ ﻛﻞ ﺍﻟﻜﺘﺐ ﺍﻟﱵ ﻗﺮﺃﻬﺗﺎ ﻭﻫﻲ ﳎﺎﻧﻴﺔ ﻭﻣﺘﻮﻓﺮﺓ ﻋﻠﻰ ﺍﻹﻧﺘﺮﻧﺖ‪.‬‬

‫ﻭﻫﺬﺍ ﺍﻟﻜﺘﺎﺏ ﳎﺎﱐ ﳉﻤﻴﻊ ﺍﳌﺴﻠﻤﲔ ﺑﺸﺮﻁ ﺃﻥ ﺗﺪﻋﻮ ﱄ ﺍﻥ ﳛﺴﻦ ﺍﷲ ﺧﺎﲤﱵ ‪ "،‬ﺍﻟﻠﻬﻢ ﺃﺣﺴﻦ ﺧﺎﲤﺔ ﺃﺑﻮ ﻣﻬﺎﺏ "‬

‫"ﻭﺍﺗﻘﻮ ﺍﷲ ﻭﻳﻌﻠﻤﻜﻢ ﺍﷲ "‬

‫ﻭﺍﻟﺴﻼﻡ ﻋﻠﻴﻜﻢ‬

‫ﻭﺍﻟﺴﻼﻡ ﻋﻠﻴﻜﻢ ﻭﺭﲪﺔ ﺍﷲ ﻭﺑﺮﻛﺎﺗﻪ‬

‫‪[email protected]‬‬
‫ﺃﺑﻮ ﻣﻬﺎﺏ‬

‫‪-٢-‬‬
 ‫ﲤﺮﻳﻦ ﻋﻠﻰ ﺍﻟﺜﻮﺍﺑﺖ ﻭﺍﳌﺘﻐﲑﺍﺕ‬

  input box ‫ﻭﻫﺬﺍ ﺍﻟﱪﻧﺎﻣﺞ ﻳﺴﺘﻘﺒﻞ ﻧﺼﻒ ﻗﻄﺮ ﺍﻟﺪﺍﺋﺮﺓ ﻣﻦ ﺧﻼﻝ‬:‫ﺑﺮﻧﺎﻣﺞ ﳊﺴﺎﺏ ﳏﻴﻂ ﻭﻣﺴﺎﺣﺔ ﺍﻟﺪﺍﺋﺮﺓ‬.١
٢
‫ﺍﳌﺴﺎﺣﺔ=ﻁ ﻧﻖ‬ ‫ﻁ ﻧﻖ‬٢= ‫ﺍﶈﻴﻂ‬
 
Public Class Form١
Inherits System.Windows.Forms.Form
Dim radius As Integer
Const pi As Double = ٢٢ / ٧
#Region “Windows Form Designer generated code "
Private Sub Form١_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
radius = InputBox("‫)"اﻟﺪاﺋﺮة ﻗﻄﺮ ﻧﺼﻒ أدﺧﻞ ﻓﻀﻠﻚ ﻣﻦ‬
End Sub
Private Sub Button١_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Button١.Click
Dim mesaha As Single
mesaha = pi * radius ^ ٢
TextBox١.Text = mesaha
End Sub
Private Sub Button٢_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Button٢.Click
Dim moheet As Single
moheet = ٢ * pi * radius
TextBox١.Text = moheet
End Sub
 
End Class

‫ﺑﺮﻧﺎﻣﺞ ﺍﻵﻟﺔ ﺍﳊﺎﺳﺒﺔ ﺍﻟﺒﺴﻴﻄﺔ‬.٢

Private Sub Button١_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button١.Click
Dim x, y, z As Single
x = Val(TextBox١.Text)
y = Val(TextBox٢.Text)
If RadioButton١.Enabled = True Then
z = x + y
End If
If RadioButton٢.Checked = True Then
z = x - y
End If
If RadioButton٣.Checked = True Then
z = x * y
End If
If RadioButton٤.Checked = True Then
z = x / y
End If
TextBox١.Text = Str(x)
TextBox٢.Text = Str(y)
TextBox٣.Text = Str(z)
End Sub
Private Sub Form١_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
End Sub
Private Sub Button٢_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Button٢.Click
TextBox١.Text = ""
TextBox٢.Text = ""
TextBox٣.Text = ""
End Sub
End Class

-٣-
 ‫ﻋﻨﺎﺻﺮ ﺍﻟﺘﺤﻜﻢ ﻭﲤﺎﺭﻳﻦ ﻋﻠﻴﻬﺎ‬
:Text  Editor ‫ﺑﺮﻧﺎﻣﺞ ﳏﺮﺭ ﺍﻟﻨﺼﻮﺹ ﺍﻟﺒﺴﻴﻂ‬
:‫ﻭﻫﺬﺍ ﺍﻟﱪﻧﺎﻣﺞ ﺑﻪ ﻋﺪﺩ ﻋﻨﺎﺻﺮ ﺍﻟﺘﺤﻜﻢ ﺍﻟﺘﺎﻟﻴﺔ‬
   :‫ ﻭﻳﺴﻤﺢ ﻫﺬﺍ ﺍﻟﻌﻨﺼﺮ ﺑﺈﺧﺘﻴﺎﺭ ﻭﺍﺣﺪ ﺃﻭ ﻋﺪﺓ ﺍﺧﺘﻴﺎﺭﺍﺕ ﻭﻣﻦ ﺧﺼﺎﺋﺼﻪ‬Check box  .I
  :‫ﻭﻫﻲ ﳍﺎ ﺛﻼﺙ ﺣﺎﻻﺕ‬Check state 
‫ ﻣﺮﺑﻊ ﺧﺎﻝ‬unchecked / ; ‫‐ ﻣﺮﺑﻊ ﺑﻪ ﻋﻼﻣﺔ‬Checked 
‫ﺗﻈﻬﺮ ﻋﻼﻣﺔ ; ﺑﺎﻟﻠﻮﻥ ﺍﻟﺮﻣﺎﺩﻱ ﻭﻫﻲ ﺗﻜﻮﻥ ﻣﻌﺘﻤﺪﻩ ﻋﻠﻰ ﺧﻴﺎﺭﺍﺕ ﺃﺧﺮﻱ‬Indeterminate 
: ‫ﻭﳝﻜﻦ ﺿﺒﻂ ﺧﺼﺎﺋﺼﻪ ﺃﺛﻨﺎﺀ ﺍﻟﻜﻮﺩ ﻛﻤﺎ ﻳﻠﻲ‬
  unchecked        Textbox١.checkstate=٠
  Checked       Textbox١.checkstate=١ 
  Indeterminate      Textbox١.checkstate=٢
  Textbox١.checkstate=checkstate.unckecked  ‫ﺃﻭ‬
‫ ﺃﻭ‬Textbox١.checkstate= true 
  ‫ﺗﻀﺎف ﻋﻠﻰ اﻟﺤﺪث ﻟﻌﺪم ﺗﻜﺮار اﻟﻜﻮد ﻟﻠﻤﺮﺑﻊ اﻵﺧﺮ‬
Private Sub CheckBox١_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles CheckBox١.CheckedChanged, CheckBox٢.CheckedChanged
If CheckBox١.Checked = True And CheckBox٢.Checked = False Then
Label١.Font = New System.Drawing.Font(Label١.Font, FontStyle.Bold)
ElseIf CheckBox١.Checked = True And CheckBox٢.Checked = True Then
Label١.Font = New System.Drawing.Font(Label١.Font, FontStyle.Bold Or
FontStyle.Italic)
ElseIf CheckBox١.Checked = False And CheckBox٢.Checked = True Then
Label١.Font = New System.Drawing.Font(Label١.Font, FontStyle.Italic)
Else
Label١.Font = New System.Drawing.Font(Label١.Font, FontStyle.Regular)
End If
End Sub 

  :‫ ﻭﻳﺴﻤﺢ ﻫﺬﺍ ﺍﻟﻌﻨﺼﺮ ﺑﺈﺧﺘﻴﺎﺭ ﻭﺍﺣﺪ ﻓﻘﻂ‬Radio button  .II

‫ﻤﻮﻋﺔ‬‫ ﻭ ﻫﻲ ﺗﺘﻢ ﻟﻌﻨﺼﺮ ﻭﺍﺣﺪ ﻓﻘﻂ ﰲ ﺍ‬checked    ‫ﻭﳍﺎ ﺧﺼﺎﺋﺺ ﺃﳘﻬﺎ‬
Radiobutton١.checked=true or Radiobutton١.checked=false  
Private Sub RadioButton١_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton١.CheckedChanged
Label١.ForeColor = Color.Red
End Sub
Private Sub RadioButton٢_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton٢.CheckedChanged
Label١.ForeColor = Color.Blue
End Sub
Private Sub RadioButton٣_CheckedChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles RadioButton٣.CheckedChanged
Label١.ForeColor = Color.Green
End Sub

-٤-
 ‫‪Combo box .III‬‬
‫ﺑﺮﻧﺎﻣﺞ ﺍﻹﺧﺘﻴﺎﺭﺍﺕ‬
‫‪Private Sub Button١_Click(ByVal sender As System.Object, ByVal e As‬‬
‫‪System.EventArgs) Handles Button١.Click‬‬
‫‪Dim language As String‬‬
‫‪language = ComboBox١.Text‬‬
‫‪If language = "Visual Basic" Then‬‬
‫)"‪MsgBox("excellent‬‬
‫‪Else‬‬
‫)"‪MsgBox("good‬‬
‫‪End If‬‬
‫‪End Sub‬‬
‫)‪Private Sub Form١_Load(ByVal sender As System.Object, ByVal e As System.EventArgs‬‬
‫‪Handles MyBase.Load‬‬
‫‪ComboBox١.SelectedIndex = ٢‬‬
‫‪End Sub‬‬
‫‪End Class ‬‬

‫‪Menus‬‬ ‫‪:Main menu .IV‬ﻹﻧﺸﺎء اﻟﻘﻮاﺋﻢ‬

‫ﺃﻭ ﹰﻻ ﺇﻧﺸﺎﺀ ﺍﻟﻘﻮﺍﺋﻢ‪*:‬‬
‫ﺍﳋﻄﻮﺍﺕ‪ :‬‬
‫‪.١‬ﻣﻦ ﺻﻨﺪﻭﻕ ﺍﻷﺩﻭﺍﺕ ﺍﺿﻐﻂ ﻣﺮﺗﲔ ﻋﻠﻰ ﺍﻟﻌﻨﺼﺮ ‪  Main menu ‬‬
‫‪.٢‬ﻳﻈﻬﺮ ﻣﺮﺑﻊ ﺧﺎﻓﺖ ‪type here ‬ﺍﻛﺘﺐ ﻓﻴﻪ ﺃﻭﺍﻣﺮ ﺍﻟﻘﺎﺋﻤﻪ ﺍﻟﺮﺋﻴﺴﺔ ﻭﺍﻟﻔﺮﻋﻴﺔ‬
‫‪.٣‬ﺭﲟﺎ ﻻ ﺗﻈﻬﺮ ﺍﻟﻘﺎﺋﻤﺔ ﰲ ﻭﺿﻊ ﺍﻟﺘﺸﻐﻴﻞ ﻭﻟﺬﻟﻚ ﻏﲑ ﺍﳋﺎﺻﻴﺔ ‪modifier  ‬ﻟﻠﻌﻨﺼﺮ‪ main menu١‬ﺇﱃ ‪public ‬‬

‫‪.٤‬ﺗﺴﺘﺨﺪﻡ ﺍﻷﻳﻘﻮﻧﺎﺕ ﺍﳌﻮﺿﺤﺔ ﻟﻔﺘﺢ ﻣﺮﺑﻌﺎﺕ ﺍﳊﻮﺍﺭ ﺍﻟﺸﺎﺋﻌﺔ ﺍﻹﺳﺘﺨﺪﺍﻡ ‪  :‬‬

‫)(‪ColorDialog١.ShowDialog‬‬

‫)(‪FontDialog١.ShowDialog‬‬

‫)(‪ColorDialog١.ShowDialog‬‬

‫ﻣﺜﺎﻝ‪:‬ﻋﻤﻞ ﳏﺮﺭ ‪  Editor‬‬

‫‪.١ ‬ﻗﺪ ﲢﺘﺎﺝ ﺇﱃ ﺗﻐﻴﲑ ﺍﻹﺳﻢ ﺍﻟﱪﳎﻲ ﻟﻜﻞ ﻋﻨﺼﺮ ﻣﻦ ﻋﻨﺎﺻﺮ ﺍﻟﻘﺎﺋﻤﺔ ﻭﺫﻟﻚ ﺑﺎﻟﻀﻐﻂ ﺑﺎﻟﺰﺭ ﺍﻷﳝﻦ ﻋﻠﻰ ﺃﻱ ﻋﻨﺼﺮ ﻣﻦ ﻋﻨﺎﺻﺮ ﺍﻟﻘﺎﺋﻤﺔ‬
‫ﰒ ‪ Edit names  ‬ﺃﻭ ﻗﺎﺋﻤﺔ ‪ Properties‬ﻭﻟﻠﺨﺮﻭﺝ ﻣﻦ ﻭﺿﻊ ﺍﻟﺘﻐﻴﲑ ﺇﺿﻐﻂ ﻣﺮﺓ ﺇﺧـﺮﻯ ﺑـﺎﻟﺰﺭ ﺍﻷﳝـﻦ ﻋﻠـﻰ ‪Edit ‬‬
‫‪  names‬‬
‫‪.٢‬ﻏﲑ ﺧﺎﺻﻴﺔ ‪ auto size ‬ﻟﻠـ ‪ Textbox‬ﺇﱃ ‪ False ‬ﺣﱴ ﳝﻜﻨﻚ ﺗﻜﺒﲑﻩ ﻛﻤﺎ ﺗﺸﺎﺀ‬
‫‪.٣‬ﻟﻌﻤﻞ ﻛﻮﺩ ﺧﻠﻒ ﺃﻣﺮ ‪ open ‬ﰲ ﺍﻟﻘﺎﺋﻤﺔ ﻋﺮﻑ ﻣﺘﻐﲑ ﺑﺄﻱ ﺍﺳﻢ ﻭﻟﻴﻜﻦ ‪ dF‬ﻭﺃﻛﻤﻞ ﺍﻟﻜﻮﺩ ﻛﻤﺎ ﻳﻠﻲ‪  :‬‬
‫‪.٤‬ﳝﻜﻦ ﻭﺿﻊ ﻓﺎﺻﻞ ﻗﺒﻞ ﺍﻷﻣﺮ ﰲ ﺍﻟﻘﺎﺋﻤﺔ ﺑﺎﻟﻀﻐﻂ ﻋﻠﻰ ﻫﺬﺍ ﺍﻷﻣﺮ ﰒ ﺑﺎﻟﺰﺭ ﺍﻷﳝﻦ ‪  Insert Separator ‬‬
‫‪.٥‬ﳝﻜﻦ ﻭﺿﻊ ﻋﻼﻣﺔ ; ﲜﻮﺍﺭ ﻋﻨﺼﺮ ﺍﻟﻘﺎﺋﻤﺔ ﺍﻭ ﺇﺯﺍﻟﺘﻪ‬
‫‪.٦‬ﳝﻜﻦ ﻭﺿﻊ ﻋﻼﻣﺔ ﲢﺖ ﺍﳊﺮﻑ ﺍﻷﻭﻝ ﺑﺈﺿﺎﻓﺔ ﻋﻼﻣﺔ & ﻗﺒﻞ ﺍﺳﻢ ﻛﻞ ﻋﻨﺼﺮ ﻣﻦ ﻋﻨﺎﺻﺮ ﺍﻟﻘﺎﺋﻤﺔ ﻣﻦ ﺧﺼﺎﺋﺺ ﻫﺬﺍ ﺍﻟﻌﻨﺼﺮ ‪:‬‬

‫‪-٥-‬‬
   TEXT=&File
  open  ‫ﻭﺫﻟﻚ ﻷﻣﺮ‬shortcut   =ctrl+o      ‫ﻛﻤﺎ ﳝﻜﻦ ﺇﺿﺎﻓﺔ ﻣﻔﺘﺎﺡ ﺇﺧﺘﺼﺎﺭ ﺑﺎﻟﻀﻐﻂ ﻋﻠﻰ ﺧﺼﺎﺋﺺ ﺍﻟﻌﻨﺼﺮ ﰒ‬.٧
‫ ﻛﻤﺎ ﳝﻜﻦ ﺇﻇﻬﺎﺭ ﺍﻟﺮﻣﺰ ﰲ ﺍﻟﻘﺎﺋﻤﺔ ﻣﻦ‬Image ‫ﻛﻤﺎ ﳝﻜﻦ ﻭﺿﻊ ﺭﻣﺰ ﲜﺎﻧﺐ ﺍﻟﻌﻨﺼﺮ ﰲ ﺍﻟﻘﺎﺋﻤﺔ ﻣﻦ ﺧﺼﺎﺋﺺ ﺍﻟﻌﻨﺼﺮ ﰒ‬.٨
  textimageresource=textaboveimage ‫ﺍﻹﺧﺘﻴﺎﺭ‬
Private Sub MenuItem٤_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MenuItem٤.Click
Dim df As New OpenFileDialog()
df.ShowDialog()
End Sub
Private Sub MenuItem٧_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MenuItem٧.Click
If MenuItem٧.Checked <> True Then
MenuItem٧.Checked = True
MenuItem٨.Checked = False
TextBox١.Text = Format(Date.Now, "mm/dd/yyyy")
End If
End Sub
Private Sub MenuItem٨_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MenuItem٨.Click
If MenuItem٨.Checked <> True Then
MenuItem٨.Checked = True
MenuItem٧.Checked = False
TextBox١.Text = Format(Date.Now, "hh:mm:ss")
End If
End Sub
Private Sub MenuItem٣_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MenuItem٣.Click
TextBox١.Text = ""
End Sub
Private Sub MenuItem١٠_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MenuItem١٠.Click
Application.Exit()
End Sub
End Class

-٦-
 ‫ﺑﺮﻧﺎﻣﺞ ﺭﺳﺎﻟﺔ ﺗﺮﺣﻴﺐ ﻭﺇﻇﻬﺎﺭ ﺍﻟﻮﻗﺖ ﻭﺍﻟﺘﺎﺭﻳﺦ‬

‫( ﺃﻱ ﺃﻥ ﺍﻟﻜﻮﺩ ﻻ ﻳﻈﻬﺮ ﺇﻻ ﻋﻨﺪ ﺍﻟﻀﻐﻂ ﻋﻠﻰ ﺍﻟﺰﺭ‬Click ‫ﻭﻓﻴﻪ ﺗﻈﻬﺮ ﺭﺳﺎﻟﺔ ﺍﻟﺘﺮﺣﻴﺐ ﻋﻨﺪ ﺍﻟﻀﻐﻂ ﻋﻠﻰ ﺯﺭ ﺭﺳﺎﻟﺔ )ﺣﺪﺙ ﺍﻟﻨﻘﺮ‬
.‫( ﺃﻱ ﺃﻥ ﺍﻟﻜﻮﺩ ﻻ ﻳﻨﻔﺬ ﺇﻻ ﻋﻨﺪ ﲢﻤﻴﻞ ﺍﻟﻨﻤﻮﺫﺝ‬Load ‫ﻭﻳﻈﻬﺮ ﺍﻟﻮﻗﺖ ﻭﺍﻟﺘﺎﺭﻳﺦ ﻋﻨﺪ ﲢﻤﻴﻞ ﺍﻟﻨﻤﻮﺫﺝ )ﺣﺪﺙ ﺍﻟﺘﺤﻤﻴﻞ‬

label  ٢‫ ﻭ‬button ‫ ﺯﺭ‬٢ ‫ﻭﺍﻟﱪﻧﺎﻣﺞ ﻋﺒﺎﺭﺓ ﻋﻦ‬

Public Class Form١

Private Sub Form١_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
Label١.Text = DateString
Label٢.Text = TimeString LOAD ‫ﺣﺪث اﻟﺘﺤﻤﻴﻞ‬
End Sub
Private Sub Button١_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Button١.Click
MessageBox.Show(" ‫)"ﻋﻠﻲ ﺣﺴﻦ ﻳﺮﺣﺐ ﺑﻜﻢ‬
click ‫ﺣﺪث اﻟﻨﻘﺮ‬
End Sub

Private Sub Button٢_Click(ByVal sender As Object, ByVal e As System.EventArgs)

Handles Button٢.Click
End
End Sub
End Class

-٧-
 ‫ﺑﺮﻧﺎﻣﺞ ﳊﺴﺎﺏ ﻧﺎﺗﺞ ﺍﻟﻘﺴﻤﺔ‬

  label  ٣‫ ﻭ‬button  ‫ ﻭﺯﺭ ﻭﺍﺣﺪ‬textbox  ‫ﻭﻫﻮ ﻳﺘﻜﻮﻥ ﻣﻦ ﺛﻼﺙ ﻣﺮﺑﻌﺎﺕ ﻧﺼﻴﺔ‬

‫ ﻟﻠﻨﺼﻮﺹ‬ ‫ﻳﺘﻌﺎﻣﻞ ﻣﻊ ﺍﻷﺭﻗﺎﻡ ﻓﻬﻮ ﳐﺼﺼﺺ‬textbox  ‫ ﳉﻌﻞ ﻣﺮﺑﻊ ﺍﻟﻨﺺ‬Val  ‫ﺗﺴﺘﺨﺪﻡ‬

‫ ﻳﻈﻬﺮ ﻧﺎﺗﺞ ﺍﻟﻘﺴﻤﺔ‬textbox ‫ ﳉﻌﻞ ﻣﺮﻉ ﺍﻟﻨﺺ‬str  ‫ﺗﺴﺘﺨﺪﻡ‬

Public Class nategelkesma

Private Sub Button١_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button١.Click
Dim x, y, z As Integer
x = Val(TextBox١.Text)
y = Val(TextBox٢.Text)
z = x / y
TextBox٣.Text = Str(z)
End Sub

: ‫ﳝﻜﻦ ﻋﻤﻞ ﲢﺴﲔ ﻋﻠﻰ ﻣﻈﻬﺮ ﺍﻟﱪﻧﺎﻣﺞ ﺍﻟﺴﺎﺑﻖ ﲝﻴﺚ ﺗﺘﻐﲑ ﺧﻠﻔﻴﺔ ﺍﻟﻨﻤﻮﺫﺝ ﻋﻨﺪ ﺍﳌﺮﻭﺭ ﺑﺎﳌﺎﻭﺱ ﻓﻮﻕ ﺍﻟﻨﻤﻮﺫﺝ ﻛﻤﺎ ﻳﻠﻲ‬

  ‫ ﺇﺿﻐﻂ ﰲ ﺃﻱ ﻣﻜﺎﻥ ﻋﻠﻰ ﺍﻟﻨﻤﻮﺫﺝ ﺃﺛﻨﺎﺀ ﺍﻟﺘﺼﻤﻴﻢ‬.١

  Mouse move  ‫ ﺇﱃ‬Load  ‫ ﻏﲑ ﺣﺪﺙ ﺍﻟﺘﺤﻤﻴﻞ‬.٢

  ‫ ﺍﻛﺘﺐ ﺍﻟﻜﻮﺩ ﺍﻟﺘﺎﱄ‬.٣

Private Sub nategelkesma_MouseMove(ByVal sender As Object, ByVal e As

System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
Me.BackColor = Color.Brown
End Sub

  : ‫ ﻛﻤﺎ ﻳﻠﻲ‬Mouse leave  ‫ ﻭﻟﻠﻌﻮﺩﺓ ﻟﻠﻮﺿﻊ ﺍﻟﻘﺪﱘ ﻋﻨﺪ ﺇﺧﺮﺍﺝ ﺍﳌﺎﻭﺱ ﺃﺿﻒ ﺣﺪﺙ ﺟﺪﻳﺪ ﻫﻮ‬.٤
Private Sub nategelkesma_MouseLeave(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.MouseLeave
Me.BackColor = Color.Empty
End Sub

-٨-
 ‫ﺑﺮﻧﺎﻣﺞ ﺍﻵﻟﻪ ﺍﳊﺎﺳﺒﻪ ﺍﳌﺘﻘﺪﻣﻪ‬

Public Class Calc

Dim op١ As Double ‘‫’ ﺗﻌﺮﻳﻒ اﳌﺘﻐﲑ اﻷول‬
Dim op٢ As Double ‘‫’ ﺗﻌﺮﻳﻒ اﳌﺘﻐﲑ اﻟﺜﺎﻧﻲ‬
Dim f As String ‘‫’ ﺗﻌﺮﻳﻒ اﻟﻌﻤﻠﻴﺔ اﳊﺴﺎﺑﻴﺔ‬
Private Sub Button١٩_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button١٩.Click
TextBox١.Text = TextBox١.Text + "١" ‘ ‫’ﻳﻜﺘﺐ ﺧﻠﻒ زر واﺣﺪ‬
End Sub
Private Sub Button١٦_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button١٦.Click
TextBox١.Text = TextBox١.Text + "٢" ‘ ٢ ‫’ﻳﻜﺘﺐ ﺧﻠﻒ زر‬
End Sub
Private Sub Button١٧_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button١٧.Click
TextBox١.Text = TextBox١.Text + "٣" ‘ ٣ ‫’ﻳﻜﺘﺐ ﺧﻠﻒ زر‬
End Sub
Private Sub Button١٨_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button١٨.Click
TextBox١.Text = TextBox١.Text + "٤" ‘ ٤ ‫’ﻳﻜﺘﺐ ﺧﻠﻒ زر‬
End Sub
Private Sub Button١٣_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button١٣.Click
TextBox١.Text = TextBox١.Text + "٥" ‘ ٥ ‫’ﻳﻜﺘﺐ ﺧﻠﻒ زر‬
End Sub
Private Sub Button١٤_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button١٤.Click
TextBox١.Text = TextBox١.Text + "٦" ‘ ٦ ‫’ﻳﻜﺘﺐ ﺧﻠﻒ زر‬
End Sub
Private Sub Button١٥_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button١٥.Click
-٩-
 TextBox١.Text = TextBox١.Text + "٧" ‘ ٧ ‫’ﻳﻜﺘﺐ ﺧﻠﻒ زر‬
End Sub
Private Sub Button١٠_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button١٠.Click
TextBox١.Text = TextBox١.Text + "٨" ‘ ٨ ‫’ﻳﻜﺘﺐ ﺧﻠﻒ زر‬
End Sub
Private Sub Button١١_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button١١.Click
TextBox١.Text = TextBox١.Text + "٩" ‘ ٩ ‫’ﻳﻜﺘﺐ ﺧﻠﻒ زر‬
End Sub

Private Sub Button٢٠_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button٢٠.Click
TextBox١.Text = TextBox١.Text + "٠" ‘ ‫’ﻳﻜﺘﺐ ﺧﻠﻒ زر ﺻﻔﺮ‬
End Sub

Private Sub Button٢١_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button٢١.Click
TextBox١.Text = TextBox١.Text + "." ‘ ‫’ﻳﻜﺘﺐ ﺧﻠﻒ زر اﻟﻔﺎﺻﻠﺔ‬
End Sub
Private Sub Button١_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button١.Click ‘ + ‫’ﻳﻜﺘﺐ ﺧﻠﻒ زر‬
op١ = Val(TextBox١.Text)
TextBox١.Clear()
f = "+"
End Sub
Private Sub Button٢_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٢.Click ‘ - ‫’ﻳﻜﺘﺐ ﺧﻠﻒ زر‬
op١ = Val(TextBox١.Text)
TextBox١.Clear()
f = "-"
End Sub
Private Sub Button٣_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٣.Click ‘ / ‫’ﻳﻜﺘﺐ ﺧﻠﻒ زر‬
op١ = Val(TextBox١.Text)
TextBox١.Clear()
f = "/"
End Sub
Private Sub Button٤_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٤.Click ‘ * ‫’ﻳﻜﺘﺐ ﺧﻠﻒ زر‬
op١ = Val(TextBox١.Text)
TextBox١.Clear()
f = "*"
End Sub
Private Sub Button٩_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٩.Click‘ ‫’ﻳﻜﺘﺐ ﺧﻠﻒ زر ﻳﺴﺎوي‬
op٢ = Val(TextBox١.Text)
TextBox١.Clear()
If f = "+" Then
TextBox١.Text = op١ + op٢
End If
If f = "-" Then
TextBox١.Text = op١ - op٢
End If
If f = "/" Then
TextBox١.Text = op١ / op٢
End If
If f = "*" Then
TextBox١.Text = op١ * op٢
End If
End Sub
Private Sub Button٧_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٧.Click‘ ‫’ﻳﻜﺘﺐ ﺧﻠﻒ زر اﳉﺬر اﻟﱰﺑﻴﻌﻲ‬
Dim sqr As Double
sqr = Math.Sqrt(TextBox١.Text)

-١٠-
 TextBox١.Text = sqr
End Sub
Private Sub Button٨_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٨.Click‘ ‫’ﻳﻜﺘﺐ ﺧﻠﻒ زر اﳉﺰر اﻟﺘﻜﻌﻴﱯ‬
Dim r As Double
r = TextBox١.Text ^ (١ / ٣)
TextBox١.Text = r
End Sub
Private Sub Button٦_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٦.Click‘ ‫’ﻳﻜﺘﺐ ﺧﻠﻒ زر اﳌﻀﺮوب‬
Dim i, fac As Integer
fac = ١
For i = ١ To TextBox١.Text
fac = fac * i
Next
TextBox١.Text = Str(fac)
End Sub
Private Sub Button٥_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٥.Click‘ ‫’ﻳﻜﺘﺐ ﺧﻠﻒ زر اﻷس‬
Dim x As Integer
x = TextBox١.Text
Dim a As Integer
a = InputBox("add")
Dim y As Single
y = Math.Pow(a, x)
TextBox١.Text = y
End Sub
Private Sub Button١٢_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button١٢.Click
TextBox١.Clear()‘ ‫’ﻳﻜﺘﺐ ﺧﻠﻒ زر ﻣﺴﺢ‬
End Sub
End Class

 
 

-١١-
   (‫ﺑﺮﻧﺎﻣﺞ ﻣﺘﺼﻔﺢ ﺍﻹﻧﺘﺮﻧﺖ )ﺻﻤﻢ ﺍﻟﺸﻜﻞ ﺍﻟﺘﺎﱄ‬
‫ ﻭﻟﺬﻟﻚ ﳚﺐ ﺇﻧﺰﺍﳍﺎ ﻣﻊ ﺑﻘﻴﺔ ﺍﻷﺩﻭﺍﺕ‬VB٢٠٠٥ ‫ ﻟﻴﺴﺖ ﻣﻮﺟﻮﺩﺓ ﰲ ﺻﻨﺪﻭﻕ ﺍﻷﺩﻭﺍﺕ ﰲ‬web browser  ‫ﺍﻷﺩﺍﺓ‬
‫ ﰒ‬COM ‫ ﰒ ﺗﺒﻮﻳﺐ‬customize toolbox ‫ﻭﺫﻟﻚ ﺑﺎﻟﻀﻐﻂ ﺑﺎﻟﺰﺭ ﺍﻷﳝﻦ ﻋﻠﻰ ﺃﻱ ﺍﺩﺍﺓ ﰲ ﺻﻨﺪﻭﻕ ﺍﻷﺩﻭﺍﺕ ﰒ‬
  web browser  ‫ﻧﺸﻂ ﺍﻷﺩﺍﺓ‬
 
 
 
 
 
 
 
 
 
 
 

Private Sub Button١_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button١.Click
AxWebBrowser١.Navigate("http://www.google.com")
End Sub
Private Sub Button٢_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٢.Click
AxWebBrowser١.GoBack()
End Sub
Private Sub Button٣_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٣.Click
AxWebBrowser١.GoForward()
End Sub
Private Sub Button٤_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٤.Click
AxWebBrowser١.Stop()
End Sub
Private Sub Button٥_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٥.Click
AxWebBrowser١.Refresh()
End Sub
Private Sub Button٦_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٦.Click
AxWebBrowser١.GoSearch()
End Sub
Private Sub Button٧_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٧.Click
AxWebBrowser١.GoHome()
End Sub
 

-١٢-
 ‫ﺑﺮﻧﺎﻣﺞ ﺣﺴﺎﺏ ﻓﺮﻕ ﺍﻟﻌﻤﺮ‬
Private Sub Button٣_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button٣.Click ‘‫ﺧﻠﻒ زر ﺧﺮوج‬
End
End Sub
Private Sub Button٢_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٢.Click ‘‫ﺧﻠﻒ زر ﺟﺪﻳﺪ‬
TextBox١.Text = ""
TextBox٢.Text = ""
TextBox٣.Text = ""
TextBox٤.Text = ""
TextBox٥.Text = ""
TextBox٦.Text = ""
Label٧.Text = ""
Label٨.Text = ""
Label٩.Text = ""
TextBox٤.Focus()’‫ﻟﻜﻲ ﻳﻀﻊ ﻣﺆﺷﺮ اﳌﺎوس ﰲ ﻣﺮﺑﻊ اﻟﻨﺺ اﻟﺮاﺑﻊ‬
End Sub
Private Sub Button١_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button١.Click ‘ ‫ﺧﻠﻒ زر اﺣﺴﺐ‬
Dim d١, d٢ As Integer
Dim m١, m٢ As Integer
Dim y١, y٢ As Integer
If TextBox١.Text = "" Or TextBox٢.Text = "" Or TextBox٣.Text = "" Or TextBox٤.Text =
"" Or TextBox٥.Text = "" Or TextBox٦.Text = "" Then
MsgBox("Enter Date In all Texts")
Exit Sub
End If
d١ = Val(TextBox١.Text)
d٢ = Val(TextBox٤.Text)
m١ = Val(TextBox٢.Text)
m٢ = Val(TextBox٥.Text)
y١ = Val(TextBox٣.Text)
y٢ = Val(TextBox٦.Text)
If y١ < y٢ Then
MsgBox("Enter the True Date")
Exit Sub
End If
If d١ < d٢ Then
d١ = d١ + ٣٠
m١ = m١ - ١
End If
If m١ < m٢ Then
m١ = m١ + ١٢
y١ = y١ - ١
End If
Label٧.Text = d١ - d٢
Label٨.Text = m١ - m٢
Label٩.Text = y١ - y٢
End Sub
Private Sub Form١_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
TextBox٤.Focus()
End Sub

 
 

 
 
-١٣-
 ‫ﺑﺮﻧﺎﻣﺞ ﻣﺸﻐﻞ ﺍﳌﻴﺪﻳﺎ‬
‫ﻭﻫﻮ ﺑﺮﻧﺎﻣﺞ ﻟﺘﺸﻐﻴﻞ ﺍﻷﻓﻼﻡ‬
:‫ﺍﺗﺒﻊ ﺍﳋﻄﻮﺍﺕ ﺍﻟﺘﺎﻟﻴﺔ‬Windows media player ‫ﻭﻹﺿﺎﻓﺔ ﺃﺩﺍﺓ ﺗﺸﻐﻴﻞ ﺍﻷﻓﻼﻡ‬
  Customize toolbox ‫ ﺇﺿﻐﻂ ﺑﺎﻟﺰﺭ ﺍﻷﳝﻦ ﻋﻠﻰ ﻋﻨﺼﺮ ﻣﻦ ﻋﻨﺎﺻﺮ ﺻﻨﺪﻭﻕ ﺍﻷﺩﻭﺍﺕ ﻭﺍﺧﺘﺮ‬.١
   ‫ ﺳﻴﺘﻢ ﺇﺿﺎﻓﺘﻪ ﺇﱃ ﺻﻨﺪﻭﻕ ﺍﻷﺩﻭﺍﺕ‬windows media player  ‫ ﺍﺧﺘﺮ‬COM  ‫ ﻣﻦ ﺗﺒﻮﻳﺐ‬.٢
  ‫ ﺿﻊ ﺍﻷﺩﺍﺓ ﻋﻠﻰ ﺍﻟﻨﻤﻮﺫﺝ ﰒ ﻛﱪﻫﺎ ﻛﻤﺎ ﺑﺎﻟﺸﻜﻞ‬.٣
‫ﺎ ﻻ ﺗﻈﻬﺮ ﺃﺛﻨﺎﺀ ﺗﻨﻔﻴﺬ ﺍﻟﱪﻧﺎﻣﺞ ﻓﻬﻲ ﺗﻀﺎﻑ ﰲ ﺃﺳﻔﻞ‬‫ ﻋﻠﻰ ﺍﻟﻨﻤﻮﺫﺝ ﻭﻻﺣﻆ ﺃ‬Opefiledialog ‫ ﺃﺿﻒ ﺍﻷﺩﺍﺓ‬.٤
  ‫ﺍﻟﻨﺎﻓﺬﻩ‬
  :‫ﺎ ﺯﺭﻱ ﺗﺸﻐﻴﻞ ﻭﺧﺮﻭﺝ ﻭﺧﻠﻒ ﻛﻞ ﺯﺭ ﺍﻛﺘﺐ ﺍﻷﻛﻮﺍﺩ ﺍﻟﺘﺎﻟﻴﺔ‬ ‫ ﻭﺃﺿﻒ‬menu strip  ‫ ﺃﺿﻒ ﺃﺩﺍﺓ‬.٥
 

 
Public Class Form٢
Private Sub ‫ﺗﺸـــﻐــﻴــــــــــــﻞ‬ToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
‫ﺗﺸـــﻐــﻴـــﻞ‬ToolStripMenuItem.Click
OpenFileDialog١.ShowDialog()
AxWindowsMediaPlayer١.URL = OpenFileDialog١.FileName
End Sub
Private Sub ‫ﺧـــــــﺮوج‬ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles ‫ﺧـــــــﺮوج‬ToolStripMenuItem.Click
End
End Sub
End Class

-١٤-
   ‫ﺑﺮﻧﺎﻣﺞ ﺍﻟﺘﺤﻜﻢ ﺑﺎﻟﻨﺼﻮﺹ‬
‫ ﺻﻤﻢ ﺍﻟﻨﻤﻮﺫﺝ ﺑﺎﻟﺸﻜﻞ ﺍﳌﻮﺟﻮﺩ‬.١
  font Dialog‫ ﻭ‬Color dialog ‫ ﺃﺿﻒ ﻋﻨﺼﺮﻱ‬.٢
 
Private Sub Button١_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button١.Click
FontDialog١.ShowColor = True
FontDialog١.ShowDialog()
With TextBox١
.Font = FontDialog١.Font
.ForeColor = FontDialog١.Color
End With
End Sub
Private Sub Button٣_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
Button٣.Click
ColorDialog١.ShowDialog()
TextBox١.BackColor = ColorDialog١.Color
End Sub
Private Sub Button٤_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
Button٤.Click
Dim m As String
m = InputBox("‫"اﳉﺪﻳﺪ اﻟﻨﺺ أدﺧﻞ‬, "‫"ﺟﺪﻳﺪ ﻧﺺ‬,
TextBox١.Text)
If Trim(m) = "" Then Exit Sub
TextBox١.Text = m
End Sub
Private Sub Button٢_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٢.Click
TextBox١.BorderStyle = Windows.Forms.BorderStyle.None
End Sub
End Class

 
  ‫ ﺑﺮﻧﺎﻣﺞ ﺍﻟﻘﻮﺍﺋﻢ ﺍﳌﺨﺘﺼﺮﺓ‬.١
  ‫ ﺍﳍﺪﻑ ﻫﻮ ﺃﻧﻪ ﻋﻨﺪ ﺍﻟﻀﻐﻂ ﺑﺎﻟﺰﺭ ﺍﻷﺍﳝﻦ ﻋﻠﻰ ﻣﺮﺑﻊ ﺍﻟﻨﺺ ﳝﻜﻨﻚ ﺗﻄﺒﻴﻖ ﺑﻌﺾ ﺍﻟﻮﻇﺎﺋﻒ‬.١
  ‫ ﺇﻧﺸﻰﺀ ﳕﻮﺫﺝ ﺑﻪ ﻣﺮﺑﻊ ﻧﺺ‬.٢
  context menu ‫ ﺍﺿﻐﻂ ﺃﺩﺍﺓ‬.٣
context  ‫ ﻣﻦ ﺧﺼﺎﺋﺺ ﻣﺮﺑﻊ ﺍﻟﻨﺺ ﺣﺪﺩ ﺍﻹﺧﺘﻴﺎﺭ‬.٤
  menu=contextmenu١
  ‫ ﺍﺧﺘﺐ ﺍﻷﻣﺮ ﺍﻟﺘﺎﱄ ﺧﻠﻒ ﻋﻨﺼﺮ ﺍﻟﻘﺎﺋﻤﺔ‬.٥
  Textbox١.text=” ”
  

-١٥-
   ‫ﺑﺮﻧﺎﻣﺞ ﻣﺮﺑﻊ ﺍﻟﺴﺮﺩ‬
Private Sub Form١_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
Dim i As Integer
For i = ٩ To i Step -١
ListBox١.Items.Add("word" & i)
Next
End Sub
Private Sub Button١_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles Button١.Click
ListBox١.Items.Add("new item")
End Sub
Private Sub Button٢_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles Button٢.Click

ListBox١.Items.RemoveAt(ListBox١.Items.Count() - ١)
End Sub
Private Sub Button٣_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٣.Click
ListBox١.Sorted = True
End Sub

Private Sub Button٤_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button٤.Click
ListBox١.Items.Clear()
End Sub

  ‫ﺑﺮﻧﺎﻣﺞ ﻓﺎﺗﺢ ﺍﳌﻠﻔﺎﺕ‬

  open filedialoge ‫ ﺍﺧﺘﺮ ﺍﻷﺩﺍﺓ‬.١
  Multi line ‫ ﺍﺧﺘﺮ ﻣﺮﺑﻊ ﻧﺺ ﻭﻧﺸﻂ ﺍﻹﺧﺘﻴﺎﺭ‬.٢
  ‫ ﺍﺧﺘﺮ ﺯﺭ ﺃﻣﺮ ﻭﺍﻛﺘﺐ ﻋﻠﻴﻪ ﲢﻤﻴﻞ‬.٣
Private Sub Button١_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button١.Click
Dim t As System.IO.StreamReader
With OpenFileDialog١
.Title = "open text file"
.InitialDirectory = "c:\"
.Filter = "text file (*.txt)|*.txt|all files(*.*)|*.*"
.FilterIndex = ١
.ShowDialog()
End With
t = New System.IO.StreamReader(OpenFileDialog١.OpenFile)
TextBox١.Text = t.ReadToEnd
End Sub 

-١٦-
   ‫ﺑﺮﻧﺎﻣﺞ ﺣﺎﻓﻆ ﺍﳌﻠﻔﺎﺕ‬
  Rich text box  ‫ ﺍﺭﺳﻢ‬.١
  ‫ ﺍﺧﺘﺮ ﺍﻷﺩﺍﺗﲔ‬.٢
  Openfiledialog,Savefiledialog

Private Sub Button١_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button١.Click
With OpenFileDialog١
.Filter = "text file (*.txt)|*.txt|richtextfile(*.rtf)|*.rtf"
.FileName = "'"
.InitialDirectory = "c:\"

End With
If OpenFileDialog١.ShowDialog = Windows.Forms.DialogResult.Cancel Then
Exit Sub

Select Case OpenFileDialog١.FilterIndex

Case ١
RichTextBox١.LoadFile(OpenFileDialog١.FileName,
Windows.Forms.RichTextBoxStreamType.PlainText)
Case ٢
RichTextBox١.LoadFile(OpenFileDialog١.FileName,
Windows.Forms.RichTextBoxStreamType.RichText)
End Select
End Sub

Private Sub Button٢_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button٢.Click
With SaveFileDialog١
.Filter = "text file (*.txt)|*.txt|richtextfile(*.rtf)|*.rtf"
.FileName = "untitiled"
.ShowDialog()
End With
Select Case SaveFileDialog١.FilterIndex
Case ١
RichTextBox١.SaveFile(SaveFileDialog١.FileName,
Windows.Forms.RichTextBoxStreamType.PlainText)
Case ٢
RichTextBox١.SaveFile(SaveFileDialog١.FileName,
Windows.Forms.RichTextBoxStreamType.RichText)
End Select
End Sub

-١٧-
 ‫اﻟﺘﻌﺎﻣﻞ ﻣﻊ ‪file IO‬‬
‫ﺍﻟﱪﻧﺎﻣﺞ ﻟﻪ ﻧﻔﺲ ﺍﻟﺸﻜﻞ ﺍﻟﺴﺎﺑﻖ ﻭﳝﻜﻦ ﻣﻦ ﺧﻼﻟﻪ ﻓﺘﺢ ﻣﻠﻒ ﻣﻮﺟﻮﺩ ﻭﺍﻹﺿﺎﻓﻪ ﻋﻠﻴﻪ ﻭﺣﻔﻆ ﺍﻟﺘﻌﺪﻳﻼﺕ‬

‫ﺑﺮﻧﺎﻣﺞ ﻟﺘﻐﻴﲑ ﺧﻠﻔﻴﺔ ﺍﻟﻨﻤﻮﺫﺝ ‪ ‬ﻭﻣﺸﻐﻞ ‪mp٣‬‬

‫ﻭﰲ ﻫﺬﺍ ﺍﻟﱪﻧﺎﻣﺞ ﻳﺘﻢ ﺗﻨﻔﻴﺬ ﺍﻟﻜﻮﺩ ﺑﺄﻛﺜﺮ ﻣﻦ ﻃﺮﻳﻘﻴﺔ ﺳﻮﺍﺀ ﻋﻦ ﻃﺮﻳﻖ ﺍﻟﻀﻐﻂ ﺑﺰﺭ ﺍﳌﺎﻭﺱ ﺍﻷﳝﻦ ﺃﻭﻣﻦ ﺍﻟﻘﻮﺍﺋﻢ ﺃﻭ ﺷﺮﻳﻂ ﺍﻷﺩﻭﺍﺕ‬
‫ﻭﺑﺎﻟﺘﺎﱄ ﻓﺎﻟﱪﻧﺎﻣﺞ ﺑﻪ ﺃﺩﺍﺓ ‪ menu strip‬ﻭ ‪Tool strip‬‬
‫ﻭﻹﺿﺎﻓﺔ ﺃﺩﺍﺓ ﺗﺸﻐﻴﻞ ﺍﻷﻏﺎﱐ ﺍﺗﺒﻊ ﺍﳋﻄﻮﺍﺕ ﺍﻟﺘﺎﻟﻴﺔ‪:‬‬
‫‪ .٦‬ﺇﺿﻐﻂ ﺑﺎﻟﺰﺭ ﺍﻷﳝﻦ ﻋﻠﻰ ﻋﻨﺼﺮ ﻣﻦ ﻋﻨﺎﺻﺮ ﺻﻨﺪﻭﻕ ﺍﻷﺩﻭﺍﺕ ﻭﺍﺧﺘﺮ ‪  Customize toolbox‬‬
‫‪ .٧‬ﻣﻦ ﺗﺒﻮﻳﺐ ‪ COM ‬ﺍﺧﺘﺮ ‪ windows media player ‬ﺳﻴﺘﻢ ﺇﺿﺎﻓﺘﻪ ﺇﱃ ﺻﻨﺪﻭﻕ ﺍﻷﺩﻭﺍﺕ ‪ ‬‬
‫‪ .٨‬ﺍﺧﺘﺮ ﺍﻷﺩﺍﺓ ‪  Opefiledialog‬‬

‫‪-١٨-‬‬
 Private Sub backToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles backToolStripMenuItem.Click
With OpenFileDialog١
.Filter = "gif(*.gif)|*.gif| bmp(*.bmp)|*.bmp"
.InitialDirectory = "c:\"
.FileName = ""
End With

If OpenFileDialog١.ShowDialog = Windows.Forms.DialogResult.Cancel = True Then

Exit Sub

Me.BackgroundImage = System.Drawing.Image.FromFile(OpenFileDialog١.FileName)

End Sub

Private Sub ToolStripLabel٤_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles ToolStripLabel٤.Click
With OpenFileDialog١
.Filter = "gif(*.gif)|*.gif| bmp(*.bmp)|*.bmp"
.InitialDirectory = "c:\"
.FileName = ""
End With

If OpenFileDialog١.ShowDialog = Windows.Forms.DialogResult.Cancel = True Then Exit

Sub

Me.BackgroundImage = System.Drawing.Image.FromFile(OpenFileDialog١.FileName)

End Sub
Private Sub Button٣_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٣.Click
With OpenFileDialog١
.Filter = "gif(*.gif)|*.gif| bmp(*.bmp)|*.bmp"
.InitialDirectory = "c:\"
.FileName = ""
End With
If OpenFileDialog١.ShowDialog = Windows.Forms.DialogResult.Cancel = True Then Exit
Sub

Me.BackgroundImage = System.Drawing.Image.FromFile(OpenFileDialog١.FileName)

End Sub

Private Sub ‫ﺗﻐﲑﺧﻠﻔﻴﺔ‬ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles ‫ﺗﻐﲑﺧﻠﻔﻴﺔ‬ToolStripMenuItem.Click
With OpenFileDialog١
.Filter = "gif(*.gif)|*.gif| bmp(*.bmp)|*.bmp"
.InitialDirectory = "c:\"
.FileName = ""
End With
If OpenFileDialog١.ShowDialog = Windows.Forms.DialogResult.Cancel = True Then Exit
Sub
Me.BackgroundImage = System.Drawing.Image.FromFile(OpenFileDialog١.FileName)
End Sub
Private Sub Button٤_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٤.Click
If ColorDialog١.ShowDialog = Windows.Forms.DialogResult.Cancel = True Then Exit
Sub
Me.BackColor = ColorDialog١.Color
End Sub
Private Sub ToolStripLabel٢_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ToolStripLabel٢.Click

-١٩-
 End
End Sub
Private Sub Button١_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button١.Click
End
End Sub
Private Sub endToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles endToolStripMenuItem.Click
End
End Sub
Private Sub ToolStripLabel٣_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ToolStripLabel٣.Click
OpenFileDialog١.ShowDialog()
AxWindowsMediaPlayer١.URL = OpenFileDialog١.FileName
End Sub

Private Sub Button٢_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button٢.Click
OpenFileDialog١.ShowDialog()
AxWindowsMediaPlayer١.URL = OpenFileDialog١.FileName
End Sub
Private Sub mp٣ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ‫ﺗﺸﻐﻴﻼﻏﺎﱏ‬ToolStripMenuItem.Click
OpenFileDialog١.ShowDialog()
AxWindowsMediaPlayer١.URL = OpenFileDialog١.FileName
End Sub
Private Sub endToolStripMenuItem١_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ‫ﺧﺮوج‬ToolStripMenuItem١.Click
End
End Sub
Private Sub Mp٣ToolStripMenuItem_Click_١(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Mp٣ToolStripMenuItem.Click
OpenFileDialog١.ShowDialog()
AxWindowsMediaPlayer١.URL = OpenFileDialog١.FileName
End Sub

Console application ‫ﺗﻄﺒﻴﻖ‬
 
DOS ‫ﻭﺧﺮﺝ ﺍﻟﱪﻧﺎﻣﺞ ﻫﻮ ﻭﺍﺟﻬﺔ‬
Console ‫ ﺍﺧﺘﺮ ﺗﻄﺒﻴﻖ‬.١
Application
‫ ﺍﻛﺘﺐ ﺍﻟﻜﻮﺩ ﺍﻟﺘﺎﱄ ﰲ ﺍﻟﻮﺣﺪﺓ ﺍﻟﱪﳎﻴﺔ ﻭﻻ‬.٢
‫ﺎﺀ ﺍﻟﻜﻮﺩ ﺑﺎﻷﻣﺮ‬‫ﺗﻨﺴﻰ ﺇ‬
.‫ﺣﱴ ﺗﺴﺘﻄﻴﻊ ﺭﺅﻳﺔ ﺍﻟﻨﺘﻴﺠﺔ ﻓﺎﻟﺸﺎﺷﺔ ﲣﺘﻔﻲ ﺳﺮﻳﻌﹰﺎ‬Console.ReadLine()

-٢٠-
   ‫ﻋﻤﻞ ﺷﺮﻳﻂ ﺃﺩﻭﺍﺕ‬

  Visual studio ٢٠٠٥ ‫ ﰲ‬Tool bar  ‫ ﺃﻭ‬Visual studio ٢٠٠٨ ‫ ﰲ‬Menu strip 

 
  ‫ ﺑﺮﻧﺎﻣﺞ ﻋﺎﺭﺽ ﺍﻟﺼﻮﺭ‬.٢
Private Sub Button١_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button١.Click
Me.ListBox١.Items.Clear()
Me.PictureBox١.ImageLocation = ""
For Each founImage As String In
My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.SpecialDirectories.MyPictu
res, FileIO.SearchOption.SearchTopLevelOnly, "*.gif", "*.jpg")
Me.ListBox١.Items.Add(founImage)
Next
End Sub

Private Sub ListBox١_SelectedIndexChanged(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles ListBox١.SelectedIndexChanged
Me.PictureBox١.ImageLocation = Me.ListBox١.SelectedItem
End Sub
 
 
  Picture box 

 
 
 
 
 
 
‫ ﺑﺮﻧﺎﻣﺞ ﺍﻟﻘﻮﺍﺋﻢ‬.٣
  Forms ‫ﻭﳛﺘﻮﻱ ﺍﳌﺸﺮﻭﻉ ﻋﻠﻰ ﻗﺎﺋﻤﺘﲔ ﻭﺛﻼﺙ‬، ‫ﻭﻓﻴﻪ ﳝﻜﻦ ﻓﺘﺢ ﻗﻮﺍﺋﻢ ﺃﺧﺮﻱ ﺇﻇﻬﺎﺭ ﺍﻟﻘﻮﺍﺋﻢ ﺑﺄﻛﺜﺮ ﻣﻦ ﺷﻜﻞ‬
Private Sub CascadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles CascadToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub
Private Sub TieldHorzonToolStripMenuItem_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles TieldHorzonToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub
Private Sub TildVerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles TildVerToolStripMenuItem.Click

-٢١-
 Me.LayoutMdi(MdiLayout.TileVertical)
End Sub
Private Sub AutoArrangeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles AutoArrangeToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.ArrangeIcons)
End Sub
Private Sub Form٢ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Form٢ToolStripMenuItem.Click
Dim a As New Form٢()
a.MdiParent = Me
a.Show()
End Sub
Private Sub Forme٣ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Forme٣ToolStripMenuItem.Click
Dim b As New Form٣()
b.MdiParent = Me
b.Show()
  End Sub
 
 
 
 

-٢٢-
   ‫ﺑﺮﻧﺎﻣﺞ ﺍﻟﺪﻭﺍﻝ ﺍﻟﺮﻳﺎﺿﻴﺔ ﻭﻣﻌﻠﻮﻣﺎﺕ ﻋﻦ ﺟﻬﺎﺯﻙ ﻭﺣﺴﺎﺏ ﻓﺮﻕ ﺍﻟﻌﻤﺮ‬
‫ﺍﻟﱪﻧﺎﻣﺞ ﺑﻪ ﺛﻼﺙ ﳕﺎﺫﺝ‬

‫ﺧﻠﻒ ﺍﻟﻨﻤﻮﺫﺝ ﺍﻷﺳﺎﺳﻲ‬: ‫ﺃﻭ ﹰﻻ‬

Private Sub ‫ﺑﺮﻧﺎﳎﺤﺴﺎﺑﺎﻟﺪواﻻﻟﺮﻳﺎﺿﻴﺔ‬ToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
‫ﺑﺮﻧﺎﳎﺤﺴﺎﺑﺎﻟﺪواﻻﻟﺮﻳﺎﺿﻴﺔ‬ToolStripMenuItem.Click
second.Show()
End Sub
Private Sub ‫ﻣﻌﻠﻮﻣﺎﺗﻌﻨﺠﻬﺎزك‬ToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles ‫ﻣﻌﻠﻮﻣﺎﺗﻌﻨﺠﻬﺎزك‬ToolStripMenuItem.Click
third.Show()

End Sub

Private Sub ‫ﺑﺮﻧﺎﳎﺘﺤﺪﻳﺪاﻟﻌﻤﺮ‬ToolStripMenuItem_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles ‫ﺑﺮﻧﺎﳎﺘﺤﺪﻳﺪاﻟﻌﻤﺮ‬ToolStripMenuItem.Click
age.Show()
-٢٣-
 End Sub

‫ﺧﻠﻒ ﳕﻮﺫﺝ ﺍﻟﻌﻤﺮ‬: ‫ﺛﺎﻧﻴﹰﺎ‬

Private Sub Button٣_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button٣.Click
End
End Sub

Private Sub Button٢_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button٢.Click
TextBox١.Text = ""
TextBox٢.Text = ""
TextBox٣.Text = ""
TextBox٤.Text = ""
TextBox٥.Text = ""
TextBox٦.Text = ""
Label٧.Text = ""
Label٨.Text = ""
Label٩.Text = ""
TextBox٤.Focus()
End Sub

Private Sub Button١_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button١.Click
Dim d١, d٢ As Integer
Dim m١, m٢ As Integer
Dim y١, y٢ As Integer
If TextBox١.Text = "" Or TextBox٢.Text = "" Or TextBox٣.Text = "" Or TextBox٤.Text =
"" Or TextBox٥.Text = "" Or TextBox٦.Text = "" Then
MsgBox("Enter Date In all Texts")
Exit Sub
End If
d١ = Val(TextBox١.Text)
d٢ = Val(TextBox٤.Text)
m١ = Val(TextBox٢.Text)
m٢ = Val(TextBox٥.Text)
y١ = Val(TextBox٣.Text)
y٢ = Val(TextBox٦.Text)
If y١ < y٢ Then
MsgBox("Enter the True Date")
Exit Sub
End If
If d١ < d٢ Then
d١ = d١ + ٣٠
m١ = m١ - ١
End If
If m١ < m٢ Then
m١ = m١ + ١٢
y١ = y١ - ١
End If
Label٧.Text = d١ - d٢
Label٨.Text = m١ - m٢
Label٩.Text = y١ - y٢
End Sub

Private Sub Form١_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles MyBase.Load
TextBox٤.Focus()
End Sub

‫ﺧﻠﻒ ﳕﻮﺫﺝ ﺍﻟﺪﻭﺍﻝ ﺍﻟﺮﻳﺎﺿﻴﺔ‬: ‫ﺛﺎﻟﺜﺎ‬

-٢٤-
 Private Sub Button٥_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٥.Click
Dim x As Integer
Dim y As Single
x = TextBox١.Text
y = Math.Cos(x)
TextBox٢.Text = y
End Sub
Private Sub Button٤_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٤.Click
Dim x As Integer
Dim y As Single
x = TextBox١.Text
y = Math.Sin(x)
TextBox٢.Text = y

End Sub
Private Sub Button٢_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٢.Click
Dim x As Integer
Dim y As Single
x = TextBox١.Text
y = Math.Tan(x)
TextBox٢.Text = y
End Sub
Private Sub Button١_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button١.Click
Dim x As Integer
Dim y As Single
x = TextBox١.Text
y = Math.Tanh(x)
TextBox٢.Text = y
End Sub
Private Sub Button٣_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٣.Click
Dim x As Integer
Dim y As Single
Dim d As Integer
x = TextBox١.Text
d = InputBox("‫)"ﺗﺮﻳﺪﻩ اﻟﺬى اﻻس ادﺧﻞ ﻓﻀﻠﻚ ﻣﻦ‬
y = Math.Pow(d, x)
TextBox٢.Text = y
End Sub
Private Sub Button٨_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٨.Click
Dim x As Integer
Dim y As Single
x = TextBox١.Text
y = Math.Log(x)
TextBox٢.Text = y
End Sub
Private Sub Button٧_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٧.Click
Dim x As Integer
Dim y As Single
x = TextBox١.Text
y = Math.Sinh(x)
TextBox٢.Text = y
End Sub
Private Sub Button٩_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٩.Click
Dim x As Integer
Dim y As Single
x = TextBox١.Text
y = Math.Cosh(x)

-٢٥-
 TextBox٢.Text = y
End Sub
Private Sub Button٦_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٦.Click
Dim x As Integer
Dim y As Single
x = TextBox١.Text
y = Math.Sqrt(x)
TextBox٢.Text = y
End Sub
Private Sub Button١٠_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button١٠.Click
TextBox١.Text = ""
TextBox٢.Text = ""

‫ﺧﻠﻒ ﳕﻮﺫﺝ ﻣﻌﻠﻮﻣﺎﺕ ﻋﻦ ﺟﻬﺎﺯﻙ‬: ‫ﺭﺍﺑﻌﺎ‬

Private Sub third_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
TextBox١.Text = My.Computer.Info.AvailableVirtualMemory
TextBox٢.Text = My.Computer.Info.AvailablePhysicalMemory
TextBox٣.Text = My.Computer.Info.TotalVirtualMemory
TextBox٤.Text = My.Computer.Info.TotalPhysicalMemory
TextBox٥.Text = My.Computer.Info.OSPlatform
TextBox٦.Text = My.Computer.Info.OSFullName
End Sub

  ‫ ﺗﻐﻴﲑ ﺧﺼﺎﺋﺺ ﺍﳌﻠﻒ‬.٤

 
Private Sub Form١_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
RadioButton٣.Checked = True
End Sub
Private Sub Button٢_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles Button٢.Click
If RadioButton١.Checked Then
SetAttr(OpenFileDialog١.FileName,
FileAttribute.ReadOnly)
ElseIf RadioButton٢.Checked Then
SetAttr(OpenFileDialog١.FileName,
FileAttribute.Hidden)
ElseIf RadioButton٣.Checked Then
SetAttr(OpenFileDialog١.FileName,
FileAttribute.Normal)
ElseIf RadioButton٤.Checked Then
Dim a As FileAttribute = (FileAttribute.ReadOnly + FileAttribute.Hidden)
SetAttr(OpenFileDialog١.FileName, a)
End If
End Sub
Private Sub Button١_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button١.Click
OpenFileDialog١.ShowDialog()
TextBox١.Text = OpenFileDialog١.FileName
End Sub
Private Sub Button٣_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button٣.Click
End
End Sub
Private Sub Button٢_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٢.Click
TextBox١.Text = ""
-٢٦-
 TextBox٢.Text = ""
TextBox٣.Text = ""
TextBox٤.Text = ""
TextBox٥.Text = ""
TextBox٦.Text = ""
Label٧.Text = ""
Label٨.Text = ""
Label٩.Text = ""
TextBox٤.Focus()
End Sub
Private Sub Button١_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button١.Click
Dim d١, d٢ As Integer
Dim m١, m٢ As Integer
Dim y١, y٢ As Integer
If TextBox١.Text = "" Or TextBox٢.Text = "" Or TextBox٣.Text = "" Or
TextBox٤.Text = "" Or TextBox٥.Text = "" Or TextBox٦.Text = "" Then
MsgBox("Enter Date In all Texts")
Exit Sub
End If
d١ = Val(TextBox١.Text)
d٢ = Val(TextBox٤.Text)
m١ = Val(TextBox٢.Text)
m٢ = Val(TextBox٥.Text)
y١ = Val(TextBox٣.Text)
y٢ = Val(TextBox٦.Text)
If y١ < y٢ Then
MsgBox("Enter the True Date")
Exit Sub
End If
If d١ < d٢ Then
d١ = d١ + ٣٠
m١ = m١ - ١
End If
If m١ < m٢ Then
m١ = m١ + ١٢
y١ = y١ - ١
End If
Label٧.Text = d١ - d٢
Label٨.Text = m١ - m٢
Label٩.Text = y١ - y٢
End Sub

Private Sub Form١_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles MyBase.Load
TextBox٤.Focus()
End Sub

-٢٧-
   ‫ﺇﻇﻬﺎﺭ ﻣﺴﺎﺭ ﺍﳌﻠﻒ‬

Private Sub DriveListBox١_SelectedIndexChanged(ByVal sender As System.Object, ByVal

e As System.EventArgs) Handles DriveListBox١.SelectedIndexChanged
DirListBox١.Path = DriveListBox١.Drive
End Sub

Private Sub DirListBox١_SelectedIndexChanged(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles
DirListBox١.SelectedIndexChanged
FileListBox١.Path = DirListBox١.Path
End Sub

Private Sub FileListBox١_MouseClick(ByVal

sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles
FileListBox١.MouseClick
If DirListBox١.Path <> "\" Then
TextBox١.Text = DirListBox١.Path + "\"
+ FileListBox١.FileName
Else
TextBox١.Text = DirListBox١.Path + "\"
+ FileListBox١.FileName
End If
PictureBox١.ImageLocation = TextBox١.Text
PictureBox١.Show()
End Sub

-٢٨-
   class  ‫ﺑﺮﻧﺎﻣﺞ ﻟﻠﺘﻌﺎﻣﻞ ﻣﻊ‬
‫ ﺍﲰﻬﺎ‬class  ‫ ﻭﻓﺌﺔ‬form١  ‫ﻭﳛﺘﻮﻱ ﺍﻟﱪﻧﺎﻣﺞ ﻋﻠﻰ ﳕﻮﺫﺝ ﺍﲰﻪ‬
  computer.vb 
‫ ﻣﻦ ﺍﻟﻀﻐﻂ ﺑﺎﻟﺰﺭ ﺍﻷﳝﻦ ﻋﻠﻰ ﺍﺳﻢ ﺍﳌﺸﺮﻭﻉ ﰒ ﺇﺿﺎﻓﺔ ﻋﻨﺼﺮ ﺟﺪﻳﺪ ﰒ ﻓﺌﺔ‬class ‫ﺃﺿﻒ‬
:‫ﺃﻭ ﹰﻻ ﺍﻟﻨﻤﻮﺫﺝ ﻭﻛﻮﺩﻩ‬
Public Class Form١
Private Sub Btnrecommandatons_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Btnrecommandatons.Click
Dim objcomp As New Computer
objcomp.processorname = Txtprocessorname.Text
objcomp.processorspeed = Txtprocessorspeed.Text
objcomp.ram = Txtram.Text
objcomp.cdspeed = TxtCDspeed.Text
'call the recommendation method
Txtrecommendations.Text = objcomp.recommendation(objcomp.processorname,
objcomp.processorspeed, objcomp.ram, objcomp.cdspeed)
End Sub
  (computer.vb  )‫ـ‬ class  ‫ﺛﺎﻧﻴﺎ ﻛﻮﺩ ﺍﻝ‬
Public Class Computer
Dim varpname, varpspeed, varram, varcdspeed As String
Property processorname() As String
Get
processorname = varpname
End Get
Set(ByVal value As String)
varpname = value

End Set
End Property
Property processorspeed() As String
Get
processorspeed = varpspeed
End Get
Set(ByVal value As String)
varpspeed = value

End Set
End Property
Property ram() As String
Get
ram = varram
End Get
Set(ByVal value As String)
varram = value
End Set
End Property
Property cdspeed() As String
Get
cdspeed = varcdspeed
End Get
Set(ByVal value As String)
varcdspeed = value
End Set
End Property

-٢٩-
 Public Overridable Function recommendation(ByVal pname As String, ByVal pspeed As
String, ByVal vram As String, ByVal vcdspeed As String)

Dim result As String

result = "the given specificationare:"
result = result & Chr(١٣) & Chr(١٠)
result = result & "processor name:" & pname
result = result & Chr(١٣) & Chr(١٠)
result = result & "processor speed:" & pspeed
result = result & Chr(١٣) & Chr(١٠)
result = result & "ram:" & ram
result = result & Chr(١٣) & Chr(١٠)
result = result & "CDspeed:" & cdspeed
result = result & Chr(١٣) & Chr(١٠)
result = result & "we recommends windows xp !!"
result = result & Chr(١٣) & Chr(١٠)
result = result & "happy working !!"
Return result
End Function

  End Class
 

-٣٠-
 ‫أواﻣﺮ ﻓﺘﺢ ﻣﺮع ﺣﻮاري ﻟﻠﻄﺒﺎﻋﺔ‬

‫‪ ‬‬

‫‪-٣١-‬‬
   (‫ )ﺑﺮﻧﺎﻣﺞ ﺃﺟﻨﺪﺓ ﺗﻠﻴﻔﻮﻥ‬If Then   ‫ﺃﻣﺜﻠﺔ ﻋﻠﻰ ﲨﻞ ﺍﻟﺘﺤﻜﻢ ﰲ ﺍﻟﱪﻧﺎﻣﺞ ﺑﺎﺳﺘﺨﺪﺍﻡ ﲨﻠﺔ‬
 
‫ ﻭﺃﺿﻒ ﺍﻷﲰﺎﺀ‬items  ‫ ﺍﺿﻐﻂ ﻋﻠﻰ‬list box  ‫ ﻭﻣﻦ ﺧﺼﺎﺋﺺ ﺍﻷﺩﺍﺓ‬textbox  ٢‫ ﻭ‬Label ٢‫ ﻭ‬List box   ‫ﺍﻟﱪﻧﺎﻣﺞ ﻳﺘﻜﻮﻥ ﻣﻦ ﻋﻨﺼﺮ‬
‫ﺍﳌﺮﺍﺩ ﻇﻬﻮﺭﻫﺎ ﰲ ﺍﻟﻘﺎﺋﻤﺔ‬

 
 
 
 
 
 
 
Public Class Form١
Private Sub ListBox١_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles ListBox١.Click
If ListBox١.SelectedIndex = ٠ Then
TextBox١.Text = "٠١٠٥٥٥٥٥٥٥"
TextBox٢.Text = "‫"اﻟﻘﺎهﺮة‬
End If
If ListBox١.SelectedIndex = ١ Then
TextBox١.Text = "٠١٠٥٥٥٥٥٥٥"
TextBox٢.Text = "‫"اﻹﺳﻜﻨﺪرﻳﺔ‬
End If
If ListBox١.SelectedIndex = ٢ Then
TextBox١.Text = "٠١٢٥٥٥٥٥٤٥"
TextBox٢.Text = "‫"اﳉﻴﺰة‬
End If
  End Sub
 

 
 
 
 
 

-٣٢-
 ‫ ﻭﺗﺮﺑﻄﻬﺎ ﻣﻊ ﺑﺮﻧﺎﳎﻚ‬Help Files ‫ﻛﻴﻒ ﺗﺼﻨﻊ ﻣﻠﻔﺎﺕ ﺍﳌﺴﺎﻋﺪﺓ‬
‫ﺎ ﺟﻴﺪﺍ ﻭﺍﻷﻥ ﻟﻨﺘﺤﺪﺙ ﻗﻠﻴﻼ ﻋﻦ ﻛﻴﻔﻴﺔ‬ ‫ﺘﻢ‬ ‫ ﻭﺭﺑﻄﻬﺎ ﺑﺎﻟﱪﻧﺎﻣﺞ ﺍﻟﺬﻱ ﻧﺼﻤﻤﻪ ﻣﻦ ﺃﻫﻢ ﺍﻷﺷﻴﺎﺀ ﺍﻟﱵ ﳚﺐ ﻋﻠﻨﺎ ﺃﻥ‬Help ‫ﺇﻥ ﺻﻨﺎﻋﺔ ﻣﻠﻔﺎﺕ‬
: Help‫ﺑﻨﺎﺀ ﻣﻠﻔﺎﺕ‬
‫ﻣﺎ ﻫﻲ ﺍﻷﺩﻭﺍﺕ ﺍﻟﱵ ﳓﺘﺎﺟﻬﺎ؟‬
Help Compiler ‫ ﻭﺃﻳﻀﺎ ﺍﱄ‬Editor ‫ﺳﻨﺤﺘﺎﺝ ﺍﱄ‬
‫ ﻛﺜﲑﺓ ﻭ ﳝﻜﻨﻚ ﺍﻻﻋﺘﻤﺎﺩ ﻋﻠﻲ ﻭﺍﺣﺪ ﻣﻦ ﻫﺬﻩ ﺍﻟﱪﺍﻣﺞ‬Editors ‫ﺑﺮﺍﻣﺞ‬
MS ‫ ﳝﻜﻨﻚ ﺃﻳﻀﺎ ﺍﺳﺘﺨﺪﺍﻡ‬Web Page ‫ ﺑﺸﺮﻁ ﺃﻥ ﲢﻔﻆ ﺍﳌﻠﻔﺎﺕ ﻋﻠﻲ ﺷﻜﻞ‬MS Word ‫ﺃﻭ‬HTML Editor
‫ ﺃﻭ ﺍﻳﻀﺎ ﳝﻜﻨﻚ ﺍﺳﺘﺨﺪﺍﻡ‬HTML ‫ ﻫﺬﺍ ﻃﺒﻌﺎ ﻟﻮ ﺃﻧﺖ ﳏﺘﺮﻑ ﰲ ﻛﻴﻔﻴﺔ ﺍﺳﺘﺨﺪﺍﻣﻪ ﻟﺘﺼﻤﻴﻢ ﻣﻠﻔﺎﺕ‬Notepad ‫ﺃﻭ‬FrontPage
Visual Studio. Net IDE
MS HTM Help Workshop ‫ ﻭﳝﻜﻨﻚ ﺍﺳﺘﺨﺪﺍﻡ ﺑﺮﻧﺎﻣﺞ ﻣﺜﻞ‬Help Compiler ‫ﺃﻳﻀﺎ ﻛﻤﺎ ﺫﻛﺮﺕ ﺳﻮﻑ ﳓﺘﺎﺝ ﺍﱄ‬
‫ ﳝﻜﻦ ﺃﻥ ﺗﻘﻮﻡ ﺑﻌﻤﻞ ﺗﱰﻳﻞ ﻟﻪ ﻣﻦ ﺍﻟﺮﺍﺑﻂ ﺍﻟﺘﺎﱄ‬FREE ‫ﻭﻫﻮ ﺑﺮﻧﺎﻣﺞ ﻣﺘﺎﺡ ﰲ ﻣﻮﺍﻗﻊ ﻣﻴﻜﺮﻭﺳﻮﻓﺖ ﻭﻫﻮ‬
http://msdn.microsoft.com/library/de...pDownloads.asp
‫ ﺑﺸﻜﻠﻪ ﺍﻟﻨﻬﺎﺋﻲ ﻭﻣﻦ ﰒ ﻧﻘﻮﻡ‬Help.chm ‫ ﻟﻠﻤﻠﻔﺎﺕ ﺍﻟﱵ ﻗﺪ ﻗﻤﻨﺎ ﺑﻜﺘﺎﺑﺘﻬﺎ ﻭﲨﻌﻬﺎ ﻣﻌﺎ ﻟﻜﻲ ﻧﻨﺘﺞ ﻣﻠﻒ‬Compiling ‫ﻧﻘﻮﻡ ﺑﻌﻤﻞ‬
.‫ﺑﻮﺿﻊ ﺭﺍﺑﻂ ﺩﺍﺧﻞ ﺍﻟﱪﻧﺎﻣﺞ ﻳﺸﲑ ﺍﱄ ﻫﺬﺍ ﺍﳌﻠﻒ‬
: ‫ ﻭﺑﺮﻧﺎﳎﻚ‬Help ‫ﻛﻴﻒ ﺗﺮﺑﻂ ﺑﲔ ﻣﻠﻒ‬
: ‫ ﺑﺎﻟﱪﻧﺎﻣﺞ‬Help ‫ﻫﻨﺎﻙ ﺛﻼﺛﺔ ﻃﺮﻕ ﻧﺴﺘﻄﻴﻊ ﻣﻦ ﺧﻼﳍﺎ ﺃﻥ ﻧﺮﺑﻂ ﺑﲔ ﻣﻠﻔﺎﺗﺐ‬
Help ‫ ﺃﻭ‬Help ‫ ﻣﻦ ﲢﺖ ﻗﺎﺋﻤﺔ‬System.Diagnostics.Process.Start ‫ ﻭﻫﻲ ﺗﺘﻢ ﺑﺎﺳﺘﺨﺪﺍﻡ‬:‫ﺍﻟﻄﺮﻳﻘﺔ ﺍﻷﻭﱄ‬
‫ ﲢﺖ‬Help ‫ﺩﺍﺧﻞ ﺑﺮﻧﺎﳎﻨﺎ ﻭﺍﻟﻜﻮﺩ ﻳﻜﻮﻥ ﺑﺎﻟﺸﻜﻞ ﺍﻟﺘﺎﱄ ﻭﻫﺬﻩ ﺍﻟﻄﺮﻳﻘﺔ ﻫﻲ ﺍﻷﺳﻬﻞ ﻋﻠﻲ ﺍﻹﻃﻼﻕ ﻋﻠﻲ ﺃﻥ ﻧﻀﻊ ﻣﻠﻔﺎﺕ‬Contents
:Application StartPath

Public Class Form١

Private Sub ContentsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ContentsToolStripMenuItem.Click
System.Diagnostics.Process.Start(Application.StartupPath & "\printing.chm")
End Sub
End Class

Application ‫ ﲝﻴﺚ ﻧﻀﻊ ﻣﻠﻒ ﺍﳌﺴﺎﻋﺪﺓ ﲢﺖ‬Help Class ‫ ﻭﻫﻲ ﺃﻳﻀﺎ ﻃﺮﻳﻘﺔ ﺳﻬﻠﺔ ﻭﻓﻴﻬﺎ ﻧﺴﺘﺨﺪﻡ‬:‫ﺍﻟﻄﺮﻳﻘﺔ ﺍﻟﺜﺎﻧﻴﺔ‬
‫ ﻛﻤﺎ ﻫﻮ ﻣﺒﲔ ﰲ ﺍﻟﻜﻮﺩ ﺍﻟﺘﺎﱄ‬Help ‫ ﺃﻭ ﻟﻌﺮﺽ ﻣﻠﻒ‬Index ‫ﻭﻳﺘﻢ ﺍﺳﺘﺨﺪﺍﻡ ﻫﺬﺍ ﺍﻟﻜﻼﺱ ﻟﻌﺮﺽ‬StartupPath

Private Sub ContentsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles ContentsToolStripMenuItem.Click
Help.ShowHelp(Me, Application.StartupPath & "\printing.chm")
End Sub
Private Sub IndexToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles IndexToolStripMenuItem.Click
Help.ShowHelpIndex(Me, Application.StartupPath & "\printing.chm")
End Sub
End Class

-٣٣-
‫ ﺍﱄ‬Toolbox ‫ ﻭﻫﻲ ﺗﺘﻢ ﺑﺈﺿﺎﻓﺔ ﻫﺬﺍ ﺍﻟﻜﻮﻧﺘﺮﻭﻝ ﻣﻦ‬Help Provider Control F١ ‫ ﳝﻜﻨﻚ ﺍﺳﺘﺨﺪﺍﻡ‬:‫ﺍﻟﻄﺮﻳﻘﺔ ﺍﻟﺜﺎﻟﺜﺔ‬
‫ ﳝﻜﻦ ﺍﺳﺘﺨﺪﺍﻣﻬﺎ ﻟﻌﺮﺽ ﻣﻠﻔﺎﺕ ﺍﳌﺴﺎﻋﺪﺓ ﻭﻫﻲ ﺗﺴﻤﺢ ﻟﻚ ﺑﺈﻧﺸﺎﺀ‬Properties ‫ﺍﻟﻔﻮﺭﻡ ﺍﻟﺮﺋﻴﺴﻲ ﻣﺜﻼ ﻭﻫﺬﺍ ﺍﻟﻜﻮﻧﺘﺮﻭﻝ ﻟﻪ ﺻﻔﺎﺕ‬
‫ ﻭ ﻧﺼﻴﺤﺔ ﻻ‬HelpNameSpace Property ‫ﻭﺃﻫﻢ ﺻﻔﺎﺕ ﻫﺬﺍ ﺍﻟﻜﻮﻧﺘﺮﻭﻝ ﻫﻲ‬Context-sensitive help
‫ ﺃﺛﻨﺎﺀ ﺍﻟﺘﺸﻐﻴﻞ ﻓﻠﻮ ﻗﻤﺖ ﺑﺘﺤﺪﻳﺪ ﻗﻴﻤﺔ ﳍﺎ ﻣﻦ ﺩﺍﺧﻞ‬Dynamically ‫ﺗﻐﲑ ﺃﻭ ﲢﺪﺩ ﻗﻴﻤﺔ ﳍﺬﻩ ﺍﳋﺎﺻﻴﺔ ﺇﻻ ﻋﻦ ﻃﺮﻳﻖ ﺍﻟﻜﻮﺩ ﺃﻱ‬
‫ﻗﺒﻞ ﺑﺪﺉ ﺍﻟﱪﻧﺎﻣﺞ ﻓﺈﻥ ﺍﳌﻠﻒ ﻗﺪ ﻳﻌﻤﻞ ﺟﻴﺪﺍ ﻋﻠﻲ ﺟﻬﺎﺯﻙ ﻭﻟﻜﻨﻪ ﻟﻦ ﻳﻌﻤﻞ ﻋﻨﺪﻣﺎ ﺗﻘﻮﻡ ﺑﺘﺸﻐﻴﻞ ﺑﺮﻧﺎﳎﻚ‬Properties Window
. ‫ﻋﻠﻲ ﻛﻤﺒﻴﻮﺗﺮ ﺍﻟﻌﻤﻴﻞ ﺃﻭ ﻋﻨﺪ ﲡﺮﻳﺐ ﺑﺮﻧﺎﳎﻚ ﻋﻠﻲ ﺃﻱ ﻛﻤﺒﻴﻮﺗﺮ ﺃﺧﺮ‬

HelpProvider١.HelpNamespace = Application.StartupPath & "\printing.chm"

Public Class Form١

Private Sub ContentsToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
ContentsToolStripMenuItem.Click
Help.ShowHelp(Me, Application.StartupPath & "\printing.chm")
End Sub
Private Sub IndexToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
IndexToolStripMenuItem.Click
Help.ShowHelp(Me, Application.StartupPath & "\printing.chm")
End Sub

-٣٤-
 ‫ﻗﻮﺍﻋﺪ ﺍﻟﺒﻴﺎﻧﺎﺕ‪ ‬ﰲ ‪  VB.net ‬‬
‫ﻣﺎ ﻫﻲ ﻗﺎﻋﺪﺓ ﺍﻟﺒﻴﺎﻧﺎﺕ؟‪:‬‬
‫ﺕ ﺍﻟﱵ ﺗﺮﺑﻄﻬﺎ ﻋﻼﻗﺎﺕ ﻣﻌﻴ‪‬ﻨﺔ‪ ،‬ﻣﺜـﻞ‬ ‫ﺐ ﺗﺴﺘﻄﻴﻊ ﻣﻦ ﺧﻼﻟﻪ ﲣﺰﻳﻦ ﻛﻤ‪‬ﻴ ﹰﺔ ﺿﺨﻤ ﹰﺔ ﻣﻦ ﺍﻟﺒﻴﺎﻧﺎ ‪‬‬ ‫ﻗﺎﻋﺪﺓ ﺍﻟﺒﻴﺎﻧﺎﺕ ‪ Database‬ﻫﻲ ﺗﺮﻛﻴ ‪‬‬
‫ﺍﳉﺪﺍﻭﻝ ﻭﻫﻨﺎﻙ ﺃﻧﻮﺍﻉ ﻛﺜﲑﺓ ﻣﻦ ﻗﻮﺍﻋﺪ ﺍﻟﺒﻴﺎﻧﺎﺕ‪ ،‬ﺗﺒﻌﺎ ﻟﻠﺸﺮﻛﺔ ﺍﻟﱵ ﺗﻨﺘﺠﻬﺎ ﻭﺍﻟﱪﺍﻣﺞ ﺍﻟﱵ ﺗﻨﺸﺌﻬﺎ‪ ،‬ﻓﻬﻨﺎﻙ ﻗﻮﺍﻋﺪ ﺑﻴﺎﻧـﺎﺕ ﺑﺮﻧـﺎﻣﺞ‬
‫‪ Access‬ﻭﺑﺮﻧﺎﻣﺞ ‪ SQL Server‬ﻭﳘﺎ ﻣﻦ ﺇﻧﺘﺎﺝ ﻣﻴﻜﺮﻭﺳﻮﻓﺖ‪ ،‬ﻭﻫﻨﺎﻙ ﻋﺸﺮﺍﺕ ﺍﻟﱪﺍﻣﺞ ﻏﲑﳘﺎ ﻣﻦ ﺇﻧﺘﺎﺝ ﺷﺮﻛﺎﺕ ﺃﺧﺮﻯ‪.‬‬
‫ﻭﺗﺴﻤ‪‬ﻰ ﻫﺬﻩ ﺍﻟﱪﺍﻣﺞ "ﺃﻧﻈﻤﺔ ﺇﺩﺍﺭﺓ ﻗﻮﺍﻋﺪ ﺍﻟﺒﻴﺎﻧﺎﺕ" )‪ ،Database Management Systems (DBMS‬ﻭﻣﻬﻤ‪‬ﺘـﻬﺎ‬
‫ﺚ‬
‫ﺕ ﻭﺍﻟﺘﻌﺎﻣ ﹺﻞ ﻣﻌﻬﺎ‪ ،‬ﺑﺄﺳﻬ ﹺﻞ ﻃﺮﻳﻘ ‪‬ﺔ ﻭﺃﻓﻀ ﹺﻞ ﺇﻣﻜﺎﻧﻴ‪‬ﺎﺕ‪ ،‬ﲝﻴـ ﹸ‬ ‫ﺕ ﺍﻟﻼﺯﻣﺔ ﻹﻧﺸﺎ ِﺀ ﻗﻮﺍﻋ ‪‬ﺪ ﺍﻟﺒﻴﺎﻧﺎ ‪‬‬
‫ﺍﻷﺳﺎﺳﻴ‪‬ﺔ ﺃﻥ ﲤﻨﺤﻚ ﺍﻟﻮﺳﺎﺋﻞ ﻭﺍﻷﺩﻭﺍ ‪‬‬
‫ﻒ ﻗﺎﻋﺪﺓ ﺍﻟﺒﻴﺎﻧﺎﺕ‪.‬‬ ‫ﲔ ﺍﻟﺒﻴﺎﻧﺎﺕ ﺍﳌﺨﺰ‪‬ﻧﺔ ﰲ ﻣﻠ ‪‬‬
‫ﺗﻘﻮﻡ ﺑﺪﻭﺭ ﺍﻟﻮﺳﻴﻂ ﺑﻴﻨﻚ ﻭﺑ ‪‬‬
‫ﻭﻣﻬﻤﺎ ﻛﺎ ﹶﻥ ﻧﻮﻉ ﻗﺎﻋﺪﺓ ﺍﻟﺒﻴﺎﻧﺎﺕ ﺍﻟﱵ ﺗﺘﻌﺎﻣﻞ ﻣﻌﻬﺎ‪ ،‬ﻭﻣﻬﻤﺎ ﻛﺎﻧﺖ ﻃﺮﻳﻘﺔ ﲣﺰﻳﻨﻬﺎ ﰲ ﺍﳌﻠﻒ‪ ،‬ﻓﺈ ﱠﻥ ﻛ ﹼﻞ ﻗﻮﺍﻋﺪ ﺍﻟﺒﻴﺎﻧﺎﺕ ﺗﺘﺒﻊ ﻗﻮﺍﻋـ ‪‬ﺪ‬
‫ﺃﺳﺎﺳﻴ‪‬ﺔ ﻭﲢﻘﹼﻖ ﺷﺮﻭﻃﺎ ﻣﻌﻴ‪‬ﻨﺔ ﻣﺘﻌﺎﺭﻓﺎ ﻋﻠﻴﻬﺎ ﺩﻭﻟﻴ‪‬ﺎ‪ ،‬ﻛﻤﺎ ﺃﻧ‪‬ﻬﺎ ﻛﻠﹼﻬﺎ ﺑﻼ ﺍﺳﺘﺜﻨﺎﺀ ﺗﺴﺘﺨﺪﻡ "ﻟﻐﺔ ﺍﻻﺳﺘﻌﻼﻡ ﺍﳌﺮﻛﹼﺒـﺔ" ‪Structured‬‬
‫)‪ ،Query Language (SQL‬ﻭﻫﻲ ﻟﻐﺔ ﺧﺎﺻ‪‬ﺔ ﳊﻔﻆ ﻭﺍﺳﺘﺮﺟﺎﻉ ﻭﲢﺪﻳﺚ ﺍﻟﺒﻴﺎﻧﺎﺕ ﰲ ﻗﻮﺍﻋﺪ ﺍﻟﺒﻴﺎﻧﺎﺕ‪.‬‬

‫ﺃﻭ ﹰﻻ‪ :‬ﺭﺑﻂ ‪ access‬ﺑـ ‪  VB.net ‬‬

‫ﻭﺳﻴﺘﻢ ﺍﻟﺸﺮﺡ ﻣﻦ ﺧﻼﻝ ﻗﺎﻋﺪﺓ ﺑﻴﺎﻧﺎﺕ ﻟﺼﻴﺪﻟﻴﺔ ‪:‬‬
‫ﺍﳋﻄﻮﺍﺕ ‪  :‬‬
‫‪ .١‬ﺍﻓﺘﺢ ﺑﺮﻧﺎﻣﺞ ‪ access‬ﻭﺇﻧﺸﻰﺀ ﻗﺎﻋﺪﺓ ﺑﻴﺎﻧﺎﺕ ﺑﺎﺳﻢ ‪ pharmacy ‬ﺎﺟﺪﻭﻝ ﺍﲰﻪ ‪ product‬ﳛﺘﻮﻱ ﻋﻠﻰ ﺍﳊﻘﻮﻝ‬
‫ﺍﻟﺘﺎﻟﻴﺔ ‪  :‬‬
‫‪productna productseri manufactu productda productexpi‬‬
‫‪ID ‬‬
‫‪me ‬‬ ‫‪al ‬‬ ‫‪re ‬‬ ‫‪te ‬‬ ‫‪re ‬‬
‫‪١ ‬‬ ‫‪hohna ‬‬ ‫‪٥٤٦ ‬‬ ‫‪cairo ‬‬ ‫‪٢/٣/٢٠٠٠  ٢/٣/٢٠٠٩ ‬‬
‫‪ .٢‬ﺍﻓﺘﺢ ‪ vb.net‬ﻭﻣﻦ ﻗﺎﺋﻤﺔ ‪ project ‬ﳔﺘﺎﺭ ‪ Add new item ‬ﻓﺘﻈﻬﺮ ﻋﺪﺓ ﺇﺧﺘﻴﺎﺭﺍﺕ ﳓﺪﺩ ﻣﻨﻬﺎ ﺍﻹﺧﺘﻴﺎﺭ ‪Data ‬‬
‫‪  form wizard‬‬
‫‪ .٣‬ﻳﻈﻬﺮ ﻣﻌﺎﰿ ﳕﻮﺫﺝ ﺍﻟﺒﻴﺎﻧﺎﺕ ‪ Data Form Wizard‬ﺍﻟﺬﻱ ﺳﻴﺴﺘﺨﺪﻡ ﰲ ﻋﻤﻠﻴﺔ ﺍﻟﺮﺑﻂ ﺇﺿﻐﻂ ‪ Next ‬ﻭﺣﺪﺩ ﺍﺳﻢ‬
‫‪ Data set ‬ﻭﻟﻴﻜﻦ ‪  Pharm‬‬ ‫ﻟﻠـ‬
‫‪ .٤‬ﺇﺿﻐﻂ ‪ New Connection ‬ﻟﻌﻤﻞ ﺍﺗﺼﺎﻝ ﺟﺪﻳﺪ ﻭﻣﻦ ﺗﺒﻮﻳﺐ ‪ provider ‬ﺣﺪﺩ ‪Microsoft jet ٤.٠‬‬
‫‪  OLE DB Provider‬‬
‫‪ .٥‬ﻭﻣﻦ ﺗﺒﻮﻳﺐ ‪ Connection ‬ﺣﺪﺩ ﻗﺎﻋﺪﺓ ﺍﻟﺒﻴﺎﻧﺎﺕ ﺍﻟﱵ ﺗﺮﻳﺪ ﺍﻹﺗﺼﺎﻝ ‪‬ﺎ ‪ ‬‬
‫‪ .٦‬ﺇﺿﻐﻂ ‪ Test Connection ‬ﻹﺧﺘﺒﺎﺭ ﺍﻹﺗﺼﺎﻝ ‪ ‬‬
‫‪ .٧‬ﺗﻈﻬﺮ ﻧﺎﻓﺬﺓ ‪‬ﺎ ﺍﳉﺪﻭﺍﻝ ﺍﳌﻮﺟﻮﺩﺓ ﰲ ﺍﻟﻘﺎﻋﺪﺓ ﺣﺪﺩ ﺍﳉﺪﻭﺍﻝ ﺍﻟﱵ ﺗﺮﻳﺪ ﻇﻬﻮﺭﻫﺎ ﻭﻟﻴﻜﻦ ﺟﺪﻭﻝ ‪ Product‬ﰒ‪   Next‬‬

‫‪-٣٥-‬‬
 ‫‪ .٨‬ﺣﺪﺩ ﺍﻹﻋﻤﺪﺓ ﺍﻟﱵ ﺗﺮﻏﺐ ﻇﻬﻮﺭﻫﺎ ﰒ ‪  Next‬‬
‫‪ .٩‬ﻧﺸﻆ ﺍﻹﺧﺘﻴﺎﺭ ‪ single record in individual  controls ‬ﻭﻧﺸﻂ ﲨﻴﻊ ﺍﻹﺧﺘﻴﺎﺭﺍﺕ ﺍﻷﺧﺮﻯ ﻹﻇﻬﺎﺭ ﺃﺯﺭﺍﺭ‬
‫ﻟﻠﺘﺤﻜﻢ ﰒ ‪ Finish‬ﻓﻴﻈﻬﺮ ﺍﻟﻨﻤﻮﺫﺝ ﺍﻟﺘﺎﱄ ﺍﻟﺬﻱ ﰎ ﺇﻧﺸﺎﺋﻪ ﺃﻭﺗﻮﻣﺎﺗﻴﻜﻴﺎ‪  .‬‬
‫‪ .١٠‬ﺷﻐﻞ ﺍﻟﱪﻧﺎﻣﺞ ﻭﻻﺣﻆ ﺃﻥ ﳕﻮﺫﺝ ﺍﻟﺒﻴﺎﻧﺎﺕ ﻟﻦ ﻳﻈﻬﺮ ﻛﺄﻭﻝ ﳕﻮﺫﺝ ﻟﺬﺍ ﳚﺐ ﺗﻐﻴﲑ ﺍﻟﻨﻤﻮﺫﺝ ﺍﻹﺑﺘﺪﺍﺋﻲ ﺑﺎﻟﻀﻐﻂ ﺑﺎﻟﺰﺭ ﺍﻷﳝﻦ‬
‫ﻋﻠﻰ ﺍﺳﻢ ﺍﳌﺸﺮﻭﻉ ﰲ ﻧﺎﻓﺬﺓ ‪ Solution Explorer‬ﰒ ‪ Properties‬ﰒ ﻏﲑ ‪ Start up Object ‬ﺇﱃ ‪Data ‬‬
‫‪  form١‬‬
‫‪ .١١‬ﺇﺿﻐﻂ ﺯﺭ ‪ Load ‬ﺳﺘﺠﺪ ﺃﻥ ﺍﻟﺒﻴﺎﻧﺎﺕ ﻗﺪ ﻇﻬﺮﺕ ‪ ‬‬
‫‪ .١٢‬ﺳﺠﻞ ﺍﻟﺒﻴﺎﻧﺎﺕ ﰒ ﺇﺿﻐﻂ ﺯﺭ ‪ update ‬ﻟﺘﺤﺪﻳﺚ ﻗﺎﻋﺪﺓ ﺍﻟﺒﻴﺎﻧﺎﺕ ‪ ‬‬

‫‪ ‬‬
‫‪ .١٣‬ﻋﻨﺪﻣﺎ ﺗﻌﻮﺩ ﺇﱃ ﻧﺎﻓﺬﺓ ﺍﻟﺘﺼﻤﻴﻢ ﺳﺘﺠﺪ ﺃﻥ ﺍﻟﱪﻧﺎﻣﺞ ﻗﺪ ﺃﺿﺎﻑ ﻋﻨﺎﺻﺮ ﲢﻜﻢ ﺃﻭﺗﻮﻣﺎﺗﻴﻜﻴﺎ ﻟﻠﱪﻧﺎﻣﺞ ﻛﻤﺎ ﻳﻠﻲ ‪  :‬‬

‫‪ ‬‬
‫‪ .١٤‬ﻭﺳﺘﻼﺣﻆ ﺃﻳﻀﺎ ﺃﻥ ﺍﻟﱪﻧﺎﻣﺞ ﻛﺘﺐ ﺍﻟﻜﻮﺩ ﺍﻟﻼﺯﻡ ‪ ‬‬
‫‪ .١٥‬ﻻﺣﻆ ﺃﻥ ﺍﻟﺒﻴﺎﻧﺎﺕ ﻟﻦ ﺗﻈﻬﺮ ﺇﻻ ﻋﻨﺪ ﺍﻟﻀﻐﻂ ﻋﻠﻰ ﺯﺭ ‪ Update‬ﻟﺬﺍ ﳝﻜﻨﻚ ﻗﺺ ﺍﻟﻜﻮﺩ ﺍﳌﻮﺟﻮﺩ ﺧﻠﻒ ﻫﺬﺍ ﺍﻟﺰﺭ ﻭﻟﺼﻘﻪ‬
‫ﰲ ﺍﻹﺟﺮﺍﺀ ‪ Form _Load  ‬ﻟﻜﻲ ﺗﻈﻬﺮ ﺍﻟﺒﻴﺎﻧﺎﺕ ﺗﻠﻘﺎﺋﻴﺎ ﲟﺠﺮﺩ ﺗﺸﻐﻴﻞ ﺍﻟﻨﻤﻮﺫﺝ ‪  .‬‬
‫‪ .١٦‬ﳝﻜﻨﻚ ﺇﺿﺎﻓﺔ ﺯﺭ ﺃﻣﺮ ﻹﺳﺘﺪﻋﺎﺀ ﳏﺘﻮﻳﺎﺕ ﺟﺪﻭﻝ ﻣﻌﲔ ﻭﻭﺿﻌﻪ ﻋﻠﻰ ﺃﻱ ﳕﻮﺫﺝ ﻛﻤﺎ ﻳﻠﻲ ‪  :‬‬
‫‪ .١‬ﺇﺭﺳﻢ ‪ data grid ‬ﻭﺯﺭ ﺃﻣﺮ ‪ ‬‬
‫‪ .٢‬ﺇﺳﺤﺐ ﻣﻦ ﺍﻷﺩﻭﺍﺕ ﺍﻷﺩﺍﺓ ‪ OLEDBadapter‬ﻓﺘﺼﺒﺢ ‪ ‬‬
‫‪ .٣‬ﻳﻈﻬﺮ ﻣﻌﺎﰿ ﺣﺪﺩ ﻓﻴﻪ ﺇﺳﻢ ﻗﺎﻋﺪﺓ ﺍﻟﺒﻴﺎﻧﺎﺕ ﰒ ﺇﺿﻐﻂ ‪ Next‬ﻣﺮﺗﲔ ‪ ‬‬
‫‪ .٤‬ﺇﺿﻐﻂ ﻋﻠﻰ ‪ query Builder‬ﰒ ﺣﺪﺩ ﺇﺳﻢ ﺍﳉﺪﻭﻝ ﻭﺿﻊ ﻋﻼﻣﺔ ; ﺃﻣﺎﻡ ﺣﻘﻠﻲ ‪Productname ‬‬
‫‪,ID‬ﰒ ‪ Ok‬ﰒ ‪  Finish‬‬

‫‪-٣٦-‬‬
‫ ﻭﲰﻴﻬﺎ ﰒ ﺷﻐﻞ‬generate  dataset ‫ ﻭﺇﺧﺘﺮ‬OLEDBadapter ‫ ﺇﺿﻐﻂ ﺑﺎﻟﺰﺭﺍﻷﳝﻦ ﻋﻠﻰ‬.٥
  ‫ﺍﻟﻨﻤﻮﺫﺝ‬
‫ﻭ‬Enable=true ‫ ﻋﻠﻰ ﺍﻟﻨﻤﻮﺫﺝ ﻭﺗﻨﺸﻴﻂ ﺍﳋﺎﺻﻴﺘﲔ‬Timer  ‫ ﳝﻜﻨﻚ ﺟﻌﻞ ﺍﻟﻨﻤﻮﺫﺝ ﻳﻈﻬﺮ ﺃﻭ ﳜﺘﻔﻲ ﺗﺪﺭﳚﻴﺎ ﺑﻮﺿﻊ‬.١٧
  ‫ ﻭﺧﻠﻒ ﺯﺭ ﺍﻹﻏﻼﻕ‬Timer ‫ ﻭﻛﺘﺎﺑﺔ ﺍﻟﻜﻮﺩ ﺍﻟﺘﺎﱄ ﺧﻠﻒ ﺍﻟـ‬Interval=١٠
Private Sub Timer١_Tick(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Timer١.Tick
If Me.Opacity >= ١ Then Me.Timer١.Stop()
Me.Opacity += ٠.٠٥
End Sub
Private Sub Button١_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button١.Click
If Me.Opacity >= ١ Then Me.Timer١.Start()
Me.Opacity -= ٠.٠٩
End
End Sub
Date time Picker  ‫ ﲝﺬﻓﻬﺎ ﻭﺍﺳﺘﺒﺪﺍﳍﺎ ﺑـﺄﺩﺍﺓ‬Text box  ‫ ﳝﻜﻨﻚ ﺍﺳﺘﺒﺪﺍﻝ ﺣﻘﻮﻝ ﺍﻟﺘﺎﺭﻳﺦ ﺍﻟﱵ ﺃﻧﺸﺄﻫﺎ ﺍﻟﱪﻧﺎﻣﺞ‬.١٨
‫ ﺣﺪﺩ‬Product  ‫ ﻋﻨﺪ ﺍﻟﻀﻐﻂ ﻋﻠﻴﻪ ﻳﻈﻬﺮ ﺍﳉﺪﻭﻝ‬Text  ‫ ﻭﺍﻟﱵ ﻓﻴﻬﺎ ﻋﻨﺼﺮ‬Data Binding  ‫ﻓﻘﻂ ﻏﲑ ﺍﳋﺎﺻﻴﺔ‬
  .‫ﺍﳊﻘﻞ ﺍﳌﻄﻠﻮﺏ ﺍﻹﺭﺗﺒﺎﻁ ﺑﻪ‬
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-٣٧-
 ‫ﺇﻧﺸﺎﺀ ﺍﻟﺘﻘﺮﻳﺮ ‪ ‬‬
‫‪ .١‬ﳝﻜﻨﻚ ﺇﻧﺸﺎﺀ ﺍﻟﺘﻘﺎﺭﻳﺮ ﺑﺈﺿﺎﻓﺔ ﻋﻨﺼﺮ ‪ Crystal  report‬ﻭﺫﻟﻚ ﺑﻔﺘﺢ ﻗﺎﺋﻤﺔ ‪ project ‬ﳔﺘﺎﺭ ‪Add  new ‬‬
‫‪ item ‬ﻓﺘﻈﻬﺮ ﻋﺪﺓ ﺇﺧﺘﻴﺎﺭﺍﺕ ﳓﺪﺩ ﻣﻨﻬﺎ ﺍﻹﺧﺘﻴﺎﺭ ‪  Crystal report ‬‬
‫‪ .٢‬ﻓﻴﻈﻬﺮ ﻣﻌﺎﰿ ‪ Crystal report‬ﻭﻳﻄﻠﺐ ﻣﻨﻚ ﺍﻟﺘﺴﺠﻴﻞ ‪ register ‬ﺣﺪﺩ ‪  Register later ‬‬
‫‪ .٣‬ﺍﺧﻨﺮ ﺷﻜﻞ ﺍﻟﺘﻘﺮﻳﺮ ﺍﻟﺬﻱ ﻳﻨﺎﺳﺒﻚ ‪ ‬‬
‫‪ .٤‬ﻣﻦ ‪ Available  sources ‬ﺍﺧﺘﺮ ‪OLE  DB ‬‬
‫‪  ADO‬‬
‫‪ ‬‬
‫‪ ‬‬
‫‪١ ‬‬

‫‪٢‬‬

‫‪ .٥‬ﺣﺪﺩ ﺍﺳﻢ ﻗﺎﻋﺪﺓ ﺍﻟﺒﻴﺎﻧﺎﺕ ﻭﻧﻮﻋﻬﺎ ﰒ ﺃﺿﻐﻂ ‪  Finish ‬‬

‫‪ .٦‬ﰲ ﺍﻟﻨﺎﻓﺬﺓ ﺍﻟﺘﺎﻟﻴﺔ ﺣﺪﺩ ﺃﲰﺎﺀ ﺍﳊﻘﻮﻝ ﺍﻟﱵ ﺗﺮﻳﺪ ﻇﻬﻮﺭﻫﺎ ﰲ ﺍﻟﺘﻘﺮﻳﺮ ‪ ‬‬
‫‪ .٧‬ﳝﻜﻨﻚ ﻋﻤﻞ ﲡﻤﻴﻊ ‪ Group By ‬ﺑﺄﺣﺪ ﺣﻘﻮﻝ ﺍﳉﺪﻭﻝ ‪ ‬‬
‫‪ .٨‬ﳝﻜﻨﻚ ﻋﻤﻞ ﻣﻠﺨﺺ ‪  (Min‐max‐sum…)summarize‬‬
‫‪ .٩‬ﺇﺿﻐﻂ ﺇ‪‬ﺎﺀ ‪ ‬‬
‫‪ .١٠‬ﻗﻢ ﺑﺈﻧﺸﺎﺀ ﳕﻮﺫﺝ ﺟﺪﻳﺪ‪ Form٢ ‬ﻭﺍﺧﺘﺮ ﻣﻦ ﺻﻨﺪﻭﻕ ﺍﻷﺩﻭﺍﺕ ﺍﻷﺩﺍﺓ ‪ Crystal report Viewer ‬ﻭﺿﻌﻬﺎ ﻋﻠﻰ‬
‫ﺍﻟﻨﻤﻮﺫﺝ ﻭﺍﻛﺘﺐ ﺍﻟﻜﻮﺩ ﺍﻟﺘﺎﱄ ﺧﻠﻒ ﺍﻟﻨﻤﻮﺫﺝ ﻟﻴﺘﻢ ﺍﻟﺘﻨﻔﻴﺬ ﻋﻦ ﲢﻤﻴﻞ ﺍﻟﻨﻤﻮﺫﺝ ‪  .‬‬
‫‪Private Sub Form١_Load(ByVal sender As System.Object, ByVal e As‬‬
‫‪System.EventArgs) Handles MyBase.Load‬‬
‫)(‪CrystalReportViewer١.ReportSource = New CrystalReport١‬‬
‫‪End Sub‬‬
‫‪End Class‬‬

‫‪-٣٨-‬‬
‫ ﻣﻜﺘﻮﺏ ﻋﻠﻴﻪ ﻋﺮﺽ‬Data form١ ‫ﺍﻟﺘﺎﱄ ﺑﻌﻤﻞ ﺯﺭ ﰲ ﺍﻟﻨﻤﻮﺫﺝ ﺍﻷﻭﻝ‬   ‫ ﳝﻜﻨﻚ ﺍﻟﺮﺑﻂ ﺑﲔ ﺍﻟﻨﻤﺎﺫﺝ ﺍﳌﺨﺘﻠﻔﺔ ﺑﺎﻷﻣﺮ‬.١١
  :‫ﺍﻟﺘﻘﺮﻳﺮ ﻭﻧﻜﺘﺐ ﺧﻠﻔﻪ ﺍﻟﻜﻮﺩ ﺍﻟﺘﺎﱄ‬
Dim form As New Form١() ‫ﻳﻈﻬﺮ ﺃﻭﺗﻮﻣﺎﺗﻴﻜﺎ ﻓﻬﻮ ﺍﻹﺳﻢ ﺍﻟﱪﳎﻲ‬
Form٢.Show()
Me.Hide()
‫ﺃﻧﻮﺍﻉ ﻭﺍﺟﻬﺔ ﺍﻟﺘﻄﺒﻴﻖ‬

  ‫ﻋﻤﻞ ﳕﻮﺫﺝ ﻛﻠﻤﺔ ﺍﻟﺴﺮ ﻟﻠﱪﻧﺎﻣﺞ‬

‫ ﻭﻻ ﺗﻨﺴﻰ ﻷﻥ ﺗﻐﲑ‬  ‫ﺻﻤﻢ ﺍﻟﻨﻤﻮﺫﺝ ﺍﻟﺘﺎﱄ ﻟﻴﻜﻮﻥ ﺍﻟﻨﻤﻮﺫﺝ ﺍﻹﻓﺘﺘﺎﺣﻲ‬
* ‫ ﺇﱃ‬Password char ‫ ﳌﺮﺑﻊ ﺍﻟﻨﺺ ﺇﱃ‬Text ‫ﺍﳋﺎﺻﻴﺔ‬
Private Sub Button١_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button١.Click
Const pwd As String = "ali"
If TextBox١.Text = pwd Then
Dim dataform١ As New DataForm١()
dataform١.Show()
Me.Hide()
Else
MsgBox(" ‫)"ﺑﺎﻟﺪﺧﻮل ﻟﻚ ﻣﺼﺮح ﻏﲑ أﻧﺖ‬
End If
End Sub
Private Sub Button٢_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button٢.Click
End
End Sub

-٣٩-
   VB.net  ‫ ﺑـ‬SQL express‫ ﺭﺑﻂ‬:‫ﺛﺎﻧﻴﹰﺎ‬
 

-٤٠-
 
 

 
 
 
-٤١-
 ‫ﺍﳋﻄﻮﺍﺕ ‪:‬‬
‫‪ .١‬ﺛﺒﺖ ﺑﺮﻧﺎﻣﺞ ‪ Microsoft  SQL  server    Desktop  Engine   ‬ﻭﻫﻮ ﻣﻮﺟﻮﺩ ﻋﻠﻰ ﺍﺳﻄﻮﺍﻧﺔ‪٢٠٠٣‬‬
‫‪Microsoft Office XP‬‬

‫‪ ‬‬
‫‪ .٢‬ﻗﻢ ﺑﻌﻤﻞ ‪ Restart ‬ﻟﻠﺠﻬﺎﺯ ‪ ‬‬
‫‪ .٣‬ﺍﻓﺘﺢ ‪ VB.net ‬ﰒ ﺃﻧﺸﻰﺀ ﻣﺸﺮﻭﻉ ﺟﺪﻳﺪ ‪  Windows Application‬‬
‫‪ .٤‬ﻣﻦ ﻗﺎﺋﻤﺔ ‪ View ‬ﺇﻓﺘﺢ ‪  Server Explorer ‬‬
‫‪ .٥‬ﺇﺿﻐﻂ ﺑﺎﻟﺰﺭ ﺍﻷﳝﻦ ﻋﻠﻰ ‪ Data Connection ‬ﰒ ‪  create new SQL Server Data base ‬‬

‫‪ ‬‬
‫‪ .١‬ﺍﻛﺘﺐ ﺍﺳﻢ ﺍﻟـ ‪ server ‬ﻭﻫﻮ ﺍﺳﻢ‬
‫ﺟﻬﺎﺯﻙ ﺃﻭ ﺇﺫﺍ ﻛﻨﺖ ﺗﻌﻤﻞ ﰲ ﺑﻴﺌﺔ ﺷﺒﻜﺔ‬
‫ﻭﻫﻨﺎﻙ ﺟﻬﺎﺯ ‪ SQL server ‬ﺍﻛﺘﺐ‬
‫ﺍﲰﻪ ‪ ‬‬
‫‪ .٢‬ﺣﺪﺩ ﺍﺳﻢ ﻟﻘﺎﻋﺪﺓ ﺍﻟﺒﻴﺎﻧﺎﺕ ﻭﻟﻴﻜﻦ‬
‫‪  students  ‬‬
‫‪ .٣‬ﺍﺧﺘﺮ ‪Use windows NT  ‬‬
‫‪ integrity Security ‬ﻓﺎﻹﺧﺘﻴﺎﺭ ﺍﻟﺜﺎﱐ ﻳﻌﲎ ﺃﻧﻚ ﺳﺘﺘﺼﻞ ﲞﺎﺩﻡ ‪ SQL‬ﻭﻻﺑﺪ ﺃﻥ ﻳﻜﻮﻥ ﻟﺪﻳﻚ ﻛﻠﻤﺔ ﺍﻟﺴﺮ‪  .‬‬

‫‪-٤٢-‬‬
‫‪ .٤‬ﻳﻈﻬﺮ ﺍﺳﻢ ﻗﺎﻋﺪﺓ ﺍﻟﺒﻴﺎﻧﺎﺕ ﺃﺳﻔﻞ ﺍﳋﺎﺩﻡ ﺃﺿﻐﻂ ﻋﻠﻰ ‪ +‬ﻟﻔﺘﺢ ﳏﺘﻮﻳﺎ‪‬ﺎ ﻭﺑﺎﻟﺰﺭ ﺍﻷﳝﻦ ﻋﻠﻰ ﻋﻨﺼﺮ ‪ table ‬ﺇﺿﻐﻂ ‪New ‬‬
‫‪  Table‬‬

‫‪ ‬‬

‫‪-٤٣-‬‬
 ‫‪ .٥‬ﺻﻤﻢ ﺍﳉﺪﻭﻝ ﺍﻟﺘﺎﱄ ﻛﻤﺎ ﺗﻌﻠﻤﺖ ﰲ ﺑﺮﻧﺎﻣﺞ ‪ Access ‬ﻭﺍﺣﻔﻈﻪ ﺑﺎﺳﻢ ‪Stu‬‬

‫‪ ‬ﻣﻔﺘﺎﺡ ﺃﺳﺎﺳﻲ‬

‫‪ .٦‬ﺃﺩﺧﻞ ﺑﻴﺎﻧﺎﺕ ﰲ ﺍﳉﺪﻭﻝ ﻛﻤﺎ ﺗﺮﻳﺪ ‪ ‬‬

‫‪ .٧‬ﻟﻌﻤﻞ ﺍﺗﺼﺎﻝ ﺇﺿﻂ ﺑﺎﻟﺰﺭ ﺍﻷﳝﻦ ﻋﻠﻰ ‪   Data connection ‬ﰒ ‪ add connection ‬ﻛﻤﺎ ﰲ ﺍﻷﺷﻜﺎﻝ‬
‫ﺍﻟﺘﺎﻟﻴﺔ‪  :‬‬

‫‪-٤٤-‬‬
 ‫ﺗﺄﻛﺪ ﻣﻦ ﺃﻥ ‪provider ‬ﻫﻮ‪  Microsoft OLE Provider for SQL server  ‬‬

‫‪٣‬‬
‫ﺍﺳﻢ ﺍﳋﺎﺩﻡ‬
‫‪١‬‬

‫‪٢‬‬
‫ﺍﺳﻢ ﻗﺎﻋﺪﺓ ﺍﻟﺒﻴﺎﻧﺎﺕ‬

‫‪٤‬‬

‫‪ ‬‬
‫‪ ‬‬
‫‪ .٨‬ﺍﻓﺘﺢ ‪ vb.net‬ﻭﻣﻦ ﻗﺎﺋﻤﺔ ‪ project ‬ﳔﺘﺎﺭ ‪ Add new item ‬ﻓﺘﻈﻬﺮ ﻋﺪﺓ ﺇﺧﺘﻴﺎﺭﺍﺕ ﳓﺪﺩ ﻣﻨﻬﺎ ﺍﻹﺧﺘﻴﺎﺭ ‪Data ‬‬
‫‪  form wizard‬‬
‫‪ .٩‬ﻳﻈﻬﺮ ﻣﻌﺎﰿ ﳕﻮﺫﺝ ﺍﻟﺒﻴﺎﻧﺎﺕ ‪Data ‬‬
‫‪ Form Wizard‬ﺍﻟﺬﻱ ﺳﻴﺴﺘﺨﺪﻡ‬
‫ﰲ ﻋﻤﻠﻴﺔ ﺍﻟﺮﺑﻂ ﺇﺿﻐﻂ ‪ Next ‬ﻭﺣﺪﺩ‬
‫‪ Data set ‬ﻭﻟﻴﻜﻦ‬ ‫ﺍﺳﻢ ﻟﻠـ‬
‫‪  students‬‬
‫‪ .١٠‬ﺍﺗﺒﻊ ﻧﻔﺲ ﺍﳋﻄﻮﺍﺕ ﺍﻟﺴﺎﺑﻘﺔ‬
‫ﻣﻊ‪  Access ‬‬
‫ﺍﳉﺪﻳﺪ ﰲ ‪visual studio ٢٠٠٨ ‬ﺑﺎﻟﻨﺴﺒﺔ ﻹﺳﺘﺨﺪﺍﻡ ﺍﳌﻌﺎﰿ ﰲ ﺭﺑﻂ ﻗﻮﺍﻋﺪ ﺍﻟﺒﻴﺎﻧﺎﺕ‬
‫‪-٤٥-‬‬
 ‫ﺍﳋﻄﻮﺍﺕ‪:‬‬
‫‪ .١‬ﻣﻦ ﻗﺎﺋﻤﺔ ﻗﺎﺋﻤﺔ ‪ project ‬ﺇﺧﺘﺮ ‪ add new item ‬ﰒ ‪  local Dat base ‬‬

‫‪ .٢‬ﺣﺪﺩ ﺍﺳﻢ ‪ Data set ‬ﻭﺇﺳﻢ ﺍﻟﻘﺎﻋﺪﺓ ﻭﺍﳉﺪﺍﻭﻝ ﻛﻤﺎ ﺗﻌﻠﻤﺖ ﺳﺎﺑﻘﹰﺎ‬

‫‪ .٣‬ﻣﻦ ﻧﺎﻓﺬﺓ ‪ data source ‬ﺇﺳﺤﺐ ﺍﳉﺪﻭﻝ ﻭﺃﻟﻘﻪ ﻋﻠﻰ ﺍﻟﻨﻤﻮﺫﺝ ﻓﻴﺘﻢ ﺇﻧﺸﺎﺀ ‪  Data grid ‬‬

‫‪ ‬‬
‫‪ .٤‬ﳝﻜﻨﻚ ﺇﺿﺎﻓﺔ ﻋﻨﺎﺻﺮ ﲢﻜﻢ ‪ label ‬ﻭ‪ textbox‬ﻭﺭﺑﻄﻬﺎ ﺑـ ‪ data binding ‬ﻛﻤﺎ ﺗﻌﻠﻤﺖ ‪  .‬‬

‫‪-٤٦-‬‬
 ‫ﺗﺪﺭﻳﺐ ﻋﻠﻰ ﺇﻧﺸﺎﺀ ﻗـــــــﻮﺍﻋﺪ ﺍﻟﺒﻴﺎﻧﺎﺕ ﰲ ‪  VB.net ‬‬
‫ﺍﻧﺶﺀ ﻣﺸﺮﻭﻉ ﺟﺪﻳﺪ ﳌﺪﺭﺳﺔ ‪ school‬ﺗﻈﻬﺮ ﺑﻴﺎﻧﺎﺕ ﺍﻟﻄﻼﺏ ﻭﺍﳌﺪﺭﺳﲔ ﻣﻦ ﺧﻼﻝ ﺑﺮﻧﺎﻣﺞ ﺑﻪ ﳎﻤﻮﻋﺔ ﻣﻦ ﺍﻟﻨﻮﺍﻓﺬ ﻛﻤﺎ ﻳﻠﻲ ‪:‬‬
‫‪ .١‬ﺍﺳﻢ ﺍﳌﺸﺮﻭﻉ ‪  School ‬‬
‫‪ .٢‬ﻋﻨﺪ ﺇﻧﺸﺎﺀ ﺍﳌﺸﺮﻭﻉ ﻳﻈﻬﺮ ﺑﻪ ﳕﻮﺫﺝ ﻭﺍﺣﺪ ﻫﻮ ‪ form١ ‬ﻣﻦ ﺧﺼﺎﺋﺺ ﺍﻟﻨﻤﻮﺫﺝ ﻏﲑ ﺍﳋﺎﺻﻴﺔ ‪ ‬‬
‫‪  Windows state = maximized‬‬

‫ﻭﻏﲑ ﺍﳋﺎﺻﻴﺔ ‪  IsMDcontainer = true ‬‬

‫‪ ‬‬
‫‪ .٣‬ﺍﺿﻒ ﻋﻠﻰ ﺍﻟﻨﻤﻮﺫﺝ ﺍﻟﻌﻨﺼﺮ ‪ menu strip ‬ﻹﻧﺸﺎﺀ ﺍﻟﻘﻮﺍﺋﻢ ﻭﻏﲑ‪  ‬ﺍﳋﺎﺻﻴﺔ ‪ right to left=yes‬ﻟﻠﻘﺎﺋﻤﺔ ‪ ‬‬

‫‪ ‬‬
‫‪ .٤‬ﺃﺿﻒ ﻟﻠﱪﻧﺎﻣﺞ ﳕﻮﺫﺟﲔ ﳘﺎ ‪ form٢ ‬ﻭ‪  Form٣ ١‬‬
‫‪ .٥‬ﺍﻛﺘﺐ ﺍﻟﻜﻮﺩ ﺍﻟﺘﺎﱄ ﺧﻠﻒ ﺯﺭ ﺍﳌﺪﺭﺳﲔ )ﻟﻔﺘﺢ ﳕﻮﺫﺝ ﺍﳌﺪﺭﺳﲔ ﺩﺍﺧﻞ ﺍﻟﻨﻤﻮﺫﺝ ﺍﻟﺮﺋﻴﺴﻲ( ‪ ‬‬
‫‪ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As‬اﳌﺪرﺳﲔ ‪Private Sub‬‬
‫‪ToolStripMenuItem.Click‬اﳌﺪرﺳﲔ ‪System.EventArgs) Handles‬‬
‫‪Form٢.MdiParent = Me‬‬
‫)(‪Form٢.Show‬‬
‫‪End Sub‬‬

‫‪-٤٧-‬‬
 ‫‪ .٦‬ﺍﻛﺘﺐ ﺍﻟﻜﻮﺩ ﺍﻟﺘﺎﱄ ﺧﻠﻒ ﺯﺭ ﺍﻟﻄﻼﺏ )ﻟﻔﺘﺢ ﳕﻮﺫﺝ ﺍﻟﻄﻼﺏ ﺩﺍﺧﻞ ﺍﻟﻨﻤﻮﺫﺝ ﺍﻟﺮﺋﻴﺴﻲ( ‪ ‬‬
‫‪ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As‬اﳌﺪرﺳﲔ ‪Private Sub‬‬
‫‪ToolStripMenuItem.Click‬اﳌﺪرﺳﲔ ‪System.EventArgs) Handles‬‬
‫‪Form٣.MdiParent = Me‬‬
‫)(‪Form٣.Show‬‬
‫‪End Sub‬‬
‫‪ .٧‬ﺗﺄﻛﺪ ﻣﻦ ﺃﻧﻚ ﻗﺪ ﺣﻔﻈﺖ ﺍﻟﱪﻧﺎﻣﺞ ‪.‬‬
‫‪ .٨‬ﺍﻓﺘﺢ ﺑﺮﻧﺎﻣﺞ ‪ access ‬ﻭﺻﻤﻢ ﻗﺎﻋﺪﺓ ﺑﻴﺎﻧﺎﺕ ﻟﻠﻤﺪﺭﺳﺔ ‪‬ﺎ ﺟﺪﻭﻟﲔ ﺃﺣﺪﳘﺎ ﻟﻠﻄﻼﺏ ﻭﺍﻷﺧﺮ ﻟﻠﻤﺪﺭﺳﻲ ﻭﺍﺣﻔﻆ ﻗﺎﻋﺪﺓ‬
‫ﺍﻟﺒﻴﺎﻧﺎﺕ‪   .‬‬

‫ﺟﺪﻭﻝ ﺍﳌﺪﺭﺳﲔ‬ ‫ﺟﺪﻭﻝ ﺍﻟﻄﻼﺏ‬

‫ﺍﺳﻢ ﺍﳌﺪﺭﺱ‬ ‫ﺍﺳﻢ ﺍﻟﻄﺎﻟﺐ‬
‫ﺭﻗﻢ ﺍﳌﺪﺭﺱ‬ ‫ﺭﻗﻢ ﺍﻟﻄﺎﻟﺐ‬
‫ﻋﻨﻮﺍﻥ ﺍﳌﺪﺭﺱ‬ ‫ﻋﻨﻮﺍﻥ ﺍﻟﻄﺎﻟﺐ‬
‫‪ .٩‬ﺍﺭﺟﻊ ﻟـ ‪ VB.net ‬ﻭ ﺍﻓﺘﺢ ﻗﺎﺋﻤﺔ ‪ data ‬ﰒ ﺍﺧﺘﺮ ‪ show data source ‬ﻓﺘﻈﻬﺮ ﻟﻮﺣﺔ ﺍﺿﻐﻂ ﻓﻴﻬﺎ ﻋﻠﻰ‬
‫‪  add new data source ‬‬

‫‪ .١٠‬ﺗﻈﻬﺮ ﻧﺎﻓﺬﺓ ‪‬ﺎ ﺛﻼﺙ ﺍﺧﺘﻴﺎﺭﺍﺕ ﺣﺪﺩ ﺍﻹﺧﺘﻴﺎﺭ ‪ Data base  ‬ﰒ ﺍﺿﻐﻂ ﺍﻟﺘﺎﱄ ‪  next ‬‬

‫‪-٤٨-‬‬
‫‪ ‬‬
‫‪ .١١‬ﺍﺿﻐﻂ ‪ new connection ‬ﻹﻧﺸﺎﺀ ﺍﺗﺼﺎﻝ ﺟﺪﻳﺪ ﻭﳚﺐ ﲢﺪﻳﺪ ﺍﺳﻢ ﻣﺰﻭﺩ ﺍﻟﺒﻴﺎﻧﺎﺕ ﻭﻫﻮ ﺑﺮﻧﺎﻣﺞ ‪ access ‬ﰒ‬
‫ﺍﺿﻐﻂ ‪  continue ‬‬

‫‪ ‬‬
‫‪ .١٢‬ﺗﻈﻬﺮ ﻧﺎﻓﺬﺓ ﲢﺪﻳﺪ ﻣﺴﺎﺭ ﻗﺎﻋﺪﺓ ﺍﻟﺒﻴﺎﻧﺎﺕ ﺑﺎﻟﻀﻐﻂ ﻋﻠﻰ ‪ Browse ‬ﰒ ﺍﺿﻐﻂ ‪ Test connection‬ﻟﻠﺘﺄﻛﺪ ﻣﻦ ﳒﺎﺡ‬
‫ﺍﻹﺗﺼﺎﻝ ‪ ‬‬
‫‪ ‬‬

‫‪-٤٩-‬‬
‫‪ ‬‬
‫‪ ‬‬
‫‪ .١٣‬ﻗﺪ ﺗﻈﻬﺮ ﻧﺎﻓﺬﺓ ﺗﺴﺄﻟﻚ ﺇﺫﺍ ﻛﻨﺖ ﺗﺮﻳﺪ ﻧﺴﺦ ﺍﻟﻘﺎﻋﺪﺓ ‪‬ﻠﺪ ﺍﳌﺸﺮﻭﻉ ﺍﺿﻐﻂ ‪ yes  ‬ﰒ ﺍﺿﻐﻂ ‪  Next ‬‬
‫‪ .١٤‬ﺗﻈﻬﺮ ﻧﺎﻓﺬﺓ ﻟﺘﺤﺪﻳﺪ ﺍﳉﺪﺍﻭﻝ ﺍﻟﱵ ﺗﺮﻏﺐ ﰲ ﻇﻬﻮﺭﻫﺎ ﻧﺸﻂ ﺍﳌﺮﺑﻊ ﲜﻮﺍﺭ ﺍﳉﺪﺍﻭﻝ ﻛﻤﺎ ﰲ ﺍﻟﺸﻜﻞ ﰒ ‪  finish‬‬

‫‪ .١٥‬ﻻﺣﻆ ﺃﻥ ﻟﻮﺣﺔ ‪ data sources‬ﻳﻈﻬﺮ ‪‬ﺎ ﺍﳉﺪﻭﺍﻝ ﺍﻟﱵ ﺃﻧﺸﺄ‪‬ﺎ ‪ ‬‬

‫‪ .١٦‬ﻧﺸﻂ ﺟﺪﻭﻝ ‪ Students ‬ﺳﺘﺠﺪ ﺃﻧﻪ ﻗﺪ ﻇﻬﺮ ﺳﻬﻢ ﺻﻐﲑ ﲜﻮﺍﺭ ﺍﳉﺪﻭﻝ ﺍﺿﻐﻂ ﻋﻠﻴﻪ ﻓﺘﻈﻬﺮ ﻗﺎﺋﻤﺔ ‪‬ﺎ ﺛﻼﺙ ﺧﻴﺎﺭﺍﺕ‬
‫ﻧﺸﻂ ﺍﻹﺧﺘﻴﺎﺭ ‪ data grid view  ‬ﰒ ﺍﺿﻐﻂ ﻋﻠﻰ ﺍﺳﻢ ﺍﳉﺪﻭﻝ ﺑﺎﻟﺰﺭ ﺍﻷﻳﺴﺮ ﻭﺍﺳﺤﺒﻪ ﰒ ﻋﻠﻰ ﳕﻮﺫﺝ ‪ form٢ ‬ﻭﻫﻮ‬
‫ﳕﻮﺫﺝ ﺍﻟﻄﻼﺏ ‪.‬ﻛﻤﺎ ﰲ ﺍﻟﺸﻜﻞ ‪ ‬‬

‫‪-٥٠-‬‬
 ‫‪ .١٧‬ﻧﺸﻂ ﺟﺪﻭﻝ ‪ teacher  ‬ﺳﺘﺠﺪ ﺃﻧﻪ ﻗﺪ ﻇﻬﺮ ﺳﻬﻢ ﺻﻐﲑ ﲜﻮﺍﺭ ﺍﳉﺪﻭﻝ ﺍﺿﻐﻂ ﻋﻠﻴﻪ ﻓﺘﻈﻬﺮ ﻗﺎﺋﻤﺔ ‪‬ﺎ ﺛﻼﺙ ﺧﻴﺎﺭﺍﺕ‬
‫ﻧﺸﻂ ﺍﻹﺧﺘﻴﺎﺭ ‪ data grid view  ‬ﰒ ﺍﺿﻐﻂ ﻋﻠﻰ ﺍﺳﻢ ﺍﳉﺪﻭﻝ ﺑﺎﻟﺰﺭ ﺍﻷﻳﺴﺮ ﻭﺍﺳﺤﺒﻪ ﰒ ﻋﻠﻰ ﳕﻮﺫﺝ ‪ form٣ ‬ﻭﻫﻮ‬
‫ﳕﻮﺫﺝ ﺍﳌﺪﺭﺳﲔ ‪ ‬‬

‫‪ ‬‬
‫‪ .١٨‬ﺻﻤﻢ ﻗﺎﺋﻤﺔ ﻣﺴﺎﻋﺪﺓ ﺑﻌﻤﻞ ﳕﻮﺫﺝ ﺟﺪﻳﺪ ﻭﺍﺳﺤﺐ ﻋﻠﻴﻪ ﺍﻷﺩﺍﺓ ‪ text box ‬ﻭﺍﻛﺘﺐ ﺩﺍﺧﻠﻬﺎ ﺧﻄﻮﺍﺕ ﺍﺳﺘﺨﺪﺍﻡ ﺍﻟﱪﻧﺎﻣﺞ‬
‫‪ .‬‬
‫‪ .١٩‬ﻧﻔﺬ ﺍﻟﱪﻧﺎﻣﺞ ﺑﺎﻟﻀﻐﻂ ﻋﻠﻰ ‪ F٥‬ﰒ ﺍﻧﺶﺀ ﻧﺴﺨﺔ ﺗﻨﻴﻔﻴﺬﻩ ‪  .setup ‬‬

‫‪-٥١-‬‬
 ‫ﺑﺮﳎﺔ ﻭﻳﺐ‪  Asp.net:‬‬
‫ﺗﺮﻛﻴﺐ ‪ IIS‬ﺍﳋﺎﺩﻡ ‪:‬‬
‫‪-‬ﺃﺩﺧﻞ ﻟﻮﺣﺔ ﺍﻟﺪﺧﻜﻢ ﻭﺍﺧﲑ ‪Add /Remove Programs‬‬

‫ﻟﻠﺘﺄﻛﺪ ﻣﻦ ﻋﻤﻠﻴﺔ ﺍﻟﺘﺜﺒﻴﺖ ‪:‬‬

‫ﺍﻓﺘﺢ ﺍﳌﺘﺼﻔﺢ ‪internet explorer  ‬ﻭﺍﻛﺘﺐ ﻫﺬﺍ ﺍﻟﺮﺍﺑﻂ‪http://localhost‬‬
‫ﺍﻷﺩﻟﺔ ﺍﻟﻮﳘﻴﺔ ‪  virtual directory‬‬
‫ﻭﻳﻮﺟﺪ ﺑﻪ ﻣﻠﻔﺎﺕ ﺍﳌﻮﻗﻊ‬
‫ﺍﳋﻄﻮﺍﺕ ‪:‬‬
‫‪ .١‬ﺇﻧﺸﻰﺀ ﺩﻟﻴﻞ ﻭﲰﻪ ﻣﺜﻼ ‪ ali‬ﰒ ﺇﺿﻐﻂ ﻋﻠﻴﺔ ﺑﺎﻟﺰﺭ ﺍﻻﳝﻦ ﰒ ﺗﺒﻮﻳﺐ ‪web sharing‬‬
‫‪ .٢‬ﻧﺸﻂ ‪share this folder ‬ﺣﺪﺩ ﺍﻹﺳﻢ ﺍﻟﺬﻱ ﺳﻴﻌﺮﻑ ﺑﻪ ﺍﳌﻮﻗﻊ‬
‫‪ .٣‬ﺗﺄﻛﺪ ﻣﻦ ﺍﻟﻮﺻﻮﻝ ﺇﻟﻴﺔ ﻛﻤﺎ ﻳﻠﻲ ‪http://localhost/ali‬‬
‫‪ .٤‬ﺃﻭ ﻓﺘﺢ ﻣﻠﻒ ﻣﻌﲔ ﺩﺍﺣﻞ ﻫﺬﺍ ﺍ‪‬ﻠﺪ ﺑﻜﺘﺎﺑﺔ ﺇﲰﻪ ‪http://localhost/ali/a.html‬‬

‫‪-٥٢-‬‬
‫‪ ‬‬

‫ﺇﻧﺸﺎﺀ ﺍﳌﺸﺮﻭﻉ‬

‫‪-٥٣-‬‬
 ‫ﻛﻴﻔﻴﺔ ﺗﻐﻴﲑ ﺗﺮﺗﻴﺐ ﺍﻟﻨﻤﻮﺫﺝ ﺍﻟﺬﻱ ﻳﻈﻬﺮ ﻋﻨﺪ ﺗﺸﻐﻴﻞ ﺍﻟﱪﻧﺎﻣﺞ ‪  :‬‬
‫ﻣﻼﺣﻈﺔ ‪:‬‬
‫ﻟﻠﺘﺤﻜﻢ ﰲ ﺃﻱ ﻣﻦ ﺍﻟﻨﻤﺎﺫﺝ ‪ Form ‬ﻳﻈﻬﺮ ﻋﻨﺪ ﺗﺸﻐﻴﻞ ﺍﻟﱪﻧﺎﻣﺞ ﺇﺿﻐﻂ ﺑﺎﻟﺰﺭ ﺍﻷﳝﻦ ﻋﻠﻰ ﺍﺳﻢ ﺍﳌﺸﺮﻭﻉ ﰲ ﻧﺎﻓﺬﺓ ‪solution ‬‬
‫‪ explorer ‬ﰒ ‪ Properties‬ﻭﻏﲑ ‪  startup form  ‬‬

‫‪-٥٤-‬‬
 ‫ﺧﻄﻮﺍﺕ ﻋﻤﻞ ﻧﺴﺨﺔ ﺗﻨﻔﻴﺬﻳﺔ ﻣﻦ ﺍﳌﺸﺮﻭﻉ ‪  setup ‬‬
‫‪ .١‬ﺃﺛﻨﺎﺀ ﻓﺘﺤﻚ ﻟﻠﻤﺸﺮﻭﻉ ﺍﻟﺬﻱ ﺗﺮﻏﺐ ﰲ ﻋﻤﻞ ﻧﺴﺨﺔ ﺗﻨﻔﻴﺬﻳﻪ ﻟﻪ ﺍﻓﺘﺢ ﻗﺎﺋﻤﺔ ‪  file –new project ‬‬
‫‪ .٢‬ﻏﲑ ﺍﻹﺧﺘﻴﺎﺭﺍﺕ ﻛﻤﺎ ﺑﺎﻟﺸﻜﻞ ‪ ‬‬

‫ﻣﻜﺎن ﺣﻔﻆ اﻟﻨﺴﺨﺔ اﻟﺘﻨﻔﻴﺬﻳﺔ‬

‫‪ .٣‬ﺇﺫﺍ ﻃﻠﺐ ﺣﻔﻆ ﺍﳌﻠﻒ ﺍﺿﻐﻂ ﻧﻌﻢ ﻟﻠﺤﻔﻆ‬

‫‪ .٤‬ﻳﻈﻬﺮ ﺍﻟﺸﻜﻞ ﺍﻟﺘﺎﱄ ﺇﺿﻐﻂ ﻋﻠﻰ ﺃﻳﻘﻮﻧﺔ ‪  application folder ‬‬

‫‪ ‬‬
‫‪ .٥‬ﰒ ﺑﺎﻟﺰﺭ ﺍﻷﳝﻦ ﺍﻧﺶﺀ ﺍﺧﺘﺼﺎﺭ‬

‫‪-٥٥-‬‬
 ‫‪ .٦‬ﺍﺿﻐﻂ ﻋﻠﻰ ‪ application folder ‬ﰒ ‪ add file  ‬ﰒ ﻣﻦ ﺩﺍﺧﻞ ﳎﻠﺪ ﺍﻟﱪﻧﺎﻣﺞ ﺍﺩﺧﻞ ﻋﻠﻰ ﳎﻠﺪ‬
‫‪ bin/debug‬ﻭﺣﺪﺩ ﺍﳌﻠﻒ ﺍﻟﺘﻨﻔﻴﺬﻱ ‪ .exe‬ﻭﺗﻜﻮﻥ ﺃﻳﻘﻮﻧﺘﻪ ﺯﺭﻗﺎﺀ ﻣﺮﺑﻌﻪ‬

‫‪ .٧‬ﺍﺿﻐﻂ ﺃﻳﻘﻮﻧﺔ ‪ User’s program menu ‬ﰒ ﺍﻧﺶﺀ ﺍﺧﺘﺼﺎﺭ ﻭﺣﺪﺩ ﺍﳌﻠﻒ ﺍﻟﺘﻨﻔﻴﺬﻱ ﺍﳌﻮﺟﻮﺩ ﺩﺍﺧﻞ ﳎﻠﺪ‬
‫‪application folder ‬‬

‫‪ .٨‬ﺍﻓﺘﺢ ﻗﺎﺋﻤﺔ ‪ Build ‬ﰒ ‪ build setup ‬ﺍﻧﺘﻈﺮ ﻗﻠﻴﻼ ﺣﱴ ﺗﻈﻬﺮ ﺭﺳﺎﻟﺔ ﰲ ﺃﺳﻔﻞ ﺍﻟﱪﻧﺎﻣﺞ ﰲ ﺷﺮﻳﻂ ﺍﳊﺎﻟﺔ ﻣﻜﺘﻮﺏ‬
‫‪‬ﺎ ‪ ) Build succeed ‬ﳒﺎﺡ ﺍﻟﻌﻤﻠﻴﺔ (ﰒ ﺍﺫﻫﺐ ﳌﻜﺎﻥ ﺣﻔﻆ ﺍﻟﻨﺴﺨﺔ ﻭﺍﻋﻤﻞ ‪ setup ‬ﻟﺘﺠﺪﻫﺎ ﰲ ﻗﺎﺋﻤﺔ‬
‫ﺍﻟﱪﺍﻣﺞ ‪  .‬‬

‫‪-٥٦-‬‬
‫‪ ‬‬ ‫‪.٩‬‬

‫ﻭﺍﻟﺴﻼﻡ ﻋﻠﻴﻜﻢ ﻭﺭﲪﺔ ﺍﷲ ﻭﺑﺮﻛﺎﺗﻪ‬

‫‪[email protected]‬‬
‫ﺃﺑﻮ ﻣﻬﺎﺏ‬
‫‪-٥٧-‬‬