API tools faq
paste
Advertisement
kabulaewis

lampu merah pakel

kabulaewis
Feb 11th, 2016
3,755
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
BASCOM AVR 2.53 KB | None | 0 0
raw download clone embed print report
  1. $regfile " reg51.dat"
  2. $crystal = 12000000
  3.  
  4.    Declare Sub Tombol
  5.    Main:
  6.    Call Tombol
  7.    Goto Main
  8.  
  9.    Sub Tombol:
  10.    If P1.0 = 0 Then Goto Nyala
  11.    If P1.1 = 0 Then Goto Kuning
  12.    If P1.2 = 0 Then Goto Mati
  13.    End Sub
  14.  
  15.    Nyala:
  16.    Wait 2
  17.    Nyala1:
  18.       'merah semua
  19.    Call Tombol
  20.    P0 = &HF6
  21.    P2 = &HF6
  22.    Call Tombol
  23.    Wait 1
  24.  
  25.       'kidul nyala
  26.    Call Tombol
  27.    P0 = &HF3
  28.    P2 = &HF6
  29.    Call Tombol
  30.    Wait 3
  31.  
  32.       'kidul kuning kuning
  33.    Call Tombol
  34.    P0 = &HF5
  35.    P2 = &HF6
  36.    Waitms 500
  37.    P0 = &HF7
  38.    P2 = &HF6
  39.    Waitms 500
  40.    P0 = &HF5
  41.    P2 = &HF6
  42.    Waitms 500
  43.    P0 = &HF7
  44.    P2 = &HF6
  45.    Waitms 500
  46.    P0 = &HF5
  47.    P2 = &HF6
  48.    Waitms 500
  49.    P0 = &HF7
  50.    P2 = &HF6
  51.    Waitms 500
  52.    Call Tombol
  53.  
  54.       'merah semua
  55.    Call Tombol
  56.    P0 = &HF6
  57.    P2 = &HF6
  58.    Call Tombol
  59.    Wait 1
  60.  
  61.       'kulon nyala
  62.    Call Tombol
  63.    P0 = &HDE
  64.    P2 = &HF6
  65.    Call Tombol
  66.    Wait 3
  67.  
  68.       'kulon kuning kuning
  69.    Call Tombol
  70.    P0 = &HEE
  71.    P2 = &HF6
  72.    Waitms 500
  73.    P0 = &HFE
  74.    P2 = &HF6
  75.    Waitms 500
  76.    P0 = &HEE
  77.    P2 = &HF6
  78.    Waitms 500
  79.    P0 = &HFE
  80.    P2 = &HF6
  81.    Waitms 500
  82.    P0 = &HEE
  83.    P2 = &HF6
  84.    Waitms 500
  85.    P0 = &HFE
  86.    P2 = &HF6
  87.    Waitms 500
  88.    Call Tombol
  89.  
  90.       'merah semua
  91.    Call Tombol
  92.    P0 = &HF6
  93.    P2 = &HF6
  94.    Call Tombol
  95.    Wait 1
  96.  
  97.       'lor nyala
  98.    Call Tombol
  99.    P0 = &HF6
  100.    P2 = &HF3
  101.    Call Tombol
  102.    Wait 3
  103.       'lor kuning kuning
  104.    Call Tombol
  105.    P0 = &HF6
  106.    P2 = &HF5
  107.    Waitms 500
  108.    P0 = &HF6
  109.    P2 = &HF7
  110.    Waitms 500
  111.    P0 = &HF6
  112.    P2 = &HF5
  113.    Waitms 500
  114.    P0 = &HF6
  115.    P2 = &HF7
  116.    Waitms 500
  117.    P0 = &HF6
  118.    P2 = &HF5
  119.    Waitms 500
  120.    P0 = &HF6
  121.    P2 = &HF7
  122.    Waitms 500
  123.    Call Tombol
  124.  
  125.       'merah semua
  126.    Call Tombol
  127.    P0 = &HF6
  128.    P2 = &HF6
  129.    Call Tombol
  130.    Wait 1
  131.  
  132.       'etan nyala
  133.    Call Tombol
  134.    P0 = &HF6
  135.    P2 = &HDE
  136.    Call Tombol
  137.    Wait 3
  138.       'etan kuning kuning
  139.    Call Tombol
  140.    P0 = &HF6
  141.    P2 = &HEE
  142.    Waitms 500
  143.    P0 = &HF6
  144.    P2 = &HFE
  145.    Waitms 500
  146.    P0 = &HF6
  147.    P2 = &HEE
  148.    Waitms 500
  149.    P0 = &HF6
  150.    P2 = &HFE
  151.    Waitms 500
  152.    P0 = &HF6
  153.    P2 = &HEE
  154.    Waitms 500
  155.    P0 = &HF6
  156.    P2 = &HFE
  157.    Waitms 500
  158.    Call Tombol
  159.    Goto Nyala1
  160.  
  161.    Kuning:
  162.    Wait 2
  163.    Kuning1:
  164.    Call Tombol
  165.    P0 = &HED
  166.    P2 = &HED
  167.    Waitms 500
  168.    P0 = &HFF
  169.    P2 = &HFF
  170.    Waitms 500
  171.    Call Tombol
  172.  
  173.    Goto Kuning1
  174.  
  175.    Mati:
  176.    Wait 2
  177.    Mati1:
  178.    Call Tombol
  179.    P0 = &HFF
  180.    P2 = &HFF
  181.    Call Tombol
  182.    Goto Mati1
  183. End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!