Sunday 7 December 2014

arus lisrik yang mengalir melalui seutas kawat akan menghasilkan?

arus listrk yang mengalir melalui sekumparan kawat akan menghasilkan?

penemuan generator listrik adalah ketika magnet dimaju mundurkan di dalam sekumparan kawat

Saturday 6 December 2014

networking tools

1. VNC (Virtual Network Computing)
Paket: Tightvnc
keluar dari menu full: Ctrl + Alt + Shift + f


2. Linux terminal-based editor
- Nano
- VIM

3. SFTP
Contoh: FileZilla
Gunanya: 
URL: https://filezilla-project.org/

Thursday 4 December 2014

While

While angkadadu <> 6
  angkadadu = Math.GetRandomNumber(6)
  TextWindow.WriteLine(angkadadu)
  Program.Delay(1000)
EndWhile
 
Selama angkadadu belum 6, kocok/ganti angka dadu.

Thursday 27 November 2014

Statement-statement

1. With statement
Syntax:
With object
[statements]
End with

Example:
With MyLabel
    .Height = 2000
    .Width = 2000
    .Caption = "This is MyLabel"
End With 

2. While...Wend statement
Mengeksekusi serangkaian statement / pernyataan selama kondisi yang diberikan benar.
 
Syntax:
While condition
[statements]
Wend

Example:



3. Type statement
Digunakan pada level modul untuk mendefinisikan tipe data yang didefenisikan pengguna
memuat satu atau lebih elemen-elemen.

Example:
Type EmployeeRecord    ' Create user-defined type.
    ID As Integer    ' Define elements of data type.
    Name As String * 20
    Address As String * 30
    Phone As Long
    HireDate As Date
End Type
Sub CreateRecord()
    Dim MyRecord As EmployeeRecord    ' Declare variable.

    ' Assignment to EmployeeRecord variable must occur in a procedure.
    MyRecord.ID = 12003    ' Assign a value to an element.
End Sub

Syntax:


4. Sub statement
 
Example:
' Sub procedure definition.
' Sub procedure with two arguments.
Sub SubComputeArea(Length, TheWidth)
    Dim Area As Double    ' Declare local variable. 
    If Length = 0 Or TheWidth = 0 Then
    ' If either argument = 0.
        Exit Sub    ' Exit Sub immediately.
    End If
    Area = Length * TheWidth    ' Calculate area of rectangle.
    Debug.Print Area    ' Print Area to Debug window.
End Sub
 
5. Enum statement

Example:
Public Enum InterfaceColors
    icMistyRose = &HE1E4FF&
    icSlateGray = &H908070&
    icDodgerBlue = &HFF901E&
    icDeepSkyBlue = &HFFBF00&
    icSpringGreen = &H7FFF00&
    icForestGreen = &H228B22&
    icGoldenrod = &H20A5DA&
    icFirebrick = &H2222B2&
End Enum
 
6. Const statement
Mendeklarasikan konstanta / ketetapan untuk digunakan sebagai pengganti huruf (literal)
 

Example:
' Constants are Private by default.
Const MyVar = 459

' Declare Public constant. 
Public Const MyString = "HELP"

' Declare Private Integer constant.
Private Const MyInt As Integer = 5

' Declare multiple constants on same line.
Const MyStr = "Hello", MyDouble As Double = 3.4567  
 
 7. Time statement
Mengatur waktu sistem.
 
Contoh:
 
Dim MyTime
MyTime = #4:35:17 PM#    ' Assign a time.
Time = MyTime    ' Set system time to MyTime.

8. Private statement
Digunakan pada level modul untuk mendeklarasikan variabel-variabel private dan
mengalokasikan ruang penyimpanan.

Pernyataan private digunakan di level modul untuk mendeklarasikan variabel sebagai
private, yaitu mereka hanya tersedia bagi modul yang dimana mereka dideklarasikan.

Contoh:
 
Private Number As Integer    ' Private Integer variable.
Private NameArray(1 To 5) As String    ' Private array variable.
' Multiple declarations, two Variants and one Integer, all Private.
Private MyVar, YourVar, ThisVar As Integer    

Friday 21 November 2014

Nilai rata-rata dan standard deviasi

Budi mengerjakan 5 soal dalam 2 jam.
Soal #1 = 10 menit
Soal #2 = 20 menit
Soal #3 = 30 menit
Soal #4 = 40 menit
Soal #5 = 20 menit

Thursday 20 November 2014

Menciptakan fungsi buatan sendiri di Macro Microsoft Excel

Referensi: http://office.microsoft.com/en-au/excel-help/creating-custom-functions-HA001111701.aspx

1. Harus insert module
2. Copy code berikut ke jendela Book1 - Module1(Code)
Function tambah(a, b)
c = a + b
MsgBox (c)
End Function

Fungsi diatas menambahkan argumen a dan argumen b kedalam c dan menampilkan hasilnya di jendela msgbox.

Fungsi buatan sendiri harus dimulai dengan kalimat Function dan diakhiri dengan kalimat End Function.

Komponen fungsi: nama fungsi (dalam hal ini aloha) dan argumen-argumen (dalam hal ini a dan b) dan procedure.
1. Nama fungsi = bebas / terserah; lebih baik beri nama yang mencerminkan nilai yang dikandungnya.
2. Argumen-argumen = bisa tidak ada argumen, bisa sampai 29 argumen maksimum dengan menambahkan koma-koma diantaranya.
3. Procedure

Fungsi buatan sendiri berbeda dengan macro dan berbeda dengan Excel's built-in function. Contoh Excel's built-in function: RAND(), NOW().



3. Kembali ke jendela kotak-kotak excel dengan menekan tombol alt + F11 dan pada salah satu sel ketik "=aloha(A1;A2)" (tanpa tanda petik)




Beberapa contoh lainnya:
1.
Function Discount(quantity, price)
    If quantity >= 100 Then
        Discount = quantity * price * 0.1
    Else
        Discount = 0
    End If
    Discount = Application.Round(Discount, 2)
End Function
 
 

Fungsi diatas pada dasarnya mengerjakan apabila jumlah barang yang dibeli (kuantitas barang)
lebih besar dari 100 barang maka mendapatkan diskon sebesar 0.1. Sebaliknya, jika jumlah
barang yang dibeli dibawah 100 tidak ada diskon / potongan harga.