THUNDER BLOG

Recent Posts

Membuat aplikasi JADWAL EKSKUL di VB 2012 dengan database SQL SERVER 2008

No comments

Halo gan, dipertemuan kali ini saya akan membuat aplikasi "Jadwal Ekskul" menggunakan aplikasi Visual Studio 2012 dengan database SQL Server 2008.

1. MEMBUAT DATABASE
bukalah aplikasi SQL Server anda lalu buatlah database "db_jadwalekskul" setelah itu tambahakanlah  table 'tb_guru', 'tb_kelas','tb_mataekskul','tb_jawalekskul' seperti di bawah ini:
'tb_guru'

'tb_kelas'

'tb_mataekskul'

'tb_jadwalekskul'

setelah itu buatlah viewnya dengan nama 'v_jadwalekskul', caranya klik Views di menu deretan table klik kanan New Views, setelah itu tambahkan pilih dan masukkan semua table, jika sudah tarik dari Primary Key ke Foreign Key, lalu centang sesua no urut di bawah design tersebut seperti di bawah ini :

2. MEMBUAT APLIKASI
buatlah aplikasi pada Visual Basic anda dengan nama "jadwalekskul", lalu buatlah koneksi pada VB anda dengan cara tambahkan item module lalu beri nama 'config' dan ketikkan kode di bawah ini :
Imports System.Data.SqlClient

Module cofig
    Public cn As New SqlConnection
    Public cmd As New SqlCommand

    Sub opendb()
        cn.ConnectionString = "Data Source=Guntur-PC\SQLEXPRESS;initial catalog=db_jawalekskul;Integrated Security=True;"
        cn.Open()
        If cn.State = ConnectionState.Open Then
            MessageBox.Show("Succes Connect to Database")
        Else
            MessageBox.Show("Failed Connect to Database")
        End If
    End Sub
End Module
Di bagian "Data Source= Guntur-PC\SQLEXPRESS" ganti tulisan yang saya beri tanda sesuai dengan Server Name yang terdapat pada SQL Server anda.

3. MEMBUAT FORM
tambahkanlah item WindowsForm dengan nama 'main', kali ini saya akan membuat form tersebut di masukkan/menggabungkan ke satu form saja yaitu form 'main', berikut design untuk form 'main':


*pada warna yang berwarna orange dan putih saya menggunakan panel, jadi saya menggunakan 3 panel

klik 2X pada form 'main' lalu ketikkan kode di bawah ini:
Private Sub main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        opendb()
    End Sub
cara membuat form tersebut masuk kedalam form main, klik label 'GURU' lalu ke properties klik menu yang bergambar petir di atas lalu pilih 'MouseClick' setelah itu ketikkan kode di bawah ini:
        guru.TopLevel = False
        Panel2.Controls.Add(guru)
        guru.Show()
        guru.BringToFront()

*panel2 ialah panel yang berwarna putih sesuaikan pada panel kalian

lakukan hal tersebut pada label yang lainnya yang di ubah hanyalah 'guru' dengan form yang kalian inginkan

setelah itu tambahkan 5 form lagi seperti di bawah ini:

FORM 'guru'

FORM 'kelas'

FORM 'mataekskul'

FORM 'jadwalekskul'

FORM 'CUDjadwalekskul'

4. MENAMBAHKAN SCRIPT
saya akan memberi contoh script - script yang di butuhkan pada form 'GURU'

4.1. MENAMPILKAN DATA
klik 2X FORM 'GURU'
paling atas script di atas 'Public Class' ketik :
Imports System.Data.SqlClient
lalu ketik kode seperti di bawah ini :
 Sub tampildata()
        cmd.Connection = cn
        cmd.CommandText = "SELECT * FROM guru"
        Dim rd As SqlDataReader = cmd.ExecuteReader
        Dim dt As New DataTable
        dt.Load(rd)
        DataGridView1.DataSource = dt
    End Sub
4.2. MEMBUAT CRUD ( Create Read Update Delete ) di FORM 'GURU'

