Ukuran foto

3R ==> 3" x 5" ( 89 x 127 mm )
4R ==> 4" x 6" ( 102 x 152 mm )
5R ==> 5" x 7"
6R ==> 6" x 8"
8R ==> 8" x 10" ( 203 x 254 mm )
S8R ==> 8" x 12" (203 x 304 mm )
10R ==> 10" x 12"
S10R ==> 10" x 15"
11R ==> 11" x 14"
S11R ==> 11" x 17"
12R ==> 12" x 15"
S12R ==> 12" x 18" (305 x 465 mm )
16R ==> 16" x 20"
20R ==> 20" x 24"

ORANG YANG BERPENGARUH DI DUNIA

Pimpinan Partai Demokrat yakni Susilo Bambang Yudhoyono (SBY) menjadi salah satu orang yang paling berpengaruh di dunia versi majalah TIME (TIME's 100 The Most Influential People) pada tahun 2009 ini. Hal tersebut dikatakan oleh Juru Bicara Kepresidenan Dino Patti Djalal. Penghargaan tersebut diberikan kepada tokoh-tokoh dunia yang dinilai berhasil di bidangnya masing-masing.

Dino mengatakan, SBY masuk dalam jajaran "TIME 100" bersama mantan Perdana Menteri (PM) Inggris Tony Blair, mantan Menteri Luar Negeri AS Madeline Albraight, mantan Presiden Rusia Vladimir Putin, dan mantan Presiden AS George Bush. Daftar lengkap tokoh-tokoh yang masuk dalam penghargaan TIME tersebut akan dimuat pada 1 Mei 2009.

Dalam situs jajak pendapat TIME, kandidat utama finalis 100 orang yang berpengaruh antara lain Presiden AS Barack Obama. TIME mencatat Obama telah mampu mengalahkan Hillary Clinton, John McCain, dan sejarah rasis AS dengan memenangkan 53 persen suara dalam pemilu presiden.

Kandidat lainnya adalah Jack Dorsey dan Biz Stone. Keduanya merupakan pendiri jejaring sosial Twitter. Dengan jumlah pengguna Twitter mencapai 6 juta dan terus berkembang, kedua tokoh itu mampu mengembangkan perusahaan itu semakin besar ke depannya. Pemimpin oposisi Malaysia, Anwar Ibrahim, juga masuk sebagai kandidat.

Membuat Kalkulator Sederhana Dengan Visual Basic

Objek / Kontrol	Properties	Nilai
Form	Nama Caption	Form1 Form Kalkulator
Label	Nama Caption	Label1 Expresi
TextBox	Caption	TxtExpresi
Command1	Nama Caption	CmdUlang ULANG
Command2	Nama Caption	cmdTombol 7
Command3	Nama Caption	cmdTombol 8
Command4	Nama Caption	cmdTombol 9
Command5	Nama Caption	cmdTombol 4
Command6	Nama Caption	cmdTombol 5
Command7	Nama Caption	cmdTombol 6
Command8	Nama Caption	cmdTombol 1
Command9	Nama Caption	cmdTombol 2
Command10	Nama Caption	cmdTombol 3
Command11	Nama Caption	cmdTombol 0
Command12	Nama Caption	CmdOperator +
Command13	Nama Caption	CmdOperator -
Command14	Nama Caption	CmdOperator x
Command15	Nama Caption	CmdOperator /
Command16	Nama Caption	CmdSamaDengan =

Ketik kode program berikut :

Private Sub CmdAngka_Click(Index As Integer)

End Sub

Private Sub cmdOperator_Click(Index As Integer)

If TxtExpresi.Text = "" Then

JlhOperator = 0

Exit Sub

End If

If Cek Then Exit Sub

JlhOperator = JlhOperator + 1

If JlhOperator > 1 Then Exit Sub

TxtExpresi.Text = TxtExpresi.Text + CmdOperator(Index).Caption

Operator = CmdOperator(Index).Caption

Operand1 = Val(Nilai)

Nilai = ""

End Sub

Private Sub cmdSamaDengan_Click()

If TxtExpresi.Text = "" Then Exit Sub

If Cek Then Exit Sub

If JlhOperator = 0 Then

TxtExpresi.Text = TxtExpresi.Text & "=" & Nilai

Cek = True

Exit Sub

End If

Operand2 = Val(Nilai)

Select Case Operator

Case "+"

TxtExpresi.Text = TxtExpresi.Text & "=" & Operand1 + Operand2

Case "-"

TxtExpresi.Text = TxtExpresi.Text & "=" & Operand1 - Operand2

Case "x"

TxtExpresi.Text = TxtExpresi.Text & "=" & Operand1 * Operand2

Case Else

TxtExpresi.Text = TxtExpresi.Text & "=" & Operand1 / Operand2

End Select

Cek = True

JlhOperator = 0

End Sub

Private Sub cmdTombol_Click(Index As Integer)

If Cek Then

cmdUlangi_Click

Cek = False

End If

TxtExpresi.Text = TxtExpresi.Text + cmdTombol(Index).Caption

Nilai = Nilai + cmdTombol(Index).Caption

End Sub

Private Sub CmdUlang_Click()

Nilai = ""

TxtExpresi.Text = ""

JlhOperator = 0

End Sub

Private Sub Form_Load()

Cek = False

JlhOperator = 0

End Sub

Private Sub TxtExpresi_Change()

End Sub