Program pengacakan kata

'Penambahan tombol-tombol control
kata = Controls.AddTextBox(0,0)
translate = Controls.AddButton("acak bro..",200,0)
hasil = Controls.AddMultiLineTextBox(0,100)
GraphicsWindow.show()

teks1 = Shapes.AddText("Kata yang akan diacak:")
xtext1 = Shapes.GetLeft(teks1)
Shapes.Move(kata, xtext1, 20)
ykata = Shapes.GetTop(kata)
xkata = Shapes.GetLeft(kata)
Shapes.Move(translate, xkata + 160, ykata)

'pendefensian even-handlers untuk controls
controls.ButtonClicked = tomboldiklik

'sub-sub
sub tomboldiklik
  If Controls.LastClickedButton = translate then
    datapengacakan = Controls.GetTextBoxText(kata)
    For i = 1 To Text.GetLength(datapengacakan)
    a[i] = Text.GetSubText(datapengacakan, i,1)
    b[i] = Text.GetCharacterCode(a[i]) + 1
    c[i] = Text.GetCharacter(b[i])
    d = Text.Append(d, c[i])
    Controls.SetTextBoxText(hasil, d )
    EndFor
  EndIf
EndSub

x, y dan getleft dan gettop

x = get left
y = get top

Prepositions of Place

Coba mencari deret

Case 1
X
0
180
360
440







x1 = 0
x2 = x1 + 180
x3 = x2 + 180
x4 = x3 + 180

Jadi, eks-eks diatas xi = xi-2 + 180
kecuali x1. Is that simple? Yes! Apa ini disebut? Pengecualian!


Case 2
X 
0
180
360

Y
0
90
180

x1 = 0x2 = x1 + 180
x3 = x2 + 180
x4 = x3 + 180

dan

y1 = 0
y2 = 1/2 * x2
y3 = 1/2 * x3
y4 = 1/2 * x4

Jadi yi = 1/2 * xi kecuali y1. Simple!

Visualisasi pembuatan kondisi

1. Bagi semuanya jadi 2 bagian

Brain threats and brain-protectors

Rumus sisa bagi

1. Rumus sisa bagi
Contoh: 5 / 3 = .....1 sisa 2

Langkah 1. Pertama kita harus tahu hasil/jawaban yang bener itu bagaimana, dari situ kita bisa main tebak-tebakan sedikit.

Langkah 2. Masukkan angka-angkanya kedalam gelas eh.. variabel
Soal diatas: 5 / 3 = 1 sisa 2
A = 5
B = 3
C = 1
D = 2
Jadi, yang mau kita cari diatas 5 / 3 = 1 sisa 2 itu berubah menjadi:
A / B = C sisa D

Langkah 3.Kreatifitas
angka 1 (C) bisa didapat dari apa saja?
1. 3-2 atau B-D

2 . Angka 2 (D) bisa didapat dari?
5- 3 atau A - B

Test:
C = B-D
= B-(A-B)
= B-A+B