4.2.1. CREATE
klik 2X button 'Simpan' lalu ketikkan kode sepert di bawah ini :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnsimpan.Click
        cmd.Connection = cn
        cmd.CommandText = "INSERT INTO tb_guru VALUES ('" & txtkodeguru.Text & "','" & txtnamaguru.Text & "','" & txtalamat.Text & "','" & txtnohp.Text & "')"
        cmd.ExecuteNonQuery()
        showdatatable()
    End Sub

4.2.2. UPDATE
klik 2X button 'Ubah' lalu ketikkan kode sepert di bawah ini :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnubah.Click
        cmd.Connection = cn
        cmd.CommandText = "UPDATE tb_guru SET nama_guru = '" & txtnamaguru.Text & "',alamat = '" & txtalamat.Text & "',no_hp = '" & txtnohp.Text & "'WHERE kode_guru = '" & txtkodeguru.Text & "'"
        cmd.ExecuteNonQuery()
        showdatatable()
    End Sub

4.2.3. DELETE
klik 2X button 'Hapus' lalu ketikkan kode sepert di bawah ini :
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnhapus.Click
        cmd.Connection = cn
        cmd.CommandText = "DELETE FROM tb_guru WHERE kode_guru = '" & txtkodeguru.Text & "'"
        cmd.ExecuteNonQuery()
        showdatatable()
    End Sub

4.2.4. READ/CARI
klik 2X button 'Cari' lalu ketikkan kode sepert di bawah ini :
 Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btncari.Click
        cmd.Connection = cn
        cmd.CommandText = "SELECT * FROM tb_guru WHERE kode_guru LIKE '" & txtcari.Text & "%'"
        Dim rd As SqlDataReader = cmd.ExecuteReader
        Dim dt As New DataTable
        dt.Load(rd)
        DataGridView1.DataSource = dt
    End Sub

silahkan anda mencoba pada form - form yang lainnya

4.3. FORM CUDjadwalekskul
di sini terdapat ComboBox dan ada 3 ComboBox yang datanya di ambil dari table lainnya, ketikkan kode seperti di bawah ini:
Sub guru()
        cmd = New SqlCommand("SELECT kode_guru FROM tb_guru", cn)
        Dim rd As SqlDataReader = cmd.ExecuteReader
        While rd.Read()
            ComboBox1.Items.Add(rd("kode_guru"))
        End While
        ComboBox1.SelectedIndex = 0
        rd.Close()
    End Sub

    Sub mataekskul()
        cmd = New SqlCommand("SELECT kode_mataekskul FROM tb_mataekskul", cn)
        Dim rd As SqlDataReader = cmd.ExecuteReader
        While rd.Read()
            ComboBox2.Items.Add(rd("kode_mataekskul"))
        End While
        ComboBox2.SelectedIndex = 0
        rd.Close()
    End Sub

    Sub kelas()
        cmd = New SqlCommand("SELECT kode_kelas FROM tb_kelas", cn)
        Dim rd As SqlDataReader = cmd.ExecuteReader
        While rd.Read()
            ComboBox3.Items.Add(rd("kode_kelas"))
        End While
        ComboBox3.SelectedIndex = 0
        rd.Close()
    End Sub

klik 2X pada form 'CUDjadwalekskul' lalu ketikkan kode di bawah ini:
Private Sub CUDjadwalekskul_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        guru()
        mataekskul()
        kelas()
    End Sub

4.4. MENAMPILKAN DATA DI FORM 'JADWAL EKSKUL'
caranya sama seperti di atas namun ada kode yang sedikit berbeda, ikuti kode seperti di bawah ini:
        cmd.Connection = cn
        cmd.CommandText = "SELECT * FROM v_jawalekskul"
        Dim rd As SqlDataReader = cmd.ExecuteReader
        Dim dt As New DataTable
        dt.Load(rd)
        DataGridView1.DataSource = dt

Jika semua form telah anda buat anda telah menyelesaikan program anda, maaf bila ada kesalah penulisan kata dan sulit untuk di pahami




