TUGAS 4

UMI

1.1

Private Sub cboNPM_Click()

Dim NM, JR As String

Select Case cboNPM.Text

Case “14201007”

NM = “UMI UMAYAH”

JR = “MANAJEMEN INFORMATIKA”

Case “14100061”

NM = “FITRI SARASWATI”

JR = “SISTEM INFORMASI”

Case “14100060”

NM = “EKA SUSI SURANTI”

JR = “SISTEM INFORMASI”

Case “14100142”

NM = “WULAN KURNIA SARASWATI”

JR = “SISTEM INFORMASI”

Case “14100153”

NM = “SITI NURROHMAH”

JR = “SISTEM INFORMASI”

Case “14100132”

NM = “YENI LESTARI”

JR = “SISTEM INFORMASI”

Case “14100124”

NM = “NANDA SUCI ADISETIA”

JR = “SISTEM INFORMASI”

Case “14201012”

NM = “M. HERVIN MARDANI”

JR = “MANAJEMEN INFORMATIKA”

Case “14100127”

NM = “SEPTIA RIASTUTI”

JR = “SISTEM INFORMASI”

Case “14201002”

NM = “FITRIANA”

JR = “MANAJEMEN INFORMATIKA”

End Select

txtnama = NM

txtjur = JR

txtquis.SetFocus

End Sub

Private Sub cmdbatal_Click()

txtnama.Text = “”

txtjur.Text = “”

txtquis.Text = “”

txttugas.Text = “”

txtuts.Text = “”

txtuas.Text = “”

txtna.Text = “”

txtmutu.Text = “”

cmbnpm.Text = “”

cmbnpm.SetFocus

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

txtmutu.Text = HM

End Sub

Private Sub Form_Load()

cboNPM.AddItem “14201007”

cboNPM.AddItem “14100061”

cboNPM.AddItem “14100060”

cboNPM.AddItem “14100142”

cboNPM.AddItem “14100153”

cboNPM.AddItem “14100132”

cboNPM.AddItem “14100124”

cboNPM.AddItem “14201012”

cboNPM.AddItem “14100127”

cboNPM.AddItem “14201002”

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

 

1.2

Private Sub cboNPM_Click()

Dim NM, JR As String

Select Case cboNPM.Text

Case “14201007”

NM = “UMI UMAYAH”

JR = “MANAJEMEN INFORMATIKA”

Case “14100061”

NM = “FITRI SARASWATI”

JR = “SISTEM INFORMASI”

Case “14100060”

NM = “EKA SUSI SURANTI”

JR = “SISTEM INFORMASI”

Case “14100142”

NM = “WULAN KURNIA SARASWATI”

JR = “SISTEM INFORMASI”

Case “14100153”

NM = “SITI NURROHMAH”

JR = “SISTEM INFORMASI”

Case “14100132”

NM = “YENI LESTARI”

JR = “SISTEM INFORMASI”

Case “14100124”

NM = “NANDA SUCI ADISETIA”

JR = “SISTEM INFORMASI”

Case “14201012”

NM = “M. HERVIN MARDANI”

JR = “MANAJEMEN INFORMATIKA”

Case “14100127”

NM = “SEPTIA RIASTUTI”

JR = “SISTEM INFORMASI”

Case “14201002”

NM = “FITRIANA”

JR = “MANAJEMEN INFORMATIKA”

End Select

txtnama = NM

txtjur = JR

txtquis.SetFocus

End Sub

Private Sub cmdbatal_Click()

txtnama.Text = “”

txtjur.Text = “”

txtquis.Text = “”

txttugas.Text = “”

txtuts.Text = “”

txtuas.Text = “”

txtna.Text = “”

txtmutu.Text = “”

cmbnpm.Text = “”

cmbnpm.SetFocus

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

txtmutu.Text = HM

End Sub

 

 

Private Sub Form_Load()

cboNPM.AddItem “14201007”

cboNPM.AddItem “14100061”

cboNPM.AddItem “14100060”

cboNPM.AddItem “14100142”

