SMALL BASIC: Source code untuk Piano Sederhana

Berikut source code untuk piano di bahasa pemrograman SMALL BASIC. Silahkan kamu copy dan paste kan ke editor kamu kemudian jalankan atau Run atau tombol F5. Snapshot ada dibawah.

GraphicsWindow.Title = "Piano untuk Naomi"
GraphicsWindow.MouseDown = mouseclick
lebartutsputih = 50
tinggitutsputih = 200
lebartutshitam = 25
tinggitutshitam = 125

'penciptaan dan peletakkan tutshitam dan putih
GraphicsWindow.BrushColor = "yellow"
For i = 0 To 16
tutsputih[i] = Shapes.AddRectangle(lebartutsputih, tinggitutsputih)
shapes.Move(tutsputih[i],i*50,200)
EndFor

GraphicsWindow.BrushColor = "black"
For i = 0 To 16
  tutshitam[i] = Shapes.AddRectangle(lebartutshitam, tinggitutshitam)
  Shapes.Move(tutshitam[i],25 + i*50,200)
EndFor

Shapes.Remove(tutshitam[2])
Shapes.Remove(tutshitam[6])
Shapes.Remove(tutshitam[9])
Shapes.Remove(tutshitam[13])
Shapes.Remove(tutshitam[16])

'pengkondisian
Sub mouseclick
  ''UNTUK TUTS1
  If GraphicsWindow.MouseX >= shapes.Getleft(tutsputih[0]) and GraphicsWindow.MouseX <= Shapes.Getleft(tutsputih[0]) + lebartutsputih/2 Then
  If GraphicsWindow.MouseY >= Shapes.Gettop(tutsputih[0]) And GraphicsWindow.MouseY <= tinggitutsputih + Shapes.Gettop(tutsputih[0]) Then
    Sound.PlayMusic("O4 C")
    Shapes.setOpacity(tutsputih[0], 80)
  EndIf
EndIf

If GraphicsWindow.MouseX >= Shapes.GetLeft(tutshitam[0]) And GraphicsWindow.MouseX <= Shapes.Getleft(tutshitam[0]) + lebartutshitam Then
  If GraphicsWindow.MouseY >= Shapes.GetTop(tutshitam[0]) And GraphicsWindow.MouseY <= Shapes.GetTop(tutshitam[0]) + tinggitutshitam Then
    Sound.PlayMusic("O4 C#")
  EndIf
EndIf

If GraphicsWindow.MouseX >= Shapes.GetLeft(tutsputih[0]) + lebartutsputih/2 And GraphicsWindow.MouseX <= Shapes.GetLeft(tutsputih[0])+ lebartutsputih Then
  If GraphicsWindow.MouseY >= Shapes.GetTop(tutsputih[0]) + tinggitutshitam And GraphicsWindow.MouseY <= Shapes.GetTop(tutsputih[0])+tinggitutsputih Then
    Sound.PlayMusic("O4 C")
  EndIf
EndIf

  'UNTUK TUTS2
  If GraphicsWindow.MouseX >= shapes.Getleft(tutsputih[1]) and GraphicsWindow.MouseX <= Shapes.Getleft(tutsputih[1]) + lebartutsputih/2 Then
  If GraphicsWindow.MouseY >= Shapes.Gettop(tutsputih[1]) And GraphicsWindow.MouseY <= tinggitutsputih + Shapes.Gettop(tutsputih[1]) Then
    Sound.PlayMusic("O4 D")
  EndIf
EndIf

If GraphicsWindow.MouseX >= Shapes.GetLeft(tutshitam[1]) And GraphicsWindow.MouseX <= Shapes.Getleft(tutshitam[1]) + lebartutshitam Then
  If GraphicsWindow.MouseY >= Shapes.GetTop(tutshitam[1]) And GraphicsWindow.MouseY <= Shapes.GetTop(tutshitam[1]) + tinggitutshitam Then
    Sound.PlayMusic("O4 D#")
  EndIf
