RSS

Tipe Data Pemograman Java

January 10, 2019 |


Tipe data pada Pemograman Berbasis Obyek
1.      Tipe data pada pemograman Java
-karakter,merupakan bagian terkecil dalam Bahasa java berupa huruf A-Z (baik capital maupun huruf kecil).Angka  0-9,symbol/tanda baca (* dan !),serta kode control dalam bahasa pemograman.
-Kata Kunci(Keyword) adalah kata-kata baku dalam pemograman Java terdapat 51 buah kata kunci yang sering digunakan , misalnya abstrak ,break ,byte ,case ,class ,conts ,do,  else ,final,float,for dll.
-Pengenal (identifier) pengenal merupakan jenis data yang dideklarasikan sebagai pengguna pengenal dari deklarasi nama kelas/Variabel dalam bahasa pemograman,ketentuan untuk persamaan pengenal yaitu:
*pengenal diawali dengan huruf,misalnya nama1,bukan 1nama,kita dapat juga menggunakan (under score) misalnya nama_1/dengan dolar($).
*karakter berikutnya dapat berupa angka/karakter yang lainnya.
*pengenal sangat sensitive sehingga penulisan huruf kapital dan huruf kecil berpengaruh,pendeklarasian nama dengan nama memiliki arti yang berbeda
            Adapun tipe-tipe data pada java adalah sebagai berikut:
-Tipe data primitive
            Terdiri dari:
*tipe data bilangan bulat,terdapat 4 tipe data bilangan bulat yaitu,byte,short,integer,dan long.Byte terdiri dari 8 bit,short 16 bit,Integer 32 bit dan long 64 bit.
*tipe data bilangan real,merupakan tipe data yang memiliki titik decimal yaitu tipe data fload dan double.flood berukuran 32 bit,double 64 bit.
*tipe data karakter (char),merupakan tipe data yang memiliki karakter apapun.
*tipe data karakter Boolean,merupakan tipe data yang digunakan untuk menyatakan logika benar/salah(true/false).
-Konstanta pada Java
            Konstanta merupakan pendeklarasian nilai data yang mempunyai nilai tetap,misalnya nilai phi(3,14) untuk menghitung luas atau keliling lingkaran.
-Variabel pada Java
            Variabel merupakan lokasi untuk menampung nilai sementara pada pemograman.Pengguna mendeklarasian suatu lokasi memori dalam Bahasa pemograman untuk menyimpan nilai yang dapat diubah sesuai kebutuhan .
-Statement / Pernyataan
            Statement / pernyataan adalah intruksi dalam Bahasa pemograman java berupa kode.Kode yang dapat dipahami oleh mesin.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read User's Comments1

Windows Form Simpan Edit Hapus Pada VB 2010

March 31, 2018 |


(Bahan Blog)
Cara Membuat Windows Form Simpan,Edit dan Hapus di VB 2010

Hallo saya Novri Rizqullah sebagai pemilik blog ini akan memberikan sedikit hal tentang Software yang satu ini yaitu VB (Visual Basic) disini saya masih memakai VB 2010 dan setahu saya VB yang baru dirilis adalah VB 2012.
 
DiVB 2010 saya akan membagikan/menshare cara membuat form yang bisa menyimpan,mengedit,dan menghapus suatu data,hal-hal yang harus disiapkan adalah 
1. Pastikan Anda sudah mempunyai software VB(Visual Basic) yang saya sarankan adalah 2010 dan 2012 karena skrip yang digunakan sama dan tidak terlalu berbeda.
2. Siapkan Software Microsoft Office yaitu “Microsoft Accses” sebagai database nya anda bisa menggunakan 2007,2010 maupun 2013.
        
      Maka inilah cara pembuatannya:

1.     1. Buatlah Databasenya terlebih dahulu di Microsoft Accses (disini saya membuat database tentang biodata). Buatlah seperti gambar dibawah ini

Dari gambar diatas saya memakai nama saya sebagai databasenya (novri_rizqullah) dan tabelnya (biodata) anda bisa mengganti nama databasenya dan tabelnya dengan yang anda inginkan.


1      2.Jika sudah selesai membuat Databasenya ,buka software Vb 2010/2012 dan buatlah tampilan Formnya, berikut ini contohnya:
 


