Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tam
Cytat:chodzi mi głównie o taką , która ma możliwość współpracy z przemiennikami może jakąś inną
$regfile = "ATtiny2313.DAT"
$crystal = 1000000
Dim X As Byte
Dim Wpis As Word
Config Portb.7 = 1
Config Portb.6 = 1
Config Portb.5 = 1
Dat Alias Portb.7
Ena Alias Portb.6
Clk Alias Portb.5
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portd.5 , E = Portd.1 , Rs = Portd.0
Cursor Off
Wpis = &B1000000111000101 '33221 To jest konfiguracja syntezy (AM) krok 1kHz
Cls : Lcd Wpis : Wait 1
Gosub Saa
Wpis = 27180 'To jest początkowa watrość częstotliwości 27,18MHz
Cls : Lcd Wpis
Gosub Saa
Do
Debounce P1.4 , 0 , Zwieksz , Sub
Debounce P1.3 , 0 , Zmniejsz , Sub
Loop
End
Zwieksz:
Wpis = Wpis + 10
Cls : Lcd Wpis
Gosub Saa
Return
Zmniejsz:
Wpis = Wpis - 10
Cls : Lcd Wpis
Gosub Saa
Return
Saa:
Dat = 0
Ena = 0
Clk = 0
Waitms 5
Ena = 1
Waitms 5
Clk = 1
Waitms 5
Clk = 0
Waitms 5
For X = 15 To 0 Step -1
Dat = Wpis.x 'Tu wartość Wpis wysyłamy do syntezy bit po bicie.
Waitms 5
Clk = 1
Waitms 5
Clk = 0
Waitms 5
Next X
Ena = 0
Waitms 5
Clk = 1
Waitms 5
Clk = 0
Waitms 5
Ena = 1
Waitms 5
Dat = 1
Clk = 1
Waitms 100
Return161MDS01 napisał:prosiłbym o schemat...POZDRAWIAM Cię serdecznie
Cytat:Kod:
$regfile = "ATtiny2313.DAT"
$crystal = 1000000
Dim X As Byte
Dim Wpis As Word
Config Portb.7 = 1
Config Portb.6 = 1
Config Portb.5 = 1
Dat Alias Portb.7
Ena Alias Portb.6
Clk Alias Portb.5
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portd.5 , E = Portd.1 , Rs = Portd.0
Cursor Off
Wpis = &B1000000111000101 '33221 To jest konfiguracja syntezy (AM) krok 1kHz
Cls : Lcd Wpis : Wait 1
Gosub Saa
Wpis = 27180 'To jest początkowa watrość częstotliwości 27,18MHz
Cls : Lcd Wpis
Gosub Saa
Do
Debounce P1.4 , 0 , Zwieksz , Sub
Debounce P1.3 , 0 , Zmniejsz , Sub
Loop
End
Zwieksz:
Wpis = Wpis + 10
Cls : Lcd Wpis
Gosub Saa
Return
Zmniejsz:
Wpis = Wpis - 10
Cls : Lcd Wpis
Gosub Saa
Return
Saa:
Dat = 0
Ena = 0
Clk = 0
Waitms 5
Ena = 1
Waitms 5
Clk = 1
Waitms 5
Clk = 0
Waitms 5
For X = 15 To 0 Step -1
Dat = Wpis.x 'Tu wartość Wpis wysyłamy do syntezy bit po bicie.
Waitms 5
Clk = 1
Waitms 5
Clk = 0
Waitms 5
Next X
Ena = 0
Waitms 5
Clk = 1
Waitms 5
Clk = 0
Waitms 5
Ena = 1
Waitms 5
Dat = 1
Clk = 1
Waitms 100
Return
$regfile = "ATtiny2313.DAT"
$crystal = 1000000
Dim X As Byte
Dim Wpis As Word
Config Portb.7 = 1
Config Portb.6 = 1
Config Portb.5 = 1
Config Portb.4 = 0 : Portb.4 = 1
Config Portb.3 = 0 : Portb.3 = 1
Dat Alias Portb.7
Ena Alias Portb.6
Clk Alias Portb.5
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portd.5 , E = Portd.1 , Rs = Portd.0
Cursor Off
Wpis = &B1000000111000101 '33221 To jest konfiguracja syntezy (AM) krok 1kHz
Cls : Lcd Wpis : Wait 1
Gosub Saa
Wpis = 27180 'To jest początkowa watrość częstotliwości 27,18MHz
Cls : Lcd Wpis
Gosub Saa
Do
Debounce Portb.4 , 0 , Zwieksz , Sub
Debounce Portb.3 , 0 , Zmniejsz , Sub
Loop
End
Zwieksz:
Wpis = Wpis + 10
Cls : Lcd Wpis
Gosub Saa
Return
Zmniejsz:
Wpis = Wpis - 10
Cls : Lcd Wpis
Gosub Saa
Return
Saa:
Dat = 0
Ena = 0
Clk = 0
Waitms 5
Ena = 1
Waitms 5
Clk = 1
Waitms 5
Clk = 0
Waitms 5
For X = 15 To 0 Step -1
Dat = Wpis.x 'Tu wartość Wpis wysyłamy do syntezy bit po bicie.
Waitms 5
Clk = 1
Waitms 5
Clk = 0
Waitms 5
Next X
Ena = 0
Waitms 5
Clk = 1
Waitms 5
Clk = 0
Waitms 5
Ena = 1
Waitms 5
Dat = 1
Clk = 1
Waitms 100
Return
