Struktur Data - Stack

STACK

3.1 Deskripsi Stack

Stack sering disebut LIFO (Last In, First Out) yaitu elemen yang lebih akhir disisipkan menjadi elemen yang paling dulu diambil. Stack juga disebut pushdown list.

Suatu struktur data umum yang berisi suatu kumpulan terurut dari elemen;

jumlah elemen di dalam list dapat berubah-ubah.

Linier list A yang terdiri dari T elemen pada waktu t, dinotasikan sebagai :

A = [ A1, A2, ..., AT]

Jika T = 0, maka A disebut “Empty List” atau “Null List”

Suatu elemen dapat dihilangkan/dihapus dari sembarang posisi dalam linier list, dan dapat pula dimasukkan elemen baru sebagai anggota list.

Contoh :

1. File, dengan elemennya berupa record

2. Buku telepon

3. Stack

4. Queue

5. Linear link list

Stack adalah suatu bentuk khusus dari linier list, dengan operasi penyisipan dan penghapusan dibatasi hanya pada satu sisinya, yaitu puncak stack (TOP).

Elemen teratas dari stack dinotasikan sebagai TOP(S).

Karakteristik pada stack adalah sebagai berikut :

1.      Elemen stack yaitu item-item data yang terdapat di elemen stack.

2.      Top (elemen puncak dari stack).

3.      Jumlah elemen pada stack.

4.      Status / kondisi stack

Database Oracle

Untuk membuat connection baru dalam oracle dengan menggunakan sintax SQL :

create user robby identified by obee
quota 10M on users default tablespace users

grant connect, resource to robby

kemudian dilanjutkan dengan membuat tabel-tabel yang ada dalam database :
contoh tabel karyawan...

create table karyawan
   (id_kry  number(5),
   namadepan varchar2 (12),
   namabelakang varchar2(12),
   gaji number (9) )

memasukan data pada tabel karyawan :

   insert into karyawan
   (id_kry, namadepan, namabelakang,gaji)
   values ('1001', 'hengki','anwar',2000000)
  
   dan lainnya....


Lihat Data yang diinput

    select * from karyawan

Hapus data yang diinput

   delete karyawan where id_kry = '1001'

Macam-macam perintah Select


    select id_kry,namadepan, 10000*20 uangmakan, 7000*20 transport from karyawan
   
    select namadepan, gaji from karyawan  where gaji>2000000
   
    select namadepan, gaji from karyawan  where gaji != 2000000

    select namadepan, gaji from karyawan  where gaji>2000000 and namadepan LIKE '%ia'

    select sum(gaji) jml_gaji from karyawan

cukup sekian dan terimakasih...

Sejarah & Materi HTML

Sejarah HTML

Hypertext Markup Language (HTML) adalah bahasa yang digunakan untuk menulis halaman web. HTML merupakan pengembangan dari standar pemformatan dokumen teks yaitu Standard Generalized Markup Language (SGML). HTML sebenarnya adalah dokumen ASCII atau teks biasa, yang dirancang untuk tidak tergantung pada suatu sistem operasi tertentu.

HTML dibuat oleh Tim Berners-Lee ketika masih bekerja untuk CERN dan dipopulerkan pertama kali oleh browser Mosaic. Selama awal tahun 1990 HTML mengalami perkembangan yang sangat pesat. Setiap pengembangan HTML pasti akan menambahkan kemampuan dan fasilitas yang lebih baik dari versi sebelumnya. Namun perkembangan resmi dikeluarkan pada bulan November 1995 oleh IETF (Internet Engineering Task Force). HTML 2.0 ini merupakan penyempurnaan dari HTML+(1993).

Contoh Program Perpustakaan

( PROGRAM PERPUSTAKAAN )


I. Login
Form Login digunakan untuk masuk kedalam aplikasi dengan menginputkan username pada text box kemudian menekan enter lalu memasukan password, jika validasi sesuai maka akan masuk ke dalam sistem.

Public Class LoginForm1

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UsernameTextBox.Text = "robby" And PasswordTextBox.Text = "ganteng" Then
MDIParent1.Show()
Me.Visible = False
Else
MsgBox("login gagal,coba ulangi lagi")
End If

End Sub

Login Form VB.net

MEMBUAT LOGIN VB.Net
Berikut adalah cara untuk membuat login pada VB.net
• Membuat login pada VB.net
• Klik kanan pada project yang dibuat
• Add -> New item-> login form

