TUGAS VISUAL BASIC KE 4

Private Sub Command1_Click()
Dim S As String
S = Mid(Combo1.Text, 1, 3)
If S = “SIM” Then
Text2.Text = “Sistem Informasi Manajemen”
Text3.Text = “Fadiya Ulfa”
Text6.Text = 75900
ElseIf S = “EDP” Then
Text2.Text = “Elektronik Data Processing”
Text3.Text = “Nurul Agustina”
Text6.Text = 62000
ElseIf S = “MNJ” Then
Text2.Text = “Manajemen”
Text3.Text = “Rian Hidayat”
Text6.Text = 42000
ElseIf S = “CDR” Then
Text2.Text = “Corel Draw”
Text3.Text = “Siti Nur Khotimah”
Text6.Text = 53000
ElseIf S = “RLP” Then
Text2.Text = “Rekayasa Perangkat Lunak”
Text3.Text = “Winda Erlianti “
Text6.Text = 83000
End If
S = Right(Combo1.Text, 1)
If S = “A” Then
Text5.Text = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
Text5.Text = “Indah Surabaya”
ElseIf S = “S” Then
Text5.Text = “Salemba Empat”
ElseIf S = “E” Then
Text5.Text = “Elek Media Komputindo”
ElseIf S = “M” Then
Text5.Text = “Maxicom”
End If
S = Mid(Combo1.Text, 5, 2)
If S = “09″ Then
Text4.Text = “2009″
ElseIf S = “10″ Then
Text4.Text = “2010″
ElseIf S = “11″ Then
Text4.Text = “2011″
ElseIf S = “12″ Then
Text4.Text = “2012″
ElseIf S = “13″ Then
Text4.Text = “2013″
End If
End Sub

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

Private Sub Command3_Click()
Combo1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text2.SetFocus
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Form_Load()
Combo1.AddItem “SIM-09-A”
Combo1.AddItem “EDP-10-I”
Combo1.AddItem “MNJ-11-S”
Combo1.AddItem “CDR-12-E”
Combo1.AddItem “RLP-13-M”
End Sub

Private Sub Command1_Click()
Dim S As String
S = Mid(Text11.Text, 1, 4)
Text4.Text = S
S = Mid(Text11.Text, 5, 1)
If S = “A” Then
Text1.Text = “A”
Text5.Text = “Manajer”
Text7.Text = “4000000″
Text8.Text = “1025000″
Text9.Text = (Val(Text7.Text) + Val(Text8.Text))
ElseIf S = “B” Then
Text1.Text = “B”
Text5.Text = “Ka. Seksi”
Text7.Text = “3500000″
Text8.Text = “975000″
Text9.Text = (Val(Text7.Text) + Val(Text8.Text))
ElseIf S = “C” Then
Text1.Text = “C”
Text5.Text = “Staff”
Text7.Text = “3000000″
Text8.Text = “925000″
Text9.Text = (Val(Text7.Text) + Val(Text8.Text))
End If
S = Mid(Text11.Text, 7, 1)
If S = “S” Then
Text2.Text = “S”
Text3.Text = “Single”
ElseIf S = “M” Then
Text2.Text = “M”
Text3.Text = “Menikah”
ElseIf S = “J” Then
Text2.Text = “J”
Text3.Text = “Janda”
ElseIf S = “D” Then
Text2.Text = “D”
Text3.Text = “Duda”
End If
S = Right(Text11.Text, 3)
If S = “KEU” Then
Text6.Text = “Accounting”
ElseIf S = “ADM” Then
Text6.Text = “Administrasi”
ElseIf S = “SDM” Then
Text6.Text = “General Affair”
ElseIf S = “EDP” Then
Text6.Text = “IT Unit”
ElseIf S = “SPM” Then
Text6.Text = “Security”
End If
End Sub

Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
Text10.SetFocus
End Sub

Private Sub Command3_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
Text10.SetFocus
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text11.SetFocus
End If
End Sub

 

