Tugas A

Tugas B

Tugas C

Tugas D

Tugas E

 

 

 

PENJUALAN TIKET

 

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtkt.SetFocus
txtkt.Text = “”
txtht.Text = “”
txtjk.Text = “”
txtjb.Text = “”
txtjt.Text = “”
txttotalp.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim jk, jb As String
Dim ht As Currency
Select Case txtkt.Text
Case Is = “BIM”
a = 50000
b = “BIMA”
c = “16.00”
Case Is = “EKO”
a = “35000”
b = “EKONOMI”
c = “19.00”
Case Is = “MUT”
a = “23000”
b = “MUTIARA”
c = “17.00”
Case Is = “SEN”
a = “15000”
b = “SENJA”
c = “20.00”
End Select
txtht.Text = a
txtjk.Text = b
txtjb.Text = c
txtjt.SetFocus
End Sub

Private Sub txtjt_keypress(Keyascii As Integer)
If Keyascii = 13 Then
txttotalp.Text = Val(txtht.Text) * Val(txtjt.Text)
End If
End Sub

Tugas 6

Private Sub CMDHitung_Click()
txt2 = Val(txt1.Text) * 0.1
txt3 = Val(txt1.Text) – Val(txt2.Text)
End Sub

Private Sub CMDQuit_Click()
Unload Me
End Sub

Private Sub CMDUlangi_Click()
txt1.SetFocus
txt1 = ” ”
txt2 = ” ”
txt3 = ” ”
End Sub

Private Sub txt1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txt2.SetFocus
End If
End Sub

 

 

Tugas 4

Private Sub cbonpm_Click()
Dim nama, jurusan, hm As String
Select Case cbonpm.Text
Case “12100082”
nama = “Anwar Azhary”
jurusan = “Sistem Informasi”
Case “12100083”
nama = ” MY Arya Hendrawan”
jurusan = “Sistem Informasi”
Case “12201008”
nama = “Andra Setiawan”
jurusan = “Manajemen Informatika”
End Select
txtnama.Text = nama
txtjur.Text = jurusan
txtquis.SetFocus
End Sub

Private Sub cmdbatal_Click()
cbonpm.SetFocus
cbonpm.Text = ” ”
txtnama.Text = ” ”
txtjur.Text = ” ”
txtquis.Text = ” ”
txttugas.Text = ” ”
txtuts.Text = ” ”
txtuas.Text = ” ”
txtna.Text = ” ”
txthm.Text = ” ”
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdproses_Click()
Dim na As Integer
Dim hm As String
quis = Val(txtquis.Text)
tugas = Val(txttugas.Text)
uts = Val(txtuts.Text)
uas = Val(txtuas.Text)
na = (quis + tugas + uts + uas) / 4
txtna.Text = na
Select Case txtna.Text
Case Is > 80
hm = “A”
Case Is > 70
hm = “B”
Case Is > 60
hm = “C”
Case Is > 50
hm = “D”
Case Is < 50
hm = “E”
End Select
txthm.Text = hm
End Sub

Private Sub Form_Load()
cbonpm.AddItem “12100082”
cbonpm.AddItem “12100083”
cbonpm.AddItem “12201008”
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 txtuts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuas.SetFocus
End If
End Sub

TUGAS 5

Private Sub CMDA_Click()
txthasil = Val(txt1.Text) + Val(txt2.Text)
End Sub

Private Sub CMDB_Click()
txthasil = Val(txt1.Text) – Val(txt2.Text)
End Sub

Private Sub CMDC_Click()
txthasil = Val(txt1.Text) * Val(txt2.Text)
End Sub

Private Sub CMDD_Click()
txthasil = Val(txt1.Text) / Val(txt2.Text)
End Sub

Private Sub CMDFinish_Click()
Unload Me
End Sub

Private Sub CMDUlang_Click()
txt1.SetFocus
txt1 = ” ”
txt2 = ” ”
txthasil = ” ”
End Sub

Private Sub txt1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txt2.SetFocus
End If
End Sub

TUGAS 1

Private Sub CMDBersih_Click()

txtx.SetFocus

txtx = ” ”

txty = ” ”

txtz = ” ”

End Sub

 

Private Sub CMDHitung_Click()

txtz.Text = Val(txtx.Text) * Val(txty.Text)

End Sub

 

Private Sub CMDKeluar_Click()

Unload Me

End Sub

 

Private Sub txtx_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txty.SetFocus

End If

End Sub

 

TUGAS 2

Private Sub chkB_Click()

‘membuat teks tebal

If chkB.Value = 1 Then

lblvb.FontBold = True

Else

