 |
請問 要如何改程式 我的程式是↓
我的目的是要讓他(霹靂燈-24個LED由左而右，單燈逐漸亮志全亮，在單燈熄滅志全滅，直到按END才停止)
改了好多次，結果都一樣只會亮8個而已，請幫我看看要改哪邊才可以亮24個！謝謝
option explicit
dim value as integer
dim portaddress as integer
dim cwoyd as integer
dim ledvalue as variant
dim a8255 as integer
private sub emd_click()
emd
emd sub
private sub cmdrun_click()
timer1.enabled=true
end sub
private sub form_load()
ledvalue=array(&h1,&h2,&h4,&h8,&h10,&h20,&h40,&h80,&h80,&h40,&h20,&h10,&h8,&h4,&h2,&h1)
value=0
cword=&h80
a8255=&h80
portaddress=&h378
out portaddress+2,&h7
out _addr_data a8255+3,cword
timer1.enable=false
timer1.interval=250
end sub
pravite sub timer1_timer()
out_addr_data a8255,ledvalue(value)
text1.text=ledvalue(value)
if value <15 then
value=value+1
else=0
end if
emd sub
public sub out_addr_data(addr as integer, data as variant)
dim i as integer
out portaddress +2,&h7'out mode&ale,/rd,/wr no active
out portaddress,addr 'send address
out portaddress +2,&hf 'send ale=high
out portaddress +2,&h7 'send ale=low
out portaddress,data 'send data
out portaddress +2,&h6'send /wr=low
for i=0to100 :next i 'delay
out portaddress +2,&h7 'send /wr=high
end sub
改了好幾次都還是只會亮8個 IC是8255
|
|
|