Private Sub Command1_Click()
Dim S As String
Text5.Text = “20″ & Left(Text2.Text, 2)
S = Mid(Text2.Text, 3, 1)
If S = “1″ Then
Text3.Text = “Sistem Informasi”
ElseIf S = “2″ Then
Text3.Text = “Manajemen Informatika”
ElseIf S = “3″ Then
Text3.Text = “Tehnik Informatika”
ElseIf S = “4″ Then
Text3.Text = “Manajemen & Komp. Akuntansi”
End If
S = Mid(Text2.Text, 4, 2)
If S = “01″ Then
Text4.Text = “Strata Satu”
ElseIf S = “02″ Then
Text4.Text = “Diploma Tiga”
ElseIf S = “03″ Then
Text4.Text = “Diploma Empat”
ElseIf S = “04″ Then
Text4.Text = “Diploma Dua”
End If
Text6.Text = Right(Text2.Text, 3)
End Sub

Private Sub Text1_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
Text2.SetFocus
End If
End Sub

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

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

Private Sub Command4_Click()
End
End Sub

Private Sub Command1_Click()
Dim S As String
S = Mid(Combo1.Text, 3, 3)
If S = “SIM” Then
Text2.Text = “Sistem Informasi Manajemen”
Text3.Text = “Yati Nur Oktavia”
Text6.Text = 75900
ElseIf S = “EDP” Then
Text2.Text = “Elektronik Data Processing”
Text3.Text = “Imam Tarmizi”
Text6.Text = 62000
ElseIf S = “MNJ” Then
Text2.Text = “Manajemen”
Text3.Text = “Valentina Mariana Adiwiyanti”
Text6.Text = 42000
ElseIf S = “CDR” Then
Text2.Text = “Corel Draw”
Text3.Text = “Riyan Suhandi”
Text6.Text = 53000
ElseIf S = “RLP” Then
Text2.Text = “Rekayasa Perangkat Lunak”
Text3.Text = “Sinta Umpu Singa”
Text6.Text = 83000
End If
S = Left(Combo1.Text, 1)
If S = “A” Then
Text5.Text = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
Text5.Text = “Indah Surabaya”
ElseIf S = “S” Then
Text5.Text = “Salemba Empat”
ElseIf S = “E” Then
Text5.Text = “Elek Media Komputindo”
ElseIf S = “M” Then
Text5.Text = “Maxicom”
End If
S = Right(Combo1.Text, 2)
If S = “01″ Then
Text4.Text = “2001″
ElseIf S = “02″ Then
Text4.Text = “2002″
ElseIf S = “03″ Then
Text4.Text = “2003″
ElseIf S = “04″ Then
Text4.Text = “2004″
ElseIf S = “05″ Then
Text4.Text = “2005″
End If
End Sub

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

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Combo1.AddItem “A-SIM-01″
Combo1.AddItem “I-EDP-02″
Combo1.AddItem “S-MNJ-03″
Combo1.AddItem “E-CDR-04″
Combo1.AddItem “M-RLP-05″
End Sub

Tugas VB Pertemuan Ke 3

Membuat 10 Program

Nama : Muammar Phatala

NPM : 12201366

Kelas : Twitter 12

MK : Visual Basic

1.Kalkulator Sederhana

Source Code :

Private Sub Command1_Click()
C = Val(A.Text) + Val(B.Text)
End Sub

Private Sub Command2_Click()
C = Val(A.Text) – Val(B.Text)
End Sub

Private Sub Command3_Click()
C = Val(A.Text) * Val(B.Text)
End Sub

Private Sub Command4_Click()
C = Val(A.Text) / Val(B.Text)
End Sub

Private Sub Command5_Click()
C = Val(A.Text) ^ Val(B.Text)
End Sub

Private Sub Command6_Click()
A.Text = Clear
B.Text = Clear
C.Text = Clear
A.SetFocus
End Sub

Private Sub Command7_Click()
End
End Sub

2.Properti Test

Source Kode :

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label2.FontItalic = Check2.Value
End Sub

3.Font Color

Source Kode :

Private Sub chkBold_Click()
‘membuat teks tebal
If chkBold.Value = 1 Then
lblTeks.FontBold = True
Else
lblTeks.FontBold = False
End If
End Sub

Private Sub chkItalic_Click()
‘membuat teks miring
If chkItalic.Value = 1 Then
lblTeks.FontItalic = True
Else
lblTeks.FontItalic = False
End If
End Sub

