Monday 3 February 2014

1. Membaca koordinat posisi mouse terhadap jendela grafik
2. Mendeteksi apakah mouse berada diatas suatu shape atau tidak
3. Mendeteksi apakah mouse bergerak atau tidak (diam)
4. Mendeteksi apakah tombol mouse ditekan atau tidak (release)
 

Meeting point: all graphicswindow event

GraphicsWindow.MouseMove = mousegerak
GraphicsWindow.MouseDown = mouseklik
'GraphicsWindow.KeyDown = tekankey
GraphicsWindow.TextInput = ejatext

Sub mousegerak
  TextWindow.Writeline("sumbu x: " + GraphicsWindow.mousex + " sumbu y: " + GraphicsWindow.mousey)
EndSub

Sub mouseklik
  If Mouse.IsLeftButtonDown Then
    TextWindow.WriteLine("Klik kiri ditekan boss...")
  Else
    TextWindow.WriteLine("Klik kanan bos...")
EndIf
EndSub

Sub tekankey
  TextWindow.WriteLine(GraphicsWindow.LastKey)
EndSub

Sub ejatext
  TextWindow.Write(GraphicsWindow.LastText)
EndSub
Shapes.AddRectangle(100,100)
start:


If GraphicsWindow.MouseX >= 0 And GraphicsWindow.MouseY <=100 Then
  textwindow.writeline("mouse diatas shape")
Else
  TextWindow.WriteLine("mouse tidak diatas shape")
EndIf
program.Delay(10)
Goto start


start:
If Mouse.IsLeftButtonDown then
TextWindow.WriteLine("TRUE")
else
TextWindow.WriteLine("FALSE")
endif

Program.Delay(100)
Goto start

Sub mousedown
  TextWindow.WriteLine("true")
EndSub


Detecting mouse movement with endless loop (goto)

start:
GraphicsWindow.Show()
x1 = GraphicsWindow.MouseX
y1 = GraphicsWindow.MouseY
Program.Delay(10)
x2 = GraphicsWindow.MouseX
y2 = GraphicsWindow.MouseY

if x1 <> x2 and y1 <> y2 Then
  TextWindow.WriteLine("mouse is moving")
Else
  TextWindow.WriteLine("mouse is still")
 
EndIf

Goto start

Program pencatat koordinat x dan y mouse terhadap graphics window (Small Basic)

GraphicsWindow.MouseMove = mousegerak

Sub mousegerak
  TextWindow.Writeline("kordinat mouse terhadap sumbu x: " + GraphicsWindow.mousex + " koordinat sumbu y: " + GraphicsWindow.mousey)
EndSub








Atau sederhananya:

GraphicsWindow.MouseMove = mousegerak

Sub mousegerak
  TextWindow.Writeline("sumbu x: " + GraphicsWindow.mousex + " sumbu y: " + GraphicsWindow.mousey)
EndSub

Sunday 2 February 2014


Array

Tugas-tugas yang bisa diberlakukan pada array:
1. Mendeklarasikan
-  Integer array
Int[] a = {10, 20, 30, 40, 50};

- an empty integer array
Int[] x = new int[5];

- String array
String[] angka = {"Satu", "Dua", "Tiga"};

- an empty string array
string[] angka2 = new string[3];

2. Mencetak isi array a
- satu persatu
System.out.println(a[0]);
System.out.println(a[1]);

- sekaligus [perlu for... each loop statement atau disebut juga advance for]
 Kebutuhannya:
- 1 buah temporary variabel, contoh: temp;
- Nama array yang mau dikerjain, contoh: a
-- jenis tipe data array itu: int

Contoh statement-nya:
for (int temp : a){
System.out.println(temp)
}
Output:
10
20
30
40
50

Two dimensional array
1. Mendeklarasikan
int[][] twodim = new int[2][2]