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

سلام
من دارم برای کنکور میخونم اگه کسی تست از ویژوال 1و2و3 داره ممنون میشم برام سورسش رو بزاره
با تشکر:11::11:
:11::11::11::11:

سلام :
دوست عزیز من کل نرم افزار ها و سورس های برنامه سازی 1و2و3 رو دارم ولی چون زیاده نمی تونم آپلود کنم بخاطره همین اگه خواستی همه ی سورس های برنامه ها رو همراه با فصل های کتاب که در هر فصل چه تابع و کدی معرفی شده رو برات تو تاپیک میزارم ! پس اگه خواستی یه بگو تا برات بزارم !!!!!!

با تشکر (Bvk)
:5:

سلام دوست عزیز
از کمکت ممنون میشم اگه لطف کنید و برام بذارید
با تسکر:11::11:
:11::11::11::11:

سلام :
دوست عزیز من سورس برنامه های درس برنامه سازی 1 رو برات گذاشتم و ان شا الله بقیش رو هم در روز های آتی می گزارم چون خیلی زیاده


نکته : فقط نکته مهمی که خیلی رعایت کردنش ضروری هست اینه که با توجه به سورس اشیاء مربوط رو به فرم اضافه کن و بعد سورس رو کپی پیست کن .

کد:

---

   

Input Box مثال اول از فصل دوم : ضرب دو عدد توسط

   

Private Sub CmdRun_Click()

   

intNum1 = InputBox("Enter First Number", "Get Number 1")

 

intNum2 = InputBox("Enter Secont Number", "Get Number 2")

 

intResult = intNum1 * intNum2

 

MsgBox intNum1 & " * " & intNum2 & " = " & intResult, , "Result"

   

End Sub

 

Private Sub CmdExit_Click()

 

End

   

End Sub

 
 

مثال دوم از فصل دوم : شعاع دایره

   

Private Sub CmdRun_Click()

 

Const PI As Single = 3.141592

 

Dim sngRadius As Single, sngArea As Single

   

sngRadius = InputBox("Enter radius:", "Get Radius")

 

sngArea = PI * sngRadius ^ 2

 

MsgBox "Area of Circle with radius=" & sngRadius & " is:" & sngArea, , "Result"

 

End Sub

   

Private Sub CmdExit_Click()

 

    End

   

End Sub

 
 

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

   

Option Explicit

   

Private Sub CmdExit_Click()

 

    End

 

End Sub

   

Private Sub CmdRun_Click()

 

    If Val(Text1.Text) > Val(Text2.Text) Then

 

        Text3.Text = Text1.Text

 

    Else

 

        Text3.Text = Text2.Text

 

    End If

 

End Sub

   

Private Sub Form_Load()

 

    Text1.Text = ""

 

    Text2.Text = ""

 

    Text3.Text = ""

 

End Sub

 

مثال دوم از فصل سوم : برای بدست آوردن حقوق نا خالص ، مالیات ، بیمه ، حقوق خالص

   

Option Explicit

   

Private Sub CmdExit_Click()

 

    End

 

End Sub

   

Private Sub CmdRun_Click()

 

    If Val(Text1.Text) >= 300000 Then

 

        Text2.Text = (Val(Text1.Text) - 300000) * 15 / 100

 

    Else

 

        Text2.Text = 0

 

    End If

 

    Text3.Text = Val(Text1.Text) * 9 / 100

 

    Text4.Text = Val(Text1.Text) - Val(Text2.Text) - Val(Text3.Text)

 

End Sub

   

Private Sub Form_Load()

 

    Text1.Text = ""

 

    Text2.Text = ""

 

    Text3.Text = ""

 

    Text4.Text = ""

   

End Sub

 
   

مثال سوم  از فصل سوم : بدست آوردن رتبه دانش آموز

   

Option Explicit

   

Private Sub CmdExit_Click()

 

    End

 

End Sub

   

Private Sub CmdRun_Click()

 

Dim sngNum As Single

   

sngNum = Val(Text1)

 

If sngNum > 20 Or sngNum < 0 Then

 

    Text2 = "Error in Number"

 

    Exit Sub

 

End If

 

If sngNum >= 18 And sngNum <= 20 Then

 

    Text2 = "A"

 

ElseIf sngNum >= 16 And sngNum < 18 Then

 

    Text2 = "B"

 

ElseIf sngNum >= 14 And sngNum < 16 Then

 

    Text2 = "C"

 

ElseIf sngNum >= 12 And sngNum < 14 Then

 

    Text2 = "D"

 

ElseIf sngNum >= 10 And sngNum < 14 Then

 

    Text2 = "E"

 

ElseIf sngNum < 10 Then

 

    Text2 = "F"

 

End If

   

End Sub

   

Private Sub Form_Load()

 

Text1 = ""

 

Text2 = ""

   

End Sub

 
   

مثال چهارم  از فصل سوم : بدست آوردن رتبه دانش آموز اما با یک کد جدید

    Option Explicit
 
  Private Sub CmdExit_Click()
      End
  End Sub
 
  Private Sub CmdRun_Click()
  Dim sngNum As Single
 
  sngNum = Val(Text1)
  If sngNum > 20 Or sngNum < 0 Then
      Text2 = "Error in Number"
      Exit Sub
  End If
  Select Case sngNum
      Case Is >= 18
          Text2 = "A"
      Case Is >= 16
          Text2 = "B"
      Case Is >= 14
          Text2 = "C"
      Case Is >= 12
          Text2 = "D"
      Case Is >= 10
          Text2 = "E"
      Case Else
          Text2 = "F"
  End Select
  End Sub
 
 
  Private Sub Form_Load()
  Text1 = ""
  Text2 = ""
    End Sub
 
 
   