TERIMAKASIH TELAH MEMBACA
SEMOGA DAPAT SANGAT BERMANFAAT
JIKA ADA YANG MASIH BINGUNG TANYAKAN SAJA DI KOMENTAR

Membuat Aplikasi CUD dengan Visual Basic 2012 dan SQL Server 2008

No comments

Kali ini saya akan membuat aplikasi PSB dengan VS 2012 dan SQL Server 2008, aplikasi PSB di mana di dalam aplikasi ini terdapat CUD (Create Update Delete).
Saya akan membuat FORM Pendaftaran, berikut ini caranya :


1. Buatlah database pada SQL Server
Silahkan anda buka aplikasi SQL Server anda kemudian buatlah database dengan nama "db_smkti", setelah itu buatlah table dengan nama "tb_pendaftaran" isikan data fieldnya seperti yang di bawah ini.


2. Membuat aplikasi
Silahkan anda membuka aplikasi Visual Basic atau Visual Studio anda, buatlah sebuah aplikasi yang berjudul "PSBapp".


3. Membuat koneksi
Tambahkan item 'module' dengan nama "config", setelah itu ketikkan kode yang ada di bawah ini.
Imports System.Data.SqlClient

Module cofig
    Public cn As New SqlConnection
    Public cmd As New SqlCommand

    Sub opendb()
        cn.ConnectionString = "Data Source=Guntur-PC\SQLEXPRESS;initial catalog=db_smkti;Integrated Security=True;"
        cn.Open()
        If cn.State = ConnectionState.Open Then
            MessageBox.Show("Succes Connect to Database")
        Else
            MessageBox.Show("Failed Connect to Database")
        End If
    End Sub
End Module

Di bagian "Data Source= Guntur-PC\SQLEXPRESS" ganti tulisan yang saya beri tanda sesuai dengan Server Name yang terdapat pada SQL Server anda.


4. Membuat form pendaftaran
Tambahkan item 'form'dengan nama "pendaftaran", lalu buatlah design yang kurang lebih seperti di bawah ini.


5. Menampilkan data
Klink 2X pada form "pendaftaran", setelah itu ketikkan kode seperti yang di bawah ini.
Imports System.Data.SqlClient

Public Class Form1
    Dim id As DataTable
    Dim kode As DataTable

    Sub showdatatable()
        cmd.Connection = cn
        cmd.CommandText = "SELECT * FROM tb_pendaftaran"
        Dim rd As SqlDataReader = cmd.ExecuteReader
        Dim dt As New DataTable
        dt.Load(rd)
        DataGridView1.DataSource = dt
    End Sub

    Sub bersih()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        DateTimePicker1.CustomFormat = TimeOfDay
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        opendb()
        showdatatable()
    End Sub

6. Script SIMPAN
Klik 2X pada button "DAFTAR", setelah itu ketikkan kode seperti yang ada di bawah ini.
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        cmd.Connection = cn
        cmd.CommandText = "INSERT INTO tb_pendaftaran VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & DateTimePicker1.Value & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"
        cmd.ExecuteNonQuery()
        showdatatable()
        bersih()
    End Sub

7. Script UBAH
Klik 2X pada button "UBAH", setelah itu ketikkan kode seperti yang ada di bawah ini.
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        cmd.Connection = cn
        cmd.CommandText = "UPDATE tb_pendaftaran SET nama = '" & TextBox2.Text & "',tempat_lahir = '" & TextBox3.Text & "',tanggal_lahir = '" & DateTimePicker1.Value & "',asal_sekolah = '" & TextBox4.Text & "',alamat_pendaftar = '" & TextBox5.Text & "'WHERE id_pendaftaran = '" & TextBox1.Text & "'"
        cmd.ExecuteNonQuery()
        showdatatable()
        bersih()
    End Sub

