tugas vb pertemuan 4-1

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

Slide1

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

Slide1

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

Slide1

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

TATY

 

 

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