jaringan switching v-lan

Cara membuat v-lan,contohnya:
Dalam sebuah pabrik terdapat satu switching untuk di hubungkan ke 3 bagian antara lain bagian HRD,QC,IT.



PC O untuk HRD misal 10
PC 1 untuk QC misal 20
PC 2 unruk IT misal 30
dan switch 24 port
kemudian masing-masing pc di beri IP nya,untuk swith CLI nya ikuti cara di bawah ini:

Switch>enable
Switch#configure terminal
Enter configuration commands, one per line. End with CNTL/Z.
Switch(config)#vlan 10
Switch(config-vlan)#name hrd
Switch(config-vlan)#end

%SYS-5-CONFIG_I: Configured from console by console
Switch#configure terminal
Enter configuration commands, one per line. End with CNTL/Z.
Switch(config)#vlan 20
Switch(config-vlan)#name IT
Switch(config-vlan)#end

%SYS-5-CONFIG_I: Configured from console by console
Switch#configure terminal
Enter configuration commands, one per line. End with CNTL/Z.
Switch(config)#vlan 30
Switch(config-vlan)#name QC
Switch(config-vlan)#end

%SYS-5-CONFIG_I: Configured from console by console
Switch#sh vlan brief

VLAN Name Status Ports
---- -------------------------------- --------- -------------------------------
1 default active Fa0/1, Fa0/2, Fa0/3, Fa0/4
Fa0/5, Fa0/6, Fa0/7, Fa0/8
Fa0/9, Fa0/10, Fa0/11, Fa0/12
Fa0/13, Fa0/14, Fa0/15, Fa0/16
Fa0/17, Fa0/18, Fa0/19, Fa0/20
Fa0/21, Fa0/22, Fa0/23, Fa0/24
10 hrd active
20 IT active
30 QC active
1002 fddi-default active
1003 token-ring-default active
1004 fddinet-default active
1005 trnet-default active
Switch#configure terminal
Enter configuration commands, one per line. End with CNTL/Z.
Switch(config)#interface range fa0/1 - fa 0/8
Switch(config-if-range)#switchport mode access
Switch(config-if-range)#switchport access vlan 10
Switch(config-if-range)#end

%SYS-5-CONFIG_I: Configured from console by console
Switch#configure terminal
Enter configuration commands, one per line. End with CNTL/Z.
Switch(config)#interface range fa0/9 - fa 0/16
Switch(config-if-range)#switchport mode access
Switch(config-if-range)#switchport access vlan 20
Switch(config-if-range)#end

%SYS-5-CONFIG_I: Configured from console by console
Switch#configure terminal
Enter configuration commands, one per line. End with CNTL/Z.
Switch(config)#interface range fa0/17 - fa 0/24
Switch(config-if-range)#switchport mode access
Switch(config-if-range)#switchport access vlan 30
Switch(config-if-range)#end

%SYS-5-CONFIG_I: Configured from console by console
Switch#sh vlan

VLAN Name Status Ports
---- -------------------------------- --------- -------------------------------
1 default active
10 hrd active Fa0/1, Fa0/2, Fa0/3, Fa0/4
Fa0/5, Fa0/6, Fa0/7, Fa0/8
20 IT active Fa0/9, Fa0/10, Fa0/11, Fa0/12
Fa0/13, Fa0/14, Fa0/15, Fa0/16
30 QC active Fa0/17, Fa0/18, Fa0/19, Fa0/20
Fa0/21, Fa0/22, Fa0/23, Fa0/24
1002 fddi-default act/unsup
1003 token-ring-default act/unsup
1004 fddinet-default act/unsup
1005 trnet-default act/unsup

VLAN Type SAID MTU Parent RingNo BridgeNo Stp BrdgMode Trans1 Trans2
---- ----- ---------- ----- ------ ------ -------- ---- -------- ------ ------
1 enet 100001 1500 - - - - - 0 0
10 enet 100010 1500 - - - - - 0 0
20 enet 100020 1500 - - - - - 0 0
30 enet 100030 1500 - - - - - 0 0
1002 fddi 101002 1500 - - - - -

vb.net 2008 bilangan yang habis di bagi 3,4 dan 7

Dalam program ini saya tidak membuat design nya,dikarenakan mengalami gangguan pada computer saya. Langkah-langkahnya sbb:

1. Properties yang digunakan

1	Nilai awal	Label 1	Text box 1
2	Nilai akhir	Label 2	Text box 2
3	Proses	Button 1
4	Bilangan yang habis 3,4 dan 7	List box 1
5 6	Bilangan yang tidak habis 3,4,dan 7 Menampilkan bilangan 7,8,14,16,28,32	List box 2 List box 3