EndIf

If GraphicsWindow.MouseX >= Shapes.GetLeft(tutsputih[1]) + lebartutsputih/2 And GraphicsWindow.MouseX <= Shapes.GetLeft(tutsputih[1])+ lebartutsputih Then
  If GraphicsWindow.MouseY >= Shapes.GetTop(tutsputih[1]) + tinggitutshitam And GraphicsWindow.MouseY <= Shapes.GetTop(tutsputih[1])+tinggitutsputih Then
    Sound.PlayMusic("O4 D")
  EndIf
EndIf

  'UNTUK TUTS3
  If GraphicsWindow.MouseX >= shapes.Getleft(tutsputih[2]) and GraphicsWindow.MouseX <= Shapes.Getleft(tutsputih[2]) + lebartutsputih Then
  If GraphicsWindow.MouseY >= Shapes.Gettop(tutsputih[2]) And GraphicsWindow.MouseY <= tinggitutsputih + Shapes.Gettop(tutsputih[2]) Then
    Sound.PlayMusic("O4 E")
  EndIf
EndIf

  'UNTUK TUTS4
  If GraphicsWindow.MouseX >= shapes.Getleft(tutsputih[3]) and GraphicsWindow.MouseX <= Shapes.Getleft(tutsputih[3]) + lebartutsputih/2 Then
  If GraphicsWindow.MouseY >= Shapes.Gettop(tutsputih[3]) And GraphicsWindow.MouseY <= tinggitutsputih + Shapes.Gettop(tutsputih[3]) Then
    Sound.PlayMusic("O4 F")
  EndIf
EndIf

If GraphicsWindow.MouseX >= Shapes.GetLeft(tutshitam[3]) And GraphicsWindow.MouseX <= Shapes.Getleft(tutshitam[3]) + lebartutshitam Then
  If GraphicsWindow.MouseY >= Shapes.GetTop(tutshitam[3]) And GraphicsWindow.MouseY <= Shapes.GetTop(tutshitam[3]) + tinggitutshitam Then
    Sound.PlayMusic("O4 F#")
  EndIf
EndIf

If GraphicsWindow.MouseX >= Shapes.GetLeft(tutsputih[3]) + lebartutsputih/2 And GraphicsWindow.MouseX <= Shapes.GetLeft(tutsputih[3])+ lebartutsputih Then
  If GraphicsWindow.MouseY >= Shapes.GetTop(tutsputih[3]) + tinggitutshitam And GraphicsWindow.MouseY <= Shapes.GetTop(tutsputih[3])+tinggitutsputih Then
    Sound.PlayMusic("O4 F")
  EndIf
EndIf


  'UNTUK TUTS5
  If GraphicsWindow.MouseX >= shapes.Getleft(tutsputih[4]) and GraphicsWindow.MouseX <= Shapes.Getleft(tutsputih[4]) + lebartutsputih/2 Then
  If GraphicsWindow.MouseY >= Shapes.Gettop(tutsputih[4]) And GraphicsWindow.MouseY <= tinggitutsputih + Shapes.Gettop(tutsputih[4]) Then
    Sound.PlayMusic("O4 G")
  EndIf
EndIf

If GraphicsWindow.MouseX >= Shapes.GetLeft(tutshitam[4]) And GraphicsWindow.MouseX <= Shapes.Getleft(tutshitam[4]) + lebartutshitam Then
  If GraphicsWindow.MouseY >= Shapes.GetTop(tutshitam[4]) And GraphicsWindow.MouseY <= Shapes.GetTop(tutshitam[4]) + tinggitutshitam Then
    Sound.PlayMusic("O4 G#")
  EndIf
EndIf

If GraphicsWindow.MouseX >= Shapes.GetLeft(tutsputih[4]) + lebartutsputih/2 And GraphicsWindow.MouseX <= Shapes.GetLeft(tutsputih[4])+ lebartutsputih Then
  If GraphicsWindow.MouseY >= Shapes.GetTop(tutsputih[4]) + tinggitutshitam And GraphicsWindow.MouseY <= Shapes.GetTop(tutsputih[4])+tinggitutsputih Then
    Sound.PlayMusic("O4 G")
  EndIf