lblvb.FontBold = False

End If

End Sub

 

Private Sub chkI_Click()

‘membuat teks miring

If chkI.Value = 1 Then

lblvb.FontItalic = True

Else

lblvb.FontItalic = False

End If

End Sub

 

Private Sub chkS_Click()

‘membuat teks bergaris tengah

If chkS.Value = 1 Then

lblvb.FontStrikethru = True

Else

lblvb.FontStrikethru = False

End If

End Sub

 

Private Sub chkU_Click()

‘membuat teks bergaris bawah

If chkU.Value = 1 Then

lblvb.FontUnderline = True

Else

lblvb.FontUnderline = False

End If

End Sub

 

Private Sub CMDExit_Click()

Unload Me

End Sub

 

Private Sub optblue_Click()

‘membuat teks berwarna biru

lblvb.ForeColor = vbBlue

End Sub

 

Private Sub optgreen_Click()

‘membuat teks berwarna hijau

lblvb.ForeColor = vbGreen

End Sub

 

Private Sub optred_Click()

‘membuat teks berwarna merah

lblvb.ForeColor = vbRed

End Sub

 

Private Sub optyellow_Click()

‘membuat teks berwarna kuning

lblvb.ForeColor = vbYellow

End Sub

 

TUGAS 4

Private Sub CMDKeluar_Click()

Unload Me

End Sub

 

Private Sub CMDProses_Click()

txt4.Text = Val(txt1.Text) + Val(txt2.Text) – Val(txt3.Text)

txt5.Text = Val(txt4.Text) * 0.1

txt6.Text = Val(txt4.Text) – Val(txt5.Text)

End Sub

 

Private Sub CMDUlang_Click()

txt1.SetFocus

txt1 = ” ”

txt2 = ” ”

txt3 = ” ”

txt4 = ” ”

txt5 = ” ”

txt6 = ” ”

End Sub

Private Sub txt1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txt2.SetFocus

End If

End Sub

Private Sub txt2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txt3.SetFocus

End If

Tugas 1

Private Sub CMDBatal_Click()

TXTNPM.SetFocus

TXTNPM = ” ”

TXTNM = ” ”

TXTPS = ” ”

TXTJUR = ” ”

TXTAL = ” ”

End Sub

 

Private Sub CMDKeluar_Click()

Unload Me

End Sub

 

Private Sub CMDLagi_Click()

TXTNPM.SetFocus

TXTNPM = ” ”

TXTNM = ” ”

TXTPS = ” ”

TXTJUR = ” ”

TXTAL = ” ”

End Sub

 

Private Sub TXTJUR_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTAL.SetFocus

End If

End Sub

 

Private Sub TXTNM_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTPS.SetFocus

End If

End Sub

Private Sub TXTNPM_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNM.SetFocus

End If

End Sub

Private Sub TXTPS_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTJUR.SetFocus

End If

End Sub

 

 

 

TUGAS 2

 

Private Sub CMDBatal_Click()

TXTKB.SetFocus

TXTKB = ” ”

TXTNB = ” ”

TXTHB = ” ”

TXTJB = ” ”

TXTJBY = ” ”

End Sub

 

Private Sub CMDKeluar_Click()

Unload Me

End Sub

 

Private Sub CMDLagi_Click()

TXTKB.SetFocus

TXTKB = ” ”

TXTNB = ” ”

TXTHB = ” ”

TXTJB = ” ”

TXTJBY = ” ”

End Sub

 

Private Sub TXTJBY_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTJBY.Text = Val(TXTHB.Text) * Val(TXTJB.Text)

End If

End Sub

 

Private Sub TXTHB_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTJB.SetFocus

End If

End Sub

 

Private Sub TXTJB_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTJBY.SetFocus

End If

End Sub

 

Private Sub TXTKB_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNB.SetFocus

End If

End Sub

 

Private Sub TXTNB_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTHB.SetFocus

End If

End Sub

 

