Arrays in Small Basic

Dew Drop – Weekend Edition – June 20-21, 2009 | Alvin Ashcraft's Morning Dew

Sat, 20 Jun 2009 23:19:23 GMT

PingBack from http://www.alvinashcraft.com/2009/06/20/dew-drop-weekend-edition-june-20-21-2009/

Arrays in Small Basic - Small Basic Blog

DotNetShoutout — Sun, 21 Jun 2009 00:49:58 GMT

Thank you for submitting this cool story - Trackback from DotNetShoutout

Small Basic : массивы

progg.ru — Sun, 21 Jun 2009 13:18:35 GMT

Thank you for submitting this cool story - Trackback from progg.ru

re: Arrays in Small Basic

Flight Computer — Sun, 05 Jul 2009 09:15:39 GMT

Dear Small Basic Blog,

Thank you for "Arrays in Small Basic", it's very helpful considering that documentation and examples are sparce!

A document similiar to "Introducing Small Basic" (pdf) on "Data Structures and Algorithms in Small Basic" would be Perfect!! Also, how about "Design Patterns in Small Basic?"

Would Microsoft's article on data structures in C# help here? Yes, I think so!

Thanks again!

Flight!

re: Arrays in Small Basic

Public User — Sun, 02 Aug 2009 19:38:08 GMT

I would like to second Mr. "Flight Computer" from Sunday, July 5, 2009 2:15 AM! It is a shot in the dark after going through the "introducing small Basic" pdf file as to where to go next for furthr instruction to learn and share. What next...?

Overall, great starting program, just want to develop more not stop due to lack of further instruction etc..

Thanks.

re: Arrays in Small Basic

XinhengWu — Mon, 17 Aug 2009 04:28:43 GMT

I have read "introducing small Basic". Is there any other related materials for learning small basic in a whole system?

Thanks.

re: Arrays in Small Basic

Vendel Miskei — Thu, 27 Aug 2009 22:27:47 GMT

'DKZ463

'************ Miskei Vendel

'************ www.miskei.hu

'************ 2009

GraphicsWindow.Title="Winter"

GraphicsWindow.Width=640

GraphicsWindow.Height=480

pic = Flickr.GetRandomPicture("Winter")

GraphicsWindow.DrawResizedImage(pic, 0, 0, 640, 480)

GraphicsWindow.DrawBoundText(530,460,110,"www.miskei.hu")

gw =640

gh =480

For i=1 To 50

ho=i/6+1

GraphicsWindow.BrushColor = "#ffffff"

GraphicsWindow.PenColor="#ffffff"

ball[i] = Shapes.AddEllipse(ho, ho)

x[i] = Math.GetRandomNumber(600)+20

y[i] = Math.GetRandomNumber(460)+10

EndFor

RunLoop:

For i=1 To 50

dX[i] = 2*Math.GetRandomNumber(2)-2

dY[i] = 2*Math.GetRandomNumber(2)

If i<20 Then

dy[i]=dy[i]-2

EndIf

x[i] = x[i] + dX[i]

y[i] = y[i] + dY[i]

If y[i]>=gh Then

y[i] = -20

x[i] = Math.GetRandomNumber(600)+20

EndIf

Shapes.Move(ball[i], x[i], y[i])

EndFor

Goto RunLoop