• Klik 2x pada tombol ok
• Masukan sintax
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UsernameTextBox.Text = "robby" And PasswordTextBox.Text = "ganteng" Then
MDIParent1.Show()
Me.Visible = False
Else
MsgBox("login gagal,coba ulangi lagi")
End If
End Sub
* Lalu jalankan / running program tersebut
* Masukan username “robby” dan password “ganteng”

• Jika sudah bisa login dan muncul MDI Parent Form maka Login telah selesai.
• Selamat mencoba……

Tampilan Menu ( MDI Parent Form)

MEMBUAT MDI PARENT FORM ( TAMPILAN MENU ) VB.NET
• Membuat tampilan menu pada vb.net
• Klik kanan projek->Add->New Item-> pilih “MDI Parent Form”
• Maka tampil seperti ini

• Kemudian ubah nama menu tersebut sesuai nama yang akan ditampilkan.

• Kemudian klik 2x, untuk mengganti sintaxnya
Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click
Form1.Show()
End Sub
• Kemudian running Mdi Parent Form tersebut

• Jika sudah tampil seperti diatas maka form MDI Parent Form telah selesai
• Selamat mencoba……

Cristal Report VB.Net

LANGKAH DALAM MEMBUAT CRISTAL REPORT DALAM VB.NET

Langsung saja pada, inti dari tutorial yang Saya ( Robby ) buat. Simak baik-baik………
Untuk membuat report langkah yang harusa kita lakukan adalah
• Klik Kanan pada project yang dibuat -> Add-> New Item
• Kemudian pilih Reporting-> Cristal Report
• Maka akan muncul tampilan seperti berikut.

• Kemudian pilih ok
• Lakukan langkah berikut. Pilih Create New Connection-> Ole Db (Ado)

Materi VB

MATERI VB

Dalam membuat program kita biasa menggunakan database. Sebagai koneksi kita menggunakan module yang dibuat untuk mengkoneksikan dengan database Membuat modul koneksi dengan database adalah sebagai berikut :

Imports System.Data
Imports System.Data.Sql
Module koneksi
Public database As New OleDb.OleDbConnection
Public tampil2 As New OleDb.OleDbCommand
Public tampilkan As OleDb.OleDbDataReader
Public hasilcek As String

Public Sub bukakoneksi()
database.Close()
Try
database.ConnectionString = "provider=sqloledb.1;integrated security=SSPI;persist security info=false; initial catalog=cobasql;data source=."
database.Open()
MessageBox.Show("Koneksi kedatabase berhasil")
Catch ex As Exception
MessageBox.Show("koneksi gagal")
End
End Try
End Sub
End Module

Kemudian membuat sintax seperti ini dalam form yang baru.
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "select * from jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
tampilkan = tampil2.ExecuteReader

If tampilkan.HasRows = True Then
While tampilkan.Read()
If IsDBNull(tampilkan("kdjur")) Then
TextBox2.text = tampilkan("nmjur")
Else
TextBox2.Text = tampilkan("nmjur")
End If
End While
End If
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
End Class

kemudian membuat tampilan formnya sebagai berikut ;

Dan dilanjutkan dengan membuat sintax selanjutnya pada form baru selanjutnya ;

Public Class Form2
Sub kosong()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
End Sub
Sub netral()
Button1.Text = "Tambah"
Button2.Text = "Ubah"
Button3.Text = "Hapus"
Button4.Text = "Keluar"
Button1.Enabled = True 'enable=funsi aktif/tdaknya sebuah objek
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
End Sub
Sub celrecord()
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "select * from jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
tampilkan = tampil2.ExecuteReader
If tampilkan.HasRows = True Then ''ada atau tidak recod yg dimaksukkan
hasilcek = True
Else
hasilcek = False
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call simpankelompok()
End Sub
Sub simpankelompok()
If Button1.Text = "Tambah" Then
TextBox1.Text = ""
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub ''then exit sub = keluar dari sub class dgan syarat textbox harus diisi/pengecekan validasi
If TextBox2.Text = "" Then Exit Sub
Call celrecord()
Try
If hasilcek = "False" Then
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Insert into Jurusan (kdjur,nmjur)values ('" & TextBox1.Text & "','" & TextBox2.Text & "')"
tampil2.ExecuteNonQuery()
Call kosong()
Else
MsgBox("Data sudah ada , silahkan cek data yang akan diinput ", MsgBoxStyle.Critical, "Input data") ''critical = ! dalam msgbox
End If
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "Keluar" Then
Me.Close()
Else
Call kosong()
Call netral()
End If
End Sub
Sub ubahkelompok()
If Button2.Text = "Ubah" Then
TextBox1.Text = ""
Button2.Text = "Simpan"
Button1.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub ''then exit sub = keluar dari sub class dgan syarat textbox harus diisi/pengecekan validasi
If TextBox2.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Update Jurusan set nmjur='" & TextBox2.Text & "'where kdjur='" & TextBox1.Text & "'"
tampil2.ExecuteNonQuery()
Call kosong()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call ubahkelompok()
End Sub
Sub hapuskelompok()
If Button3.Text = "Hapus" Then
TextBox1.Text = " "
Button3.Text = "Ok"
Button1.Enabled = False
Button2.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Delete from Jurusan where kdjur='" & Trim(TextBox1.Text)&"'"
tampil2.ExecuteNonQuery()
Call kosong()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call hapuskelompok()