Dari gambar diatas saya sudah menandai “Textbox dan Button” karena didua inilah kita akan memasukkan skripnya jadi tidak boleh salah sedikit pun baik TextBox maupun Button karena bisa berakibat fatal pada saat Program dijalankan.
NB(Jangan lupa disana saya menaruh “DataGridView1” sebagai tempat output nanti yang akan tersambung dengan database anda).
1        
     3.Langkah selanjutnya adalah memasukkan skripnya,ini adalah kilasan gambar dari skrip tersebut:
      sesuai gambar diatas saya sudah menandai bagian-bagian mana saja yang akan diubah.
Gambar Diatas adalah Skrip Simpan dan yang lainnya….(maaf saya tidak bisa menyebutkan satu persatu)

Diatas adalah skrip Edit atau Ubah….
Berikut adalah skrip dimana jika kita memasukkan Nisn saja maka semua data akan muncul karena Kolom Nisn merupakan “Primary Key”.


Diatas merupakan skrip tombol  keluar dari Windows Form dijalankan….
 
Gambar ini merupakan skrip untuk menghapus data dari database dan juga untuk tombol batal ……..
Untuk Skrip diatas sebenarnya tidak terlalu penting karena gunanya saja untuk menampilan data di “DataGridView” kembali ke Windows Form,dengan Klik Pada DataGridView saja.
Dan Seperti Inilah Hasilnya :
Masih kurang paham? atau malas mengetik skripnya?,tenang saya sudah menyiapkan Skrip yang tinggal anda Copy Paste saja dibawah ini…..

Imports System.Data.OleDb
Public Class Form10
Dim CONN As OleDbConnection
Dim cmd As OleDbCommand
Dim cmd1 As OleDbCommand
Dim ds As New DataSet
Dim dt As New DataTable
Dim da As OleDbDataAdapter
Dim rd As OleDbDataReader
Dim lokasidb As String

Sub koneksi()
lokasidb = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=novri_rizqullah.accdb"
CONN = New OleDbConnection(lokasidb)
If CONN.State = ConnectionState.Closed Then CONN.Open()
End Sub

Sub KondisiAwal()
koneksi()
da = New OleDbDataAdapter("select * From biodata", CONN)
ds = New DataSet
ds.Clear()
da.Fill(ds, "biodata")
DataGridView1.DataSource = (ds.Tables("biodata"))
End Sub

Sub Kosongkan()
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
TextBox9.Clear()
TextBox1.Focus()
End Sub

Sub TampilGrid()
da = New OleDbDataAdapter("select*from biodata", CONN)
ds = New DataSet
da.Fill(ds, "biodata")
DataGridView1.DataSource = ds.Tables("biodata")
DataGridView1.ReadOnly = True
End Sub

Sub carikode()
cmd = New OleDbCommand("select * from biodata where Nis='" & TextBox1.Text & "'", CONN)
rd = cmd.ExecuteReader
rd.Read()
End Sub

Private Sub Form10_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call KondisiAwal()
Call koneksi()
Call TampilGrid()
Call Kosongkan()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or TextBox7.Text = "" Or TextBox8.Text = "" Or TextBox9.Text = "" Then
MsgBox("data belum lengkap,isi lagi")
TextBox1.Focus()
TextBox1.Text = ""
Exit Sub
Else
Call koneksi()
Dim simpan As String = "insert into biodata values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & DateTimePicker1.Value & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "')"
cmd = New OleDbCommand(simpan, CONN)
cmd.ExecuteNonQuery()
MsgBox("data berhasil disimpan", MsgBoxStyle.Information, "information")
Call KondisiAwal()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox1.Focus()
TextBox2.Focus()
TextBox3.Focus()
DateTimePicker1.Focus()
TextBox5.Focus()
TextBox6.Focus()
TextBox7.Focus()
TextBox8.Focus()
TextBox9.Focus()
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call koneksi()
cmd = New OleDbCommand("Select* from biodata where Nis='" & TextBox1.Text & "'", CONN)
rd = cmd.ExecuteReader
rd.Read()
Dim edit As String = "update biodata set Nama='" & TextBox2.Text & "',TempatLahir='" & TextBox3.Text & "',TanggalLahir='" & DateTimePicker1.Value & "',Alamat='" & TextBox5.Text & "',Ibu='" & TextBox6.Text & "',Ayah='" & TextBox7.Text & "',Email='" & TextBox8.Text & "',NOHP='" & TextBox9.Text & "' where Nis='" & TextBox1.Text & "'"
cmd = New OleDbCommand(edit, CONN)
cmd.ExecuteNonQuery()
MsgBox("Data Berhasil diubah", MsgBoxStyle.Information)
Call Kosongkan()
Call TampilGrid()
End Sub

