Akhmad Zulfikar Akbar
Jumat, 21 Desember 2012
quiz keamanan komputer
Sabtu, 11 Februari 2012
Minggu, 23 Oktober 2011
jaringan switching v-lan
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 - - - - -
Kamis, 21 April 2011
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
Rabu, 30 Maret 2011
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