EndIf

  'UNTUK TUTS6
  If GraphicsWindow.MouseX >= shapes.Getleft(tutsputih[5]) and GraphicsWindow.MouseX <= Shapes.Getleft(tutsputih[5]) + lebartutsputih/2 Then
  If GraphicsWindow.MouseY >= Shapes.Gettop(tutsputih[5]) And GraphicsWindow.MouseY <= tinggitutsputih + Shapes.Gettop(tutsputih[5]) Then
    Sound.PlayMusic("O4 A")
  EndIf
EndIf

If GraphicsWindow.MouseX >= Shapes.GetLeft(tutshitam[5]) And GraphicsWindow.MouseX <= Shapes.Getleft(tutshitam[5]) + lebartutshitam Then
  If GraphicsWindow.MouseY >= Shapes.GetTop(tutshitam[5]) And GraphicsWindow.MouseY <= Shapes.GetTop(tutshitam[5]) + tinggitutshitam Then
    Sound.PlayMusic("O4 A#")
  EndIf
EndIf

If GraphicsWindow.MouseX >= Shapes.GetLeft(tutsputih[5]) + lebartutsputih/2 And GraphicsWindow.MouseX <= Shapes.GetLeft(tutsputih[5])+ lebartutsputih Then
  If GraphicsWindow.MouseY >= Shapes.GetTop(tutsputih[5]) + tinggitutshitam And GraphicsWindow.MouseY <= Shapes.GetTop(tutsputih[5])+tinggitutsputih Then
    Sound.PlayMusic("O4 A")
  EndIf
EndIf

  'UNTUK TUTS7
  If GraphicsWindow.MouseX >= shapes.Getleft(tutsputih[6]) and GraphicsWindow.MouseX <= Shapes.Getleft(tutsputih[6]) + lebartutsputih Then
  If GraphicsWindow.MouseY >= Shapes.Gettop(tutsputih[6]) And GraphicsWindow.MouseY <= tinggitutsputih + Shapes.Gettop(tutsputih[6]) Then
    Sound.PlayMusic("O4 B")
  EndIf
EndIf

  'UNTUK TUTS8
  If GraphicsWindow.MouseX >= shapes.Getleft(tutsputih[7]) and GraphicsWindow.MouseX <= Shapes.Getleft(tutsputih[7]) + lebartutsputih/2 Then
  If GraphicsWindow.MouseY >= Shapes.Gettop(tutsputih[7]) And GraphicsWindow.MouseY <= tinggitutsputih + Shapes.Gettop(tutsputih[7]) Then
    Sound.PlayMusic("O5 C")
  EndIf
EndIf

If GraphicsWindow.MouseX >= Shapes.GetLeft(tutshitam[7]) And GraphicsWindow.MouseX <= Shapes.Getleft(tutshitam[7]) + lebartutshitam Then
  If GraphicsWindow.MouseY >= Shapes.GetTop(tutshitam[7]) And GraphicsWindow.MouseY <= Shapes.GetTop(tutshitam[7]) + tinggitutshitam Then
    Sound.PlayMusic("O5 C#")
  EndIf
EndIf

If GraphicsWindow.MouseX >= Shapes.GetLeft(tutsputih[7]) + lebartutsputih/2 And GraphicsWindow.MouseX <= Shapes.GetLeft(tutsputih[7])+ lebartutsputih Then
  If GraphicsWindow.MouseY >= Shapes.GetTop(tutsputih[7]) + tinggitutshitam And GraphicsWindow.MouseY <= Shapes.GetTop(tutsputih[7])+tinggitutsputih Then
    Sound.PlayMusic("O5 C")
  EndIf
