Friday, January 22, 2016

absen sekolah

Contoh Program Absensi Sederhana Dengan Visual Basic 6.0
Di bawah ini contoh kode-kode dalam membuat program absensi sekolah, jadi bagi para guru professional harapan bangsa Indonesia coba untuk mengerti ee,, ^_^
Daripada lama-lama beta(saya) mulai bahas ew,  :D
pertama kita buat dulu database untuk absensi nya dengan nama Absen.mdb, kemudian isi field-field databasenya seperti ini :

Nama Database :  programabsen.mdb
Nama Tabel       : Absen sekolah

Field
Data Type
Size
NRP
Text
10
Nama
Text
35
Jurusan
Text
50
Matkul
Text
50
Masuk
Byte
Sakit
Byte
Izin
Byte
Alpa
Byte
Total
Byte

Setelah membuat database selesai, lalu buat desain form absen seperti ini :
Componen tambahan pada Toolbox :
Adodc dan DataGrid



 Jika sudah, kita buat module baru, Klik Menu Project > Add Module > Open,,Kemudian akan muncul jendela kode, tuliskan kode perintah berikut :

Public ConN As New ADODB.Connection
Public RsAbsen As New ADODB.Recordset

Sub koneksi()
Set ConN = New ADODB.Connection
Set RsAbsen = New ADODB.Recordset
ConN.Open "Provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\latihan.mdb"
End Sub

Kemudian Save Module yang sudah kita isi dengan kode perintah diatas,,
Setelah itu isikan kode berikut pada Form

Private Sub Form_Activate()
Call koneksi
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\latihan.mdb"
Adodc1.RecordSource = "absen"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Label11.Caption = 0
Label12.Caption = 0
Label13.Caption = 0
Label14.Caption = 0
Label15.Caption = 0
Combo1.AddItem "Matematika"
Combo1.AddItem "Kimia"
Combo1.AddItem "Fisika"
Combo1.AddItem "Biologi"
Combo2.AddItem "Bahasa Indonesia"
Combo2.AddItem "PKn"
Combo3.AddItem "Hadir"
Combo3.AddItem "Tidak Hadir"
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
End Sub

Kemudian buat function cari data, sub tampilkan data dan kosong seperti dibawah ini :

Function CariData()
    Call koneksi
    RsAbsen.Open "Select * From absen where nrp='" & Text1 & "'", ConN
End Function

Private Sub TampilkanData()
Text2 = RsAbsen!nama
Combo1.Text = RsAbsen!jurusan
Combo2.Text = RsAbsen!matpel
Label11.Caption = RsAbsen!masuk
Label12.Caption = RsAbsen!sakit
Label13.Caption = RsAbsen!izin
Label14.Caption = RsAbsen!alpa
Label15.Caption = RsAbsen!total
End Sub

Private Sub kosong()
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Label11.Caption = 0
Label12.Caption = 0
Label13.Caption = 0
Label14.Caption = 0
Label15.Caption = 0
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
End Sub

Untuk pencarian data, masukkan kode perintah berikut pada Text1 dengan procedure Lostfocus :

Private Sub Text1_LostFocus()
On Error Resume Next
Call CariData
        If Not RsAbsen.EOF Then
            TampilkanData
            Text1.Enabled = False
            Text2.Enabled = False
            Combo1.Enabled = False
            Combo2.Enabled = False
            MsgBox "NRP Sudah Ada"
            Command1.Enabled = False
        End If
End Sub

Pada Combo3 atau combo untuk kehadiran, isikan kode berikut untk proses perhitungan absen masuk :

Private Sub Combo3_Click()
If Combo3.Text = "Hadir" Then
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Label11.Caption = Val(Label11.Caption) + 1
Else
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
End If
End Sub

Kemudain Pada Option 1, 2 dan 3, isikan kode perintah untuk menghitung absen alasan tidak hadir dan total tidak hadir :

Private Sub Option1_Click()
If Option1.Value = True Then
Label12.Caption = Val(Label12.Caption) + 1
Else
Label12.Caption = Val(Label12.Caption) + 0
End If
Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
End Sub

