TUGAS DATA BASE DATA MAHASISWA PRINGSEWU

TUGAS DATA BASE

TUGAS DATA BASE

di postingan kali ini saya akan jelaskan bagaimana cara pembuatan data base yang telah saya tampilkan diatas :

untuk mempercepat pembuatan demikian rumusnya

Private Sub CMDBARU_Click()
Data1.Recordset.AddNew
TXTNAMA.SetFocus
End Sub

Private Sub CMDHAPUS_Click()
Data1.Recordset.Delete
End Sub

Private Sub CMDKEL_Click()
Unload Me
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
JUR = “Sistem Informasi”
ElseIf S = “2″ Then
JUR = “Manajemen Informatika”
ElseIf S = “3″ Then
JUR = “Tehnik Informatika”
ElseIf S = “4″ Then
JUR = “Manajemen & Komp. Akuntansi”
End If
TXTJUR.Text = JUR
S = Mid(TXTNPM.Text, 4, 2)
If S = “00″ Then
PS = “Strata Satu”
ElseIf S = “01″ Then
PS = “Diploma Tiga”
ElseIf S = “02″ Then
PS = “Diploma Empat”
ElseIf S = “03″ Then
PS = “Diploma Dua”
End If
TXTPS.Text = PS
TXTNU.Text = Right(TXTNPM.Text, 3)
End Sub
Private Sub CMDSIMPAN_Click()
Data1.Recordset.Update
End Sub

 

TUGAS LANJUTAN VB TWITTER III

Tugas VB 4/4

January 18, 2013

 3

4.      KARTU MAHASISWA

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txtutut.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “DEDI KURNIAWAN”

txtnpm.Text = “12201049”

txtjur.Text = “MANAJEMEN INFORMATIKA”

txtps.Text = “DEPLOMA TIGA”

txttm.Text = “2012”

txtutut.Text = “49”

End Sub

Private Sub Cmdproses_Click()

Dim s As String

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

s = Mid(textnpm.Text, 3, 1)

If s = “I” Then

txtjur , Text = “manajemen informatika”

ElseIf s = “2” Then

txtjur , Text = “sitim informatika”

ElseIf s = “3” Then

txtjur , Text = “tehnik informatika”

ElseIf s = “4” Then

txtjur , Text = “manajemen&komp.akuntansi”

End If

s = Mid(textnpm.Text, 4, 2)

If s = “01” Then

txtjur , Text = “deploma tiga”

ElseIf s = “2” Then

txtjur , Text = “strata satu”

ElseIf s = “3” Then

txtjur , Text = “diploma empat”

ElseIf s = “4” Then

txtjur , Text = “diploma dua”

txturut.Text = righ(txtnmp.Text3)

End Sub

Private Sub form_activate()

txtnama.SetFocus

txtnama.Text = “DEDI KURNIAWAN”

txtnpm.Text = “12201049”

txtjur.Text = “MANAJEMEN INFORMATIKA”

txtps.Text = “DEPLOMA TIGA”

txttm.Text = “2012”

txturut.Text = “49”

End Sub

Tugas VB 4/3

January 18, 2013

 Untitled-1

3. SLIP GAJI KARYAWAN

Private Sub Cbogolongan1_click()

dimgapok , pajak, Tunjangan, totalAsvarian

Select Case cbogolongan.Text

Case “I”

gapok = 5000000

Tunjangan = 500000

Case “II”

gapok = 3000000

Tunjangan = 300000

Case “III”

gapok = 2000000

Tunjangan = 200000

Case “IV”

gapok = 4000000

Tunjangan = 400000

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

Public Sub kosong()

textnidn.SetFocus

textnidn.Text = “”

textnama.Text = “”

cbogolongan.Text = “”

textnidn.gapok = “”

textnidn.Tunjangan = “”

textnidn.pajak = “”

textnidn.total = “”

End Sub

privatetextnidn_keypress (keyasciiAsinteger)

If keyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

Tugas VB 4/2

January 18, 2013

 1

  1. 2.      PROPERTY TEST

Private Sub Chkmiring_Click()

Lblnama.FontItalic = Chkmiring.Value

End Sub

Private Sub Chktebel_Click()

Lblnama.FontBold = Chktebel.Value

End Sub

Private Sub cmdend_Click()

End

End Sub

Private Sub Cmdok_Click()

Lblnama.Caption = Txtnama.Text

End Sub

Private Sub Lblnama_Click()

End Sub

Private Sub Optbiru_Click()