EndIf

  'UNTUK TUTS9
  If GraphicsWindow.MouseX >= shapes.Getleft(tutsputih[8]) and GraphicsWindow.MouseX <= Shapes.Getleft(tutsputih[8]) + lebartutsputih/2 Then
  If GraphicsWindow.MouseY >= Shapes.Gettop(tutsputih[8]) And GraphicsWindow.MouseY <= tinggitutsputih + Shapes.Gettop(tutsputih[8]) Then
    Sound.PlayMusic("O5 D")
  EndIf
EndIf

If GraphicsWindow.MouseX >= Shapes.GetLeft(tutshitam[8]) And GraphicsWindow.MouseX <= Shapes.Getleft(tutshitam[8]) + lebartutshitam Then
  If GraphicsWindow.MouseY >= Shapes.GetTop(tutshitam[8]) And GraphicsWindow.MouseY <= Shapes.GetTop(tutshitam[8]) + tinggitutshitam Then
    Sound.PlayMusic("O5 D#")
  EndIf
EndIf

If GraphicsWindow.MouseX >= Shapes.GetLeft(tutsputih[8]) + lebartutsputih/2 And GraphicsWindow.MouseX <= Shapes.GetLeft(tutsputih[8])+ lebartutsputih Then
  If GraphicsWindow.MouseY >= Shapes.GetTop(tutsputih[8]) + tinggitutshitam And GraphicsWindow.MouseY <= Shapes.GetTop(tutsputih[8])+tinggitutsputih Then
    Sound.PlayMusic("O5 D")
  EndIf
EndIf

  'UNTUK TUTS10
  If GraphicsWindow.MouseX >= shapes.Getleft(tutsputih[9]) and GraphicsWindow.MouseX <= Shapes.Getleft(tutsputih[9]) + lebartutsputih Then
  If GraphicsWindow.MouseY >= Shapes.Gettop(tutsputih[9]) And GraphicsWindow.MouseY <= tinggitutsputih + Shapes.Gettop(tutsputih[9]) Then
    Sound.PlayMusic("O5 E")
  EndIf
EndIf

  'UNTUK TUTS11
  If GraphicsWindow.MouseX >= shapes.Getleft(tutsputih[10]) and GraphicsWindow.MouseX <= Shapes.Getleft(tutsputih[10]) + lebartutsputih/2 Then
  If GraphicsWindow.MouseY >= Shapes.Gettop(tutsputih[10]) And GraphicsWindow.MouseY <= tinggitutsputih + Shapes.Gettop(tutsputih[10]) Then
    Sound.PlayMusic("O5 F")
  EndIf
EndIf

If GraphicsWindow.MouseX >= Shapes.GetLeft(tutshitam[10]) And GraphicsWindow.MouseX <= Shapes.Getleft(tutshitam[10]) + lebartutshitam Then
  If GraphicsWindow.MouseY >= Shapes.GetTop(tutshitam[10]) And GraphicsWindow.MouseY <= Shapes.GetTop(tutshitam[10]) + tinggitutshitam Then
    Sound.PlayMusic("O5 F#")
  EndIf
EndIf

If GraphicsWindow.MouseX >= Shapes.GetLeft(tutsputih[10]) + lebartutsputih/2 And GraphicsWindow.MouseX <= Shapes.GetLeft(tutsputih[10])+ lebartutsputih Then
  If GraphicsWindow.MouseY >= Shapes.GetTop(tutsputih[10]) + tinggitutshitam And GraphicsWindow.MouseY <= Shapes.GetTop(tutsputih[10])+tinggitutsputih Then
    Sound.PlayMusic("O5 F")
  EndIf
EndIf

  'UNTUK TUTS12
  If GraphicsWindow.MouseX >= shapes.Getleft(tutsputih[11]) and GraphicsWindow.MouseX <= Shapes.Getleft(tutsputih[11]) + lebartutsputih/2 Then
  If GraphicsWindow.MouseY >= Shapes.Gettop(tutsputih[11]) And GraphicsWindow.MouseY <= tinggitutsputih + Shapes.Gettop(tutsputih[11]) Then
    Sound.PlayMusic("O5 G")
  EndIf