cboNPM.AddItem “14100153”

cboNPM.AddItem “14100132”

cboNPM.AddItem “14100124”

cboNPM.AddItem “14201012”

cboNPM.AddItem “14100127”

cboNPM.AddItem “14201002”

End Sub

Private Sub txtuas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

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

txtmutu.Text = HM

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 txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtuas.SetFocus

End If

End Sub

   NPM

UMI

Private Sub cmbbatal_Click()

txtnpm.SetFocus

txtnpm = “”

txtnama = “”

cbogolongan = “”

txtgapok = “”

txttunjangan = “”

txtpajak = “”

txttotal = “”

End Sub

 

Private Sub cmbkeluar_Click()

End

End Sub

 

Private Sub cmblagi_Click()

txtnpm.SetFocus

txtnpm = “”

txtnama = “”

cbogolongan = “”

txtgapok = “”

txttunjangan = “”

txtpajak = “”

txttotal = “”

End Sub

Private Sub Form_load()

cbogolongan.AddItem “I”

cbogolongan.AddItem “II”

cbogolongan.AddItem “III”

cbogolongan.AddItem “IV”

End Sub

Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case cbogolongan.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 200000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

txtgapok.Text = gapok

txttunjangan.Text = tunjangan

txtpajak.Text = pajak

txttotal.Text = total – pajak

End Sub

Private Sub txtnpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

  JURUSAN

umi

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txtnu.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txtnu.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

txttm.Text = “20” & Left(txtnpm.Text, 2)

S = Mid(txtnpm.Text, 3, 1)

If S = “1” Then

txtjur.Text = “Sistem Informasi”

ElseIf S = “2” Then

txtjur.Text = “Manajemen Informatika”

ElseIf S = “3” Then

txtjur.Text = “Tehnik Informatika”

ElseIf S = “4” Then

txtjur.Text = “Manajemen & Komp. Akuntansi”

End If

S = Mid(txtnpm.Text, 4, 2)

If S = “01” Then

txtps.Text = “Strata Satu”

ElseIf S = “02” Then

txtps.Text = “Diploma Tiga”

ElseIf S = “03” Then

txtps.Text = “Diploma Empat”

ElseIf S = “04” Then

txtps.Text = “Diploma Dua”

End If

txtnu.Text = Right(txtnpm.Text, 3)

End Sub

Private Sub Form_activate()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txtnu.Text = “”

End Sub

 

Private Sub Txtnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

txtnpm.SetFocus

End If

End Sub

 

UMI

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtprogram.Text = “”

txttahun.Text = “”

txturut.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtprogram.Text = “”

txttahun.Text = “”

txturut.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

txttahun.Text = “20” & Left(txtnpm.Text, 2)

S = Mid(txtnpm.Text, 3, 1)

If S = “1” Then

txtjur.Text = “Sistem Informasi”

txtprogram.Text = “Strata Satu”

ElseIf S = “2” Then

txtjur.Text = “Manajemen Informatika”

txtprogram.Text = “Diploma Tiga”

ElseIf S = “3” Then

txtjur.Text = “Tehnik Informatika”

txtprogram.Text = “Diploma Empat”

ElseIf S = “4” Then

txtjur.Text = “Manajemen & Komp. Akuntansi”

txtprogram.Text = “Diploma Dua”

End If

txturut.Text = Right(txtnpm.Text, 5)

End Sub

Private Sub Form_activate()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtprogram.Text = “”

txttahun.Text = “”

txturut.Text = “”

End Sub

 

Private Sub Txtnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

txtnpm.SetFocus

End If

End Sub

PENJUALAN LAPTOP

UMI

 

Private Sub Combo1_Click()

Select Case Combo1.Text

Case “Apple MC965 Macbook Air”

Text1.Text = “Apple Macbook Air MC965”

Text2.Text = “128000000”

Case “Apple MC966 Macbook Air”

Text1.Text = “Apple Macbook Air MC966”

Text2.Text = “158000000”

Case “Apple MC968 Macbook Air”