Lblnama.ForeColor = vbBlue

End Sub

Private Sub Opthijau_Click()

Lblnama.ForeColor = vbGreen

End Sub

Tugas VB 4/1

January 18, 2013

 2

1.HURUF MUTU MAHASISWA

Private Sub cmdbatal_Click()

comnpm.Text = “”

txtnama.Text = “”

txtjurusan.Text = “”

txtquis.Text = “”

txttugas.Text = “”

txtuts.Text = “”

txtuas.Text = “”

txtna.Text = “”

txthm.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

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

Dim nama, jurusan, hm As String

Select Case comnpm.Text

Case “12201049”

nama = “DEDI KURNIAWAN”

jurusan = “MANAJEMEN INFORMATIKA”

Case “12100013”

nama = “ETIKA SOPYAN AMIN”

jurusan = “SISTIM INFORMASI”

Case “12100345”

nama = “PRIONO”

jurusan = “SISTIM INFORMASI”

Case “12100134”

nama = “FATHONI NURUL FIKRI”

jurusan = “MANAJEMEN INFORMATIKA”

Case “12100324”

nama = “ADI SUNARYO”

jurusan = “SISTEM INFORMASI”

End Select

txtnama.Text = nama

txtjurusan.Text = jurusan

txtquis.SetFocus

End Sub

Private Sub Form_Load()

comnpm.AddItem “12201049”

comnpm.AddItem “12100013”

comnpm.AddItem “12200345”

comnpm.AddItem “12100134”

comnpm.AddItem “12200324”

End Sub

Private Sub na_Change()

End Sub

Private Sub hm_Change()

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 BP.Nur aminudin VISUAL BASIC

Hay sobat, sekarang ane mau posting tentang bagaimana caranya membuat program perkalian 2 bilangan menggunakan visual basic, seperti gambar berikut, yuk ikutin caranya.

 2

  1. Buka aplikasi viisual basic 6.0
  2. Kemudian pilih Standard EXE klik open sampe muncul tampilan sbb.

1

3. Kemudian pada Form1, kita tambahkan label, text dan command sesuai dengan soal yang kita garap tadi

4. Lalu kita dobel klik pada text1 dan masukkan rumus berikut:

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

5. Lalu kita dobel klik pada Command1 dan masukkan rumus berikut:

Private Sub Command1_Click()

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

End Sub

6. Lalu kita dobel klik pada Command2 dan masukkan rumus berikut:

Private Sub Command2_Click()

Text1.SetFocus

Text1 = ” “

Text2 = ” “

Text3 = ” “

End Sub

7. Lalu kita dobel klik pada Command3 dan masukkan rumus berikut:

Private Sub Command3_Click()

End

End Sub

8. Selesai, mudah bukan….

Tampilan rumus nya seperti ini:

3

Maka apabila program dijalankan, hasilnya seperti ini:

4

Semoga Postingan ini bermanfaat buat sobat semua…..

Hello sobat semua, masih semangat belajar visual basic?… oke sekarang kita mau buat program aplikasi perhitungan gaji.. yuk kita liat gimana cara buat nya…..

  1. Pastinya buka aplikasi visual basic dulu dong
  2. Buat form seperti berikut ini

11

3. Kode untuk text1 sampai text 3

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

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

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

End If

End Sub

4. Kode untuk command 1 dan 2

Private Sub Command1_Click()

Text1.SetFocus

Text1 = ” “

Text2 = ” “

Text3 = ” “

Text4 = ” “

Text5 = ” “

Text6 = ” “

End Sub

 

Private Sub Command2_Click()

End

End Sub

5. Selesaiiiii

Berikut hasilnnya:

12

 

Nah, sobat pasti pernah belanja banyak dan pastinya dapet diskon kan,,, sekarang kita akan buat program tentang diskon,, mau tau caranya, yuk liat…

  1. Buka visual basic
  2. Buat form seperti berikut ini

9

3. Klik 2 kali pada text1, dan masukkan kode berikut:

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

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

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

End If

End Sub

4. Klik 2 kali pada command1, dan masukkan kode berikut:

Private Sub Command1_Click()

Text1.SetFocus

Text1 = ” “

Text2 = ” “

Text3 = ” “

End Sub

5. Klik 2 kali pada command2, dan masukkan kode berikut:

Private Sub Command2_Click()

End

End Sub

6. Selesai,, mudah kan,, makanya jangan kapok belajar visual basic

Berikut adalah hasilnya:

10

 