EndIf

If GraphicsWindow.MouseX >= Shapes.GetLeft(tutshitam[11]) And GraphicsWindow.MouseX <= Shapes.Getleft(tutshitam[11]) + lebartutshitam Then
  If GraphicsWindow.MouseY >= Shapes.GetTop(tutshitam[11]) And GraphicsWindow.MouseY <= Shapes.GetTop(tutshitam[11]) + tinggitutshitam Then
    Sound.PlayMusic("O5 G#")
  EndIf
EndIf

If GraphicsWindow.MouseX >= Shapes.GetLeft(tutsputih[11]) + lebartutsputih/2 And GraphicsWindow.MouseX <= Shapes.GetLeft(tutsputih[11])+ lebartutsputih Then
  If GraphicsWindow.MouseY >= Shapes.GetTop(tutsputih[11]) + tinggitutshitam And GraphicsWindow.MouseY <= Shapes.GetTop(tutsputih[11])+tinggitutsputih Then
    Sound.PlayMusic("O5 G")
  EndIf
EndIf

  'UNTUK TUTS13
  If GraphicsWindow.MouseX >= shapes.Getleft(tutsputih[12]) and GraphicsWindow.MouseX <= Shapes.Getleft(tutsputih[12]) + lebartutsputih/2 Then
  If GraphicsWindow.MouseY >= Shapes.Gettop(tutsputih[12]) And GraphicsWindow.MouseY <= tinggitutsputih + Shapes.Gettop(tutsputih[12]) Then
    Sound.PlayMusic("O5 A")
  EndIf
EndIf

If GraphicsWindow.MouseX >= Shapes.GetLeft(tutshitam[12]) And GraphicsWindow.MouseX <= Shapes.Getleft(tutshitam[12]) + lebartutshitam Then
  If GraphicsWindow.MouseY >= Shapes.GetTop(tutshitam[12]) And GraphicsWindow.MouseY <= Shapes.GetTop(tutshitam[12]) + tinggitutshitam Then
    Sound.PlayMusic("O5 A#")
  EndIf
EndIf

If GraphicsWindow.MouseX >= Shapes.GetLeft(tutsputih[12]) + lebartutsputih/2 And GraphicsWindow.MouseX <= Shapes.GetLeft(tutsputih[12])+ lebartutsputih Then
  If GraphicsWindow.MouseY >= Shapes.GetTop(tutsputih[12]) + tinggitutshitam And GraphicsWindow.MouseY <= Shapes.GetTop(tutsputih[12])+tinggitutsputih Then
    Sound.PlayMusic("O5 A")
  EndIf
EndIf

  'UNTUK TUTS14
  If GraphicsWindow.MouseX >= shapes.Getleft(tutsputih[13]) and GraphicsWindow.MouseX <= Shapes.Getleft(tutsputih[13]) + lebartutsputih Then
  If GraphicsWindow.MouseY >= Shapes.Gettop(tutsputih[13]) And GraphicsWindow.MouseY <= tinggitutsputih + Shapes.Gettop(tutsputih[13]) Then
    Sound.PlayMusic("O5 B")
  EndIf
EndIf

  'UNTUK TUTS15
  If GraphicsWindow.MouseX >= shapes.Getleft(tutsputih[14]) and GraphicsWindow.MouseX <= Shapes.Getleft(tutsputih[14]) + lebartutsputih/2 Then
  If GraphicsWindow.MouseY >= Shapes.Gettop(tutsputih[14]) And GraphicsWindow.MouseY <= tinggitutsputih + Shapes.Gettop(tutsputih[14]) Then
    Sound.PlayMusic("O6 C")
  EndIf
EndIf