Text1.Text = “Apple Macbook Air MC968”

Text2.Text = “99000000”

Case “Apple MC969 Macbook Air”

Text1.Text = “Apple Macbook Air MC969”

Text2.Text = “119000000”

Case “Apple MC700 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC700”

Text2.Text = “108000000”

Case “Apple MC721 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC721”

Text2.Text = “159000000”

Case “Apple MC723 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC723”

Text2.Text = “193000000”

Case “Apple MC724 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC724”

Text2.Text = “137000000”

Case “Apple MC311 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC311”

Text2.Text = “242000000”

Case “Apple MC313 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC313”

Text2.Text = “119000000”

Case “Apple MC314 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC314”

Text2.Text = “147000000”

Case “Apple MC318 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC318”

Text2.Text = “176000000”

Case “Apple MC322 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC322”

Text2.Text = “213000000”

Case “Apple MC965 Macbook Air”

Text1.Text = “Apple Macbook Air MC965”

Text2.Text = “128000000”

Case “Apple MC966 Macbook Air”

Text1.Text = “Apple Macbook Air MC966”

Text2.Text = “158000000”

End Select

End Sub

 

 

Private Sub Command1_Click()

Text4.Text = Val(Text3.Text) * Val(Text2.Text)

If Text4.Text > 140000000 Then

Text5.Text = Val(Text4.Text) * 0.15

ElseIf Text4.Text > 135000000 Then

Text5.Text = Val(Text4.Text) * 0.1

ElseIf Text4.Text > 130000000 Then

Text5.Text = Val(Text4.Text) * 0.05

ElseIf Text4.Text > 125000000 Then

Text5.Text = Val(Text4.Text) * 0.02

End If

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End Sub

 

Private Sub Command2_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Command3_Click()

End

End Sub

 

Private Sub Form_Load()

Combo1.AddItem “Apple MC965 Macbook Air”

Combo1.AddItem “Apple MC966 Macbook Air”

Combo1.AddItem “Apple MC968 Macbook Air”

Combo1.AddItem “Apple MC969 Macbook Air”

Combo1.AddItem “Apple MC700 Macbook Pro”

Combo1.AddItem “Apple MC721 Macbook Pro”

Combo1.AddItem “Apple MC723 Macbook Pro”

Combo1.AddItem “Apple MC724 Macbook Pro”

Combo1.AddItem “Apple MC311 Macbook Pro”

Combo1.AddItem “Apple MC313 Macbook Pro”

Combo1.AddItem “Apple MC314 Macbook Pro”

Combo1.AddItem “Apple MC318 Macbook Pro”

Combo1.AddItem “Apple MC322 Macbook Pro”

Combo1.AddItem “Apple MC965 Macbook Air”

Combo1.AddItem “Apple MC966 Macbook Air”

End Sub

 

Private Sub text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

JUAL LAPTOP

Text4.Text = Val(Text3.Text) * Val(Text2.Text)

If Text4.Text > 140000000 Then

Text5.Text = Val(Text4.Text) * 0.15

ElseIf Text4.Text > 135000000 Then

Text5.Text = Val(Text4.Text) * 0.1

ElseIf Text4.Text > 130000000 Then

Text5.Text = Val(Text4.Text) * 0.05

ElseIf Text4.Text > 125000000 Then

Text5.Text = Val(Text4.Text) * 0.02

End If

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End If

End Sub

PENJUALAN KOMPUTER

umi

 

Private Sub Combo1_Click()

Select Case Combo1.Text

Case “P205”

Text1.Text = “pentiumII 500 Mega Hz”

Text2.Text = “1500000”

Case “P308”

Text1.Text = “pentiumIII 800 Mega Hz”

Text2.Text = “2100000”

Case “P310”

Text1.Text = “pentiumIII 1.0 Giga Hz”

Text2.Text = “3500000”

Case “P415”

Text1.Text = “pentiumIV 1.5 Giga Hz”

Text2.Text = “4000000”

Case “P417”

Text1.Text = “pentiumIV 1.7 Giga Hz”

Text2.Text = “4200000”

Case “P419”

Text1.Text = “pentiumIV 1.9 Giga Hz”

Text2.Text = “5500000”

End Select

End Sub

Private Sub Command1_Click()

Text4.Text = Val(Text3.Text) * Val(Text2.Text)

If Text4.Text > 30000000 Then

Text5.Text = Val(Text4.Text) * 0.15

ElseIf Text4.Text > 25000000 Then

Text5.Text = Val(Text4.Text) * 0.1

ElseIf Text4.Text > 20000000 Then

Text5.Text = Val(Text4.Text) * 0.05

ElseIf Text4.Text > 15000000 Then

Text5.Text = Val(Text4.Text) * 0.2

End If

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End Sub

 

Private Sub Command2_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Command3_Click()

End

End Sub

 

Private Sub Form_Load()

Combo1.AddItem “P205”

Combo1.AddItem “P308”

Combo1.AddItem “P310”

Combo1.AddItem “P415”

Combo1.AddItem “P417”

Combo1.AddItem “P419”

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

Text4.Text = Val(Text3.Text) * Val(Text2.Text)

If Text4.Text > 30000000 Then

Text5.Text = Val(Text4.Text) * 0.15

ElseIf Text4.Text > 25000000 Then

Text5.Text = Val(Text4.Text) * 0.1

ElseIf Text4.Text > 20000000 Then

Text5.Text = Val(Text4.Text) * 0.05

ElseIf Text4.Text > 15000000 Then

Text5.Text = Val(Text4.Text) * 0.2

End If

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End If

End Sub

DATA BUKU

UMI

Private Sub Command1_Click()

Dim A, B, C, D As String

Dim H As Double

Text3.Text = “20” & Right(Combo1.Text, 2)

A = Mid(Combo1.Text, 3, 3)

If A = “SIM” Then

B = “SISTEM INFORMASI MANAJEMEN”

C = “YATI NUR OKTAVIA”

H = “75900”

ElseIf A = “MNJ” Then

B = “MANAJEMEN”

C = “VALENTINA MARIANA ADIWIANTI”

H = “42000”

ElseIf A = “EDP” Then

B = “ELECTRONIK DATA PROCESSING”

C = “IMAM TARMIZI”

H = ” 62000″

ElseIf A = “CDR” Then

B = “COREL DRAW”

C = “RIYAN SUHANDI”

H = “53000”

ElseIf A = “RPL” Then

B = “REKAYASA PERANGKAT LUNAK”

C = “SINTA UMPU SINGA”

H = “83000”

End If

Text1.Text = B

Text2.Text = C

Text5.Text = H

D = Left(Combo1.Text, 1)

If D = “A” Then

Text4.Text = “ANDY OFFSET YOGYAKARTA”

ElseIf D = “I” Then

Text4.Text = “INDAH SURABAYA”

ElseIf D = “M” Then

Text4.Text = “MAXICOM”

ElseIf D = “S” Then

Text4.Text = “SALEMBA EMPAT”

ElseIf D = “E” Then

Text4.Text = “ELEK MEDIA KOMPUTINDO”

End If

End Sub

 

 

 

Private Sub Command2_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

End Sub

 

Private Sub Command3_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

End Sub

 

Private Sub Command4_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-RPL-05”

End Sub

PENJUALAN TIKET

UMI

Private Sub cmdkeluar_Click()

End

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 As String

Dim HT, JB As Variant

A = Left(txtkt, 3)

If A = “BIM” Then

JK = “BIMA”

HT = “50000”

JB = “16.00”

ElseIf A = “EKO” Then

JK = “EKONOMI”

HT = “35000”

JB = “19.00”

ElseIf A = “MUT” Then

JK = “MUTIARA”

HT = “23000”

JB = “17.00”

ElseIf A = “SEN” Then

JK = “SENJA”

HT = “15.000”

JB = “20.00”

End If

txtht.Text = HT

txtjk.Text = JK

txtjb.Text = JB

End Sub

 

Private Sub txtjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttotalp = Val(txtht) * Val(txtjt)

End If

End Sub

Private Sub txtkt_KeyPress(KeyAscii As Integer)

If keyascci = 13 Then

txtjt.SetFocus

End If

End Sub

DATA BUKU

UMI

Private Sub cmdbatal_Click()

txtkode.SetFocus

txtkode = “”

txtjudul = “”

txtpengarang = “”

txttahun = “”

txtpenerbit = “”

txtharga = “”

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtkode.SetFocus

txtkode = “”

txtjudul = “”

txtpengarang = “”

txttahun = “”

txtpenerbit = “”

txtharga = “”

End Sub

Private Sub cmdproses_Click()

Dim JB, PG, PR As String

Dim TT, HR As Variant

A = Left(txtkode.Text, 3)

If A = “SIM” Then

JB = “Sistem Informasi Manajemen”

PG = “Fadiya Ulfa”

HR = “75900”

ElseIf A = “EDP” Then

JB = “Elektronik Data Processing”

PG = “Nurul Agustina”

HR = “62000”

ElseIf A = “MNJ” Then

JB = “Manajemen”

PG = “Rina Hidayat”

HR = “42000”

ElseIf A = “CDR” Then

JB = “Corel Draw”

PG = “Siti Nur Khotimah”

HR = “53000”

ElseIf A = “RPL” Then

JB = “Rekayasa Perangkat Lunak”

PG = “Winda Erlianti”

HR = “83000”

End If

txtjudul.Text = JB

txtpengarang.Text = PG

txtharga.Text = HR

txttahun.Text = “20” & Mid(txtkode.Text, 5, 2)

B = Right(txtkode.Text, 1)

If B = “A” Then

PR = “Andi Offset Yogyakarta”

ElseIf B = “I” Then

PR = “Indah Surabaya”

ElseIf B = “S” Then

PR = “Salemba Empat”

ElseIf B = “E” Then

PR = “Elek Media Koputindo”

ElseIf B = “M” Then

PR = “Maxicom”

End If

txtpenerbit.Text = PR

End Sub

Iklan

TUGAS 3

UMIUMAYAH 1

1.1 Private Sub Command1_Click()

Text2.Text = Val(Text1) * 0.1

Text3.Text = Val(Text1) – Val(Text2)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

End Sub

Private Sub Command3_Click()

End

End Sub

1.2 Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

Text2.Text = Val(Text1) * 0.1

Text3.Text = Val(Text1) – Val(Text2)

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

umi

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

Private Sub Command2_Click()

Text1.SetFocus

Text1 = ” ”

Text2 = ” ”

Text3 = ” ”

Text4 = ” ”

Text5 = ” ”

Text6 = ” ”

End Sub

Private Sub Command3_Click()

End

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

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 Command2_Click()

Text1.SetFocus

Text1 = ” ”

Text2 = ” ”

Text3 = ” ”

Text4 = ” ”

Text5 = ” ”

Text6 = ” ”

End Sub

Private Sub Command3_Click()

End

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.Text = Val(Text1) + Val(Text2) – Val(Text3)

Text5.Text = Val(Text4) * 0.1

Text6.Text = Val(Text4) – Val(Text5)

End If

End Sub

umi umayah

Private Sub Check1_Click()

If Check1.Value = 1 Then

Label1.FontBold = True

Else

lblteks.FontBold = False

End If

End Sub

Private Sub Check2_Click()

If Check2.Value = 1 Then

Label1.FontItalic = True

Else

lblteks.FontItalic = False

End If

End Sub

Private Sub Check3_Click()

If Check3.Value = 1 Then

Label1.FontUnderline = True

Else

Label1teks.FontUnderline = False

End If

End Sub

Private Sub Check4_Click()

If Check4.Value = 1 Then

Label1.FontStrikethru = True

Else

Label1teks.FontStrikethru = False

End If

End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub Option2_Click()

‘membuat teks berwarna hijau

