Program Visual Basic Untuk Unit Kegiatan Mahasiswa

Kali ini saya memosting sebuah program Visual Basic untuk Unit Kegiatan Mahasiswa. Langsung saja ini Programnya :

Tampilan Output :

Gambar diatas merupakan output dari MDIform 1.
source code:


Private Sub mAnggota_Click()
Form1.Show
End Sub

Private Sub mExit_Click()
en
End Sub

Private Sub mKegiatan_Click()
Form2.Show
End Sub

Private Sub mkgt_Click()
Form3.Show
End Sub

Setelah masuk Ke MDIform kita masuk ke Form 2 tepatnya di file Anggota kita harus mengisi data seorang anggota terlebih dahulu setelah menginputnya data yg telah kita input akan muncul pada sebuah data base "Anggota" yg telah kita buat sebelumnya 

Source Code :

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub CSimpan_Click()

Adodc1.Recordset.AddNew

Adodc1.Recordset!Nama = tNAMA.Text

Adodc1.Recordset!NIM = tNIM.Text

Adodc1.Recordset!Jurusan = tJURUSAN.Text

Adodc1.Recordset!Angkatan = tANGKT.Text

Adodc1.Recordset!Jabatan = tJABATAN.Text

Adodc1.Recordset!NO_Telpon = tNO.Text

Adodc1.Recordset.Update

MsgBox " Data Sudah Di simpan ..!!"

End Sub

Private Sub Form_Load()

Adodc1.RecordSource = "Select * From Data_Anggota"

Adodc1.Refresh

End Sub

gambar diatas adalah hasil output dari data yg kita input pada file anggota maka hasilnya seperti gambar diatas. 

Gambar diatas merupakan Data Kegiatan dimana kita harus mengisi data yg sudah disediakan lalu data yg kita input maka akan muncul di data base "data kegiatan" yg sudah kita sediakan sebelumnya .

Source Code :

Private Sub CBatal_Click()

Unload Me

End Sub

Private Sub CSimpan_Click()

Adodc1.Recordset.AddNew

Adodc1.Recordset!Nama_Kegiatan = tNAMA.Text

Adodc1.Recordset!Tempat = TTempat.Text

Adodc1.Recordset!Waktu = TWaktu.Text

Adodc1.Recordset!Hari = CHari.Text

Adodc1.Recordset!Tanggal = CTanggal.Text

Adodc1.Recordset!Bulan = CBulan.Text

Adodc1.Recordset!Tahun = CTahun.Text

Adodc1.Recordset!Kontak = TKontak.Text

Adodc1.Recordset.Update

MsgBox " Data Sudah Di simpan ..!!"

End Sub

Private Sub Form_Load()

Adodc1.RecordSource = "Select * From Data_Kegiatan"

Adodc1.Refresh

CHari.AddItem "Senin"

CHari.AddItem "Selasa"

CHari.AddItem "Rabu"

CHari.AddItem "Kamis"

CHari.AddItem "Jum'at"

CHari.AddItem "Sabtu"

CHari.AddItem "Minggu"

CTanggal.AddItem "1"

CTanggal.AddItem "2"

CTanggal.AddItem "3"

CTanggal.AddItem "4"

CTanggal.AddItem "5"

CTanggal.AddItem "6"

CTanggal.AddItem "7"

CTanggal.AddItem "8"

CTanggal.AddItem "9"

CTanggal.AddItem "10"

CTanggal.AddItem "11"

CTanggal.AddItem "12"

CTanggal.AddItem "13"

CTanggal.AddItem "14"

CTanggal.AddItem "15"

CTanggal.AddItem "16"

CTanggal.AddItem "17"

CTanggal.AddItem "18"

CTanggal.AddItem "19"

CTanggal.AddItem "20"

CTanggal.AddItem "21"

CTanggal.AddItem "22"

CTanggal.AddItem "23"

CTanggal.AddItem "24"

CTanggal.AddItem "25"

CTanggal.AddItem "26"

CTanggal.AddItem "27"

CTanggal.AddItem "28"

CTanggal.AddItem "29"

CTanggal.AddItem "30"

CTanggal.AddItem "31"

CBulan.AddItem "Januari"

CBulan.AddItem "Febuari"

CBulan.AddItem "Maret"

CBulan.AddItem "April"

CBulan.AddItem "Mai"

CBulan.AddItem "Juni"

CBulan.AddItem "Juli"

CBulan.AddItem "Agustus"

CBulan.AddItem "September"

CBulan.AddItem "October"

