سلام دوست گرامی؛
برای شروع برنامه نویسی قبل از اینکه کد نویسی رو در یک زبان برنامه نویسی آغاز کنی، باید با مفهوم برنامه نویسی و کد نویسی و شیوه ی آن در کامپیوتر آشنا شوی.همان مفهوم الگوریتم.
من در یک وبلاگی تمام آموزش های خودم را برای دانلود قرار دادم. این کلیپ ها به هیچ وجه آموزش تئوریک نیستند. شعار و ماست مالی در مورد یک مطلب نیست. در این وبلاگ از پایه و ریشه برنامه نویسی را تشریح کردم. کم کم دارم آموزش های پیشرفته را در آن قرار می دهم. قصد دارم به جایی برسم که آموزش یک برنامه عظیم و پیچیده را که ساخت آن چندین هفته طول می کشد را در آن قرار دهم. (ان شاء الله)
البته برای کسانی که مشکل دانلود کردن را دارند می توانم سفارش اینترنتی را هم فعال کنم البته الان زود است و ان شاء الله تا 6 الی 7 ماه دیگر که آموزش های پیچیده و سنگین را قرار دادم آن وقت سفارش اینترنتی را هم فعال خواهم کرد.
آدرس وبلاگ: MyProgrammingVB.blogsky.com
البته می توانید کلیپ ها را در سایت آپارات نیز مشاهده کنید:
http://www.aparat.com/hr_m_86
از سخنرانی های زیادم عذر خواهی می کنم، حال پاسخ سوالاتت را در اینجا خواهم داد:
سوال 1:
Dim A() As Integer
Dim Count, i As Integer
((":Count = Val(InputBox("Count of number
(ReDim A(1 To Count
For i = 1 To Count
((":" & A(i) = Val(InputBox("Enter number " & i
Next i
For i = 1 To Count
(If A(i) Mod 2 = 0 Then Print A(i
Next i
سوال 2: (صعودی نه سعودی)
شما ابتدا در قسمت general که بالاترین قسمت در کد نویسی هست این متغیرها را تعریف کنید:
Dim A() As Integer
Dim CountN, i As Integer
با این کد ها می توانید اعداد را از کاربر بگیرید و در آرایه ذخیره کنید:
'get number
((":CountN = Val(InputBox("Count of number
(ReDim A(1 To CountN
For i = 1 To CountN
((":" & A(i) = Val(InputBox("Enter number " & i
Next i
با این کدها هم می توانید با جستجوی دودویی متوجه شوید که آیا عدد شما در آرایه هست یا نه. البته عدد را از جعبه متن می گیریم:
'serach
Dim x As Integer
(x = Val(Text1.Text
Dim Low, Mid, Top As Integer
Low = 1
(Top = UBound(A
(Do While (Low <= Top
(Mid = Fix((Top + Low) / 2
If x < A(Mid) Then
Top = Mid - 1
ElseIf x > A(Mid) Then
Low = Mid + 1
Else
Print "True"
Exit Sub
End If
Loop
Print "false"
شاید دور تا دور به این سایت سر بزنم اگه سوالی داشتنی در بخش نظرات وبلاگم مطرح کن.
برای کپی کد ها فایل نوت پد رو هم ضمیمه کردم:
code.txt (اندازه: 921 bytes / تعداد دفعات دریافت: 34)
صفحه اصلی
انجمن
جستجو
فهرست اعضا
افزونه های فایرفاکس
» 
تشکر شده توسط :