8. Script HAPUS
Klik 2X pada button "HAPUS", setelah itu ketikkan kode seperti yang ada di bawah ini.
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        cmd.Connection = cn
        cmd.CommandText = "DELETE FROM tb_pendaftaran WHERE id_pendaftaran = '" & TextBox1.Text & "'"
        cmd.ExecuteNonQuery()
        showdatatable()
        bersih()
    End Sub

Program yang anda buat telah selesai atau siap pakai silahkan di coba, hasilnya akan seperti di bawah ini.





TERIMAKASIH TELAH MEMBACA
SEMOGA DAPAT SANGAT BERMANFAAT
JIKA ADA YANG MASIH BINGUNG TANYAKAN SAJA DI KOMENTAR

Susunan Kata dalam Turbo C++

2 comments
Hello gan kalo bosen ngoding terus di Turbo C++ anda bisa berkreatif contohnya membuat susunan huruf membentuk huruf yang lebih besar, nih gan langsung aja liat contohnya

Membentuk nama anda dari gabungan huruf - huruf sesuai nama anda:
Scrip:


Membuat Tulisan "RPL":
Scrip:


Membuat Tulisan "C++":
Scrip:

Silahkan di coba, tunjukin kalo kalian kreatif. Commentnya hasil buatan kalian



TERIMAKASIH TELAH MEMBACA
SEMOGA DAPAT SANGAT BERMANFAAT
JIKA ADA YANG MASIH BINGUNG TANYAKAN SAJA DI KOMENTAR

Membuat Aplikasi Diskon Pada Program Turbo C++