CBulan.AddItem "November"

CBulan.AddItem "Desember"

CTahun.AddItem "2011"

CTahun.AddItem "2012"

CTahun.AddItem "2013"

CTahun.AddItem "2014"

CTahun.AddItem "2015"

CTahun.AddItem "2016"

CTahun.AddItem "2017"

CTahun.AddItem "2018"

CTahun.AddItem "2019"

CTahun.AddItem "2020"

End Sub

Gambar diatas merupakan gambar dimana data yg sudah kita input dari data kegiatan diatas maka akan muncul di database "Data Kegiatan" yg telah kita sediakan.

Gambar diatas merupakan hasil kegiatan yg telah kita input maka akan muncul di MSFlexgrid yg telah kita buat pada form 3 berikut seperti gambar diatas 

Source Code :

Private Sub CHapus_Click()

Unload Me

End Sub

Private Sub CTampil_Click()

Adodc1.RecordSource = "Select * From Data_kegiatan where Nama_Kegiatan  like '%" & TKegiatan.Text & "%'"

Adodc1.Refresh

baris = 1

While Not Adodc1.Recordset.EOF

fg1.Rows = fg1.Rows + 1

fg1.Row = baris

fg1.Col = 0

fg1.Text = baris

fg1.Col = 1

fg1.Text = Adodc1.Recordset!Waktu

fg1.Col = 2

fg1.Text = Adodc1.Recordset!Nama_Kegiatan

fg1.Col = 3

fg1.Text = Adodc1.Recordset!Tempat

fg1.Col = 4

fg1.Text = Adodc1.Recordset!Hari

fg1.Col = 5

fg1.Text = Adodc1.Recordset!Tanggal

fg1.Col = 6

fg1.Text = Adodc1.Recordset!Bulan

fg1.Col = 7

fg1.Text = Adodc1.Recordset!Tahun

fg1.Col = 8

fg1.Text = Adodc1.Recordset!Kontak

Adodc1.Recordset.MoveNext

baris = baris + 1

Wend

End Sub

Private Sub Form_Load()

fg1.Row = 0

fg1.Col = 0

fg1.Text = "No"

fg1.Col = 1

fg1.Text = "Waktu"

fg1.Col = 2

fg1.Text = "Nama Kegiatan"

fg1.Col = 3

fg1.Text = "Tempat"

fg1.Col = 4

fg1.Text = "Hari"

fg1.Col = 5

fg1.Text = "Tanggal"

fg1.Col = 6

fg1.Text = "Bulan"

fg1.Col = 7

fg1.Text = "Tahun"

fg1.Col = 8

fg1.Text = "Kontak"

fg1.ColWidth(0) = 500

fg1.ColWidth(1) = 900

fg1.ColWidth(2) = 3000

fg1.ColWidth(3) = 3000

fg1.ColWidth(4) = 1000

fg1.ColWidth(5) = 900

fg1.ColWidth(6) = 900

fg1.ColWidth(7) = 900

fg1.ColWidth(8) = 1500

End Sub

Mungkin hanya ini yg bisa saya kerjakan sekurangnya saya minta maaaf semoga teman-teman bisa puas dengan hasilnyaa yaa :)

Read More

Program Visual Basic (Menampilkan Menu Makanan)

Program Visual Basic kali ini menampilkan sebuah menu masakan yg dimasukkan ke dalam sebuah database. inilah screenscapture programnya :

1. 

Gambar diatas merupakan Menu MDI (menu awal) disitu kita bisa memilih menu 1 terdapat : 1. Resep Masakan 2. Jenis Masakan. Menu 2 : Tambahkan Masakan (menambahkan masakan ke dalam database) 

source code : 

Private Sub mjenis_Click()

Form2.Show

End Sub

Private Sub mResep_Click()

Form1.Show

End Sub

Private Sub mtamb_Click()

Form3.Show

End Sub

Private Sub mus_Click()

Form4.Show

End Sub

2. 

Gambar diatas menunjukkan bahwa kita memasukkan data yg tersedia diatas lalu tekan SAVE maka data yg dituliskan diatas akan muncul pada sebuah database yg sudah tersedia. 

source code : 

Private Sub Command1_Click()

Adodc1.Recordset.AddNew

Adodc1.Recordset!jenis_makanan = tjenis.Text

Adodc1.Recordset!nama_masakan = tnama.Text

Adodc1.Recordset!bahan = tbahan.Text

Adodc1.Recordset!cara_memasak = tcara.Text