Private Sub chkStrike_Click()
‘membuat teks bergaris tengah
If chkStrike.Value = 1 Then
lblTeks.FontStrikethru = True
Else
lblTeks.FontStrikethru = False
End If
End Sub

Private Sub chkUnder_Click()
‘membuat teks bergaris bawah
If chkUnder.Value = 1 Then
lblTeks.FontUnderline = True
Else
lblTeks.FontUnderline = False
End If
End Sub

Private Sub cmdExit_Click()
End
End Sub

4.Data Nama Pasien

Source kode

Private Sub Form_Load()
Text3 = Format(Now, “DD-MMMM-YYYY”)
Text4 = Format(Now, “HH:MM”)
Text3.Enabled = False
Text4.Enabled = False

Combo1.AddItem “PRIA”
Combo1.AddItem “WANITA”
End Sub

Private Sub Text1_keypress(keyAscii As Integer)
If keyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text5_keypress(keyAscii As Integer)
If keyAscii = 13 Then
Text6.SetFocus
End If
End Sub
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text5.Text = “”
Text6.Text = “”
Combo1.Text = “”
End Sub

5.Aplikasi Perhitungan Gaji

Surce kode :

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.Text = Val(Text1.Text) + Val(Text2.Text) – Val(Text3.Text)
Text5.Text = Val(Text4.Text) * 0.2
Text6.Text = Val(Text4.Text) – Val(Text5.Text)
End If
End Sub

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

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

Private Sub Command3_Click()
End
End Sub

6.Perhitungan Diskon

Source Kode :

Private Sub Combo1_Click()
Combo1.AddItem “ABA”
Combo1.AddItem “AMIK”
Combo1.AddItem “AKA”
End Sub

Private Sub Combo2_Click()
If Combo2 = “MI-0101-KTI” Then
Text4.Text = “Konsep Teknologi Informasi”
Text5.Text = “4″
Text6.Text = “20000″
Text6.SetFocus
Else
End If

If Combo2 = “MI-0102-PA” Then
Text4.Text = “Penghantar Akutansi”
Text5.Text = “4″
Text6.Text = “25000″
Text6.SetFocus
Else
End If

If Combo2 = “MI-0103-LA” Then
Text4.Text = “Logika ALgoritma”
Text5.Text = “3″
Text6.Text = “30000″
Text6.SetFocus
Else
End If

If Combo2 = “MI-0104-MD” Then
Text4.Text = “Matematika Dasar”
Text5.Text = “2″
Text6.Text = “15000″
Text6.SetFocus
Else
End If

If Combo2 = “BA-0101-LS” Then
Text4.Text = “Listening”
Text5.Text = “4″
Text6.Text = “25000″
Text6.SetFocus
Else
End If

If Combo2 = “BA-0101-SP” Then
Text4.Text = “speaking”
Text5.Text = “3″
Text6.Text = “40000″
Text6.SetFocus
Else
End If

If Combo2 = “BA-0101-CV” Then
Text4.Text = “Conversation”
Text5.Text = “2″
Text6.Text = “35000″
Text6.SetFocus
Else
End If
End Sub

Private Sub Command1_Click()
Text9.Text = Val(Text7.Text) – Val(Text8.Text)
End Sub

Private Sub Form_Load()
Combo1.AddItem “ABA”
Combo1.AddItem “AMIK”
Combo1.AddItem “AKA”
Combo2.AddItem “MI-0101-KTI”
Combo2.AddItem “MI-0102-PA”
Combo2.AddItem “MI-0103-LA”
Combo2.AddItem “MI-0104-MD”
Combo2.AddItem “BA-0101-LS”
Combo2.AddItem “BA-0101-SP”
Combo2.AddItem “BA-0101-CV”
End Sub

Private Sub Option1_Click()
Text8.Text = Val(Text7.Text) * 0.5
End Sub

Private Sub Option2_Click()
Text8.Text = Val(Text7.Text) * 0.1
End Sub

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

7.Gaji Karyawan

Source Kode :

