Smallbasic - نرم افزاری ساده برای شروع برنامه نویسی

[IRT]

http://en.wikipedia.org/wiki/Microsoft_Small_Basic
http://msdn.microsoft.com/en-us/beginner/ff384126.aspx

[rayk]

پاسخ : Smallbasic - نرم افزاری ساده برای شروع برنامه نویسی

با توجه به اینکه امروزه در زیان C جایگزین تحت ویندوز برنامه های TC و BC زیاد هست اما برنامه قدیمی QBasic هیچ پیشرفتی نداشت
این برنامه بنظر کامل و بسیار مفید میاد
البته نباید اون با VB یا VB.NET اشتباه گرفت

[rayk]

پاسخ : Smallbasic - نرم افزاری ساده برای شروع برنامه نو&#

اینم یه برنامه ساده هست که برای تست نوشتم
نرم افزار جالب و خوش دستی هست :cry2:

'      Init Windows
TextWindow.Hide()
GraphicsWindow.Height = 140
GraphicsWindow.Width = 220
GraphicsWindow.Show()
GraphicsWindow.Title = "ADMlN"
GraphicsWindow.Clear()
'     Display 3 Rectangle
GraphicsWindow.BrushColor = "Red"
GraphicsWindow.FillRectangle(10,10,50,50) 
GraphicsWindow.BrushColor = "Green"
GraphicsWindow.FillRectangle(65,10,50,50) 
GraphicsWindow.BrushColor = "Blue"
GraphicsWindow.FillRectangle(120,10,50,50)
GraphicsWindow.FontSize = 28
'      Main loop
While ("True")
 GraphicsWindow.MouseUp = OnMouseUp 
EndWhile


'     Mouse key up event subprogram
Sub  OnMouseUp 
 x = GraphicsWindow.MouseX
 y = GraphicsWindow.MouseY
 
 GraphicsWindow.BrushColor = "white"
 GraphicsWindow.FillEllipse(5,70,100,60)
 GraphicsWindow.BrushColor = "Black"
if x>10 And x<50 Then
 If y>10 And y<50 Then 
  GraphicsWindow.DrawText(10,80,"Red")
 EndIf 
EndIf
if x>65 And x<115 Then
 If y>10 And y<50 Then 
  GraphicsWindow.DrawText(10,80,"Green")
 EndIf 
EndIf
if x>120 And x<170 Then
 If y>10 And y<50 Then 
  GraphicsWindow.DrawText(10,80,"Blue")
 EndIf 
EndIf
EndSub

اینم عکس از برنامه درحال اجرا

[IRT]

پاسخ : Smallbasic - نرم افزاری ساده برای شروع برنامه نو&#

و این هم یک برنامه ی دیگه(بسیار ساده):

GraphicsWindow.BackgroundColor = "White"
GraphicsWindow.Title = "ECA"
GraphicsWindow.Clear()
GraphicsWindow.Height = 510
GraphicsWindow.Width = 510
GraphicsWindow.DrawRectangle(10,10,490,490)

For F = 10 To 500
 GraphicsWindow.SetPixel(F,F"Red")
 If F = 500 Then
  GraphicsWindow.DrawText(215,240,"WWW.ECA.IR")
  Endif
 Program.Delay(10)
EndFor
TextWindow.Show()
TextWindow.WriteLine("This Is A Sample Program Written In Small Basic")

فایل اجرایی کامپایل شده در ویژوال استودیو:
http://wdl.persiangig.com/pages/download/?dl=http://highvoltage.persiangig.com/other/eca.rar
فایل کد:
http://highvoltage.persiangig.com/other/eca.sb
البته با نصب این برنامه کتابخانه ی اون به ویژوال استودیو اضافه می شه و به راحتی میتونید همین برنامه هارو در VB بنویسید.

[IRT]

پاسخ : Smallbasic - نرم افزاری ساده برای شروع برنامه نویسی

به نظر من این نرم افزار با این ظاهر ساده برای ساخت بازی های 2 بعدی بهترین گزینست.

[richi]

پاسخ : Smallbasic - نرم افزاری ساده برای شروع برنامه نویسی

ای کسانی که basic کار میکنید . یدانید و گاه باشید عمرتون داره تلف میشه . C و python و assembly کجا BASIC کجا . . . ای کاش . . .

[rayk]

پاسخ : Smallbasic - نرم افزاری ساده برای شروع برنامه نویسی

ای کسانی که basic کار میکنید . یدانید و گاه باشید عمرتون داره تلف میشه . C و python و assembly کجا BASIC کجا . . . ای کاش . . .

دوست گرامی ما قصد نداریم بگیم کدوم برنامه برتر هست
هیچ وقت یاد گرفتن چیزی تلف کردن عمر نیست
واضع هست شما از روی اطلاعات ناقص و کمی تعصب به زبان خاصی علاقه دارید
ولی همیشه و برای همه اینطوری نیست
بیسیک بهترین زبان نیست ولی زبانی مناسب برای همه ی برنامه نویسان از مبتدی تا حرفه ای می باشد
اون چیزی که در برنامه نویسی مهم هست زبان نیست بلکه استراتژی شما در پیاده کردن الگوریتم ها هست

[richi]

پاسخ : Smallbasic - نرم افزاری ساده برای شروع برنامه نویسی

دوست گرامی ما قصد نداریم بگیم کدوم برنامه برتر هست
هیچ وقت یاد گرفتن چیزی تلف کردن عمر نیست
واضع هست شما از روی اطلاعات ناقص و کمی تعصب به زبان خاصی علاقه دارید
ولی همیشه و برای همه اینطوری نیست
بیسیک بهترین زبان نیست ولی زبانی مناسب برای همه ی برنامه نویسان از مبتدی تا حرفه ای می باشد
اون چیزی که در برنامه نویسی مهم هست زبان نیست بلکه استراتژی شما در پیاده کردن الگوریتم ها هست

:icon_razz:
:biggrin: