tugas vb pertemuan 4-1

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

Private Sub cmdbatal_Click()
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjurusan.Text = “”
Txtpstudi.Text = “”
Txttahun.Text = “”
Txtnurut.Text = “”
Txtbp.Text = “”
Txtnama.SetFocus

End Sub

Private Sub cmdhapus_Click()
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjurusan.Text = “”
Txtpstudi.Text = “”
Txttahun.Text = “”
Txtnurut.Text = “”
Txtbp.Text = “”
Txtnama.SetFocus
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
Txtjurusan.Text = “Sistem informasi”
ElseIf S = “2” Then
Txtjurusan.Text = “Tehnik Informatika”
ElseIf S = “3” Then
Txtjurusan.Text = “Manajemen Informatika”
ElseIf S = “4” Then
Txtjurusan.Text = “Manajemen & kom. Akuntansi”
End If

S = Mid(Txtnpm.Text, 4, 2)
If S = “01” Then
Txtpstudi.Text = “Strata Satu”
Txtbp.Text = “1.950.000”
ElseIf S = “02” Then
Txtpstudi.Text = “Diploma Empat”
Txtbp.Text = “1.750.000”
ElseIf S = “03” Then
Txtpstudi.Text = “Diploma Tiga”
Txtbp.Text = “1.650.000”
ElseIf S = “04” Then
Txtpstudi.Text = “Diploma Dua”
Txtbp.Text = “1.450.000”
End If
Txtnurut.Text = Right(Txtnpm.Text, 3)

End Sub

MEMBUAT PROGRAM PERHITUNGAN HARTA SETELAH DIDISCOUNT 10% MENGGUNAKAN VB 6.0

Code :

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

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Command1_Click()
Text2.Text = Val(Text1.Text) * 0.1
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
Text1.SetFocus
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.Text = Val(Text1.Text) * 0.1
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
Text1.SetFocus
End If
End Sub

Private Sub Timer1_Timer()
If Form1.Caption = “SUHARTATI” Then
Form1.Caption = ” “
ElseIf Form1.Caption = “SUHAR” Then
Form1.Caption = “SUHARTA”
ElseIf Form1.Caption = “SUHA” Then
Form1.Caption = “SUHA”
ElseIf Form1.Caption = “SUH” Then
Form1.Caption = “SUH”
ElseIf Form1.Caption = “SU” Then
Form1.Caption = “SU”
Else
Form1.Caption = “SUHARTATI”
End If
End Sub

 

MEMBUAT KALKULATOR MINI MENGGUNAKAN VB 6.0

Code :

 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

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 Timer1_Timer()
If Form1.Caption = “SUHARTATI” Then
Form1.Caption = ” “
ElseIf Form1.Caption = “SUHAR” Then
Form1.Caption = “SUHARTA”
ElseIf Form1.Caption = “SUHA” Then
Form1.Caption = “SUHA”
ElseIf Form1.Caption = “SUH” Then
Form1.Caption = “SUH”
ElseIf Form1.Caption = “SU” Then
Form1.Caption = “SU”
Else
Form1.Caption = “SUHARTATI”
End If
End Sub

MEMBUAT PERKALIAN DUA BUAH BILANGAN MENGGUNAKAN VB 6.0

Code :
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

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

Private Sub Command3_Click()
Unload Me
End Sub

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

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Text3.SetFocus
End If
End Sub

Private Sub Timer1_Timer()
If Form1.Caption = “SUHARTATI” Then
Form1.Caption = ” “
ElseIf Form1.Caption = “SUHAR” Then
Form1.Caption = “SUHARTA”
ElseIf Form1.Caption = “SUHA” Then
Form1.Caption = “SUHA”
ElseIf Form1.Caption = “SUH” Then
Form1.Caption = “SUH”
ElseIf Form1.Caption = “SU” Then
Form1.Caption = “SU”
Else
Form1.Caption = “SUHARTATI”
End If
End Sub

TUGAS VB PERTEMUAN KE2

 

 

Source Code nya :

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.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub
Private Sub Command3_Click()
Unload Me
End Sub

RSUD PRINGSEWU

Pasien rawat jalan Rumah Skit Umum Daerah Pringsewu pada tanggal 09 februari 2013 yang masuk dalam redaksi loket pendaftaran berjumlah 56 pasien,diantaranya pasien jamkesmas 18 pasien, pasien umum 17 pasien, dan pasien askes 21 pasien.

Angkat Besi Bidik Empat Emas di Myanmar

Senin, 4 Februari 2013 | 20:33 WIB

PB PABBSI menargetkan empat medali emas di SEA Games Myanmar 2013

RUMAH SAKIT UMUM DAERAH PRINGSEWU

Dari tanggal 01 februari 2013 loket pendaftaran pasien umum telah dibuka 24 jam.

Cara Berpikir Otak Ikan

Steve Baskauf Larva ikan zebra

KOMPAS.com – Pengamatan mendalam pada sinyal saraf memberikan petunjuk cara otak merespons dunia luar. Pada studi terbaru, peneliti membangun mekanisme untuk mengikuti jalannya sinyal ke otak pada larva ikan zebra. Penelitian menggunakan penanda zat fluoresense (zat yang dapat berpendar di tempat gelap).

“Ini suatu terobosan,” kata Florian Engert, ahli biologi cel dan molekul Harvard University, menanggapi temuan itu pada LiveScience (31 Januari 2013).

Google Gelar Sayembara “Cari Kutu” Chrome

anandtech.com

KOMPAS.com — Google mengundang para peretas (hacker) untuk membobol sistem operasi Chrome OS dalam konferensi keamanan CanSecWest. Acara tersebut akan diadakan pada 7 Maret mendatang di Kanada.

Lucunya, untuk para pemenang yang berhasil menjuarai sayembara ini, Google menyediakan hadiah uang berjumlah total sama dengan bilangan “phi” pada rumus matematika, yaitu sebesar 3,14159 juta dollar AS atau sekitar Rp 30 miliar.