Label1.ForeColor = vbGreen

End Sub

Private Sub Option3_Click()

‘membuat teks berwarna biru

Label1.ForeColor = vbBlue

End Sub

Private Sub Option4_Click()

‘membuat teks berwarna kuning

Label1.ForeColor = vbYellow

End Sub

Private Sub optred_Click()

‘membuat teks berwarna merah

Label1.ForeColor = vbRed

End Sub

UMI

Private Sub Check1_Click()

If Check1.Value = 1 Then

Label2.FontBold = True

Else

Label2.FontBold = False

End If

End Sub

Private Sub Check2_Click()

If Check2.Value = 1 Then

Label2.FontItalic = True

Else

Label2.FontItalic = False

End If

End Sub

Private Sub Command1_Click()

Label2.Caption = Text1.Text

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Option1_Click()

‘membuat teks berwarna merah

Label2.ForeColor = vbRed

End Sub

Private Sub Option2_Click()

‘membuat warna berwarna biru

Label2.ForeColor = vbBlue

End Sub

TUGAS 2

umi

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()

End

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

siti nur 2

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

End Sub

Private Sub Command3_Click()

End

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

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End If

End Sub

umi 3

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

Text6.Text = Val(Text4.Text) * Val(Text5.Text)

Text9.Text = Val(Text7.Text) / Val(Text8.Text)

Text12.Text = Val(Text10.Text) – Val(Text11.Text)

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 = “”

Text12.Text = “”

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 = “”

Text12.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

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

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

Text6.Text = Val(Text4.Text) * Val(Text5.Text)

End If

End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text8.SetFocus

End If

End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text9.SetFocus

Text9.Text = Val(Text7.Text) / Val(Text8.Text)

End If

End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text11.SetFocus

End If

End Sub

Private Sub Text11_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text12.SetFocus

Text12.Text = Val(Text10.Text) – Val(Text11.Text)

End If

End Sub

Mouse Logitech Terbaru dengan Fitur Hemat Daya

Mouse Logitech Terbaru dengan Fitur Hemat Daya (Foto: Logitech)

Mouse Logitech Terbaru dengan Fitur Hemat Daya

JAKARTA – Logitech baru-baru ini mengumumkan Wireless Mouse M165. Mouse wireless ini menunjang produktivitas pengguna dengan fitur hemat daya untuk memperpanjang daya tahan baterai hingga 12 bulan dan kemampuan tracking yang akurat dengan 1000 DPI.

“Kenyamanan dan desain yang menjawab kebutuhan konsumen menjadi dasar pertimbangan kami dalam menciptakan suatu produk. Logitech Wireless Mouse M165 dirancang untuk menyuguhkan konektivitas wireless khas Logitech yang memberikan kinerja seandal mouse berkabel, namun dengan harga sangat terjangkau. Selain itu, kami juga menanamkan teknologi penghematan daya terbaru Logitech ke dalamnya sehingga pengguna hanya perlu mengganti baterai setahun sekali saja,” kata Kurniadih Sutanto, Country Manager Logitech Indonesia melalui keterangan resminya.

Dirancang menggunakan teknologi mutakhir Swiss, Logitech Wireless Mouse M165 menyuguhkan keandalan perangkat berkabel dengan semua kenyamanan yang dimiliki perangkat wireless. Teknologi wireless Logitech Advanced 2.4 GHz yang disertakan di dalamnya memberikan kinerja yang dapat diandalkan dengan transmisi data cepat.

Mouse wireless ini terhubung melalui nano-receiver yang sangat kecil dan kokoh. Logitech Wireless Mouse M165 juga dilengkapi dengan tombol On/Off untuk membantu dalam menghemat penggunaan daya, sehingga daya baterai dapat bertahan hingga 1 tahun. Logitech Wireless Mouse M165 telah tersedia di pasar dengan harga USD11,99.

(ahl)

Kepala Pengembang Internet Explorer Microsoft Hengkang

  • Share on Facebook
  • Share on Twitter
  • Share on Google