Halo sobat semua,, yuk kita belajar Visual Basic lagi,, sekarang materinya adalah membuat font style dan font color, penasaran?? Yuk kita buat bareng – bareng…..

  1. Seperti biasa buka dulu aplikasi visual basic nya
  2. Buat form seperti gambar berikut

7

3. Berikut adalah rumus option1 sampai option6 (red-black):

Private Sub Option1_Click()

lbljudul.ForeColor = vbRed

End Sub

Private Sub Option2_Click()

lbljudul.ForeColor = vbBlue

End Sub

Private Sub Option3_Click()

lbljudul.ForeColor = vbGreen

End Sub

Private Sub Option4_Click()

lbljudul.ForeColor = vbYellow

End Sub

Private Sub Option5_Click()

lbljudul.ForeColor = vbWhite

End Sub

Private Sub Option6_Click()

lbljudul.ForeColor = vbBlack

End Sub

4. Dan berikut adalah rumus check1 sampai check3 (bold, italic, underlined)

Private Sub Check1_Click()

If Check1.Value = 1 Then

lbljudul.FontBold = True

Else

lbljudul.FontBold = False

End If

End Sub

Private Sub Check2_Click()

If Check2.Value = 1 Then

lbljudul.FontItalic = True

Else

lbljudul.FontItalic = False

End If

End Sub

Private Sub Check3_Click()

If Check3.Value = 1 Then

lbljudul.FontUnderline = True

Else

lbljudul.FontUnderline = False

End If

End Sub

5. Selesai,,, gampang bukan…

Berikut adalah hasilnya:

8

Oke sobat, semoga postingan ini bermanfaat bagi sobat semua….

Hay sob, klo tadi kita Cuma buat program perkalian aja, tapi sekarang ane mau nambahin lagi program nya menjadi pertambahan, perkalian, pengurangan dan pembagian. Oke gk usah berlama – lama mari kita mulai…

  1. Seperti biasa buka dulu program visual basic nya
  2. Buat lah form seperti berikut (sobat semua pasti dh tau caranya buatnya)…. :)

5

3. Dobel klik pada text1, lalu masukkan Rumus berikut:

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

4. Dobel klik pada command1, lalu masukkan rumus berikut:

Private Sub Command1_Click()

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

End Sub

5. Dobel klik pada command2, lalu masukkan rumus berikut:

Private Sub Command2_Click()

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

End Sub

6. Dobel klik pada command3, lalu masukkan rumus berikut:

Private Sub Command3_Click()

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

End Sub

7. Dobel klik pada command4, lalu masukkan rumus berikut:

Private Sub Command4_Click()

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

End Sub

8. Dobel klik pada command5, lalu masukkan rumus berikut:

Private Sub Command5_Click()

Text1.SetFocus

Text1 = ” “

Text2 = ” “

Text3 = ” “

End Sub

9. Dobel klik pada command6, lalu masukkan rumus berikut:

Private Sub Command6_Click()

End

End Sub

10. Selesai, kalian telah membuat kalkulator bilangan..

Hasilnya adalah sebagai berikut:

6

Mas bro, sekarang ane mau posting tentang bagaimana caranya membuat program perkalian 2 bilangan menggunakan visual basic, seperti gambar berikut, yuk ikutin caranya.

 2

  1. Buka aplikasi viisual basic 6.0
  2. Kemudian pilih Standard EXE klik open sampe muncul tampilan sbb.

1

3. Kemudian pada Form1, kita tambahkan label, text dan command sesuai dengan soal yang kita garap tadi

4. Lalu kita dobel klik pada text1 dan masukkan rumus berikut:

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

5. Lalu kita dobel klik pada Command1 dan masukkan rumus berikut:

Private Sub Command1_Click()

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

End Sub

6. Lalu kita dobel klik pada Command2 dan masukkan rumus berikut:

Private Sub Command2_Click()

Text1.SetFocus

Text1 = ” “

Text2 = ” “

Text3 = ” “

End Sub

7. Lalu kita dobel klik pada Command3 dan masukkan rumus berikut:

Private Sub Command3_Click()

End

End Sub

8. Selesai, mudah bukan….

Tampilan rumus nya seperti ini:

3

Maka apabila program dijalankan, hasilnya seperti ini:

4

Semoga Postingan ini bermanfaat buat sobat semua…..

Hay mas bro semua, masih semangat belajar visual basic?… oke sekarang kita mau buat program aplikasi perhitungan gaji.. yuk kita liat gimana cara buat nya…..

  1. Pastinya buka aplikasi visual basic dulu dong
  2. Buat form seperti berikut ini