Adodc1.Recordset.Update

MsgBox " Data Sudah Di simpan ..!!"

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Command3_Click()

Form2.Show

End Sub

Private Sub Form_Load()

Adodc1.RecordSource = "Select * From resep"

Adodc1.Refresh

End Sub

3. 

Gambar diatas menjelaskan bahwa kita meng-input sebuah data lalu data kita akan masuk sebuah data yg sudah disiapkan pada sebuah database. (kita harus memasukkan kata harus sesuai dengan kata yg sudah ada pada database)

source code :

Private Sub bttampil_Click()

Adodc1.RecordSource = "Select * From Resep where jenis_makanan='" & tjenis.Text & "'"

Adodc1.Refresh

While Not Adodc1.Recordset.EOF

fg1.Row = baris

fg1.Col = 0

fg1.Text = baris

fg1.Col = 1

fg1.Text = Adodc1.Recordset!nama_masakan

Adodc1.Recordset.MoveNext

baris = baris + 1

Wend

End Sub

Private Sub Command1_Click()

Form3.Show

End Sub

Private Sub Form_Load()

fg1.Row = 0

fg1.Col = 0

fg1.Text = "No"

fg1.Col = 1

fg1.Text = "Bahan"

fg1.ColWidth(0) = 500

fg1.ColWidth(1) = 2500

End Sub

4. 

Gambar diatas menjelaskan bahwa kita memasukkan sebuah jenis masakkan baru dan lalu di add dan masuk ke database 

source code :

Private Sub CTambah_Click()

Adodc1.Recordset.AddNew

Adodc1.Recordset!jenis_masakan = tjenis.Text

Adodc1.Recordset.Update

MsgBox "Data Sudah Di Simpan!!!"

End Sub

Private Sub Command2_Click()

MDIForm1.Show

End Sub

Private Sub Form_Load()

Adodc1.RecordSource = "select * From resep"

Adodc1.Refresh

End Sub

                                                   Semoga Programnya Memuaskan :) 

Create By : Agung Fajar Riyadi

Read More

Tutorial Visual Basic nilai IPK

ini salah satu tutorial visual basic yg menampilkan program yg menampilkan nilai dan IPK :D
selamat mencoba gan :))......



1. Form 1 (Latihan IPK 1)


Private Sub Command1_Click()
nilai = Val(Text1.Text)
If nilai >= 70 Then
Text2.Text = "lulus"
Else
Text2.Text = "tidak lulus"
End If
End Sub

Private Sub Command2_Click()

Form2.Show

End Sub

satu 

Screenshotnya :

2. Form 2 (Latihan IPK 2)

Private Sub Command1_Click()

sem1 = Val(Text1.Text)

sem2 = Val(Text2.Text)

sem3 = Val(Text3.Text)

sem4 = Val(Text4.Text)

sem5 = Val(Text5.Text)

sem6 = Val(Text6.Text)

sem7 = Val(Text7.Text)

sem8 = Val(Text8.Text)

Text9.Text = (sem1 + sem2 + sem3 + sem4 + sem5 + sem6 + sem7 + sem8) / 8

IPK = Val(Text1.Text)

If IPK >= 3.51 Then

Text10.Text = "CUMLAUDE"

ElseIf 3# <= IPK <= 3.5 Then

Text10.Text = "SANGAT MEMUASKAN"

ElseIf 2.5 <= IPK <= 2.9 Then

Text10.Text = "MEMUASKAN"

ElseIf IPK <= 2.4 Then

Text10.Text = "MENGULANG"

End If

End Sub

Private Sub Command2_Click()

Form1.Show

End Sub

Private Sub Command3_Click()

MDIForm1.Show

End Sub

Screenshotnya : 

3. Form 3 (Login)

Private Sub Command1_Click()

username = (Text1.Text)

password = (Text2.Text)

If username = "Agung Fajar Riyadi" And password = "ti111034" Then

MsgBox ("Log In Succes")

Form1.Show

Else

MsgBox ("Log In Failed")

End If

End Sub

Screenshotnya :

4. Form 4 (About)

Screenshotnya :

5. MDIForm1 (Home) 

Private Sub mabout_Click()

Form4.Show

End Sub

Private Sub mexit_Click()

Unload Me

End Sub

Private Sub mlatihanipk1_Click()

Form1.Show

End Sub

Private Sub mlatihanipk2_Click()

Form2.Show

End Sub

Private Sub mlogin_Click()

Form3.Show

End Sub

Screenshotnya :

Read More