latihan visual VB.Net

Materi Pertemuan Ke -6 
Menjelaskan Tentang Pembuatan Data Base Dan di masukan ke “LIST VIEW”
Form’y adalah :





Sourche Codenya adalah :
Bikin Variabel

Public Class Form1
Dim listxt(3) As String
Dim listitem As ListViewItem

//*Doubel Klik Form’y dan Bikin Dibawah ini Call’y di bikin terlebih dahulu 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call setlist()
End Sub

//* Buton Klik Simpan Double Untuk Eksekuasi, 


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

listxt(0) = Trim(TextBox1.Text)
listxt(1) = Trim(TextBox2.Text)
listxt(2) = Trim(TextBox3.Text)

listitem = New ListViewItem(listxt)
ListView1.Items.Add(listitem)
End Sub

//* Bikin Method Untuk seList Nya Berkut Code’y:

Sub setlist()
ListView1.View = View.Details
ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("Alamat", 400, HorizontalAlignment.Left)

End Sub

//* Double Klik Untu ListViewnya Berikut Codenya: “jangan lupa pake Item SelectedChanged” 




Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox4.Text = e.Item.Text
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call bersih()
End Sub

//* Untuk Membersihkan Texbox yang ada : 

Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
End Class


Udah Dulu Yah,,,, Terimakasih !!!!

Read More

materi visual besic 2008

Pembahasan Kuliah VB.Net Pertemuan Ke – 4 , adalah membuat Inputan Data Beserta Kelengkapannya, Di Sertai dengan Pemakaian Combo Box .
Detailnya adalah sebagai berikut :
• Yang Pertama adalah kita Bikin Desainya / Form Isinya Yaitu :
4 Label Yaitu untuk NPM,Nama,Alamat Dan Jenjang.
4 TexBox Untuk NPM,Nama,Alamat
1 Combo Box Untuk Jenjang
1 List Box

Contoh gambar Diatas :







Selanjutnya Meng Codingnya Di bawah ini
Double Klik Pada Form’y Dan Muncul Seperti Dibawah ini :

Public Class Form1

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call Bersih()
Call IsiCombo()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

*Method Bersih Untuk Menghilangkan, isi dari masing2 TexBox 

Sub Bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ComboBox1.Text = "06 Teknik Informatika"
End Sub

*Method IsiCombo Untuk Mengisi Lis ComboBox

Sub IsiCombo()
ComboBox1.Items.Add("06 Tekhnik Informatika")
ComboBox1.Items.Add("07 Tekhnik Informasi")
ComboBox1.Items.Add("56 Menjemen Informatika")
ComboBox1.Items.Add("05 Tekhnik Komputer")
End Sub

*Mengisi Code pada tombol Keluar yang ada pada Form

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Call Noramal()
End Sub
*Method Normal untuk tombol Default dan semuanya bisa di klik

Sub Noramal()
Button1.Text = "Tambah"
Button1.Enabled = True
Button2.Text = "Ubah"
Button2.Enabled = True
Button3.Text = "Hapus"
Button3.Enabled = True
Button4.Text = "Keluar"
Button4.Enabled = True
End Sub

*Membuat code pada tombol 1 yaitu buton Tambah

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Tambah" Then
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
End If
End Sub
End Class

------------------------------------------------------------------------------------
Ket: pada buton “Tambah” apa bila di klik maka akan berubah menjadi “Simpan” dan kedua buton yaitu tombol “Ubah” & “Hapus” akan tidak bekerja / False.
Tutorial Belum Selesai, Tunggu Minngu depan,,,,,,, !!!!! 

Read More

setting DNS server menggunakan YAST

Instalasi & Setup DNS Di LINUX Open Suse

Contoh :

Domain name    : faiser_rizal.co.id

Name Server     : ns5.faise_rizalr.co.id, 192.168.1.37

Email Server       : Mailserver.faiser_rizal.co.id,    192168.1.37

Langkah Pertama

·         Buka Yast Control Center

·         Pilih Network Servis / DNS Server

·         Pilih Tab Forwaders lalu pilih “Set Forwaders Manually”

·         Pada Kolom IP Adres ketikan alamat DNS Forwaders (192.168.1.3)

·         Klik Tombol Add

·         Pilih DNS Zone

·         Pada kolom name ketikan domain name (faiser_rizal.co.id)

·         Pada kolim Type pilih master

·         Klik tombol add

·         Klik tombol edit

·         Pilih tab NS Record pada kolom “Name Server Add” Ketikan name server (ns5.faiser_rizal.co.id). klik tombol addd

 

·         Masuk ke Tab MX Record

·         Kolom adres ketikan mailserver.icnicank.co.iddan pada priority masukan angka 00 kemudian , klik tombo add.

·         Lanjut ke Tab record

·         Pertama masukan ns5 pada kolom Record Key

·         Lalau pada kolom Type pilih “A :domain Name Translation”

·         Value – 192.168.1.27 alamat IP dari mailserver.icanicank.co.id

·         Klik Tombok Ok

·         FINISH

Lakukan Testing

·         Buka console (ALT + F2, console)

·         Login sebagai root (su)

·         Restart DNS server dengan perintah

Service named restart

·         Ketikan perintah dibawah ini

Nslookup ns5.faiser_rizal.co.id

·         Dan jika DNS Server anda berjalan dengan benar maka akan mundul output seperti ini :

#nslookup ns5.C.id

Server:                  192.168.1.37

Address                :               192.168.1.37#53

Name:                  ns5.faiser_rizal.co.id

Address:              192.168.1.37

               

Selesai sudah semua tahapan seting DNS Server di “Linux Open Suse” menggunakan Yasts Managemen.

Semoga Bermanfaat untuk semua bagi semua pemkai

thanks....

Read More