Saturday 21 June 2014

joka hendra: Kumpulan Judul Skripsi Manajemen Informatika

joka hendra: Kumpulan Judul Skripsi Manajemen Informatika: KUMPULAN JUDUL-JUDUL SKRIPSI MANAJEMEN INFORMATIKA   Bagi agan-agan yang lagi pusing banget  nyari judul skripsi yang bagus buat mana...
Posted by at No comments:

Thursday 19 June 2014

Kumpulan Judul Skripsi Manajemen Informatika

KUMPULAN JUDUL-JUDUL SKRIPSI MANAJEMEN INFORMATIKA

 

Bagi agan-agan yang lagi pusing banget  nyari judul skripsi yang bagus buat manajemen informatika di bawah ini merupakan kumpulan judul2 yang bagus untuk di ajukan :
 untuk bahasa pemogramannya bisa pakai yang mana menurut agan lebih mudah...
yuuuuukkkkk lansung copassss... 

  1. sistim pengolahan data absensi pada SMA N 3 kota sungai penuh dengan menggunakan bahasa pemograman java
  2. pengolahan data insentif satpol pp kota sungai penuh dengan menggunakan bahasa pemograman visual basic.6.0
  3. pengolahan data penjualan dan pembelian barang di mini market arni sungai penuh dengan menggunakan bahasa pemograman visual basic.6.0
  4. pengolahan data peminjaman dan pengembalian buku di perpustakaan MTsn Danau kerinci dengan menggunakan bahasa pemograman turbo pascal 7.0
  5. pengolahan data penerimaan dan pengiriman surat pada kantor pos kota sungai penuh dengan menggunakan bahasa pemograman visual basic, 6.0
  6. sistim pengolahan data absensi camat keliling danau dengan menggunakan bahasa pemograman visual basic.6.0
  7. pengolahan data jadwal pelajaran di SMAN 2 sungai penuh dengan menggunakan bahasa pemograman visual basic. 6.0
  8. sistim komputerisasi data tahanan pada rutan sungai penuh dengan menggunakan bahasa pemograman java
  9. pengolahan data piket kaposek kota sungai penuh dengan menggunakan bahasa pemograman visual basic 6.0 

masih banyak lagi judul2 skiripsi yang telah di teliti untuk jurusan manajemen informatika...khusus tempat lokasi penelitian bisa agan pindahkan ke tempat terdekat di daerah agan...
salam foya...... 

 

Posted by at No comments:

Wednesday 27 November 2013

karang taruna "gerakan muda " desa serumpun pauh

              GERAKAN MUDA 

       DESA SERUMPUN PAUH

KABUPATEN KERINCI PROV.JAMBI BR -------------------------------------------------------------------------------- 

                                                  VISI & MISI

“Membentuk jiwa dan semangat kejuangan generasi muda yang berpotensi dan berkepribadian demi terwujudnya pertumbuahan dan perkembanagan kesadaran tanggung jawab social dengan mengedepankan gerakan moral, spiritual dan intelektual menuju generasi muda yang berprestasi”

Posted by at No comments:

Friday 8 November 2013

Vb net



Belajar vb net
Pada praktikum 7A ini akan membuat program dosen. Analisalah class diagram
Berikut


 


Methods
Status : Tetap (dosen tetap) & Tak Tetap (dosen tak tetap)
Tunjangan Fungsional : Jika dosen tetap maka tunjangan fungsioanl = 300000
Jika dosen tak tetap maka tunjangan fungsional = 0
Transfort : Jika dosen tatak tetap maka transfort = 250000
Jika dosen tetap maka transfort = 0
Total Dibayar : Jumlah SKS * Honor Per SKS
PPh : 2% * TotalDibayar
Total Pendapatan : Total Diabyar – PPh



Rancanglah sebuah form seperti pada Gambar

Setting Property










 







































































Listing program
Buat super class dengan nama Dosen dan buat program berikut.

Public Class Dosen ‘Super class
Private mNID As String
Private mNama As String
Private mStatus As String
Private mJumlahSKS As Integer
Private mHonorPerSKS As Long
Public Property NID() As String
Get
Return mNID
End Get
Set(ByVal value As String)
mNID = value
End Set
End Property
Public Property Nama() As String
Get
Return mNama
End Get
Set(ByVal value As String)
mNama = value
End Set
End Property
Public Property Status() As String
Get
Return mStatus
End Get
Set(ByVal value As String)
mStatus = value
End Set
End Property
Public Property JumlahSKS() As Integer
Get
Return mJumlahSKS
End Get
Set(ByVal value As Integer)
mJumlahSKS = value
End Set
End Property
Public Property HonorPerSKS() As Long
Get
Return mHonorPerSKS
End Get
Set(ByVal value As Long)
mHonorPerSKS = value
End Set
End Property
Public Function TotalBayar(ByVal nHonorSKS As Long, ByVal
nJumlahSKS As Integer) As Long
Return nHonorSKS * nJumlahSKS
End Function
Public Function PPH(ByVal nTotalDibayar As Long) As Long
Return nTotalDibayar * 2 / 100 '2%
End Function
End Class


