pak ini tugas latihan kasus gaji karyawan
dengan meng klik link kasus
READ MORE -
dengan meng klik link kasus
Selasa, 24 Januari 2012
kasus (friska susyanti)
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
jbtn.Items.Add("Mandor")
jbtn.Items.Add("Kepala Bagian")
jbtn.Items.Add("Staff")
status.Items.Add("Menikah")
status.Items.Add("Lajang")
Call addjumlah()
Call buattabel()
End Sub
Sub addjumlah()
Dim x As Integer
For x = 1 To 3
jml_anak.Items.Add(x)
Next
End Sub
Sub buattabel()
lv.Columns.Add("No karyawan", 80, HorizontalAlignment.Center)
lv.Columns.Add("Nama karyawan", 90, HorizontalAlignment.Center)
lv.Columns.Add("Jabatan", 100, HorizontalAlignment.Center)
lv.Columns.Add("Gaji Pokok", 90, HorizontalAlignment.Center)
lv.Columns.Add("Status", 80, HorizontalAlignment.Center)
lv.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Center)
lv.Columns.Add("Tunjangan Istri", 100, HorizontalAlignment.Center)
lv.Columns.Add("Tunjangan Anak", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jam Lembur", 90, HorizontalAlignment.Center)
lv.Columns.Add("Upah Lembur", 90, HorizontalAlignment.Center)
lv.Columns.Add("Gaji Lembur", 90, HorizontalAlignment.Center)
lv.Columns.Add("Pajak", 90, HorizontalAlignment.Center)
lv.Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)
lv.FullRowSelect = True
lv.GridLines = True
lv.View = View.Details
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = no.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(jbtn.Text)
lst.SubItems.Add(gaji_pokok.Text)
lst.SubItems.Add(status.Text)
lst.SubItems.Add(jml_anak.Text)
lst.SubItems.Add(tunjangan_istri.Text)
lst.SubItems.Add(tunjangan_anak.Text)
lst.SubItems.Add(jam_lembur.Text)
lst.SubItems.Add(upah_lembur.Text)
lst.SubItems.Add(gaji_lembur.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(total_gaji.Text)
lv.Items.Add(lst)
End Sub
Private Sub btnkeluar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub btnbersih_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnbersih.Click
no.Text = ""
nama.Text = ""
jbtn.Text = ""
gaji_pokok.Text = ""
status.Text = ""
jml_anak.Text = ""
tunjangan_istri.Text = ""
tunjangan_anak.Text = ""
jam_lembur.Text = ""
upah_lembur.Text = ""
gaji_lembur.Text = ""
pajak.Text = ""
total_gaji.Text = ""
End Sub
Private Sub btnhapussemua_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
lv.Items.Clear()
End Sub
Private Sub btnhapus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapus.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub btnsimpan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
End Sub
Private Sub jbtn_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles jbtn.SelectedIndexChanged
If jbtn.Text = "Mandor" Then
gaji_pokok.Text = (1750000)
upah_lembur.Text = (7500)
ElseIf jbtn.Text = "Kepala Bagian" Then
gaji_pokok.Text = (2500000)
upah_lembur.Text = (10000)
ElseIf jbtn.Text = "Staff" Then
gaji_pokok.Text = (1250000)
upah_lembur.Text = (5000)
End If
pajak.Text = Format(0.015 * gaji_pokok.Text)
End Sub
Private Sub status_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
If status.Text = "Menikah" Then
tunjangan_istri.Text = Format(0.09 * gaji_pokok.Text)
Else
tunjangan_istri.Text = 0
End If
End Sub
Private Sub jml_anak_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles jml_anak.SelectedIndexChanged
If jml_anak.Text = 1 Then
tunjangan_anak.Text = Format(0.03 * gaji_pokok.Text)
ElseIf jml_anak.Text = 2 Then
tunjangan_anak.Text = Format(0.07 * gaji_pokok.Text)
Else
tunjangan_anak.Text = Format(0.07 * gaji_pokok.Text)
End If
End Sub
Private Sub btnproses_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnproses.Click
total_gaji.Text = Val(gaji_pokok.Text) + Val(tunjangan_istri.Text) + Val(tunjangan_anak.Text) + Val(gaji_lembur.Text) - Val(pajak.Text)
End Sub
Private Sub jam_lembur_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jam_lembur.TextChanged
gaji_lembur.Text = Val(jam_lembur.Text) * Val(upah_lembur.Text)
End Sub
End Class
Senin, 23 Januari 2012
halaman 33(friska susyanti)
Code Program:
Public Class Form2
Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
lv.Items.Clear()
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
Me.Close()
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kb.Items.Add("TS001")
kb.Items.Add("TS002")
kb.Items.Add("VG001")
kb.Items.Add("VG002")
Call buattabel()
End Sub
Sub buattabel()
lv.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
lv.Columns.Add("Kode Pembelian", 100, HorizontalAlignment.Center)
lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
lv.Columns.Add("Merk", 90, HorizontalAlignment.Center)
lv.Columns.Add("Harga", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)
lv.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
lv.FullRowSelect = True
lv.GridLines = True
lv.View = View.Details
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = no.Text
lst.SubItems.Add(kb.Text)
lst.SubItems.Add(nb.Text)
lst.SubItems.Add(merk.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(jml.Text)
lst.SubItems.Add(tharga.Text)
lv.Items.Add(lst)
End Sub
Private Sub kb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb.SelectedIndexChanged
Select Case kb.Text
Case "TS001"
Microsoft.VisualBasic.Right(kb.Text, 3)
nb.Text = "Flashdisk 4GB"
Microsoft.VisualBasic.Left(kb.Text, 2)
merk.Text = "Toshiba"
Case "TS002"
Microsoft.VisualBasic.Right(kb.Text, 3)
nb.Text = "Flashdisk 2GB"
Microsoft.VisualBasic.Left(kb.Text, 2)
merk.Text = "Toshiba"
Case "VG001"
Microsoft.VisualBasic.Right(kb.Text, 3)
nb.Text = "Flashdisk 4GB"
Microsoft.VisualBasic.Left(kb.Text, 2)
merk.Text = "V-Gen"
Case "VG002"
Microsoft.VisualBasic.Right(kb.Text, 3)
nb.Text = "Flashdisk 2GB"
Microsoft.VisualBasic.Left(kb.Text, 2)
merk.Text = "V-Gen"
End Select
If kb.Text = "TS001" Then
harga.Text = 105000
ElseIf kb.Text = "TS002" Then
harga.Text = 750000
ElseIf kb.Text = "VG001" Then
harga.Text = 90000
ElseIf kb.Text = "VG002" Then
harga.Text = 65000
End If
End Sub
Private Sub Btnsimpan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
isitabel()
End Sub
Private Sub btnbersih_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnbersih.Click
no.Text = ""
kb.Text = ""
nb.Text = ""
merk.Text = ""
harga.Text = ""
jml.Text = ""
tharga.Text = ""
End Sub
Private Sub btnhapusdata_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub jml_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jml.KeyPress
If e.KeyChar = Chr(13) Then
End If
tharga.Text = Val(harga.Text) * Val(jml.Text)
End Sub
End Class
READ MORE - halaman 33(friska susyanti)
Public Class Form2
Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
lv.Items.Clear()
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
Me.Close()
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kb.Items.Add("TS001")
kb.Items.Add("TS002")
kb.Items.Add("VG001")
kb.Items.Add("VG002")
Call buattabel()
End Sub
Sub buattabel()
lv.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
lv.Columns.Add("Kode Pembelian", 100, HorizontalAlignment.Center)
lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
lv.Columns.Add("Merk", 90, HorizontalAlignment.Center)
lv.Columns.Add("Harga", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)
lv.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
lv.FullRowSelect = True
lv.GridLines = True
lv.View = View.Details
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = no.Text
lst.SubItems.Add(kb.Text)
lst.SubItems.Add(nb.Text)
lst.SubItems.Add(merk.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(jml.Text)
lst.SubItems.Add(tharga.Text)
lv.Items.Add(lst)
End Sub
Private Sub kb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb.SelectedIndexChanged
Select Case kb.Text
Case "TS001"
Microsoft.VisualBasic.Right(kb.Text, 3)
nb.Text = "Flashdisk 4GB"
Microsoft.VisualBasic.Left(kb.Text, 2)
merk.Text = "Toshiba"
Case "TS002"
Microsoft.VisualBasic.Right(kb.Text, 3)
nb.Text = "Flashdisk 2GB"
Microsoft.VisualBasic.Left(kb.Text, 2)
merk.Text = "Toshiba"
Case "VG001"
Microsoft.VisualBasic.Right(kb.Text, 3)
nb.Text = "Flashdisk 4GB"
Microsoft.VisualBasic.Left(kb.Text, 2)
merk.Text = "V-Gen"
Case "VG002"
Microsoft.VisualBasic.Right(kb.Text, 3)
nb.Text = "Flashdisk 2GB"
Microsoft.VisualBasic.Left(kb.Text, 2)
merk.Text = "V-Gen"
End Select
If kb.Text = "TS001" Then
harga.Text = 105000
ElseIf kb.Text = "TS002" Then
harga.Text = 750000
ElseIf kb.Text = "VG001" Then
harga.Text = 90000
ElseIf kb.Text = "VG002" Then
harga.Text = 65000
End If
End Sub
Private Sub Btnsimpan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
isitabel()
End Sub
Private Sub btnbersih_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnbersih.Click
no.Text = ""
kb.Text = ""
nb.Text = ""
merk.Text = ""
harga.Text = ""
jml.Text = ""
tharga.Text = ""
End Sub
Private Sub btnhapusdata_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub jml_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jml.KeyPress
If e.KeyChar = Chr(13) Then
End If
tharga.Text = Val(harga.Text) * Val(jml.Text)
End Sub
End Class
halaman 32 (friska susyanti)
Code Programm:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call buattabel()
End Sub
Private Sub btnbersih_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnbersih.Click
npm.Text = ""
nama.Text = ""
jrsn.Text = ""
jjg.Text = ""
tm.Text = ""
na.Text = ""
nh.Text = ""
End Sub
Sub buattabel()
lv.Columns.Add("NPM", 90, HorizontalAlignment.Center)
lv.Columns.Add("Nama", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jurusan", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jenjang", 90, HorizontalAlignment.Center)
lv.Columns.Add("Tahun Masuk", 100, HorizontalAlignment.Center)
lv.Columns.Add("Nilai angka", 80, HorizontalAlignment.Center)
lv.Columns.Add("Nilai Huruf", 100, HorizontalAlignment.Center)
lv.FullRowSelect = True
lv.GridLines = True
lv.View = View.Details
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = npm.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(jrsn.Text)
lst.SubItems.Add(jjg.Text)
lst.SubItems.Add(tm.Text)
lst.SubItems.Add(na.Text)
lst.SubItems.Add(nh.Text)
lv.Items.Add(lst)
End Sub
Private Sub btnhapus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapus.Click
lv.Clear()
npm.Text = ""
nama.Text = ""
jrsn.Text = ""
jjg.Text = ""
tm.Text = ""
na.Text = ""
nh.Text = ""
End Sub
Private Sub btnsimpan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
End Sub
Private Sub btnhapusdata_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub btnkeluar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub na_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles na.Click
End Sub
Private Sub na_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles na.KeyPress
If e.KeyChar = Chr(13) Then
End If
Select Case na.Text
Case Is >= 80
nh.Text = "A"
Case 70 To 79
nh.Text = "B"
Case 60 To 69
nh.Text = "C"
Case 50 To 59
nh.Text = "D"
Case Is <= 49
nh.Text = "E"
End Select
End Sub
Private Sub npm_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles npm.KeyPress
Dim x As String
tm.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2)
x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)
If x = "1" Then
jjg.Text = "Diploma 1"
ElseIf x = "3" Then
jjg.Text = "Diploma 3"
ElseIf x = "4" Then
jjg.Text = "Strata 1"
End If
x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)
If x = "01" Then
jrsn.Text = "Manajemen Informatika"
ElseIf x = "02" Then
jrsn.Text = "Sistem Informasi"
ElseIf x = "03" Then
jrsn.Text = "Teknik Komputer"
ElseIf x = "04" Then
jrsn.Text = "Akuntansi"
End If
End Sub
End Class
READ MORE - halaman 32 (friska susyanti)
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call buattabel()
End Sub
Private Sub btnbersih_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnbersih.Click
npm.Text = ""
nama.Text = ""
jrsn.Text = ""
jjg.Text = ""
tm.Text = ""
na.Text = ""
nh.Text = ""
End Sub
Sub buattabel()
lv.Columns.Add("NPM", 90, HorizontalAlignment.Center)
lv.Columns.Add("Nama", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jurusan", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jenjang", 90, HorizontalAlignment.Center)
lv.Columns.Add("Tahun Masuk", 100, HorizontalAlignment.Center)
lv.Columns.Add("Nilai angka", 80, HorizontalAlignment.Center)
lv.Columns.Add("Nilai Huruf", 100, HorizontalAlignment.Center)
lv.FullRowSelect = True
lv.GridLines = True
lv.View = View.Details
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = npm.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(jrsn.Text)
lst.SubItems.Add(jjg.Text)
lst.SubItems.Add(tm.Text)
lst.SubItems.Add(na.Text)
lst.SubItems.Add(nh.Text)
lv.Items.Add(lst)
End Sub
Private Sub btnhapus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapus.Click
lv.Clear()
npm.Text = ""
nama.Text = ""
jrsn.Text = ""
jjg.Text = ""
tm.Text = ""
na.Text = ""
nh.Text = ""
End Sub
Private Sub btnsimpan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
End Sub
Private Sub btnhapusdata_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub btnkeluar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub na_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles na.Click
End Sub
Private Sub na_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles na.KeyPress
If e.KeyChar = Chr(13) Then
End If
Select Case na.Text
Case Is >= 80
nh.Text = "A"
Case 70 To 79
nh.Text = "B"
Case 60 To 69
nh.Text = "C"
Case 50 To 59
nh.Text = "D"
Case Is <= 49
nh.Text = "E"
End Select
End Sub
Private Sub npm_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles npm.KeyPress
Dim x As String
tm.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2)
x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)
If x = "1" Then
jjg.Text = "Diploma 1"
ElseIf x = "3" Then
jjg.Text = "Diploma 3"
ElseIf x = "4" Then
jjg.Text = "Strata 1"
End If
x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)
If x = "01" Then
jrsn.Text = "Manajemen Informatika"
ElseIf x = "02" Then
jrsn.Text = "Sistem Informasi"
ElseIf x = "03" Then
jrsn.Text = "Teknik Komputer"
ElseIf x = "04" Then
jrsn.Text = "Akuntansi"
End If
End Sub
End Class
Senin, 16 Januari 2012
PENGENALAN VISUAL BASIC .NET
Visual Studio .NET
Microsoft Visual Studio .NET merupakan kumpulan lengkap tools
pengembangan untuk membangun aplikasi Web ASP.NET, XML Web
Services, aplikasi dekstop, dan aplikasi mobile. Di dalam Visual Studio
inilah bahasa-bahasa pemrograman .NET—seperti Visual Basic, Visual
C++, Visual C# (CSharp), dan Visual J# (JSharp)—semuanya
menggunakan lingkungan pengembangan terintegrasi atau IDE yang sama
sehingga memungkinkan untuk saling berbagi tools dan fasilitas.
o Visual Basic .NET
Visual Basic .NET (atau VB.NET) merupakan salah satu bahasa
pemrograman yang bisa digunakan untuk membangun aplikasi-aplikasi
.NET di platform Microsoft .NET. Tidak seperti generasi sebelumnya—
Visual Basic versi 6.0 ke bawah—yang lebih difokuskan untuk
pengembangan aplikasi desktop, Visual Basic .NET memungkinkan para
pengembang membangun bermacam aplikasi, baik desktop maupun
aplikasi web.
Seiring dengan perkembangan aplikasi perangkat lunak yang semakin
kompleks, saat ini Visual Basic .NET memasuki versi kelima (Visual
Basic 2008). Meskipun demikian—karena beberapa alasan—dalam
praktikum ini menggunakan Visual Basic .NET 2005 (atau VB.NET 2005
atau VB 2005 atau VB.NET 8)
o IDE Visual Basic
IDE (Integrated Development Environment), atau juga disebut sebagai
Integrated Design/Debugging Environment, adalah perangkat lunak
komputer yang berfungsi untuk membantu pemrogram dalam
mengembangkan perangkat lunak. Singkatnya, IDE merupakan suatu
lingkungan pengembangan aplikasi yang terintegrasi; lengkap dengan
beragam tools atau utilitas pendukung.
READ MORE - PENGENALAN VISUAL BASIC .NET
Microsoft Visual Studio .NET merupakan kumpulan lengkap tools
pengembangan untuk membangun aplikasi Web ASP.NET, XML Web
Services, aplikasi dekstop, dan aplikasi mobile. Di dalam Visual Studio
inilah bahasa-bahasa pemrograman .NET—seperti Visual Basic, Visual
C++, Visual C# (CSharp), dan Visual J# (JSharp)—semuanya
menggunakan lingkungan pengembangan terintegrasi atau IDE yang sama
sehingga memungkinkan untuk saling berbagi tools dan fasilitas.
o Visual Basic .NET
Visual Basic .NET (atau VB.NET) merupakan salah satu bahasa
pemrograman yang bisa digunakan untuk membangun aplikasi-aplikasi
.NET di platform Microsoft .NET. Tidak seperti generasi sebelumnya—
Visual Basic versi 6.0 ke bawah—yang lebih difokuskan untuk
pengembangan aplikasi desktop, Visual Basic .NET memungkinkan para
pengembang membangun bermacam aplikasi, baik desktop maupun
aplikasi web.
Seiring dengan perkembangan aplikasi perangkat lunak yang semakin
kompleks, saat ini Visual Basic .NET memasuki versi kelima (Visual
Basic 2008). Meskipun demikian—karena beberapa alasan—dalam
praktikum ini menggunakan Visual Basic .NET 2005 (atau VB.NET 2005
atau VB 2005 atau VB.NET 8)
o IDE Visual Basic
IDE (Integrated Development Environment), atau juga disebut sebagai
Integrated Design/Debugging Environment, adalah perangkat lunak
komputer yang berfungsi untuk membantu pemrogram dalam
mengembangkan perangkat lunak. Singkatnya, IDE merupakan suatu
lingkungan pengembangan aplikasi yang terintegrasi; lengkap dengan
beragam tools atau utilitas pendukung.
Kelebihan PHP Dari Bahasa Pemrograman Lain
Beberapa kelebihan PHP dari bahasa pemrograman web, antara lain:
1. 'Bahasa pemrograman PHP adalah sebuah bahasa script yang tidak melakukan sebuah kompilasi dalam penggunaanya.'
2. 'Web Server yang mendukung PHP dapat ditemukan dimana - mana dari mulai apache, IIS, Lighttpd, hingga Xitami dengan konfigurasi yang relatif mudah.'
3. 'Dalam sisi pengembangan lebih mudah, karena banyaknya milis - milis dan developer yang siap membantu dalam pengembangan.'
4. 'Dalam sisi pemahamanan, PHP adalah bahasa scripting yang paling mudah karena memiliki referensi yang banyak.'
5. 'PHP adalah bahasa open source yang dapat digunakan di berbagai mesin (Linux, Unix, Macintosh, Windows) dan dapat dijalankan secara runtime melalui console serta juga dapat menjalankan perintah-perintah system.'
READ MORE - Kelebihan PHP Dari Bahasa Pemrograman Lain
1. 'Bahasa pemrograman PHP adalah sebuah bahasa script yang tidak melakukan sebuah kompilasi dalam penggunaanya.'
2. 'Web Server yang mendukung PHP dapat ditemukan dimana - mana dari mulai apache, IIS, Lighttpd, hingga Xitami dengan konfigurasi yang relatif mudah.'
3. 'Dalam sisi pengembangan lebih mudah, karena banyaknya milis - milis dan developer yang siap membantu dalam pengembangan.'
4. 'Dalam sisi pemahamanan, PHP adalah bahasa scripting yang paling mudah karena memiliki referensi yang banyak.'
5. 'PHP adalah bahasa open source yang dapat digunakan di berbagai mesin (Linux, Unix, Macintosh, Windows) dan dapat dijalankan secara runtime melalui console serta juga dapat menjalankan perintah-perintah system.'
Sistem manajemen basis data relasional
MySQL adalah sebuah implementasi dari sistem manajemen basisdata relasional (RDBMS) yang didistribusikan secara gratis dibawah lisensi GPL (General Public License). Setiap pengguna dapat secara bebas menggunakan MySQL, namun dengan batasan perangkat lunak tersebut tidak boleh dijadikan produk turunan yang bersifat komersial. MySQL sebenarnya merupakan turunan salah satu konsep utama dalam basisdata yang telah ada sebelumnya; SQL (Structured Query Language). SQL adalah sebuah konsep pengoperasian basisdata, terutama untuk pemilihan atau seleksi dan pemasukan data, yang memungkinkan pengoperasian data dikerjakan dengan mudah secara otomatis.
Kehandalan suatu sistem basisdata (DBMS) dapat diketahui dari cara kerja pengoptimasi-nya dalam melakukan proses perintah-perintah SQL yang dibuat oleh pengguna maupun program-program aplikasi yang memanfaatkannya. Sebagai peladen basis data, MySQL mendukung operasi basisdata transaksional maupun operasi basisdata non-transaksional. Pada modus operasi non-transaksional, MySQL dapat dikatakan unggul dalam hal unjuk kerja dibandingkan perangkat lunak peladen basisdata kompetitor lainnya. Namun demikian pada modus non-transaksional tidak ada jaminan atas reliabilitas terhadap data yang tersimpan, karenanya modus non-transaksional hanya cocok untuk jenis aplikasi yang tidak membutuhkan reliabilitas data seperti aplikasi blogging berbasis web (wordpress), CMS, dan sejenisnya. Untuk kebutuhan sistem yang ditujukan untuk bisnis sangat disarankan untuk menggunakan modus basisdata transaksional, hanya saja sebagai konsekuensinya unjuk kerja MySQL pada modus transaksional tidak secepat unjuk kerja pada modus non-transaksional.
READ MORE - Sistem manajemen basis data relasional
Kehandalan suatu sistem basisdata (DBMS) dapat diketahui dari cara kerja pengoptimasi-nya dalam melakukan proses perintah-perintah SQL yang dibuat oleh pengguna maupun program-program aplikasi yang memanfaatkannya. Sebagai peladen basis data, MySQL mendukung operasi basisdata transaksional maupun operasi basisdata non-transaksional. Pada modus operasi non-transaksional, MySQL dapat dikatakan unggul dalam hal unjuk kerja dibandingkan perangkat lunak peladen basisdata kompetitor lainnya. Namun demikian pada modus non-transaksional tidak ada jaminan atas reliabilitas terhadap data yang tersimpan, karenanya modus non-transaksional hanya cocok untuk jenis aplikasi yang tidak membutuhkan reliabilitas data seperti aplikasi blogging berbasis web (wordpress), CMS, dan sejenisnya. Untuk kebutuhan sistem yang ditujukan untuk bisnis sangat disarankan untuk menggunakan modus basisdata transaksional, hanya saja sebagai konsekuensinya unjuk kerja MySQL pada modus transaksional tidak secepat unjuk kerja pada modus non-transaksional.
Keistimewaan MySQL
MySQL memiliki beberapa keistimewaan, antara lain :
1. Portabilitas. MySQL dapat berjalan stabil pada berbagai sistem operasi seperti Windows, Linux, FreeBSD, Mac Os X Server, Solaris, Amiga, dan masih banyak lagi.
2. Perangkat lunak sumber terbuka. MySQL didistribusikan sebagai perangkat lunak sumber terbuka, dibawah lisensi GPL sehingga dapat digunakan secara gratis.
3. Multi-user. MySQL dapat digunakan oleh beberapa pengguna dalam waktu yang bersamaan tanpa mengalami masalah atau konflik.
4. 'Performance tuning', MySQL memiliki kecepatan yang menakjubkan dalam menangani query sederhana, dengan kata lain dapat memproses lebih banyak SQL per satuan waktu.
5. Ragam tipe data. MySQL memiliki ragam tipe data yang sangat kaya, seperti signed / unsigned integer, float, double, char, text, date, timestamp, dan lain-lain.
6. Perintah dan Fungsi. MySQL memiliki operator dan fungsi secara penuh yang mendukung perintah Select dan Where dalam perintah (query).
7. Keamanan. MySQL memiliki beberapa lapisan keamanan seperti level subnetmask, nama host, dan izin akses user dengan sistem perizinan yang mendetail serta sandi terenkripsi.
8. Skalabilitas dan Pembatasan. MySQL mampu menangani basis data dalam skala besar, dengan jumlah rekaman (records) lebih dari 50 juta dan 60 ribu tabel serta 5 milyar baris. Selain itu batas indeks yang dapat ditampung mencapai 32 indeks pada tiap tabelnya.
9. Konektivitas. MySQL dapat melakukan koneksi dengan klien menggunakan protokol TCP/IP, Unix soket (UNIX), atau Named Pipes (NT).
10. Lokalisasi. MySQL dapat mendeteksi pesan kesalahan pada klien dengan menggunakan lebih dari dua puluh bahasa. Meski pun demikian, bahasa Indonesia belum termasuk di dalamnya.
11. Antar Muka. MySQL memiliki antar muka (interface) terhadap berbagai aplikasi dan bahasa pemrograman dengan menggunakan fungsi API (Application Programming Interface).
12. Klien dan Peralatan. MySQL dilengkapi dengan berbagai peralatan (tool)yang dapat digunakan untuk administrasi basis data, dan pada setiap peralatan yang ada disertakan petunjuk online.
13. Struktur tabel. MySQL memiliki struktur tabel yang lebih fleksibel dalam menangani ALTER TABLE, dibandingkan basis data lainnya semacam PostgreSQL ataupun Oracle.
READ MORE - Keistimewaan MySQL
1. Portabilitas. MySQL dapat berjalan stabil pada berbagai sistem operasi seperti Windows, Linux, FreeBSD, Mac Os X Server, Solaris, Amiga, dan masih banyak lagi.
2. Perangkat lunak sumber terbuka. MySQL didistribusikan sebagai perangkat lunak sumber terbuka, dibawah lisensi GPL sehingga dapat digunakan secara gratis.
3. Multi-user. MySQL dapat digunakan oleh beberapa pengguna dalam waktu yang bersamaan tanpa mengalami masalah atau konflik.
4. 'Performance tuning', MySQL memiliki kecepatan yang menakjubkan dalam menangani query sederhana, dengan kata lain dapat memproses lebih banyak SQL per satuan waktu.
5. Ragam tipe data. MySQL memiliki ragam tipe data yang sangat kaya, seperti signed / unsigned integer, float, double, char, text, date, timestamp, dan lain-lain.
6. Perintah dan Fungsi. MySQL memiliki operator dan fungsi secara penuh yang mendukung perintah Select dan Where dalam perintah (query).
7. Keamanan. MySQL memiliki beberapa lapisan keamanan seperti level subnetmask, nama host, dan izin akses user dengan sistem perizinan yang mendetail serta sandi terenkripsi.
8. Skalabilitas dan Pembatasan. MySQL mampu menangani basis data dalam skala besar, dengan jumlah rekaman (records) lebih dari 50 juta dan 60 ribu tabel serta 5 milyar baris. Selain itu batas indeks yang dapat ditampung mencapai 32 indeks pada tiap tabelnya.
9. Konektivitas. MySQL dapat melakukan koneksi dengan klien menggunakan protokol TCP/IP, Unix soket (UNIX), atau Named Pipes (NT).
10. Lokalisasi. MySQL dapat mendeteksi pesan kesalahan pada klien dengan menggunakan lebih dari dua puluh bahasa. Meski pun demikian, bahasa Indonesia belum termasuk di dalamnya.
11. Antar Muka. MySQL memiliki antar muka (interface) terhadap berbagai aplikasi dan bahasa pemrograman dengan menggunakan fungsi API (Application Programming Interface).
12. Klien dan Peralatan. MySQL dilengkapi dengan berbagai peralatan (tool)yang dapat digunakan untuk administrasi basis data, dan pada setiap peralatan yang ada disertakan petunjuk online.
13. Struktur tabel. MySQL memiliki struktur tabel yang lebih fleksibel dalam menangani ALTER TABLE, dibandingkan basis data lainnya semacam PostgreSQL ataupun Oracle.
Senin, 09 Januari 2012
kehidupanstelah kematian
Pertanyaan: Adalah kehidupan setelah kematian?
Jawaban: Adakah kehidupan setelah kematian? Alkitab memberitahu kita, "Manusia yang lahir dari perempuan, singkat umurnya dan penuh kegelisahan. Seperti bunga ia berkembang, lalu layu, seperti bayang-bayang ia hilang lenyap dan tidak dapat bertahan. … Kalau manusia mati, dapatkah ia hidup lagi? (Ayub 14:1-2, 14)
Sama seperti Ayub, hampir setiap kita ditantang oleh pertanyaan ini. Apa yang terjadi kepada kita setelah kita meninggal dunia? Apakah kita hilang begitu saja? Apakah hidup itu suatu pintu yang berputar di mana orang datang dan pergi dari dunia ini supaya mendapat kemuliaan dan kebesaran? Apakah setiap orang pergi ke tempat yang sama, atau kita pergi ke tempat yang berbeda-beda? Apakah surga dan neraka ada, atau itu hanya suatu angan-angan?
Alkitab mengatakan bukan saja ada kehidupan setelah kematian, namun ada hidup kekal yang begitu mulia, “yang tidak pernah dilihat oleh mata, dan tidak pernah didengar oleh telinga, dan yang tidak pernah timbul di dalam hati manusia: semua yang disediakan Allah untuk mereka yang mengasihi Dia." (1 Korintus 2:9). Yesus Kristus, Allah dalam wujud manusia, datang ke dunia ini untuk memberi kita karunia hidup kekal. “Tetapi dia tertikam oleh karena pemberontakan kita, dia diremukkan oleh karena kejahatan kita; ganjaran yang mendatangkan keselamatan bagi kita ditimpakan kepadanya, dan oleh bilur-bilurnya kita menjadi sembuh” (Yesaya 53:5).
Yesus menanggung hukuman yang seharusnya setiap kita tanggung dan mengorbankan nyawaNya sendiri. Tiga hari kemudian, Dia membuktikan kemenanganNya atas kematian dengan bangkit dari kubur, dalam Roh dan tubuh. Dia tetap tinggal di bumi ini untuk empat puluh hari lamanya dan dilihat oleh ribuan orang sebelum akhirnya Dia naik ke rumahNya yang kekal di Surga. Roma 4:25 mengatakan, “Yesus, yang telah diserahkan karena pelanggaran kita dan dibangkitkan karena pembenaran kita” (Roma 4:25).
Kebangkitan Kristus adalah peristiwa yang dicatat dengan baik. Rasul Paulus menantang orang-orang yang mempertanyakan keabsahannya dan tidak seorangpun dapat menolak kebenarannya. Kebangkitan adalah batu penjuru dari iman Kristen. Karena Kristus dibangkitkan dari antara orang mati, kita percaya kita pun akan dibangkitkan.
Paulus menasihati beberapa orang-orang Kristen mula-mula yang tidak percaya akan kebangkitan: “Jadi, bilamana kami beritakan, bahwa Kristus dibangkitkan dari antara orang mati, bagaimana mungkin ada di antara kamu yang mengatakan, bahwa tidak ada kebangkitan orang mati? Kalau tidak ada kebangkitan orang mati, maka Kristus juga tidak dibangkitkan” (1 Korintus 15:12-13).
Kristus adalah hasil pertama dari panen besar orang-orang yang akan dibangkitkan kembali. Kematian fisik menimpa semua orang melalui satu orang, Adam, yang punya hubungan dengan kita semua. Namun semua orang yang telah diadopsi ke dalam keluarga Allah melalui iman dalam Yesus Kristus akan diberikan hidup baru (1 Korintus 15:20-22). Sebagaimana Allah membangkitkan tubuh Yesus, demikian pula tubuh kita akan dibangkitkan saat Yesus datang kembali (1 Korintus 6:14).
Walaupun pada akhirnya kita semua akan dibangkitkan, tidak semua orang akan masuk ke Surga. Dalam hidup ini setiap orang harus membuat pilihan di mana dia akan hidup dalam kekekalan. Alkitab mengatakan bahwa manusia ditetapkan untuk mati hanya satu kali saja, dan sesudah itu dihakimi (Ibrani 9:27). Mereka yang telah dibenarkan akan hidup kekal di surga, tetapi orang-orang yang tidak percaya akan masuk ke dalam hukuman kekal, atau neraka (Matius 25:46).
Sama seperti surga, neraka bukan hanya suatu keadaan, tapi merupakan sebuah tempat yang nyata. Neraka adalah sebuah tempat di mana orang-orang yang bedosa akan mengalami murka Tuhan secara kekal dan tanpa akhir. Mereka akan mengalami siksaan secara emosi, mental, dan fisik. Mereka akan merasa malu, menyesal dan bersalah.
Neraka digambarkan sebagai jurang yang tanpa dasar (Lukas 8:31, Wahyu 9:1), lautan api dan belerang, di mana para penghuninya disiksa siang dan malam untuk selama-lamanya (Wahyu 20:10). Di neraka akan ada tangisan dan kertak gigi, menunjukkan kesusahan dan kemarahan yang amat sangat (Matius 13:42). Neraka adalah tempat “di mana ulat-ulat bangkai tidak mati dan api tidak padam” (Markus 9:48). Allah tidak menikmati kebinasaan orang-orang jahat dan ingin untuk mereka berbalik dari jalan-jalan mereka yang sesat supaya mereka hidup (Yehezkiel 33:11). Namun Dia tidak memaksa kita untuk tunduk; jika kita terus menerus menolak Dia, Tuhan tidak punya pilihan lain selain memberi kita apa yang kita inginkan, hidup terpisah dari Dia.
Hidup di atas bumi ini adalah suatu ujian, suatu persiapan untuk apa yang akan datang. Bagi orang-orang percaya itu adalah hidup kekal di hadapan Tuhan. Jadi bagaimana kita dibenarkan dan dapat menerima hidup kekal? Hanya ada satu jalan – melalui iman dan kepercayaan kepada Anak Allah, Yesus Kristus. Yesus berkata, "Akulah kebangkitan dan hidup; barangsiapa percaya kepada-Ku, ia akan hidup walaupun ia sudah mati, dan setiap orang yang hidup dan yang percaya kepada-Ku, tidak akan mati selama-lamanya.…" (Yohanes 11:25-26).
Karunia hidup kekal tersedia bagi semua orang, tapi untuk menerimanya kita perlu menolak beberapa kesenangan duniawi dan mempersembahkan diri kita kepada Tuhan. “Barangsiapa percaya kepada Anak, ia beroleh hidup yang kekal, tetapi barangsiapa tidak taat kepada Anak, ia tidak akan melihat hidup, melainkan murka Allah tetap ada di atasnya." (Yohanes 3:36). Kita tidak akan memperoleh kesempatan untuk bertobat dari dosa-dosa kita setelah kita meninggal dunia karena setelah kita bertemu Tuhan muka dengan muka kita tidak ada pilihan lain selain percaya kepadaNya. Tuhan menghendaki kita datang kepadaNya di dalam iman dan kasih sekarang ini. Jika kita menerima kematian Yesus sebagai pembayaran atas dosa dan pemberontakan kita terhadap Tuhan, kita dijamin bukan hanya memperoleh hidup yang berarti di dunia ini, namun juga hidup kekal di hadapan Kristus.
Jikalau Anda mau menerima Yesus sebagai Juruselamat Anda dan menerima pengampunan dari Tuhan, berikut ini adalah sebuah doa yang dapat Anda doakan. Ingat, sekedar mengucapkan doa ini atau doa-doa lainnya tidak akan menyelamatkan Anda. Hanya percaya kepada Yesus yang akan menyelamatkan Anda dari dosa. Doa ini adalah sebuah cara untuk mengungkapkan kepada Tuhan bahwa Anda beriman kepadaNya dan untuk berterima kasih kepadaNya untuk keselamatan yang Dia sediakan bagi Anda. “Tuhan, saya tahu bahwa saya telah berdosa kepadaMu dan pantas untuk dihukum. Namun Yesus Kristus telah menanggung hukuman yang seharusnya saya tanggung sehingga dengan beriman kepadaNya saya dapat diampuni. Saya berbalik dari dosa-dosaku dan percaya kepadaMu untuk diselamatkan. Terima kasih untuk anugerah dan pengampunanMu yang indah – karunia hidup kekal! Amin!”
READ MORE - kehidupanstelah kematian
Jawaban: Adakah kehidupan setelah kematian? Alkitab memberitahu kita, "Manusia yang lahir dari perempuan, singkat umurnya dan penuh kegelisahan. Seperti bunga ia berkembang, lalu layu, seperti bayang-bayang ia hilang lenyap dan tidak dapat bertahan. … Kalau manusia mati, dapatkah ia hidup lagi? (Ayub 14:1-2, 14)
Sama seperti Ayub, hampir setiap kita ditantang oleh pertanyaan ini. Apa yang terjadi kepada kita setelah kita meninggal dunia? Apakah kita hilang begitu saja? Apakah hidup itu suatu pintu yang berputar di mana orang datang dan pergi dari dunia ini supaya mendapat kemuliaan dan kebesaran? Apakah setiap orang pergi ke tempat yang sama, atau kita pergi ke tempat yang berbeda-beda? Apakah surga dan neraka ada, atau itu hanya suatu angan-angan?
Alkitab mengatakan bukan saja ada kehidupan setelah kematian, namun ada hidup kekal yang begitu mulia, “yang tidak pernah dilihat oleh mata, dan tidak pernah didengar oleh telinga, dan yang tidak pernah timbul di dalam hati manusia: semua yang disediakan Allah untuk mereka yang mengasihi Dia." (1 Korintus 2:9). Yesus Kristus, Allah dalam wujud manusia, datang ke dunia ini untuk memberi kita karunia hidup kekal. “Tetapi dia tertikam oleh karena pemberontakan kita, dia diremukkan oleh karena kejahatan kita; ganjaran yang mendatangkan keselamatan bagi kita ditimpakan kepadanya, dan oleh bilur-bilurnya kita menjadi sembuh” (Yesaya 53:5).
Yesus menanggung hukuman yang seharusnya setiap kita tanggung dan mengorbankan nyawaNya sendiri. Tiga hari kemudian, Dia membuktikan kemenanganNya atas kematian dengan bangkit dari kubur, dalam Roh dan tubuh. Dia tetap tinggal di bumi ini untuk empat puluh hari lamanya dan dilihat oleh ribuan orang sebelum akhirnya Dia naik ke rumahNya yang kekal di Surga. Roma 4:25 mengatakan, “Yesus, yang telah diserahkan karena pelanggaran kita dan dibangkitkan karena pembenaran kita” (Roma 4:25).
Kebangkitan Kristus adalah peristiwa yang dicatat dengan baik. Rasul Paulus menantang orang-orang yang mempertanyakan keabsahannya dan tidak seorangpun dapat menolak kebenarannya. Kebangkitan adalah batu penjuru dari iman Kristen. Karena Kristus dibangkitkan dari antara orang mati, kita percaya kita pun akan dibangkitkan.
Paulus menasihati beberapa orang-orang Kristen mula-mula yang tidak percaya akan kebangkitan: “Jadi, bilamana kami beritakan, bahwa Kristus dibangkitkan dari antara orang mati, bagaimana mungkin ada di antara kamu yang mengatakan, bahwa tidak ada kebangkitan orang mati? Kalau tidak ada kebangkitan orang mati, maka Kristus juga tidak dibangkitkan” (1 Korintus 15:12-13).
Kristus adalah hasil pertama dari panen besar orang-orang yang akan dibangkitkan kembali. Kematian fisik menimpa semua orang melalui satu orang, Adam, yang punya hubungan dengan kita semua. Namun semua orang yang telah diadopsi ke dalam keluarga Allah melalui iman dalam Yesus Kristus akan diberikan hidup baru (1 Korintus 15:20-22). Sebagaimana Allah membangkitkan tubuh Yesus, demikian pula tubuh kita akan dibangkitkan saat Yesus datang kembali (1 Korintus 6:14).
Walaupun pada akhirnya kita semua akan dibangkitkan, tidak semua orang akan masuk ke Surga. Dalam hidup ini setiap orang harus membuat pilihan di mana dia akan hidup dalam kekekalan. Alkitab mengatakan bahwa manusia ditetapkan untuk mati hanya satu kali saja, dan sesudah itu dihakimi (Ibrani 9:27). Mereka yang telah dibenarkan akan hidup kekal di surga, tetapi orang-orang yang tidak percaya akan masuk ke dalam hukuman kekal, atau neraka (Matius 25:46).
Sama seperti surga, neraka bukan hanya suatu keadaan, tapi merupakan sebuah tempat yang nyata. Neraka adalah sebuah tempat di mana orang-orang yang bedosa akan mengalami murka Tuhan secara kekal dan tanpa akhir. Mereka akan mengalami siksaan secara emosi, mental, dan fisik. Mereka akan merasa malu, menyesal dan bersalah.
Neraka digambarkan sebagai jurang yang tanpa dasar (Lukas 8:31, Wahyu 9:1), lautan api dan belerang, di mana para penghuninya disiksa siang dan malam untuk selama-lamanya (Wahyu 20:10). Di neraka akan ada tangisan dan kertak gigi, menunjukkan kesusahan dan kemarahan yang amat sangat (Matius 13:42). Neraka adalah tempat “di mana ulat-ulat bangkai tidak mati dan api tidak padam” (Markus 9:48). Allah tidak menikmati kebinasaan orang-orang jahat dan ingin untuk mereka berbalik dari jalan-jalan mereka yang sesat supaya mereka hidup (Yehezkiel 33:11). Namun Dia tidak memaksa kita untuk tunduk; jika kita terus menerus menolak Dia, Tuhan tidak punya pilihan lain selain memberi kita apa yang kita inginkan, hidup terpisah dari Dia.
Hidup di atas bumi ini adalah suatu ujian, suatu persiapan untuk apa yang akan datang. Bagi orang-orang percaya itu adalah hidup kekal di hadapan Tuhan. Jadi bagaimana kita dibenarkan dan dapat menerima hidup kekal? Hanya ada satu jalan – melalui iman dan kepercayaan kepada Anak Allah, Yesus Kristus. Yesus berkata, "Akulah kebangkitan dan hidup; barangsiapa percaya kepada-Ku, ia akan hidup walaupun ia sudah mati, dan setiap orang yang hidup dan yang percaya kepada-Ku, tidak akan mati selama-lamanya.…" (Yohanes 11:25-26).
Karunia hidup kekal tersedia bagi semua orang, tapi untuk menerimanya kita perlu menolak beberapa kesenangan duniawi dan mempersembahkan diri kita kepada Tuhan. “Barangsiapa percaya kepada Anak, ia beroleh hidup yang kekal, tetapi barangsiapa tidak taat kepada Anak, ia tidak akan melihat hidup, melainkan murka Allah tetap ada di atasnya." (Yohanes 3:36). Kita tidak akan memperoleh kesempatan untuk bertobat dari dosa-dosa kita setelah kita meninggal dunia karena setelah kita bertemu Tuhan muka dengan muka kita tidak ada pilihan lain selain percaya kepadaNya. Tuhan menghendaki kita datang kepadaNya di dalam iman dan kasih sekarang ini. Jika kita menerima kematian Yesus sebagai pembayaran atas dosa dan pemberontakan kita terhadap Tuhan, kita dijamin bukan hanya memperoleh hidup yang berarti di dunia ini, namun juga hidup kekal di hadapan Kristus.
Jikalau Anda mau menerima Yesus sebagai Juruselamat Anda dan menerima pengampunan dari Tuhan, berikut ini adalah sebuah doa yang dapat Anda doakan. Ingat, sekedar mengucapkan doa ini atau doa-doa lainnya tidak akan menyelamatkan Anda. Hanya percaya kepada Yesus yang akan menyelamatkan Anda dari dosa. Doa ini adalah sebuah cara untuk mengungkapkan kepada Tuhan bahwa Anda beriman kepadaNya dan untuk berterima kasih kepadaNya untuk keselamatan yang Dia sediakan bagi Anda. “Tuhan, saya tahu bahwa saya telah berdosa kepadaMu dan pantas untuk dihukum. Namun Yesus Kristus telah menanggung hukuman yang seharusnya saya tanggung sehingga dengan beriman kepadaNya saya dapat diampuni. Saya berbalik dari dosa-dosaku dan percaya kepadaMu untuk diselamatkan. Terima kasih untuk anugerah dan pengampunanMu yang indah – karunia hidup kekal! Amin!”
Langganan:
Postingan (Atom)