database mahasiswa

Private Sub Cmds_Click()
Data1.Recordset.Update
Data1.Recordset.AddNew
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub

Private Sub Cmdh_Click()
Data1.Recordset.AddNew
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub

Private Sub Cmdk_Click()
Unload Me
End Sub
Private Sub Command6_Click()
Data1.Refresh
Text1.SetFocus
End Sub

Private Sub Cmdp_Click()
Dim s As String
Text5.Text = “20” & Left(Text2.Text, 2)
s = Mid(Text2.Text, 3, 1)
If s = “1” Then
s = “Sistem Informasi”
ElseIf s = “2” Then
s = “Manajemen Informasi”
ElseIf s = “3” Then
s = “Tekhnik Informasi”
End If
Text3.Text = s
b = Mid(Text2.Text, 4, 2)
If b = “00” Then
b = “strata 1”
ElseIf b = “01” Then
b = “Diploma 3”
ElseIf b = “02” Then
b = “Diploma 2”
End If
Text4.Text = b
Text6.Text = Right(Text2.Text, 3)
End Sub

Private Sub Cmdnew_Click()
Data1.Recordset.AddNew
Text1.SetFocus
End Sub

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

TUGAS VISUAL BASIC

PT. PULANG PETANG PERGI PAGI

 

KODENYA:
Private Sub txtnm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnik.SetFocus
End If
End Sub

Private Sub txtnik_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Cmdpro.SetFocus
End If
End Sub

Private Sub Cmdquit_Click()
Unload Me
End Sub

Private Sub Cmdrep_Click()
txtnm.SetFocus
txtnm.Text = “”
txtnikText = “”
txtgol.Text = “”
txtjbt.Text = “”
txtgp.Text = “”
txttj.Text = “”
txtks.Text = “”
txtksta.Text = “”
txttg.Text = “”
txtbg.Text = “”
txttahun.Text = “”
End Sub

Private Sub Cmdcan_Click()
txtnm.SetFocus
txtnm.Text = “”
txtnik.Text = “”
End Sub

Private Sub Cmdpro_Click()
Dim jbt, bg As String
Dim gp, tj, tg As Currency
txttahun.Text = Left(txtnik.Text, 4)
G = Mid(txtnik.Text, 5, 1)
If G = “A” Then
G = “A”
jbt = ” MENEJER”
gp = “5000”
tj = “2000”
ElseIf G = “B” Then
G = “B”
jbt = ” Seksi Banget”
gp = “4000”
tj = “2000”
ElseIf G = “C” Then
G = “C”
jbt = ” setaf”
gp = “3000”
tj = “1000”
ElseIf G = “D” Then
G = “D”
jbt = ” Juru Parkir”
gp = “2000”
tj = “1000”
ElseIf G = “E” Then
G = “E”
jbt = ” Juru Kunci”
gp = “1000”
tj = “1000”
End If
txtgol.Text = G
txtjbt.Text = jbt
txtgp.Text = gp
txttj.Text = tj
KS = Mid(txtnik.Text, 7, 1)
If KS = “S” Then
KS = “S”
ksta = ” SENDIRI”
ElseIf KS = “B” Then
KS = “B”
ksta = “BERDUA”
ElseIf KS = “D” Then
KS = “D”
ksta = “DUDA”
ElseIf KS = “J” Then
KS = “J”
ksta = “JANDA”
ElseIf KS = “BA” Then
KS = “BA”
ksta = “BANYAK ANAK”
End If
txtks.Text = KS
txtksta.Text = ksta
tg = Val(txtgp.Text) + Val(txttj.Text)
txttg.Text = tg
B = Right(txtnik.Text, 3)
If B = “KEU” Then
txtbg.Text = “AKUNTING”
ElseIf B = “ADM” Then
txtbg.Text = “ADMINISTRASI”
ElseIf B = “SDM” Then
txtbg.Text = “SUMBER DAYA MANUSIA”
ElseIf B = “EDP” Then
txtbg.Text = “IT UNIT”
ElseIf B = “SPM” Then
txtbg.Text = “KEAMANAN”
End If
End Sub

Visual basic Huruf Mutu

Private Sub Combo1_Click()
Dim nama, jurusan As String

Select Case Combo1.Text
Case “12100536″
nama = “RULLY ISTIAWAN”
jurusan = “SISTEM INFORMASI”

Case “12100206″
nama = “ANDI ISWANTO”
jurusan = “SISTEM INFORMASI”

Case “12100530″
nama = “ARIF HIDAYATULLOH”
jurusan = “MANAJEMEN INFORMATIKA”