Private Sub TextBox1_KeyPress1(ByVal paintsender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
Call koneksi()
cmd = New OleDbCommand("select * from biodata where Nis='" & TextBox1.Text & "'", CONN)
rd = cmd.ExecuteReader
rd.Read()
If Not rd.HasRows Then
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox2.Focus()
Else
TextBox2.Text = rd.Item("Nama")
TextBox3.Text = rd.Item("TempatLahir")
DateTimePicker1.Value = rd.Item("TanggalLahir")
TextBox5.Text = rd.Item("Alamat")
TextBox6.Text = rd.Item("Ibu")
TextBox7.Text = rd.Item("Ayah")
TextBox8.Text = rd.Item("Email")
TextBox9.Text = rd.Item("NOHP")
TextBox2.Focus()
End If
End If
End Sub

Private Sub TextBox2_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
If e.KeyChar = Chr(13) Then TextBox3.Focus()
End Sub

Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If e.KeyChar = Chr(13) Then TextBox5.Focus()
End Sub

Private Sub TextBox5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress
If e.KeyChar = Chr(13) Then TextBox6.Focus()
End Sub

Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
If e.KeyChar = Chr(13) Then TextBox7.Focus()
End Sub

Private Sub TextBox7_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox7.KeyPress
If e.KeyChar = Chr(13) Then TextBox8.Focus()
End Sub

Private Sub TextBox8_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox8.KeyPress
If e.KeyChar = Chr(13) Then TextBox9.Focus()
End Sub

Private Sub TextBox9_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox9.KeyPress
If e.KeyChar = Chr(13) Then Button2.Focus()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim response As MsgBoxResult
response = MsgBox(" Anda Yakin Mau keluar dari Sini", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Pembuat Novri Rizqullah")
If response = MsgBoxResult.Yes Then
MsgBox("Terima Kasih", MsgBoxStyle.Information, "Pembuat Novri Rizqullah")
Me.Dispose()
ElseIf response = MsgBoxResult.No Then
MsgBox("Selamat Melanjutkan", MsgBoxStyle.Information, "Pembuat Novri Rizqullah")
End If
Exit Sub
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox1.Focus()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If TextBox1.Text = "" Then
MsgBox("Nis masih kosong,silahkan diisi dulu")
TextBox1.Focus()
Exit Sub
Else
If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
Dim hapus As String = "delete * from biodata where Nis='" & TextBox1.Text & "'"
cmd = New OleDbCommand(hapus, CONN)
cmd.ExecuteNonQuery()
MsgBox("data berhasil dihapus", MsgBoxStyle.Information, "information")
Call TampilGrid()
Call Kosongkan()
Else
Call Kosongkan()
End If
End If
End Sub

Private Sub DataGridView1_CellMouseClick(ByVal sender As Object, ByVal e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseClick
On Error Resume Next
TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells(0).Value
TextBox2.Text = DataGridView1.Rows(e.RowIndex).Cells(1).Value
TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells(2).Value
DateTimePicker1.Value = DataGridView1.Rows(e.RowIndex).Cells(3).Value
TextBox5.Text = DataGridView1.Rows(e.RowIndex).Cells(4).Value
TextBox6.Text = DataGridView1.Rows(e.RowIndex).Cells(5).Value
TextBox7.Text = DataGridView1.Rows(e.RowIndex).Cells(6).Value
TextBox8.Text = DataGridView1.Rows(e.RowIndex).Cells(7).Value
TextBox9.Text = DataGridView1.Rows(e.RowIndex).Cells(8).Value
Call carikode()
If rd.HasRows Then
Call KondisiAwal()
Call koneksi()
Call TampilGrid()
End If
End Sub
End Class

       
 
Demikianlah "Cara Membuat Windows Form Simpan Edit Hapus",jika ada yang ingin ditanyakan,atau kritikan harap tinggalkan dikolom komentar yah......

Terima Kasih,Sampai Berjumpa dipostingan selanjutnya!!!

'Perlu diingat admin adalah seorang pelajar jadi bila ada salah mohon dimaafkan'

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read User's Comments0
Subscribe to: Posts (Atom)