Ac Milan adalah sebuah klub sepak bola Italia yang berbasis di Milan. Mereka bermain dengan seragam bergaris merah-hitam dan celana hitam, sehingga dijuluki Rossoneri(“merah-hitam”). Milan adalah tim tersukses kedua dalam sejarah persepak bolaan Italia, menjuarai Seri A 17 kali dan Piala Italia lima kali.
Klub ini didirikan pada tahun 1899 dengan nama Klub Kriket dan Sepak bola Milan (Milan Cricket and Football Club) oleh Alfred Edwards, seorang ekspatriat Inggris. Sebagai penghormatan terhadap asal-usulnya, Milan tetap menggunakan ejaan bahasa Inggris nama kotanya (Milan) daripada menggunakan ejaan bahasa Italia Milano.
Stadion tim saat ini adalah Stadion Giuseppe Meazza atau yang dikenal dengan sebutanSan Siro yang berkapasitas 85.000 orang. Stadion ini digunakan bersama denganInternazionale (”Inter milan”), klub besar lain di Milan. Suporter AC Milan menggunakan “San Siro” untuk menyebut stadion itu karena dulunya Giuseppe Meazza merupakan seorang pemain bintang bagi Inter.
Secara sejarah, AC Milan (dipanggil dengan “Milan” saja di Italia) didukung oleh para pekerja dan para buruh di Milan, sementara Inter lebih didukung orang-orang kaya. Meskipun begitu, pada beberapa tahun terakhir, basis pendukung telah banyak berubah. Milan kini dimiliki oleh raja media dan perdana menteri Italia saat ini, Silvio Berlusconi

Stadion:
Giuseppe Meazza (sansiro)

Giuseppe Meazza (sansiro)

Pemain Bintang yang pernah dan masih dimiliki
Renzo De Vecchi, Cesare Maldini, Karl Heinz Schnellinger, Kurt Hamrin, Sandro Salvadore, Juan Alberto Schiaffino, Jose Altafini, Gunnar Gren, Ruud Gullit, Marco van Basten, Frank Rijkaard, Gunnar Nordahl, Nils Liedholm, Gianni Rivera, Luther Blissett, Franco Baresi, Giovanni Trapattoni, Angelo Sormani, Roberto Donadoni, George Weah, Demetrio Albertini, Paolo Di Canio, Roberto Baggio, Zvonimir Boban, Gianluigi Lentini, Carlo Ancelotti, Paolo Maldini, Alessandro Costacurta, Cafu, Andriy Shevchenko, Hernán Crespo, Filippo Inzaghi, Jean-Pierre Papin, Dejan Savicevic, Ray Wilkins, Jimmy Greaves, Jaap Stam, Alessandro Nesta, Kaká, Ronaldinho, pato.

Kapten Milan yang baru saja pensiun :
paolo maldini

legenda milan

nah, ini profil nya:
Nama : Paolo maldini
Lahir : 26/06/1968 (Milan)
Posisi : Defender
Height : 1.86m
Weight: 83 Kg
Negara: Italy
Pertandingan professional pertama melawan : Udinese – Milan : 1-1 on 20/01/1985

Kostim yang pernah dipakai AC MILAN:
kostim

kostim

daftar juara yang pernah di dapat :

Seri A:
Juara (17): 1901; 1906; 1907; 1950-51; 1954-55; 1956-57; 1958-59; 1961-62; 1967-68; 1978-79; 1987-88; 1991-92; 1992-93; 1993-94; 1995-96; 1998-99; 2003-2004

Seri B:
Juara (2): 1980–81; 1982–83

Copa Italia:
Juara (5): 1966–67; 1971–72; 1972–73; 1976–77; 2002-03
Runner-up (7): 1941–42; 1967–68; 1970–71; 1974–75; 1984–85; 1989-90; 1997-98

Piala Super Italia:
Juara (5): 1988; 1992; 1993; 1994; 2004
Runner-up (3): 1996; 1999; 2003

Piala/Liga Champions:
Juara (7): 1962-63; 1968-69; 1988-89; 1989-90; 1993-94; 2002-03; 2006-07
Runner-up (4): 1957-58; 1992-93; 1994-95; 2004-05

Piala Super Eropa:
Juara (5): 1989; 1990; 1994; 2003; 2007
Runner-up (2): 1973; 1993

Piala Winners:
Juara (2): 1967–68; 1972–73
Runner-up (1): 1973–74

Piala Interkontinental / Piala Dunia Antarklub FIFA:
Juara (4):1969; 1989; 1990; 2007
Runner-up (4): 1963; 1993; 1994; 2003

Pelatih AC MILAN sekarang:
Massimiliano Allegri

Massimiliano Allegri

Musim 2010/2011, Milan dipimpin oleh Massimiliano Allegri, dengan berbagai pembaruan mulai dari sponsor (bwin.com digantikan Emirates), hingga lini pemain. Di akhir bursa transfer, secara mengejutkan Milan memboyong Zlatan Ibrahimovic dari F.C. Barcelona (dengan opsi pinjaman dan pembelian 24 juta Euro di akhir musim), dan Robinho dari Manchester City.

Welcome to WordPress.com! This is your very first post. Click the Edit link to modify or delete it, or start a new post. If you like, use this post to tell readers why you started this blog and what you plan to do with it.

Happy blogging!