TUGAS VISUAL BASIC KE 4

Gambar

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

Gambar

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

Gambar

 

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

Gambar

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

Advertisements

Tugas VB Pertemuan Ke 3

Membuat 10 Program

Nama : Muammar Phatala

NPM : 12201366

Kelas : Twitter 12

MK : Visual Basic

1.Kalkulator Sederhana

Kalkulotar 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

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

MD 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

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

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

5.MD 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

MD 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

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

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

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)

untitled2

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

untitled-3

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.raphael varene

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.

Manfaat Berenang Untuk Kesehatan

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.