No comments
Pertama Silahkan Buka {rogram Turbo C++ Anda
Lalu Ketikkan kode di bawah ini :


Jika program dijalankan kan menjadi seperti di bawah ini :



TERIMAKASIH TELAH MEMBACA
SEMOGA DAPAT SANGAT BERMANFAAT
JIKA ADA YANG MASIH BINGUNG TANYAKAN SAJA DI KOMENTAR

Listrikku Inspirasiku

No comments

Listrik, siapa yang tidak kenal dengan hal ini, listrik dibutuhkan oleh hampir semua umat manusia di dunia ini karena di era yang modern ini hampir semua kegiatan yang di lakukan manusia membutuhkan listrik sebagai sumber daya energi, contohnya disaat kita bekerja menggunakan laptop kita membutuhkan lisrik sebagai sumber daya untuk dapat melakukan kegiatan ngeblog, facebook, twitter dll.  Di Indoenesia sendiri kita mempunyai badan pengelola listrik yang di sebut Perusahaan Listrik Negara (disingkat PLN) adalah sebuah BUMN yang mengurusi semua aspek kelistrikan yang ada di Indoensia.

Indonesia telah merdeka selama 69 tahun dan kita juga telah menggunakan listrik selama itu, apakah listrik indonesia sudah mendapatkan cap MERDEKA? menurut saya belum karena tidak semua wilayah di Indonesia telah tersedia lisrik seperti di daerah pedalaman. Hal itu menginspirasi saya untuk dapat mengembangkan kualitas penduduk pelosok agar dapat mengenal kemajuan teknologi yang di mulai dari mengenal listrik. Saya juga berharap PLN dapat membuat listrik di Indonesia lancar agar dapat meningkatkan kinerja masyarakat yang menggnatungkan hidupnya dengan listrik

Ayo dukung gerakan bersih PLN

Ikuti juga lomba blog yang berjudul "Ideku Untuk PLN" bersama BLOGDETIK

Membuat Aplikasi Kondisi IF dengan VB 2012

No comments
Hello guys apa kabar, baru belajar VB nih. mari membuat aplikasi kondisi IF dengan VB 2012

Pertama buat aplikasi dengan nama "Aplikasi Kondisi IF", dan tambahkan : (7 label), (7 textbox), dan (1 button)

Desain form menjadi seperti yang di bawah  ini

Klik dua kali button "PROSES" lalu ketik kode seperti gambar di bawah ini

Sekarang silahkan jalankan program anda

TERIMAKASIH TELAH MEMBACA
SEMOGA DAPAT SANGAT BERMANFAAT
JIKA ADA YANG MASIH BINGUNG TANYAKAN SAJA DI KOMENTAR

Membuat Aplikasi Kalkulator Sederhana di VB 2012

No comments
hello guys kali ini saya akan memberitahu cara membuat aplikasi kalkulator sederhana di VB 2013
Silahkan buka VB anda berinama "Kalkulator Sederhana"

Tambahkan (3 label), (3 textbox). dan (4button) 

Edit form sehingga menjadi seperti di bawah ini

klik masing masing tombol dan masukkan skrip di bawah ini berdasarkan namanya:
button (+) = button1
button (-) = button2
button (X) = button3
button (/) = button4

TERIMAKASIH TELAH MEMBACA
SEMOGA DAPAT SANGAT BERMANFAAT
JIKA ADA YANG MASIH BINGUNG TANYAKAN SAJA DI KOMENTAR

memindahkan posisi form saat FormBorderStyle dalam keadaan none

4 comments
hello..., agan pernah ngak membuat suatu aplikasi di VB dengan format  FormBorderStyle agan dalam keadaan None, biar bisa menu bagian atas sendri dengan menarik atau apalah, tapi agan tidak bisa memindahkan form tersebut karena FormBorderStyle agan dalam keadaan None. kali ini saya akan memberi tahu cara
Silahkan Buka/Buat Aplikasi di VB agan (saya menggunakan VB 2010), setelah itu atur FormBorderStyle agan dalam keadaan None
selanjutnya saya akan memberikan fungsi MouseDown pada FORM tersebut caranya klik FORM tersebut dan ikuti cara di bawah ini
untuk memastikan lihat di bagian KODE bahwa baguan kanan tersebut terdapat MouseDown.
selelah itu ikuti kode seperti dibawah ini...
setelah itu berikan fungsi MouseMove pada FORM tersebut caranya sama seperti di atas. lalu ikuti kode di bawah ini
Silahkan jalankan program anda sekarang form yang dalam keadaan NONE dapat di pindah
sekedar tambahan desain untuk pengganti control box

TERIMAKASIH TELAH MEMBACA
SEMOGA DAPAT SANGAT BERMANFAAT
JIKA ADA YANG MASIH BINGUNG TANYAKAN SAJA DI KOMENTAR

Download vidio di YOUTUBE tanpa software

No comments
hello gun apa kabar semua, kalian pasti pernahkan menonoton vidio di youtube dan saat kalian ingin mendownload vidionya tapi malas menginstal software lagi, tenang gan sekarang kita bisa mendownload vidio di youtube tanpa di bantu software lain langsung pake browser aja, langsung aja.

pertama silahkan agan membuka vidio youtube yang anda ingin download. contohnya saya akan mendownload vidio Love Again dari Pentatonix

copy link vidio yang agan buka tadi 
kemudian buka http://en.savefrom.net/ sebagai browser yang daoat mendownload vidio tersebut
pastekan link yang agan copy tadi dan klik download, maka hasilnya akan seperti yang di bawah ini

 kalo sudah seperti ini agan tinggal pilih kualitas vidio yang agan ingin download, gampang kan.



TERIMAKASIH TELAH MEMBACA
SEMOGA DAPAT SANGAT BERMANFAAT
JIKA ADA YANG MASIH BINGUNG TANYAKAN SAJA DI KOMENTAR

5 Contoh Program Perulangan di C++

6 comments
1. Menampilkan Bilangan Ganjil dari 1 Sampai 51


2. Menampilkan Bilangan Genap dari 2 Sampai 50


3. Membuat Segitiga Siku - Siku Dengan Bintang (dari 1 ke banyak)


4. Membuat Segitiga Siku - Siku Dengan Bintang (dari banyak ke 1)


5. Membuat Pilihan "Ya" atau "Tidak"



TERIMAKASIH TELAH MEMBACA
SEMOGA DAPAT SANGAT BERMANFAAT
JIKA ADA YANG MASIH BINGUNG TANYAKAN SAJA DI KOMENTAR