Private Sub Command1_Click()
Text9.Text = Val(Text6.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.Text = Val(Text3.Text) + Val(Text4.Text) + Val(Text4.Text)
Text7.SetFocus
End If
End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text8.Text = Val(Text6.Text) * Val(Text7.Text) / 100
Text8.SetFocus
End If
End Sub

8.Nilai Mutu

Source Kode :

Private Sub Form_Load()
Combo1.AddItem “12100515″
Combo1.AddItem “12100525″
Combo1.AddItem “12100535″
Combo1.AddItem “12100545″
Combo1.AddItem “12100555″
Combo1.AddItem “12100565″
Combo1.AddItem “12100575″
Combo1.AddItem “12100585″
Combo1.AddItem “12100595″
Combo1.AddItem “12100666″
End Sub

Private Sub Combo1_Click()
If Combo1 = “12100515″ Then
txtNama.Text = “Marchoni”
txtjurusan.Text = “Sistem Informasi”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100525″ Then
txtNama.Text = “Siti Kholijah”
txtjurusan.Text = “Sistem Informasi”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100535″ Then
txtNama.Text = “Adi Setiawan”
txtjurusan.Text = “Sistem Informasi”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100545″ Then
txtNama.Text = “Barnes Setiawan”
txtjurusan.Text = “Manajemen Informatika”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100555″ Then
txtNama.Text = “Adhy Pangestu”
txtjurusan.Text = “Manajemen Informatika”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100565″ Then
txtNama.Text = “Setiawan Adi”
txtjurusan.Text = “Design Grafis”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100575″ Then
txtNama.Text = “Sunardi”
txtjurusan.Text = “Manajemen Informatika”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100585″ Then
txtNama.Text = “Arif Lukman”
txtjurusan.Text = “Manajemen Informatika”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100595″ Then
txtNama.Text = “Alivia”
txtjurusan.Text = “Sistem Informasi”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100666″ Then
txtNama.Text = “Adi Barnes Setiawan”
txtjurusan.Text = “Design Grafis”
txtQuis.SetFocus
Else
End If
End Sub

Private Sub txtQuis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtTugas.SetFocus
End If
End Sub

Private Sub txtTugas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtUts.SetFocus
End If
End Sub

Private Sub txtUas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtNA.Text = (Val(txtQuis.Text) + Val(txtTugas.Text) + Val(txtUts.Text) + Val(txtUas.Text)) / 4
If Val(txtNA.Text) <= 50 Then txtHuruf.Text = “E”
If Val(txtNA.Text) >= 50 Then txtHuruf.Text = “D”
If Val(txtNA.Text) >= 60 Then txtHuruf.Text = “C”
If Val(txtNA.Text) >= 70 Then txtHuruf.Text = “B”
If Val(txtNA.Text) >= 80 Then txtHuruf.Text = “A”
End If
End Sub

Private Sub txtUts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtUas.SetFocus
End If
End Sub

Private Sub cmdProses_Click()
txtNA.Text = (Val(txtQuis.Text) + Val(txtTugas.Text) + Val(txtUts.Text) + Val(txtUas.Text)) / 4
If Val(txtNA.Text) <= 50 Then txtHuruf.Text = “E”
If Val(txtNA.Text) >= 50 Then txtHuruf.Text = “D”
If Val(txtNA.Text) >= 60 Then txtHuruf.Text = “C”
If Val(txtNA.Text) >= 70 Then txtHuruf.Text = “B”
If Val(txtNA.Text) >= 80 Then txtHuruf.Text = “A”
End Sub

Private Sub cmdBatal_Click()
txtNama.Text = “”
txtjurusan.Text = “”
txtQuis.Text = “”
txtTugas.Text = “”
txtUts.Text = “”
txtUas.Text = “”
txtNA.Text = “”
txtHuruf.Text = “”
txtNama.SetFocus
End Sub

Private Sub cmdKeluar_Click()
End
End Sub

9.Penjualan

Source kode :

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
Text7.Text = Val(Text3.Text) * Val(Text4.Text)
Text8.SetFocus
End If
End Sub

Private Sub Text8_Keypress(keyAscii As Integer)
If keyAscii = 13 Then
Text9.Text = Val(Text8.Text) – Val(Text7.Text)
End If
End Sub

Private Sub Command1_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text1.SetFocus
End Sub

Private Sub Command2_Click()
End
End Sub

10.Data Mahasiswa

Source Kode :

Private Sub Command1_Click()
Dim S As String
Text5.Text = “20″ & Left(Text2.Text, 2)
S = Mid(Text2.Text, 3, 1)
If S = “1″ Then
Text3.Text = “Sistem Informasi”
ElseIf S = “2″ Then
Text3.Text = “Manajemen Informatika”
ElseIf S = “3″ Then
Text3.Text = “Tehnik Informatika”
ElseIf S = “4″ Then
Text3.Text = “Manajemen & Komp. Akuntansi”
End If
S = Mid(Text2.Text, 4, 2)
If S = “01″ Then
Text4.Text = “Strata Satu”
ElseIf S = “02″ Then
Text4.Text = “Diploma Tiga”
ElseIf S = “03″ Then
Text4.Text = “Diploma Empat”
ElseIf S = “04″ Then
Text4.Text = “Diploma Dua”
End If
Text6.Text = Right(Text2.Text, 3)
End Sub

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

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

Private Sub Command4_Click()
End
End Sub

Private Sub Text1_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
Text2.SetFocus
End If
End Sub

Tugas Visual Basic (VB)

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.Text = Val(Text1.Text) + Val(Text2.Text)
Text4.Text = Val(Text1.Text) * Val(Text2.Text)
Text5.Text = Val(Text1.Text) / Val(Text2.Text)
Text6.Text = Val(Text1.Text) – Val(Text2.Text)
End If
End Sub

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

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

Private Sub Command3_Click()
Unload Me
End Sub

Rafael Varane Dikepung Enam Pemain Barcelona

Belum banyak yang mengenal nama Rafael Varane sebelum ia mencetak gol penyama kedudukan sekaligus penyelamat untuk Real Madrid saat bertanding melawan Barcelona, Kamis (31/1) dinihari WIB. Di partai semi final pertama Piala Raja itu kedua tim bermain imbang 1-1 di Stadion Bernabeau. Aksi bek tengah asal Prancis berusia 19 tahun itu memukau. Ia disiplin mengawal lini pertahanan bersama Ricardo Carvalho, seniornya di Los Blancos. Menurut situs Opta, Varane juga menjadi satu-satunya pemain yang sukses 100 persen mengoper bola sebanyak 12 kali. Varane juga beberapa kali merepotkan Barcelona dengan akselerasinya, salah satunya ketika enam pemain Azulgrana mengawalnya dengan ketat.

Penonton Sepak Bola Belanda Lontarkan Teriakan Rasis terhadap Altidore

Penonton sepak bola Belanda melontarkan serentetan teriakan rasis terhadap striker Amerika yang bermain untuk klub AZ Alkmaar, Jozy Altidore.

Altidore, yang berkulit hitam, mengatakan belum pernah menghadapi pelecehan sedemikian serius dari tribun penonton, tapi ia tidak menghiraukannya. Timnya menang dengan skor 5-0…

Penonton sepak bola Belanda melontarkan serentetan teriakan rasis terhadap striker Amerika yang bermain untuk klub AZ Alkmaar, Jozy Altidore, hari Selasa dalam pertandingan perempat final Piala Belanda melawan klub lapis kedua FC Den Bosch.Altidore, yang berkulit hitam, mengatakan belum pernah menghadapi pelecehan sedemikian serius dari tribun penonton, tapi ia tidak menghiraukannya setelah pertandingan, yang dimenangkan timnya dengan skor 5-0.

Teriakan rasis itu semakin mengejutkan karena terjadi hanya beberapa minggu setelah para pejabat sepakbola Belanda meminta dengan sangat agar semua pihak menunjukkan rasa hormat di seluruh tingkat permainan menyusul kematian seorang hakim garis yang diserang oleh pemain usai pertandingan antara dua tim muda di dekat Amsterdam bulan Desember lalu.

Striker berusia 23 tahun itu, yang menjadi salah seorang penembak jitu dalam liga Belanda musim ini, mengatakan perlunya lebih banyak pendidikan bagi penonton.

Para pejabat klub Den Bosch berulang kali mendesak penggemarnya agar menghentikan teriakan-teriakan ala monyet tersebut tetapi tidak berhasil.

Altidore mencetak satu gol bagi AZ yang mengalahkan Den Bosch, yang bermain dengan sembilan pemain setelah dua pemain diganjar kartu merah.

Kejadian Heboh Sepakbola Diubah ke Games 1980-an

Bagaimana bila kejadian sepakbola disamarkan dengan format bitmap atau versi games zaman dulu. Itulah yang dilakukan Matheus Toscano. Ia membuat kejadian unik di sepakbola menjadi versi bitmap atau games pada era 1980-an.

ada beberapa kejadian di sepakbola dijadikan versi blur atau masih bitmap, mulai dari yang sudah lama hingga terbaru.

Yang pertama adalah kejadian ketika pemain Chelsea, Eden Hazard, yang “secara tidak sengaja” menendang seorang anak gawang saat pertandingan kontra Swansea. Selanjutnya adalah ketika kiper legendaris Kolombia, Rene Higuita, melakukan tendangan kalajengking saat melakoni laga persahabatan melawan Inggris di Wembley pada 1995.

Ada juga gambar pemain legenda Prancis, Zinedine Zidane, yang menanduk bek Italia, Marco Materazzi, di final Piala Dunia 2006 pada tambahan waktu. Selain itu, diving mantan pemain Timnas Jerman, Jurgen Klinsmann, saat masih berseragam Tottenham Hotspur.

Bahkan, ada juga gol tangan Tuhan Diego Maradona ke gawang Peter Shilton saat Argetina melawan Inggris di Piala Dunia 1986. Gol spektakuler Zlatan Ibrahomovic dalam laga persahabatan Swedia kontra Inggris pada medio November 2012 dari jarak 30-an meter tidak luput masuk dalam gambar tersebut.

Gol tendangan salto Wayne Rooney saat derby Manchester juga menjadi inspirasi bagi Toscano. Sebab, banyak media mengatakan gol Rooney itu mirip dengan gol salto ledenga Brasil, Pele, di masa lalu.

Dua gambar terakhir adalah ketika legenda Manchester United asal Prancis, Eric Cantona. Pada 18 tahun lalu, Cantona melakukan tendangan kungfu ke arah penonton saat pertandingan kontra Crystal Palace. Gambar terakhir adalah Mario Balotelli dan Roberto Mancini bertengkar saat latihan di kota Manchester. Berita itu menghiasi sejumlah pemberitaan di Inggris pada bulan lalu.

Manfaat Berenang

Manfaat Berenang Bagi Kesehatan Bagi setiap kita manusia tentunya menginginkan tubuh kita senantiasa dalam keadaan sehat dan jauh dari penyakit dan juga gangguan lainnya. Salah satu hal yang dapat kita lakukan untuk menjaga kesehatan tubuh kita adalah dengan rutin melakukan olahraga. Dan salah satu dari berbagai macam jenis olahraga diantaranya yaitu olahraga renang.

Berbagai macam jenis olahraga tentunya akan bermanfaat bagi kesehatan serta kebugaran tubuh kita masing-masing. Termasuk manfaat olahraga renang bagi kesehatan kita. Seperti yang pernah diungkap sobat blogger Portal Kesehatan bahwa olahraga pula bermanfaat dalam rangka meningkatkan kebugaran tubuh, olahraga acapkali sudah menjadi cara mutlak untuk itu. Bahkan, olahraga ringan tanpa harus menyediakan beragam peralatan olahraga yang aneh-aneh bisa menjadi pilihan.

Berbagai faedah manfaat berenang ini akan bisa kita dapatkan bila kita memang berniat untuk menjaga kesehatan kita. Adapun manfaat olahraga berenang bagi kesehatan diantaranya yaitu :

1. Melatih pernafasan kita. Kita mengetahui bahwasannya berenang adalah kita bergelut dengan lingkungan air. Dengan lingkungan yang penuh dengan air ini akan mampu memperkuat sistem pernapasan sehingga cocok untuk penderita asma. Gerakan dalam renang bisa membuat sistem pernapasan lebih panjang dan tubuh sehat. Dan ini adalah salah satu manfaat bila kita berenang.
2. Meningkatkan kemampuan dari fungsi pernafasan (paru-paru) dan juga fungsi jantung. Dalam melakukan aktifitas berolahraga renang maka banyak organ tubuh yang terlibat di dalamnya. Gerakan mendorong dan menendang air menggunakan anggota tubuh, khususnya kaki dan tangan mampu memacu aliran darah ke jantung, pembuluh darah, dan paru-paru. Gerakan inilah yang mampu meningkatkan fungsi jantung dan paru-paru karena dilatih secara rutin dalam berenang itu sendiri. Olahraga berenang juga termasuk dalam jenis olahraga dan juga salah satu latihan aerobik dalam air.
3. Menghilangkan stressor. Ternyata berenang juga bisa dijadikan salah satu cara tips menghilangkan stress yang bisa kita lakukan. Banyak gerakan dalam air dan berenang ini mampu meningkatkan hormon endorfin dalam otak sehingga suasana hati lebih tenang dan nyaman sehingga ini bisa menurunkan tingkat stresor kita. Bersentuhan dengan air pun membuat tubuh lebih sejuk sehingga mempengaruhi suasana hati dan pikiran.
4. Meningkatkan pembentukan otot dan dan memperkuat otot-otot tubuh. Salah satu jenis olah raga yang dapat mengencangkan dan menguatkan otot otot seluruh tubuh tanpa harus susah payah seharian berlatih di pusat kebugaran adalah renang. Tidak hanya otot tangan dan punggung saja yang terlatih dan semakin kuat, tetapi seluruh bagian tubuh termasuk bagian batang tubuh (core) juga ikut terlatih dalam melakukan aktifitas berenang ini. Berenang pula mengharuskan kita untuk menggerakan hampir semua otot pada tubuh. Ketika bergerak dalam air, tubuh pun harus mengeluarkan energi lebih besar karena harus melawan massa air yang mampu menguatkan dan melenturkan otot-otot tubuh. Gerakan ini secara tidak langsung dapat membuat otot lebih kencang dan berbentuk.
5. Menambah tinggi badan. Ini juga yang sewaktu kita kecil sering kali disarankan oleh para orang tua dan juga guru-guru olahraga. Bila kamu ingin lebih tinggi pada masa anak-anak maka pilihlah olahraga renang. Begitu yang teringat oleh saya sewaktu mengikuti olahraga di sekolahan. Bagi anak-anak yang masih dalam masa pertumbuhan, berenang bisa membuat tubuh lebih tinggi. Bagi orang dewasa, berenang pun bisa memperbaiki postur tubuh sehingga bisa terlihat lebih tinggi.

Berolahraga secara teratur seperti berenang juga membantu para ibu hamil dalam rangka mengatasi tantangan emosi dan fisik selama kehamilan. Sehingga manfaat berenang bagi ibu hamil bisa lebih dirasakan. Dengan berbagai manfaat berenang bagi kesehatan ini maka olahraga renang bisa kita jadikan salah satu olahraga favorit kita.

Cara Mudah Membentuk Otot Dada

Cara Mudah Membentuk Otot Dada
Ingin jadi seorang pria yang perkasa??? Salah satu ciri pria perkasa adalah Terbentuknya Otot dada sehingga menunjukan keperkasaan seorang pria saat wanita melihatnya. Otot dada yang ideal merupakan salah satu hal kebanggaan para wanita.

Namun, kekadang timbul suatu pertanyaan bagaimana caranya membentuk otot pada sepasang dada kita dengan cara yang mudah. Jika anda seorang yang fitnes, itu  adalah salah satu cara agar otot dada kita bisa berbuah atau berisi dengan mudah.

Lakukanlah kegiatan tersebut secara terus menerus, sehingga anda mendapatkan hasil yang maksimal. Jangan pernah berhenti, karena saat anda berhenti melakukan kegiatan rutin anda (fitnes), saat anda akan mencobanya kembali akan terdapat sedikit gejolak pada diri/tubuh anda.

Namun, untuk mempercepat bagaimana caranya membuat otot pada dada anda sehingga anda lebih tampil secara perkasa banyak cara yang bisa anda lakukan.

Di bawah ini beberapa cara agar dapat membentuk otot dada seperti yang anda inginkan.

1. Planks
   Cara ini adalah cara pertama kita, pertama bentuklah posisi tubuh seperti dan hampir sama dengan posisi push up, namun tangan anda tegak lurus. Lakukan aksinya, tahan posisi ini selama mungkin dengan posisi tubuh tetap lurus. Nah, saat itulah perut otot pada perut dan punggung anda aka bekerja keras untuk menahannya tetap lurus sehingga dapat membentuk lengkungan dan mengumpulkan daging yang berbentuk otot pada dada.
2. Reverse crunch
   Latihan yang satu ini seperti altihan crunch/sit up, namun bedanya bukan badan yang diangkat, melainkan kaki yang bergerak dari tertekuk menjadi lurus. Otot perut bagian bawah anda akan terlatih dari ini sehingga membentuk hal yang sama dengan cara Planks.
3. Captain chair
   Menggunakan alat, siku dan tangan kita sebagai penompang tubuh dan kemudian mengangkat kaki hingga 90 derajat. Jika anda sudah terbiasa, bisa menggunakan dumbbell yang dijepitkan dikaki untuk menambahkan beban.
4. Butt ups
   Latihan ini seperti Planks, tapi tidak statis, setelah posisi Planks lalu tarik panggul ke atas. Kemudian kembali ke posisi semula dan ulangi lagi. Begitu seterusnya…
5. Barbell abs rollout
   Gunakan alat rollout khusus untuk latihan satu ini yang berupa roda tunggal dengan pegangan di dua sisinya. Jika tidak ada bisa menggunakan barbell yang bagian platnya bebas berputar. Bertumpu pada lutut dan kedua lengan berpegang pada rollout. Dorong rollout ke depan hingga punggung sejajar dengan lantai (bukan menempel) lalu tarik kembali. Kemudian lakukan hal yang sama dan berulang kembali saat mencapai titik akhir (mendorong rollout).

Selamat mencoba, semoga berhasil… 🙂

Original Guns N’ Roses Drummer Steven Adler Gets His Revenge

(Classic Rock) Former Guns N’ Roses drummer Steven Adler says the success of his new project is all the revenge he needs to take on his troubled past.

His band, Adler, recently released debut album Back From The Dead. He says the new music has led audiences to stop expecting him to perform a set of GnR classics, and call for more of his new material.

He tells Legendary Rock Interviews: “That is my revenge. The only revenge I wanted on that whole situation was success. I didn’t want vengeance – I didn’t want to hurt anybody – but I wanted to make a great record because, I think success is the greatest revenge.”

Adler believes his band is made up of the “right recipe of people” and credits guitarist Lonny Paul with knocking him into physical shape. “He helped me lose 25 pounds,” the drummer explains. “Until we started working out I didn’t realise how heavy 25 pounds is until I lifted up a 25-pound weight and said, ‘Holy crap, this is what I’ve been carrying around with me?’ It’s all thanks to Lonny.” more on this story

TIMNAS INDONESIA

Kondisi Fisik Baik, Timnas Siap Tanding Lawan Yordania

Kamis, 31/01/2013

 

Amman – Timnas Indonesia tengah bersiap menghadapi laga ujicoba melawan Yordania, Kamis (31/1/2013) malam. Dari hasil pemantauan terakhir, semua pemain dalam kondisi baik dan siap diturunkan.

Hal itu disampaikan oleh dokter timnas Indonesia, Syarif Alwi. Syarif menyatakan, para pemain timnas dalam kondisi sehat dan tak bermasalah.

”Semua pemain dalam keadaan baik. Saat cek kesehatan tadi pagi dan menjalani warming up semua tidak ada masalah. Bisa dikatakan dalam keadaan sehat dan siap bertanding,” ujarnya.

Sebelumnya, para pemain timnas dikhawatirkan akan mengalami masalah fisik mengingat mereka cuma punya waktu istirahat 24 jam. Padahal, menurut Syarif, pemain biasanya butuh waktu recovery selama 72 jam sebelum bertanding.

“Tadi pagi saat latihan turun salju dan minimnya suhu menjadi masalah utama yang harus dihadapi para pemain. Untuk saat ini, mereka tampaknya sudah bisa beradaptasi dengan hal tersebut,” terang Syarif.

“Saya juga memberikan suplemen, bukan sejenis doping. Tujuannya sebagai salah satu langkah adaptasi dan percepatan pemulihan kondisi pemain. Agar mereka bisa main maksimal,” katanya.

Timnas malam ini akan berujicoba melawan Yordania di Amman dan akan disiarkan langsung oleh RCTI.