11

3. Kode untuk text1 sampai text 3

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

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

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

End If

End Sub

4. Kode untuk command 1 dan 2

Private Sub Command1_Click()

Text1.SetFocus

Text1 = ” “

Text2 = ” “

Text3 = ” “

Text4 = ” “

Text5 = ” “

Text6 = ” “

End Sub

 

Private Sub Command2_Click()

End

End Sub

5. Selesaiiiii

Berikut hasilnnya:

12

 

Nah, sobat pasti pernah belanja banyak dan pastinya dapet diskon kan,,, sekarang kita akan buat program tentang diskon,, mau tau caranya, yuk liat…

  1. Buka visual basic
  2. Buat form seperti berikut ini

9

3. Klik 2 kali pada text1, dan masukkan kode berikut:

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

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

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

End If

End Sub

4. Klik 2 kali pada command1, dan masukkan kode berikut:

Private Sub Command1_Click()

Text1.SetFocus

Text1 = ” “

Text2 = ” “

Text3 = ” “

End Sub

5. Klik 2 kali pada command2, dan masukkan kode berikut:

Private Sub Command2_Click()

End

End Sub

6. Selesai,, mudah kan,, makanya jangan kapok belajar visual basic

Berikut adalah hasilnya:

10

 

Halo sobat semua,, yuk kita belajar Visual Basic lagi,, sekarang materinya adalah membuat font style dan font color, penasaran?? Yuk kita buat bareng – bareng…..

  1. Seperti biasa buka dulu aplikasi visual basic nya
  2. Buat form seperti gambar berikut

7

3. Berikut adalah rumus option1 sampai option6 (red-black):

Private Sub Option1_Click()

lbljudul.ForeColor = vbRed

End Sub

Private Sub Option2_Click()

lbljudul.ForeColor = vbBlue

End Sub

Private Sub Option3_Click()

lbljudul.ForeColor = vbGreen

End Sub

Private Sub Option4_Click()

lbljudul.ForeColor = vbYellow

End Sub

Private Sub Option5_Click()

lbljudul.ForeColor = vbWhite

End Sub

Private Sub Option6_Click()

lbljudul.ForeColor = vbBlack

End Sub

4. Dan berikut adalah rumus check1 sampai check3 (bold, italic, underlined)

Private Sub Check1_Click()

If Check1.Value = 1 Then

lbljudul.FontBold = True

Else

lbljudul.FontBold = False

End If

End Sub

Private Sub Check2_Click()

If Check2.Value = 1 Then

lbljudul.FontItalic = True

Else

lbljudul.FontItalic = False

End If

End Sub

Private Sub Check3_Click()

If Check3.Value = 1 Then

lbljudul.FontUnderline = True

Else

lbljudul.FontUnderline = False

End If

End Sub

5. Selesai,,, gampang bukan…

Berikut adalah hasilnya:

8

Oke sobat, semoga postingan ini bermanfaat bagi sobat semua….

Hay sob, klo tadi kita Cuma buat program perkalian aja, tapi sekarang ane mau nambahin lagi program nya menjadi pertambahan, perkalian, pengurangan dan pembagian. Oke gk usah berlama – lama mari kita mulai…

  1. Seperti biasa buka dulu program visual basic nya
  2. Buat lah form seperti berikut (sobat semua pasti dh tau caranya buatnya)…. :)

5

3. Dobel klik pada text1, lalu masukkan Rumus berikut:

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

4. Dobel klik pada command1, lalu masukkan rumus berikut:

Private Sub Command1_Click()

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

End Sub

5. Dobel klik pada command2, lalu masukkan rumus berikut:

Private Sub Command2_Click()

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

End Sub

6. Dobel klik pada command3, lalu masukkan rumus berikut:

Private Sub Command3_Click()

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

End Sub

7. Dobel klik pada command4, lalu masukkan rumus berikut:

Private Sub Command4_Click()

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

End Sub

8. Dobel klik pada command5, lalu masukkan rumus berikut:

Private Sub Command5_Click()

Text1.SetFocus

Text1 = ” “

Text2 = ” “

Text3 = ” “

End Sub

9. Dobel klik pada command6, lalu masukkan rumus berikut:

Private Sub Command6_Click()

End

End Sub

10. Selesai, kalian telah membuat kalkulator bilangan..

Hasilnya adalah sebagai berikut:

6