End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(Keys.Enter) Then
If Button1.Text = "Simpan" Then
Call celrecord()
If hasilcek = False Then
TextBox2.Focus()
Else
MsgBox("Kode Sudah ada, silahkan ganti kode lain", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Informasi")
tampilkan = tampil2.ExecuteReader
End If
Else
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " select* from Jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
tampil2.ExecuteNonQuery()

If tampilkan.HasRows = True Then
While tampilkan.Read()
If (IsDBNull(tampilkan("kdjur"))) Then
TextBox1.Focus()
Else
TextBox2.Text = tampilkan("nmjur")
TextBox2.Focus()
End If
End While
Else
MsgBox("Data tidak diketemukan", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Tambah Data")
End If
End If
End If
End Sub

End Class

kemudian membuat tampilan formnya lagi sebagai berikut :

maka program selesai dan jangan lupa dibuat database terlebih dahulu dengan menggunakan SQL Server 2000. Untuk keterangan selanjutnya akan dibahas pada posting / update yang akan datang berikutnya…… tunggu tanggal mainnya…..

Program VB.net eps UTS

PROGRAM PERPUSTAKAAN DENGAN VB.NET

Program perpustakaan dibuat agar mempermudah seorang pustakawan dalam menjaga buku-buku yang terdapat dalam perpustakaan tersebut. Agar mempermudah menjaga dibuat program yang mencakup dalam beberapa form antara lain berupa form anggota, form buku, dan form transaksi peminjamannya.
FORM MENU
Untuk mempermudah dalam melakukan aktifitas dalam program maka dibuatlah menu yang merupakan kumpulan dari beberapa form yang terdapat dalam program tersebut. Menu tersebut terdapat beberapa button yang mengarahkan kita untuk melakukan sesuatu dengan program tersebut. Juga dilengkapi dengan button keluar jika proses kegiatan perpustakaan telah selesai dilakukan. Berikut merupakan tampilan dari form menu yang dibuat dengan besertakan syntax program yang akan membuat semua button berfungsi sebagaimana seharusnya yang kita inginkan.

Public Class Form2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form5.Show()
Hide()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Form3.Show()
Hide()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Data_Transaksi_Peminjaman.Show()
Hide()
End Sub
End Class

FORM ANGGOTA PERPUSTAKAAN
Form ini dibuat untuk mencatat data identitas dari para anggota yang mendaftar pada perpustakaan tersebut, sehingga siapapun yang meminjam buku dapat diketahui siapa yang meminjam buku tersebut. Dengan kata lain form ini membantu kita untuk menambah jumlah anggota yang terdaftar dan juga dapat melihat data nama anggota perpustakaan yang sudah mendaftar. From ini hanya terdapat beberapa textbox , label, listview, button seperti yang terlihat pada gambar tersebut. Kita memasukan beberapa identitas pada textbox kemudian tekan button simpan jika ingin disimpan, tambah jika ngin menambah lagi, hapus untuk menghapus data. Dan button kembali untuk kembali ke form utama / menu. Dan syntax form tersebut terdapat dibawah form yang hanya bersifat penyimpanan sementara atau tidak menggunakan database yang dapat simpan terus. Jika program ditutup maka data yang sudah diinput akan hilang dengan sendirinya.

Public Class Form5

Dim isitex(6) As String
Dim Item As ListViewItem
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call hapus()
End Sub
Sub hapus()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call hapus()
TextBox1.Focus()
End Sub
Sub Tabel()
ListView1.View = View.Details
ListView1.Columns.Add("No.Anggota", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("NIS", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Alamat", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Kota", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Telpon", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Keterangan", 100, HorizontalAlignment.Left)
End Sub

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call Tabel()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

isitex(0) = Trim(TextBox1.Text)
isitex(1) = Trim(TextBox2.Text)
isitex(2) = Trim(TextBox3.Text)
isitex(3) = Trim(TextBox4.Text)
isitex(4) = Trim(TextBox5.Text)
isitex(5) = Trim(TextBox6.Text)
isitex(6) = Trim(TextBox7.Text)

Item = New ListViewItem(isitex)
ListView1.Items.Add(Item)

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Form2.Show()
Hide()
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub

End Class

FORM BUKU PERPUSTAKAAN
Pada form ini kita dapat memasukan beberapa data / identitas dari buku-buku baru yang diinput ke dalam perpustakaan sehingga dapat diketahui jumlah buku dan jenis apa saja buku yang ada di perpustakaan tersebut. Dalam form ini terdapat beberapa identitas yang cukup detail tentang buku yang masuk, sehingga mempermudah dalam menemukan buku yang dimaksud dan mudah mengetahui tentang buku tersebut. Pada form ini hampir sama dengan form anggota sebelumnya yang terdapat textbox, label, panel, listview, button. Dan juga terdapat button yang berfungsi. Kita memasukan beberapa identitas pada textbox kemudian tekan button simpan jika ingin disimpan, tambah jika ngin menambah lagi, hapus untuk menghapus data. Dan button kembali untuk kembali ke form utama / menu. Dan syntax form tersebut terdapat dibawah form yang hanya bersifat penyimpanan sementara atau tidak menggunakan database yang dapat simpan terus. Jika program ditutup maka data yang sudah diinput akan hilang dengan sendirinya.

Public Class Form3
Dim isitex(6) As String
Dim Item As ListViewItem
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call hapus()
End Sub
Sub hapus()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call hapus()
TextBox1.Focus()
End Sub
Sub Tabel()
ListView1.View = View.Details
ListView1.Columns.Add("ID Buku", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Judul", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Pengarang", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Tahun", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Penerbit", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Jumlah Halaman", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Keterangan", 100, HorizontalAlignment.Left)
End Sub

Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

End Sub

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call Tabel()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

isitex(0) = Trim(TextBox1.Text)
isitex(1) = Trim(TextBox2.Text)
isitex(2) = Trim(TextBox3.Text)
isitex(3) = Trim(TextBox4.Text)
isitex(4) = Trim(TextBox5.Text)
isitex(5) = Trim(TextBox6.Text)
isitex(6) = Trim(TextBox7.Text)

Item = New ListViewItem(isitex)
ListView1.Items.Add(Item)

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Form2.Show()
Hide()
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub
End Class

FORM DATA TRANSAKSI PINJAMAN
Pada form transaksi ini dibuat untuk melakukan transaksi peminjaman yang terjadi dalam perpustakaan tersebut, pada form ini terdapat identitas anggota berupa no. anggota juta terdapat identitas buku berupa id. Buku, no tranksaksi dan lainnya. Form ini hampir sama dengan yang sebelumnya hanya saja ada beberapa tambahan berupa pemasukan tanggal pinjam dan tanggal kembali yang menggunakan tambahan toolbox yang berfungi dapat penggunaan tanggal tersebut. Berikut cara penggunaan pada form berikut ini Kita memasukan beberapa keterangan-keterangan yang dibutuhkan pada textbox jika terjadi peminjaman agar peminjaman itu bisa di perlihatkan di saat dibutuhkan dan pilih tanggal pinjam dan tanggal kembali kemudian tekan button simpan jika ingin disimpan, tambah jika ngin menambah lagi, hapus untuk menghapus data. Dan button kembali untuk kembali ke form utama / menu. Dan syntax form tersebut terdapat dibawah form yang hanya bersifat penyimpanan sementara atau tidak menggunakan database yang dapat simpan terus. Jika program ditutup maka data yang sudah diinput akan hilang dengan sendirinya.

Public Class Data_Transaksi_Peminjaman
Dim isitex(8) As String
Dim Item As ListViewItem
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call hapus()
End Sub
Sub hapus()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call hapus()
TextBox1.Focus()
End Sub
Sub Tabel()
ListView1.View = View.Details
ListView1.Columns.Add("No.Transaksi", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No. Anggota", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("ID. Buku", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Tanggal Pinjam", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Tanggal Kembali", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Lama Pinjam", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Jumlah Buku", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Keterangan", 100, HorizontalAlignment.Left)

End Sub

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call Tabel()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Val(TextBox4.Text) < 7 Then
TextBox6.Text = Val(TextBox4.Text) * 2500
End If

isitex(0) = Trim(TextBox1.Text)
isitex(1) = Trim(TextBox2.Text)
isitex(2) = Trim(TextBox3.Text)
isitex(3) = Trim(DateTimePicker1.Text)
isitex(4) = Trim(DateTimePicker2.Text)
isitex(5) = Trim(TextBox4.Text)
isitex(6) = Trim(TextBox5.Text)
isitex(7) = Trim(TextBox6.Text)

Item = New ListViewItem(isitex)
ListView1.Items.Add(Item)

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Form2.Show()
Hide()
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub

Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
End Class

Materi VB.net eps. 6 + Contoh programnya

Materi Vb.net episode ke 6 + Contoh Programnya

Assalamu Allaikum Wr.Wb

Pada pertemuan kali ini, akan membuat program sebuah program sederhana yang menggunakan beberapa toolbox yang berupa textbox, button, dan listview. Sekarang saya membuat sebuah program untuk menginput data mahasiswa yang sederhana yang tidak / belum menggunakan database jadi data yang sudah diinput tidak akan disimpan dan hanya akan tampil ketika program dijalankan sesudah itu data akan hilang dengan sendirinya. Saya menggunakan syntax sebagai berikut untuk membuatnya :

Materi + Contoh Program VB

Materi VB. net episode ke 7 beserta contoh program.

Berikut adalah contoh program yang dibuat pada pertemuan pelajaran Visual basic pada pertemuan ke 7. Pada kali ini kita membuat sebuah program yang menggunakan sebuah penyimpanan sementara yang tidak ada sangkutpautnya dengan yang namanya database. Semua data yang tersimpan disini hanya sementara akan hilang ketika program di tutup. Program tersebut hanya menggunakan tool berupa textboox, label, button, dan listview. Semua tampak rumit jika tidak dipahami, tapi ketika kita tahu algoritma / sebuah jalan ceritanya dan mau mencoba berkali-kali kita akan mudah membuat program tersebut dan bisa memakan waktu hanya 5 menit atau mungkin kurang. Langsung saja pada pemakaian program, dibawah ini sudah ada syntax yang digunakan dalam program tersebut. Dan jangan lupa pada saat menggunakan tool, perhatikan juga pengaturan properti-nya karena jika tidak maka program tersebut akan salah/ error.

Meteri VB pertemuan ke 5

MATERI VB PERTEMUAN KE 5

Dalam program VB ada 3 cara dalam pembuatan looping yaitu dengan for do, do while, dan repeat until. Kali ini akan membahas tentang do while .

Dengan contoh penggunaan do while adalah sebagai berikut :

        Dim i as integer

        Do while p <=10

        Listbox1.items.add(i)

        i=i+1

        loop

KONFIGURASI DNS SERVER ( TUGAS JARKOM II )

KONFIGURASI DNS SERVER ( TUGAS JARKOM II )

Pada saat ini saya akan menggunakan konfigurasi sebagai berikut :

Nama Domain : robby.com                 Nama Hostname : server.robby.com

Alamatnya       :

Ns1                  : 192.168.100.1

www               : 192.168.10.1

mail                 : 202.43.115.83

pop                  : canonial dari mail

webmail           : canonial dari mail

IP Address diatas akan digunakan untuk mengisi records yang digunakan. Apabila menginginkan IP address yang berbeda untuk records tertentu silakan ubah sesuai dengan keinginan / kebutuhan.

Program VB - Tugas

TUGAS VB 

 

Dalam kali ini saya selaku pemilik blog ( Robby ) akan membuat program dari VB. dengan Form sebagai berikut :

 

 Public Class Form3
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        For i = 1 To Val(TextBox1.Text)
            If i Mod 9 = 0 And i Mod 27 = 0 Then
                ListBox1.Items.Add(i)
            End If
        Next
       

Program VB

PROGRAM VB

Berikut adalah program VB yang menggunakan listbox dan combobox..

dengan tampilan form sebagai berikut ;

kemudian menuliskan programnya sebagai berikut ;

Public Class Form2

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

  

Program VB

Program VB

Berikut adalah program VB

dengan menggunkaan form sebagai berikut :

 

 Dengan Sintax Program sebagai berikut :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text = "TI" Then
            TextBox2.Text = "teknik informatika"
        Else
            If TextBox1.Text = "SI" Then
                TextBox2.Text = "sistem informasi"
            End If
        End If
    End Sub