Private Sub Option2_Click()
If Option2.Value = True Then
Label13.Caption = Val(Label13.Caption) + 1
Else
Label13.Caption = Val(Label13.Caption) + 0
End If
Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
End Sub

Private Sub Option3_Click()
If Option3.Value = True Then
Label14.Caption = Val(Label14.Caption) + 1
Else
Label14.Caption = Val(Label14.Caption) + 0
End If
Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
End Sub

Terakhir isikan kode perintah untuk command simpan, edit, absen, hapus, isi data dan selesai :

Private Sub Command1_Click()   'Kode Perintah Untuk tombol Simpan
Dim SQLSimpan As String
            SQLSimpan = "Insert Into absen (nrp,nama,jurusan,matpel) values ('" & Text1 & "','" & Text2 & "','" & Combo1.Text & "','" & Combo2.Text & "')"
            ConN.Execute SQLSimpan
            Form_Activate
            Call kosong
End Sub

Private Sub Command2_Click()     ' Kode Perintah Untuk tombol Edit
If Command2.Caption = "Edit Data" Then
Text1.Enabled = False
            Text2.Enabled = True
            Combo1.Enabled = True
            Combo2.Enabled = True
            Combo3.Enabled = True
Command2.Caption = "Edit"
Else

Dim SQLAbsen As String
            SQLAbsen = "Update absen Set nama='" & Text2.Text & "'," & " matpel='" & Combo2.Text & "'," & " jurusan='" & Combo1.Text & "' where nrp='" & Text1 & "'"
            ConN.Execute SQLAbsen
            Form_Activate
            Call kosong
            Command2.Caption = "Edit Data"
            End If
End Sub

Private Sub Command3_Click()    'Kode Perintah Untuk Tombol Absen
Dim SQLAbsen As String
            SQLAbsen = "Update absen Set masuk= '" & Label11.Caption & "'," & " sakit='" & Label12.Caption & "'," & " izin='" & Label13.Caption & "'," & " alpa='" & Label14.Caption & "'," & " total='" & Label15.Caption & "' where nrp='" & Text1 & "'"
            ConN.Execute SQLAbsen
            Form_Activate
            Call kosong
End Sub

Private Sub Command4_Click()    'KOde Perintah Untuk Tombol Hapus
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
DataGrid1.Refresh
End Sub

Private Sub Command5_Click()    'Kode Perintah Untuk Tombol Selesai
pesan = MsgBox("Anda Yakin Ingin Keluar Dari Program ini?", vbQuestion + vbYesNo, "Keluar")
If pesan = vbYes Then
Unload Me
Else
End If
End Sub

Private Sub Command6_Click()   'Kode Perintah Untuk Tombol Isi Data
Text1.Enabled = True
            Text2.Enabled = True
            Combo1.Enabled = True
            Combo2.Enabled = True
            Combo3.Enabled = True
            Text1.SetFocus
End Sub




Jika semua kode perintah sudah di isikan,,coba jalankan program absensi yang sudah kita buat,,
Selamat Mencoba ew brow  ^_^


Posted by at No comments:

Wednesday, November 18, 2015

SUMBER AIR SELALU ADA DI PULAU TIMOR,, JADI TIDAK BENAR BAHWA DI TIMOR TIDAK ADA AIR.
YANG BENAR ITU ADALAH KURANGNYA PERANGKAT ITU MENGALIRI SUMBER AIR DARI GUNUNG MUTIS
PEMERINTAH HARUS LEBIH  MEMPERHATIKAN LAGI . . .

nonton disini,,https://www.youtube.com/watch?v=Nzz3lkYHT80
Posted by at No comments:

Friday, April 24, 2015

Menghitung Volume dan Luas Permukaan Kubus

Berikut adalah Hasil dari Pembelajaran Visual Basic yang berhasil saya pelajari,,,

ini merupakan salah satu media pembelajaran matematika yang dibuat dari program Visual Basic 6.0. Program ini Saya Beri Nama " BELAJAR MENGHITUNG VOLUME KUBUS DAN LUAS PERMUKAAN KUBUS".
NAH,,,TINGGAL KLIK KE LINK DIBAWAH INI,,