مثال پنجم از فصل سوم :  شماره روز از سوال را بر میگرداند

   

Option Explicit

   

Private Sub CmdExit_Click()

 

    End

 

End Sub

   

Private Sub CmdRun_Click()

 

Dim intDay As Integer, strWeekDayName As String

   

    intDay = Val(Text1) Mod 7

   

    strWeekDayName = Choose(intDay + 1, "Fri", "Sat", "Sun", "Mon", "Tue", "Wed", "Thu")

   

    Text2 = strWeekDayName

     

End Sub

   

Private Sub Form_Load()

 

Text1 = ""

 

Text2 = ""

   

End Sub

 
   

Bold ; Italic ; Underline مثال ششم از فصل سوم :  تفیر فونت لیبل از جمله

     

Private Sub chkBold_Click()

 

    If chkBold.Value = 1 Then

 

        lbl1.FontBold = True

 

    Else

 

        lbl1.FontBold = False

 

    End If

   

End Sub

   

Private Sub chkItalic_Click()

 

    If chkItalic.Value = 1 Then

 

        lbl1.FontItalic = True

 

    Else

 

        lbl1.FontItalic = False

 

    End If

   

End Sub

   

Private Sub chkUnderLine_Click()

 

    If chkUnderLine.Value = 1 Then

 

        lbl1.FontUnderline = True

 

    Else

 

        lbl1.FontUnderline = False

 

    End If

   

End Sub

   

Private Sub CmdClose_Click()

 

    End

   

End Sub

 
 
  مثال اول از فصل چهارم :  چاپ اعداد از 1 تا 10 با استفاده از حلقه    For
 
 

Private Sub CmdRun_Click()

 

Dim intI As Integer

 

For intI = 1 To 10

 

Print intI

 

Next intI

 

End Sub

     

Private Sub CmdClose_Click()

 

End

   

End Sub

 
    مثال دوم از فصل چهارم :    چاپ اعداد از 10 به 1 با استفاده از حلقه    For
   

Private Sub CmdRun_Click()

 

Dim intI As Integer

 

For intI = 10 To 1 Step -1

 

Print intI

 

Next intI

   

End Sub

     

Private Sub CmdClose_Click()

 

End

   

End Sub

 
 
 
 
  مثال سوم از فصل چهارم :    چاپ اعداد مضرب 2 با استفاده از حلقه    For
 
 

Private Sub CmdRun_Click()

 

    Dim intI As Integer

 

    For intI = 2 To 30 Step 2

 

    Print intI

 

    Next intI

   

End Sub

     

Private Sub CmdClose_Click()

 

    End

   

End Sub

 
      مثال چهارم از فصل چهارم : جمع ورودی اعداد
 
 

Private Sub CmdRun_Click()

 

Dim intI As Integer, sngS As Single, sngN As Single

   

    sngS = 0

 

    For intI = 1 To 5

 

        sngN = InputBox("Enter " & intI & "th Number:")

   

        sngS = sngS + sngN

 

    Next intI

   

    Print "Sum="; sngS

 

    Print "Average="; sngS / 5

   

End Sub

     

Private Sub CmdClose_Click()

 

    End

   

End Sub

 
                     

    Do While مثال پنجم از فصل چهارم : چاپ اعداد با استفاده از حلقه

   

Private Sub CmdRun_Click()

 

    Dim IntI As Integer

   

    IntI = 1

 

    Do While IntI <= 20

   

        Print IntI;

 

        IntI = IntI + 1

   

    Loop

     

End Sub

     

Private Sub CmdClose_Click()

 

    End

   

End Sub

 
   

مثال ششم از فصل چهارم : چاپ اعداد به صورت زیر :

    5  4  3  2    1

  10  8  6  4    2

  15  12  9  6  3

  20  16  12  8 4

  25  20 15 10 5

 

Private Sub CmdRun_Click()

 

Dim intI As Integer, intJ As Integer

   

For intI = 1 To 5

 

      For intJ = 1 To 5

 

            Print intI * intJ,

 

      Next

 

Print

 

Next

   

End Sub

     

Private Sub CmdClose_Click()

 

    End

 

End Sub

   

مثال هفتم از فصل چهارم : بدست آورد سینوس ، کسینوس ، تانژانت ، کتانژانت یک عدد

   

Private Sub CmdRun_Click()

 

    Dim dblDegree As Double, dblRadian As Double

 

    Const Pi As Double = 3.14159265358979

   

    dblDegree = Val(Text1)

 

    dblRadian = Pi * dblDegree / 180

   

    Text2 = Sin(dblRadian)

 

    Text3 = Cos(dblRadian)

 

    Text4 = Tan(dblRadian)

 

    Text5 = 1 / Tan(dblRadian)

 

End Sub

     

Private Sub CmdClose_Click()

 

    End

   

End Sub

---

================================================== =====

امید وارم به دردت بخوره

[PHP]http://uploading.com/files/ce82mb4d/Project1.vbp/[/PHP]با تشکر (Bvk)

:5:

دانلود پروژه مثال از فصل یک