Tugas 2

prizky kol

Listing Program :

Private Sub Command1_Click()

Text9.Text = Val(Text1.Text) + Val(Text5.Text)

Text10.Text = Val(Text2.Text) – Val(Text6.Text)

Text11.Text = Val(Text3.Text) * Val(Text7.Text)

Text12.Text = Val(Text4.Text) / Val(Text8.Text)

End Sub

Private Sub text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

Private Sub text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

Private Sub text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub

Private Sub text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text6.SetFocus

End If

End Sub

Private Sub text6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text7.SetFocus

End If

End Sub

Private Sub text7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text8.SetFocus

End If

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

Text9.Text = “”

Text10.Text = “”

Text11.Text = “”

Text12.Text = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

Text9.Text = “”

Text10.Text = “”

Text11.Text = “”

Text12.Text = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Advertisements

RIZKY

Listing Program :

Private Sub Command1_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

RIZKY 3

TUGAS 2.1
Private Sub Command1_Click()
Text4.Text = Val(Text1) + Val(Text2) – Val(Text3)
Text5.Text = Val(Text4) * 0.1
Text6.Text = Val(Text4) – Val(Text5)
End Sub

TUGAS 2.2
Private Sub Command1_Click()
Text4.Text = Val(Text1) + Val(Text2) – Val(Text3)
Text5.Text = Val(Text4) * 0.1
Text6.Text = Val(Text4) – Val(Text5)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1 = ” “
Text2 = ” “
Text3 = ” “
Text4 = ” “
Text5 = ” “
Text6 = ” “
End Sub

Private Sub Command3_Click()
End
End Sub

RIZKY 2

TUGAS 3.2

Private Sub chkitalic_Click()

‘membuat teks miring

If chkitalic.Value = 1 Then

lbltext.FontItalic = True

Else

lbltext.FontItalic = False

End If

End Sub

Private Sub cmdok_Click()

lbltext.Text = Val(Text1.Text)

End Sub

Private Sub cmdselesai_Click()

End

End Sub

Private Sub optblue_Click()

‘membuat teks berwarna biru

lbltext.ForeColor = vbBlue

End Sub

Private Sub chkbold_Click()

‘membuat teks tebal

If chkbold.Value = 1 Then

lbltext.FontBold = True

Else

lbltext.FontBold = False

End If

End Sub

Private Sub optred_Click()

‘membuat teks berwarna merah

lbltext.ForeColor = vbRed

End Sub

Private Sub lbltext_Change()

lbltext.Text = Text1.Text

End Sub

RIZKY 3

TUGAS 2.1
Private Sub Command1_Click()
Text4.Text = Val(Text1) + Val(Text2) – Val(Text3)
Text5.Text = Val(Text4) * 0.1
Text6.Text = Val(Text4) – Val(Text5)
End Sub

TUGAS 2.2
Private Sub Command1_Click()
Text4.Text = Val(Text1) + Val(Text2) – Val(Text3)
Text5.Text = Val(Text4) * 0.1
Text6.Text = Val(Text4) – Val(Text5)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1 = ” “
Text2 = ” “
Text3 = ” “
Text4 = ” “
Text5 = ” “
Text6 = ” “
End Sub

Private Sub Command3_Click()
End
End Sub

Usai Serangan Paris, Inggris Gencarkan Pemberantasan Penyelundupan Senjata

ita Uli Hutapea – detikNews
penembakan di Charlie Hebdo (CBS News)

London, – Pemerintah Inggris akan meningkatkan upaya untuk menghentikan penyelundupan senjata lintas perbatasan. Ini dilakukan setelah serangan-serangan mematikan oleh para militan di Paris, Prancis. Inggris pun akan memperbarui protokol keamanannya untuk menangani insiden-insiden serupa.

Demikian disampaikan kantor Perdana Menteri (PM) Inggris David Cameron seperti dilansir kantor berita Reuters, Senin (12/1/2015).

PM Cameron menggelar pertemuan Senin pagi tadi waktu setempat untuk membahas serangan-serangan di Paris. Dalam pertemuan itu, ditelaah mengenai risiko kejadian serupa di Inggris. Kepolisian dan badan-badan keamanan Inggris lainnya pun setuju untuk memperbarui pelatihan mereka terhadap insiden-insiden serupa.

“Mereka juga membahas risiko yang ditimbulkan dari senjata api, sepakat bahwa kami harus meningkatkan upaya-upaya kami dengan negara-negara lain guna memberantas penyelundupan senjata ilegal lintas perbatasan,” ujar juru bicara Cameron.

Serangan teror di Paris dimulai dengan penembakan brutal di kantor majalah satir Charlie Hebdo pada 7 Januari lalu. Sebanyak 12 orang termasuk polisi tewas dalam insiden itu. Dilanjutkan kemudian dengan aksi penyanderaan di supermarket Yahudi atau kosher pada 9 Januari yang menewaskan empat orang.

Pada Agustus 2014 lalu, pemerintah Inggris menaikkan level peringatan terorisme di negeri itu ke level tertinggi kedua, yang artinya serangan teroris “sangat mungkin” terjadi. Pekan lalu, kepala dinas keamanan Inggris, MI5 mengatakan bahwa para militan Al-Qaeda di Suriah merencanakan serangan-serangan untuk menimbulkan korban jiwa yang besar di negara-negara Barat.

Akhiri hari anda dengan menyimak beragam informasi penting dan menarik sepanjang hari ini, di “Reportase Malam” pukul 01.30 WIB, hanya di Trans TV

(ita/ita)