Friday, 7 February 2014

Hujan Bola









GraphicsWindow.MouseDown = mousedown GraphicsWindow.MouseUp = mouseup i = 0 Sub mousedown x[i] = GraphicsWindow.mousex y[i] = GraphicsWindow.mousey i = i + 1 EndSub Sub mouseup anak = Shapes.AddEllipse(10,10) Shapes.animate(anak, x[i - 1], y[i - 1],1000) EndSub
GraphicsWindow.MouseDown = mouseklik
a = Shapes.AddText("test")

Sub mouseklik
  Shapes.SetText(a,Math.GetRandomNumber(10))
EndSub


Thursday, 6 February 2014

Simple but beautiful flickr

GraphicsWindow.MouseMove = lihat
GraphicsWindow.DrawImage(Flickr.GetPictureOfMoment(),0,0)

Sub lihat
  x = GraphicsWindow.mousex
  y = GraphicsWindow.MouseY
  c1 = GraphicsWindow.GetPixel(x,y)
  TextWindow.WriteLine(c1)
EndSub



Recording data

1. Tally chart
2. Picture graph
3. Tables


Simple tally chart








Simple table









Simple chart/picture graph















Position

Inside dan outside
left, middle dan right
Above and below
top and bottom
x = {0,1,2,3,4,5}
artinya x bernilai 0 kemudian bernilai 1 kemudian bernilai 2 kemudian bernilai 3 secara bergantian.

15/2
10/2, simpan, 5/2, simpan, tambahkan kedua hasil simpanan.