Case “12100370″
nama = “DESSY MAYANG SARI”
jurusan = “MANAJEMEN INFORMATIKA”
End Select

Text1.Text = nama

Text2.Text = jurusan

Text3.SetFocus

End Sub
Private Sub Command1_Click()

Dim kuis, tugas, uts, uas, na As Integer

Dim hm As String

kuis = Val(Text3.Text)

tugas = Val(Text4.Text)

uts = Val(Text5.Text)

uas = Val(Text6.Text)

na = Val(kuis + tugas + uts + uas) / 4

Text7.Text = na
Select Case Text7.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
Text8.Text = hm
End Sub

Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
End Sub

Private Sub Form_Load()
Combo1.AddItem “12100536″
Combo1.AddItem “11100014″
Combo1.AddItem “11100156″
Combo1.AddItem “10100157″
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.SetFocus
End If
End Sub

 

hasilnya seperti berikut

Visual basic Data Mahasiswa

 

Private Sub Cmdinput_Click()
Dim S As String
Txtth.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 = “00″ Then
Txtprog.Text = “Strata Satu”
ElseIf S = “02″ Then
Txtprog.Text = “Diploma Tiga”
ElseIf S = “03″ Then
Txtprog.Text = “Diploma Empat”
ElseIf S = “04″ Then
Txtprog.Text = “Diploma Dua”
End If
Txtnor.Text = Right(Txtnpm.Text, 3)
End Sub

Private Sub Cmdout_Click()
Unload Me
End Sub

Private Sub Cmdreset_Click()
Txtnm.SetFocus
Txtnm.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtprog.Text = “”
Txtth.Text = “”
Txtnor.Text = “”
End Sub

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

Private Sub Txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Cmdinput.SetFocus
End If
End Sub

Visual Basic Tulisan Muncul

Untuk membuat program seperti diatas  mosukan kode listing dibawah ini…

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label2.FontItalic = Check2.Value
End Sub

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

End Sub

Visual Basic Pangkat Golongan gaji

 

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 Cmdbatal_Click()
kosong
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Cmdlagi_Click()
kosong
End Sub
Private Sub Form_load()
Cbogolongan.AddItem “I”
Cbogolongan.AddItem “II”
Cbogolongan.AddItem “III”
Cbogolongan.AddItem “IV”
End Sub

Public Sub kosong()
txtnidn.Text = Clear
txtnama.Text = Clear
Cbogolongan.Text = Clear
txtgapok.Text = Clear
txttunjangan.Text = Clear
txtpajak.Text = Clear
txttotal.Text = Clear
txtnidn.SetFocus
End Sub

 Private Sub txtnidn_keypress(keyascii As Integer)

If keyascii = 13 Then
txtnama.SetFocus
End If
End Sub

visual basic ##

BRHUBUNG TUGAS DAH KELAR JADI SAYA POSTINGIN,,,,

Perkalian Dua Bilangan

 

listing program

 

Private Sub Command1_Click()

txtagk3.Text = Val(txtagk1.Text) * Val(txtagk2.Text)

End Sub

Private Sub Command2_Click()

txtagk1.SetFocus

txtagk1 = “”

txtagk2 = “”

txtagk3 = “”

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub txtagk1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtagk2.SetFocus

End If

End Sub

10 hal bikin cepat tua

postingan ini bukan untuk usia 60  tahun keatas,,,

ini hanya untuk menghindari agar tubuh tidak mudah layu atau kelihatan tua,,,,

1. Menonton TV
Kita semua tahu bahwa duduk berjam-jam di depan TV tidaklah baik untuk pinggang. Tetapi Anda mungkin tidak tahu bahwa hal itu juga memperpendek hidup Anda. Peneliti dari University of Queensland menemukan, setiap jam yang Anda habiskan di depan TV mengurangi umur Anda 22 menit.  Penelitian lebih lanjut juga menemukan bahwa menonton TV juga menambah risiko terkena penyakit Alzheimer.

MITOS TENTANG KECANTIKAN

tiap manusia khusunya kum hawa tentu ingin tampil cantik,,dan untuk tampil cantik tentu kita tidak ingin salah dalam pemeliharaan anggota tubuh,,khusunya bagian wajah,,,,seperti wajah ane,,,

dan ini mitos  tentang perawatan kecantiakan,,benar atau salah????

1. Jangan pernah mencabut alis dari atas — SALAH

Alis adalah bagian wajah yang menarik. Tidak ada alis yang sama persis dan diperlukan pendekatan hati-hati untuk membuatnya terlihat indah.