If GraphicsWindow.MouseX >= Shapes.GetLeft(tutshitam[14]) And GraphicsWindow.MouseX <= Shapes.Getleft(tutshitam[14]) + lebartutshitam Then
  If GraphicsWindow.MouseY >= Shapes.GetTop(tutshitam[14]) And GraphicsWindow.MouseY <= Shapes.GetTop(tutshitam[14]) + tinggitutshitam Then
    Sound.PlayMusic("O6 C#")
  EndIf
EndIf

If GraphicsWindow.MouseX >= Shapes.GetLeft(tutsputih[14]) + lebartutsputih/2 And GraphicsWindow.MouseX <= Shapes.GetLeft(tutsputih[14])+ lebartutsputih Then
  If GraphicsWindow.MouseY >= Shapes.GetTop(tutsputih[14]) + tinggitutshitam And GraphicsWindow.MouseY <= Shapes.GetTop(tutsputih[14])+tinggitutsputih Then
    Sound.PlayMusic("O6 C")
  EndIf
EndIf

  'UNTUK TUTS16
  If GraphicsWindow.MouseX >= shapes.Getleft(tutsputih[15]) and GraphicsWindow.MouseX <= Shapes.Getleft(tutsputih[15]) + lebartutsputih/2 Then
  If GraphicsWindow.MouseY >= Shapes.Gettop(tutsputih[15]) And GraphicsWindow.MouseY <= tinggitutsputih + Shapes.Gettop(tutsputih[15]) Then
    Sound.PlayMusic("O6 D")
  EndIf
EndIf

If GraphicsWindow.MouseX >= Shapes.GetLeft(tutshitam[15]) And GraphicsWindow.MouseX <= Shapes.Getleft(tutshitam[15]) + lebartutshitam Then
  If GraphicsWindow.MouseY >= Shapes.GetTop(tutshitam[15]) And GraphicsWindow.MouseY <= Shapes.GetTop(tutshitam[15]) + tinggitutshitam Then
    Sound.PlayMusic("O6 D#")
  EndIf
EndIf

If GraphicsWindow.MouseX >= Shapes.GetLeft(tutsputih[15]) + lebartutsputih/2 And GraphicsWindow.MouseX <= Shapes.GetLeft(tutsputih[15])+ lebartutsputih Then
  If GraphicsWindow.MouseY >= Shapes.GetTop(tutsputih[15]) + tinggitutshitam And GraphicsWindow.MouseY <= Shapes.GetTop(tutsputih[15])+tinggitutsputih Then
    Sound.PlayMusic("O6 D")
  EndIf
EndIf

  'UNTUK TUTS17
  If GraphicsWindow.MouseX >= shapes.Getleft(tutsputih[16]) and GraphicsWindow.MouseX <= Shapes.Getleft(tutsputih[16]) + lebartutsputih Then
  If GraphicsWindow.MouseY >= Shapes.Gettop(tutsputih[16]) And GraphicsWindow.MouseY <= tinggitutsputih + Shapes.Gettop(tutsputih[16]) Then
    Sound.PlayMusic("O6 E")
  EndIf
EndIf
EndSub

Configure --> Apply

Standard Access-list

Formula:

access-list access-list number {permit deny} {host source source wild-card ~ any}

Contoh Penggunaannya:

access-list 10 permit host 10.10.10.1

access-list 10 permit 192.168.1.0 0.0.0.255