Tinggal di download dan di jalankan ajaa,,
gratisss ,,,,,,,,,,,,,,,,,,

catatan : setelah di download dan jika mau dijalanin programnya maka akan keluar kotak Run,, di Run aja maka program akan muncul dan siap di jalankan,,,

Posted by at No comments:

Thursday, April 16, 2015

Cara Membuat Program Sederhana di Visual Basic 6.0

TUGAS KOMPUTER II
 

RIKI STEINLI FAOT
12-1668


  
PROGRAM STUDI PENDIDIKAN MATEMATIKA
FAKULTAS KEGURUAN DAN ILMU PENDIDIKAN
UNIVERSITAS MAHASARASWATI DENPASAR
2015





PROGRAM PENGECEKAN NILAI DAN KELULUSAN SISWA-SISWI DENPASAR

Berikut adalah langkah-langkah pembuatan program pengecekan nilai dan kelulusan siswa-siswi denpasar yang dilengkapi dengan screenshootnya :

LANGKAH 1
Buka aplikasi visual basic yang ada di laptop anda (saya memakai visual basic 6). lalu pilih standar exe dan open, seperti gambar berikut



Setelah itu akan muncul seperti gambar di bawah, lalu atur maximize dan minimize jendela form dan jendela kode agar memudahkan dalam pengeditan





 LANGKAH 2
Aktifkan jendela object dan buatlah jendela objectnya sehingga menjadi sama seperti gambar di bawah ini, dengan menggunakan tools-tools yang ada pada bagian sebelah kanan, tools yang digunakan adalah label, textbox, command button

Aturlah form object sedemikian rupa agar seperti gambar berikut

 

Berikut adalah pengaturan property untuk object-object yang digunakan
No
Form/object
Property
Setting
1
Form
Name
Form 1

Caption
Program pengecekan nilai

Backcolor
Biru
2
Label 1
Name
Label 1

Caption
Nilai UTS

Backcolor
Abu-abu
3
Label 2
Name
Label 2

Caption
Nilai UAS

Backcolor
Pallete Abu-abu
4
Label 3
Name
Label 3

Caption
Rata-rata

Backcolor
Pallete hijau
5
Label 4
Name
Label 4

Caption
Keterangan

Backcolor
Pallete hijau
6
Label 5
Name
Label 5

Caption
Predikat

Backcolor
Pallete hijau
7
Text 1
Name
Txt_1

Caption
“Dikosongkan”

Backcolor
Pallete abu-abu
8
Text 2
Name
Txt_2

Caption
“Dikosongkan”

Backcolor
Pallete abu-abu
9
Text 3
Name
Txt_3

Caption
“Dikosongkan”

Backcolor
Pallete hijau
10
Text 4
Name
Txt_4

Caption
“Dikosongkan”

Backcolor
Pallete hijau
11
Text 5
Name
Txt_1234

Caption
“Dikosongkan”

Backcolor
Pallete hijau
12
Command button
Name
Command1

Caption
Proses

LANGKAH 3

Double clik di command button atau tombol proses yang ada pada form sehingga akan otomatis jendela akan berpindah ke jendela kode. Setelah masuk ke jendela kode, maka ketiklah perintah seperti di bawah ini :

Private Sub Command1_Click()
Dim nilaisatu, nilaidua, ratarata As Integer
nilaisatu = Val(txt_1.Text)
nilaidua = Val(txt_2.Text)
ratarata = Val(nilaisatu + nilaidua) / 2
txt_3.Text = ratarata

If ratarata >= 85 Then
txt_4.Text = "LULUS"
txt_1234.Text = "SANGAT MEMUASKAN"
ElseIf ratarata >= 65 Then
txt_4.Text = "LULUS"
txt_1234.Text = "MEMUASKAN"
Else
txt_4.Text = "TIDAK LULUS"
txt_1234.Text = "GAGAL"
End If
End Sub

  


  
Demikian langkah-langkah pembuatan program pengecekan nilai dan kelulusan siswa-siswi SMP Negeri 4 Denpasar.


Semoga Bermanfaat,,,,, 


Posted by at No comments:
Location: Denpasar City, Denpasar City, Bali, Indonesia
Subscribe to: Posts (Atom)