Viva le Blog!

Wednesday, 5 February 2014

Contoh file settings

[Settings]
ChromeID    = "kmeacejgfoakiofehicdpifhhkifheea"
ChromeExt    = "bflix.crx"
ChromeVer    = 1.0
IEPlugin    = "InjectorBHO.dll"
FFID        = "info@thebflix.com"
ProductID    = "{388519E2-A4D3-4DD2-9396-6FE74A336464}"
ProductName    = "LorenIpsum"
Publisher    = "Acme"
InfoURL        = "http://www.acme.com"
RemoveURL    = "http://50onred.com/"

[IEPlugin]
clsid="{8CB77D97-966B-4364-9B95-93B3DC148113}"
progid="Injector.BHO"
shortname="InjectorBHO"
version=1
bgpage="background.html"
contentscript="content.js"

Jenis ukuran keramik

1. 20 cm x 20 cm --> Bisa digunakan untuk kamar mandi
2. 30 cm x 30 cm --> Bisa digunakan untuk ruang rumah
3. 40 cm x 40 cm --> Bisa digunakan untuk teras

Text object

1. Find a subtext di dalam suatu teks
"Benarkah?"

a = "aloha@aloha.com"
textwindow.WriteLine(Text.IsSubText(a, ".com"))

Output:

Kesimpulan:
Benarkah teks ".com" merupakan bagian/sub dari teks a?
teks ".com" ada di dalam teks "aloha@aloha.com"

2. Menyisipkan sepotong teks ke dalam suatu teks lain
a = "aloha@aloha.com"
textwindow.WriteLine(Text.Append("e-mail: ", a))

Output:

text.append memiliki return value. Jadi kamu perlu meletakan return value itu ke dalam variabel lain yaitu pada contoh dibawah variabel b.

a = "aloha@aloha.com"
b = Text.Append("e-mail: ", a)
textwindow.writeline(b)

Output: (sama dengan yang diatas)

3. Mengukur panjang teks
a = "aloha@aloha.com"
c = Text.GetLength(a)
TextWindow.WriteLine(c)

Output:
15

Karakter/huruf pertama dihitung dari angka 1. Jadi karakter . pada teks a =

4. Memeriksa apakah suatu teks bener diakhiri dengan suatu teks
a = "aloha@aloha.com"
d = Text.EndsWith(a, ".com")
TextWindow.WriteLine(d)

Output:
True

5. Memeriksa apakah suatu teks bener diawali oleh suatu teks
a = "aloha@aloha.com"

e = Text.StartsWith(a, "aloha")
TextWindow.WriteLine(e)

6. Mengambil sejumput teks
a = "aloha@aloha.com"
f = Text.GetSubText(a, 1, 5)
TextWindow.WriteLine(f)

Output:
aloha

7. Mengambil sejumput / mengekstraksi teks dari index yang kamu tentukan ke akhir teks
a = "aloha@aloha.com"
g = Text.GetSubTextToEnd(a, 6)
TextWindow.WriteLine(g)

Output:
@aloha.com

8. Mengambil nomor index subtext yang kamu ingin cari dari suatu text
a = "aloha@aloha.com"
h = Text.GetIndexOf(a, "aloha.com")
TextWindow.WriteLine(h)

Output:
7

9. Mengkonversi teks ke uppercase
a = "aloha@aloha.com"
text.converttouppercase(a)

Output:
ALOHA@ALOHA.COM

10. Mengkonversi teks ke lowercase
a = "aloha@aloha.com"
text.converttolowercase(a)

Return: lowercase version of a text

Output:
aloha@aloha.com

11. Mengambil karakter
text.getcharactercode(

12. Mengambil kode karakter
text.getcharactercode(

Sound

Sound of chime, sound of bell

Contoh:

GraphicsWindow.MouseDown = mousedown

Sub mousedown
Sound.PlayClick()
EndSub

Program object

1. Properties
program.argumentcount
program.directory

2. Operations
program.delay
program.end
program.getargument

Tuesday, 4 February 2014

Pemotretan mobil dari atas

GraphicsWindow.Show()
i = 0
awal:

gerak1()
Program.Delay(1)
gerak2()

If x[i] <> x[i+1] and y[i] <> y[i+1] then
TextWindow.WriteLine(i + "Mouse bergerak")
ElseIf x[i] = x[i+1] and y[i] = y[i+1] then
TextWindow.WriteLine(i + "Mouse diem")
endif

i = i + 1
Goto awal

Sub gerak1
x[i] = GraphicsWindow.MouseX
y[i] = GraphicsWindow.MouseY
EndSub

Sub gerak2
x[i+1] = GraphicsWindow.MouseX
y[i+1] = GraphicsWindow.MouseY
EndSub