Zedomax Tự làm 106 - Thực hiện một máy tính điều khiển Đảng Light Phần II
[Tự làm 106]
Do đó cho mình!
Zedomax Đảng Light II - Thực hiện một máy tính điều khiển Đảng Light Phần II
Được rồi, cuối thời gian tôi làm một omputer c điều khiển ánh sáng bên trong 90 giây, nhưng tôi chạy vào một số vấn đề. Ánh sáng bên là một thử nghiệm và tôi cần một cái gì đó sẽ được hiện thực hơn.
Cái gì đó đã bị cô lập để bảo vệ chống lại dâng điện và không gì có thể gây ra trước sự thất bại tất cả các thiết bị dành cho người lớn và nhạc Jazz đó.
Vì vậy, tôi chỉ cần lấy ý tưởng và đi sâu hơn một chút.
Đây là một đoạn video của Đảng Light II trong hành động:
Click vào đây để xem trong Full Screen Mode
Danh sách các phần:
6 (hoặc hơn) Clip-on bóng thingee $ 30
Available at Home Depot
1 Din-rail $ 1
Có tại www.din-rail.com
1 CUSB-22R $ 129
Có tại cubloc.com
Dự kiến Thời gian để họp: 1 giờ
Thời gian dự kiến vào chương trình: 20 phút (hoặc không nếu bạn sử dụng mã nguồn của tôi)
Kết nối
(Dây, thông báo tôi có một sợi dây màu vàng giữa nhãn COM và L)
(Giống nó trên DIN rail w / clip trên bóng đèn)
(CUSB này có DIN-rail mount, do đó,
bạn chỉ có thể thanh nó trên DIN-rail)
Dưới đây là một sơ đồ đơn giản cho các kết nối:
. 
(Khi một chuyển tiếp trên, dòng màu xanh được kết nối w / dòng đỏ thông qua đường dây màu xanh lá cây)
(bên thời gian ~)
Theo chương trình ...
Bạn chỉ có thể sao chép và dán mã để CublocStudio của bạn và sau đó tải về để CUSB PLC của bạn.
Bạn có thể chơi xung quanh với nó bằng cách thay đổi số lượng ... Đối với các vòng tiếp theo và thời gian trì hoãn của các chức năng phụ.
BASIC Mã Nguồn:
[relay002.cul]
Const Device = CB280
Dim a As Byte
Làm
Đối với một = 0 To 2
Program1 100
Tiếp theo
Đối với một = 0 To 2
Program2
Tiếp theo
Đối với một = 0 To 2
Program2B
Tiếp theo
Đối với một = 0 To 2
Program3
Tiếp theo
Đối với một = 0 To 2
Program4 100
Tiếp theo
Đối với một = 0 To 5
Program4 50
Tiếp theo
Đối với một = 0 To 5
Program4 40
Tiếp theo
Đối với một = 0 To 10
Program1 30
Tiếp theo
Loop
Cuối
Tiểu Program1 (d As Integer)
một
Delay d
hai
Delay d
một
Delay d
hai
Delay d
một
Delay d
hai
Delay d
một
Delay d
End Sub
Tiểu Program2 ()
Dim B As Byte
Trên 42,1
Trên 43,1
Trên 44,1
Trên 45,1
Trên 46,1
Trên 47,1
B = 41 Đến 47
Ra B, (Outstat (B) xor 1)
Delay 100
Tiếp theo
B = 42 Bước 47 Để -1
Ra B, (Outstat (B) xor 1)
Delay 100
Tiếp theo
End Sub
Tiểu Program2B ()
Dim B As Byte
Trên 42,1
Trên 43,1
Trên 44,1
Trên 45,1
Trên 46,1
Trên 47,1
B = 42 Bước 47 Để -1
Ra B, (Outstat (B) xor 1)
Delay 100
Tiếp theo
B = 41 Đến 47
Ra B, (Outstat (B) xor 1)
Delay 100
Tiếp theo
End Sub
Tiểu Program3 ()
oneA
Delay 200
twoA
Delay 400
oneA
Delay 200
twoA
Delay 400
oneA
Delay 200
twoA
Delay 400
oneA
Delay 200
twoA
End Sub
Tiểu Program4 (d Theo số nguyên)
một
Delay d
Trên 42,0
Trên 43,0
Trên 44,0
Delay d
một
Delay d
Trên 42,0
Trên 43,0
Trên 44,0
Delay d
một
Delay d
Trên 42,0
Trên 43,0
Trên 44,0
Delay d
một
Delay d
Trên 42,0
Trên 43,0
Trên 44,0
Delay d
hai
Delay d
Trên 45,0
Trên 46,0
Trên 47,0
Delay d
hai
Delay d
Trên 45,0
Trên 46,0
Trên 47,0
Delay d
hai
Delay d
Trên 45,0
Trên 46,0
Trên 47,0
Delay d
hai
Delay d
Trên 45,0
Trên 46,0
Trên 47,0
Delay d
End Sub
Một phụ ()
Trên 42,1
Trên 43,1
Trên 44,1
Trên 45,0
Trên 46,0
Trên 47,0
End Sub
Tiểu oneA ()
Trên 42,1
Trên 43,0
Trên 44,1
Trên 45,0
Trên 46,1
Trên 47,0
End Sub
Tiểu twoA ()
Trên 42,0
Trên 43,1
Trên 44,0
Trên 45,1
Trên 46,0
Trên 47,1
End Sub
Sub hai ()
Trên 42,0
Trên 43,0
Trên 44,0
Trên 45,1
Trên 46,1
Trên 47,1
End Sub
Taking nó thêm ...
Ý tưởng ở đây là rất đơn giản, mà chúng tôi có thể làm cho một ánh sáng của bên cho w barbeque lao động ngày nay là ngày cuối tuần / bạn bè trong khi ông chủ của tôi đã đi đến một cuộc họp ...
Hoặc bạn có thể sử dụng ánh sáng đơn giản để hiển thị lớn tiếp theo của bạn,
bán lẻ sẽ hiển thị, cửa hàng quần áo, hộp đêm nhỏ hay quán bar, dưới cùng của chiếc xe của bạn (sử dụng đèn DC), văn phòng, nhà mở, các bên, holloween, vv ... vv ...
Anyways, chúng tôi sẽ làm cho một số những điều mới tiếp theo thời gian tôi nhận được một cơ hội ...
Nếu bạn đang gặp rắc rối nào với các ứng dụng trên, xin vui lòng e-mail max@zedomax.com
Nếu bạn có bất kỳ ứng dụng mát mẻ mà bạn muốn chia sẻ hoặc muốn có một số loại DIY, xin vui lòng e-mail cho max@zedomax.com
Chúng tôi chấp nhận các mẫu miễn phí cho DIYs, hãy gửi email max@zedomax.com 