Kepala Pengembang Internet Explorer Microsoft Hengkang (Foto: Geekwire)

Kepala Pengembang Internet Explorer Microsoft Hengkang

WASHINGTON – Dean Hachamovicth sebagai kepala pengawasan pengembangan Internet Explorer Windows, telah meninggalkan Microsoft. Dalam sebuah postingan pribadinya, disebutkan bahwa alasannya keluar karena perusahaan telah berubah banyak dan dirinya telah terlambat melakukan perubahan.

Seperti dikutip dari laman situs Geekwire, Jumat (19/12/2014), Dean Hachamovicth yang telah menjabat selama 10 tahun, sebagai kepala pengawas pengembangan Internet Explorer telah resmi mengundurkan diri dan berniat untuk bekerja sebagai penasihat di LifeQ.

“Saya terlambat untuk perubahan. Perusahaan benar-benar telah berubah banyak,” jelas Hachamovicth, dalam sebuah wawancara khusus di Geekwire.

“Ini saat yang tepat untuk mendapatkan sudut pandang yang berbeda tentang teknologi dan kehidupan,” tambahnya menjelaskan.

Pengunduran dirinya kabarnya karena adanya perubahan rezim kepemimpinan, Hachamovicth bekerja di bawah kepemimpinan Terry Myerson yang menjabat kepala sistem operasi yang dahulunya menjadi leader di Windows Phone dan sekarang memimpin sistem operasi Windows 10.

Seperti diketahui sebelumnya, Hachamovicth bergabung dengan Microsoft pada tahun 1990. Dan pada tahun 2003 dirinya masuk dalam divisi Internet Explorer (IE) sebagai manajer umum. Saat di bawah pimpinannya, IE memang memiliki rating tertinggi yang banyak digunakan para netizen pada zamannya.

Setelah tiga tahun kemudian, pada 2006 perusahaan kalah bersaing dengan Mozilla Firefox. Hachamovicth mengungkapkan pada publik, tentang kegagalan IE ini. “Kami Kacau,” ujar Hachamovicth pada waktu itu.

“Sebagaimana awal komitmen kami, dan tidak melakukan pekerjaan yang baik pada itu (fokus sebagai layanan browser),” tambahnya.

Dan banyak analis mengungkapkan, keputusan yang tidak harus fokus pada browser menjadi penyebabnya kalah bersaing dari Mozila Firefox.

(amr)

Tablet Terbaru Sony Gunakan RAM 6GB?

Tablet Terbaru Sony Gunakan RAM 6GB? (foto : Techbaap)

Tablet Terbaru Sony Gunakan RAM 6GB?

TOKYO – Menjelang tutup tahun, bermunculan rumor mengenai spesifikasi yang akan dipakai oleh Sony pada perangkat terbarunya. Kali ini informasi memberitakan soal hardware dari tablet Z4 Ultra.

Tablet berukuran 12,9 inci itu kabarnya akan dilengkapi dengan resolusi sebesar 3,840 x 2,400 dengan X-Reality. Tidak tanggung-tanggung informasi menyebutkan perangkat pintar ini akan menggunakan RAM 6GB.

Sementara prosesor yang disematkan adalah Snapdragon 810 yang mampu berpacu di kecepatan 2.86GHz. Detail lainnya juga menyebutkan tablet ini akan dibekali dengan penyimpanan internal 64GB.

Kemudian perangkat ini juga akan menerima kamera berukuran 8MP lengkap dengan Sony Exmor CMOS sensor. Ditambah lagi kemampuan untuk merekam video 4K juga ikut disertakan.

Selain itu ada fitur-fitur seperti S-Force Front surround, PS4 Remote Play, dan baterai yang mempunyai kapasitas besar yakni 12,100 mAh. Demikian dikutip Phonesreview, Jumat (19/12/2014).

(amr)

Microsoft-UI Kembangkan Aplikasi MED+ Pengganti Jenazah

Microsoft-UI Kembangkan Aplikasi MED+ Pengganti Jenazah