access-list number:
1. 1 to 99,
2. 1300 to 1999 (Cisco IOS

Extended Access-list

Formula:
1. IP 

Basic requirement:
1. Access-list number:
2. deny atau permit
3. Protocol: ip
4. Source:                source-wildcard (inverse dari subnetmask):
5. Destination:                destination-wildcard (inverse dari subnetmask):

Contoh:
Blok koneksi
2. ICMP.

Basic requirement:
1. Access-list-number:
2. deny or permit
3. Protocol: icmp 
4. source:               source-wildcard (inverse dari subnetmask):
5. destination:                destination-wildcard (inverse dari subnetmask):

Contoh:
Blok koneksi ping dari mesin-mesin di network 192.168.1.0/24 ke mesin-mesin di network 192.168.2.0/24
R1(config)# access-list 100 deny icmp 192.168.1.0 0.0.0.255 192.168.2.0 0.0.0.255



3. TCP

Basic requirement:
1. Access-list-number
2. protocol: tcp
2. deny atau permit
3. Source:          Source-wildcard (inverse dari subnetmask):
4. Destination:           Destination-wildcard (inverse dari subnetmask):     

4. UDP

Basic Requirement:
1. Access-list-number
2. deny atau permit
3. protocol: udp
4. Source:          Source-wildcard (inverse dari subnetmask):
5. Destination:           Destination-wildcard (inverse dari subnetmask):   

Lock and Key (Dynamic ACLs)

Konfigurasi gembok dan kunci dimulai dengan pengaktifan pemblokan trafik oleh extended ACL. User yang mau melintas router diblok oleh extended ACL sampai user itu Telnet ke router dan authenticated. Koneksi Telnet kemudian putus dan single-entry ACL dinamis ditambahkan kedalam extended ACL yang aktif. Maka dengan ini membolehkan trafik lewat untuk waktu yang telah ditetapkan.

Jadi, fitur Lock and Key ini tergantung dari Telnet, authentication (Lokal atau Remote(menggunakan authentication server -- AAA server misalnya) dan extended ACL

Berikut contoh:

Mengurus pajak mobil

1. BPKB
2. STNK
3. KTP pemilik mobil

Access-list helper

Helper questions:
1. Source address?
2. Source port?
3. Destination address?
4. Destination port?
5. Permit or Deny?

tcp = {http, telnet, ...}
udp = {dhcp, dns, ...}
icmp = {ping. tracerpoute, ... }
ip = {tcp, udp, icmp}= {http, telnet, dhcp, dns, ping, traceroute, ... }


Contoh:
Blok koneksi dari host dari network 192.168.1.0/24 ke host 192.168.2.0/24
Source address: 192.168.1.0/24
Source port: Gak secara explisit dirincikan jadi kemungkinan any
Destination address? 192.168.2.0/24
Destination port? Sama, tidak dirincikan, jadi any port
Permit? Disuruh blok berarti deny

Ramu:
ip access-list 101 deny 192.168.1.0 0.0.0.255

Membuat Form Sederhana Inputan di Microsoft Excel

1. Buka microsoft excel
2. Keluarkan tab developer
3. Klik tab developer
4. Klik icon Visual Basic
5. Pada jendela Project - VBA project di sebelah kiri, klik kanan pada Sheet1 , pilih Insert, pilih UserForm.Muncul tampilan seperti berikut:
Note: UserForm1 telah terbuat, jadi yang muncul UserForm2

 6. Pada jendela Toolbox, keluarkan atau drag 1 buah control CommandButton dan 1 buah TextBox. Dan letakkan di jendela UserForm2 satu persatu. Susun sedemikian rupa letaknya seperti berikut:

7. Klik CommandButton dan isikan code berikut ini diantara Private Sub CommandButton1_Click() dan End Sub.

Sheet1.Activate
Range("A2").Select
ActiveCell.FormulaR1C1 = TextBox1.Text
MsgBox (TextBox1.Text)

8. Klik Run atau tekan tombol F5 pada keyboard. Form itu akan berjalan dan tampil seperti berikut:

9. Ketik suatu angka di kolom textbox. Setelah selesai memasukkan angka di kotak textbox, klik CommandButton1. Viola, sel A2 di Sheet1 kamu sudah terisi dengan angka yang sama dengan angka yang kamu masukkan di kotak textbox. Contoh:

Segitu aja, semoga bermanfaat.

Sub isinilaikeselA5()
    Application.Workbooks("Book1").Worksheets("Sheet1").Range("A5").Value = 20
End Sub

http://www.youtube.com/watch?v=aQKXzOJ4jSE&feature=player_embedded