2. Kemudian sintaknya

Text box 1…click

Public class form 1

Sub bersih( )

Listbox1.items.clear ( )

Listbox2.items.clear ( )

Listbox3.items.clear ( )

Textbox1.T ext =” “

Textbox2.T ext =” “

End sub

­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­sub proses1 ( )

Dim bil1 As Integer = Textbox1 . Text

Dim bil2 As Integer = Textbox2 . Text

For i = Bil1 to Bil2

If (i mod 3 = 0 ) And ( i mod 4 =0 ) And ( i mod 7 = 0 ) then

Listbox1.Items.Add ( i )

Else

Listbox2.Items.Add ( i )

End if

Next

End sub

Sub proses2 ( )

Dim bil1 As Integer = 1

Dim d , c As Integer

For i = 7 To 32

If i mod 7 = 0 then

Listbox3.Items.Add ( i )

C = c + 1

Listbox3.Items.Add ( i + c )

End if

Next

End sub

Private sub form1…load

Call bersih ( )

End sub

Private sub button1…click

Call proses1 ( )

Call proses2 ( )

End sub

Private sub Textbox1…text changed

End sub

End class

3. Selesai kemudian di running

membuat Design Akademik Mahasiswa vb.net 2008

1. Design Akademik Mahasiswa

2. Sintaknya

Public class form1

Dim isiText(4) As String

Dim milis As ListViewItem

Private sub form1....

Call Bersih ( )

Call isi Combo ( )

Call Tampilan ( )

End Sub

Private sub Form1...

End sub

Sub Bersih ( )

TextBox1.Text = “ “

TextBox2.Text = “ “

TextBox3.Text = “ “

ComboBox1.Text = “ 06 Teknik Informatika “

End sub

Sub isi Combo ( )

ComboBox1.Items.Add (“06 Teknik Informatika”)

ComboBox1.Items.Add (“07 Sistem Informatika”)

ComboBox1.Items.Add (“67 Komputer Akuntansi”)

ComboBox1.Items.Add (“05 Teknik Komputer”)

ComboBox1.Items.Add (“26 Managemen Informatika”)

End sub

Private sub Buton1_click....

If Button1.Text = “Tambah” then

Button1.Text = “Simpan”

Button2.Enabled = False

Button3.Enabled = False

Button4.Text = “Batal”

TextBox1.Focus ( )

Else

Isi Text(0) =trim (TextBox1.Text)

Isi Text(1)=trim (TextBox2.Text)

Isi Text(2)=trim (TextBox3.Text)

Isi Text(3)=Microsoft.Visual Basic.Left(trim (ComboBox1.Text),2)

Milis = New ListView Item (isiText)

ListView1.Items .Add (Milis)

Call Bersih( )

TextBox1. Focus( )

End If

End sub

Private sub Botton4_click

If Button4.Text = “Keluar” Then

Me. Close( )

Else

Call Bersih ( )

Call Normal ( )

End If

End sub

Sub Normal ( )

Button1.Text = “Tambah”

Button1.Enabled = True

Button2.Text = “Ubah”

Button2.Enabled = True

Button3.Text = “Hapus”

Button3.Enabled = True

Button4.Text = “Keluar”

End sub

Private sub Button2_click

If Button2.Text = “Ubah” Then

Button2.Text = “Simpan”

Button3.Enabled = False

Button1.Enabled = False

Button4.Text = “Batal”

TextBox1. Focus( )

Else

End If

End sub

Private sub Button3_click

If Button3.Text = “Hapus” Then

Button3.Text = “ok”

Button1.Enabled = False

Button2.Enabled = False

Button4.Text = “Batal”

End If

End sub

Sub Tampilan ( )

ListView1.View = View.Details

ListView1.Columns.Add(“NPM”,100,Horizontal Alignment.Center)

ListView1.Columns.Add(“Nama”,100,Horizontal Alignment.Left)

ListView1.Columns.Add(“Alamat”,100,Horizontal Alignment.Left)

ListView1.Columns.Add(“Jurusan”,200,Horizontal Alignment.Left)

End sub

Private sub ListView1_Item Selection Changed

TextBox1.Text =e.Item.Text

End sub

Private sub ListView1_Selected Index Change

End sub

Private sub TextBox1_KeyPress

TextBox1.Focus( )

End sub

Private sub TextBox2_Text Changed

End sub

End class

3. Di RUNNING Programnya