JAKARTA – Microsoft bersama Ikatan Alumni Fakultas Kedokteran Universitas Indonesia (UI), bersama VI System (PT. Vertikal Integrasi Internasional) sebagai pengembang aplikasi, meluncurkan MED+. Aplikasi pendidikan kesehatan yang memungkinkan para mahasiswa kedokteran Indonesia untuk mempelajari anatomi, fisiologi, dan patologi tubuh manusia secara tiga dimensi.

Aplikasi MED+ akan tersedia secara khusus di tablet berbasis Windows 8.1 Acer Aspire Switch 10, serta dapat diunduh di Windows Store.

Saat ini, MED+ yang tersedia di Acer Aspire Switch 10 telah dilengkapi dengan Office 365, yang meliputi Microsoft Office Online (Word, Excel, Power Point, OneNote, Calendar, Outlook).

Sebagai langkah selanjutnya, MED+ yang diunduh di Windows Store juga akan langsung hadir lengkap dengan Office 365 sehingga memungkinkan pelajar kedokteran merasakan manfaat fitur-fitur produktif yang tersedia untuk pembelajaran sehari-hari.

Penggunaan Aplikasi MED+ di platform Windows 8.1 yang dilengkapi dengan Office 365 akan menunjang kolaborasi dan interaksi dalam proses belajar mengajar mahasiswa kedokteran.

Rektor Universitas Indonesia, Muhammad Anis, mengatakan, Aplikasi MED+ terdiri atas enam modul pembelajaran sesuai standar ilmu kedokteran, yaitu sistem kardiovaskuler (jantung), sistem pencernaan, sistem pernafasan, sistem reproduksi, sistem urinal, serta sistem saraf.

Pada peluncuran hari ini, aplikasi MED+ akan menyajikan modul tentang sistem kardiovaskuler sebagai tahap awal, dan kedepannya akan dilengkapi dengan 5 modul pembelajaran ilmu kedokteran lainnya.

“Peluncuran aplikasi MED+ ini menandakan sebuah revolusi baru di dunia pendidikan kesehatan dan kedokteran Indonesia,” kata Muhammad Anis, dalam keterangannya kepada Okezone, Jumat (19/12/2014).

Dengan kehadiran aplikasi MED+ ini, lanjut Anis, diharapkan para mahasiswa kedokteran dan ilmu rumpun kesehatan Indonesia dapat semakin mudah mempelajari dan mendalami ilmu kesehatan, sehingga kedepannya menghasilkan para dokter, perawat, dan praktisi kesehatan Indonesia yang siap menghadapi tantangan dunia kesehatan yang semakin besar.

Benny Kusuma, Education Lead, Microsoft Indonesia, mengatakan dengan teknologi Microsoft, yaitu Windows 8.1, para mahasiswa kedokteran dapat mengakses aplikasi MED+ secara lebih cepat dan nyaman.

Windows 8,1 menjadi pilihan yang tepat karena mendukung gaya hidup yang mobile melalui beragam aplikasi, mendukung produktivitas, dan dilengkapi dengan Windows Defender untuk memastikan keamanan perangkat.

Selain itu, dengan OneDrive yang tersedia, para mahasiswa kedokteran dapat menyimpan berbagai hasil pembelajaran dan penelitiannya dengan kapasitas penyimpanan data yang tidak terbatas serta jaminan privasi yang terpercaya.

Mahalnya Jenazah

Sebagai pengembang aplikasi MED+, CEO, VI System, Andrey R. Hidayat, mengatakan bahwa ide untuk mengembangkan aplikasi ini bermula dari mahalnya jenazah (kadaver) untuk mempelajari anatomi tubuh manusia. Hal ini membatasi kesempatan mahasiwa untuk mempelajari organ manusia secara menyeluruh.

“Oleh karena itu, kami berpikir untuk menciptakan aplikasi yang berfungsi juga untuk mempelajari anatomi tubuh tapi secara lebih praktis, yaitu dengan pemanfaatan teknologi,” tuturnya.

(amr)