Buat sub class dengan nama DosenTetap, dan buat program berikut.
Public Class DosenTetap ‘Sub Class
Inherits Dosen ‘MengInherits super class dosen
Private mTunjanganFungsional As Long
Public Property TunjanganFungsional() As Long
Get
Return mTunjanganFungsional
End Get
Set(ByVal value As Long)
mTunjanganFungsional = value
End Set
End Property
Public Function TunjanganFungsi(ByVal mStatus As String) As
Long
If Status = "Tetap" Then
Return 300000
Else
Return 0
End If
End Function
Public Function PendapatanBersih(ByVal nTotalDibayar As
Long, ByVal nTunjanganFungsi As Long, ByVal nPPH As Long) As
Long
Return (nTotalDibayar + nTunjanganFungsi) - nPPH
End Function
End Class

Buat sub class dengan nama DosenTakTetap, dan buat progam berikut.
Public Class DosenTakTetap ‘Sub class
Inherits Dosen ‘MengInherits super class dosen
Private mTransfort As Long
Public Property Transfort() As Long
Get
Return mTransfort
End Get
Set(ByVal value As Long)
mTransfort = value
End Set
End Property
Public Function TunjanganTransfort(ByVal mStatus As String)
As Long
If Status = "Tak Tetap" Then
Return 250000
Else
Return 0
End If
End Function
Public Function PendapatanBersih(ByVal nTotalDibayar As
Long, ByVal nTunjanganTransfort As Long, ByVal nPPH As Long) As
Long
Return (nTotalDibayar + nTunjanganTransfort) - nPPH
End Function
End Class

Private Sub cmdHitung_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles cmdHitung.Click
Dim objekDosen As New Dosen 'Membuat objek dosen
Dim ObjekDosenTetap As New DosenTetap 'membuat objek dosen tetap
Dim ObjekDosenTakTetap As New DosenTakTetap 'objek dosen t.tetap
With objekDosen
.Status = cboStatus.Text
If .Status = "Tetap" Then
With ObjekDosenTetap
.NID = txtNID.Text
.Nama = txtNama.Text
.Status = cboStatus.Text
.JumlahSKS = txtJumlahSKS.Text
.HonorPerSKS = txtHonorPerSKS.Text
lblTotalDibayar.Text =
Format(.TotalBayar(.HonorPerSKS, .JumlahSKS), "Rp 0,00")
lblTransfort.Text = 0
lblTunjanganFungsional.Text =
Format(.TunjanganFungsi(.Status), "Rp 0,00")
lblPPh.Text =
Format(.PPH(.TotalBayar(.HonorPerSKS, .JumlahSKS)), "Rp 0,00")
lblTotalPendapatan.Text =
Format(.PendapatanBersih(.TotalBayar(.HonorPerSKS, .JumlahSKS),
.TunjanganFungsi(.Status), .PPH(.TotalBayar(.HonorPerSKS,
.JumlahSKS))), "Rp 0,00")
'Untuk mencari total pendapatan bila tidak
mau panjang seperti ditas
'anda dapat memasukkan nilai bariabel atau
nilai dari label ke masing2x parameter
End With
Else
With ObjekDosenTakTetap
.NID = txtNID.Text
.Nama = txtNama.Text
.Status = cboStatus.Text
.JumlahSKS = txtJumlahSKS.Text
.HonorPerSKS = txtHonorPerSKS.Text
lblTotalDibayar.Text =
Format(.TotalBayar(.HonorPerSKS, .JumlahSKS), "Rp 0,00")
lblTransfort.Text =
Format(.TunjanganTransfort(.Status), "Rp 0,00")
lblTunjanganFungsional.Text = 0
lblPPh.Text =
Format(.PPH(.TotalBayar(.HonorPerSKS, .JumlahSKS)), "Rp 0,00")
lblTotalPendapatan.Text =
Format(.PendapatanBersih(.TotalBayar(.HonorPerSKS, .JumlahSKS),
.TunjanganTransfort(.Status), .PPH(.TotalBayar(.HonorPerSKS,
.JumlahSKS))), "Rp 0,00")
'Untuk mencari total pendapatan bila tidak
mau panjang seperti ditas
'anda dapat memasukkan nilai bariabel atau
nilai dari label ke masing2x parameter
End With
End If
End With
End Sub











Posted by at No comments:
Subscribe to: Posts (Atom)