Paralel Dac Devreleri var Picin cıkısını Dacın Paralel Data girişine baglıyıp bu baglantıya Deger veriyorsun Dac ta cıkısını degere gore ayarlıyor..
Paralel Dac kullanıcaksan Picin baska bir portunuda onluk decodere baglayıp Decoder cıkıslarını Chip select olarak kullanabilirsin
Boylece 1den fazla DAC data gondermis olursun
ayrıca 2 hatlı ve 3 hatlı seri haberlesen Daclarda var
2 hatlı olanlarda Adresleme yapılan pinler var . 3 hatlı olanlardada Chip Select Ucu var
MAX519 DACI 16 adet MAX519 cihazı baglatısı yapabiliyorsun ayrıca herdacın 2 dac cıkısı var yani toplamda 32 Dac cıkısı alabilirsin
Ben Similasyonda bu ornekte 2 dac kullandım
1 dac adresi 0 Pinler (A0,A1,A2,A3 =
gnd )
2 dac adresi 16 PİNLER (A0,A1,A2,A3 = +5V)
2 hatlı seri DAC 'ın kodları assagıdaki gibi
Include "proton_4.inc"
Dim DacVal As Byte
Dim DACAddress As Byte
Dim DACCommand As Byte
DACCommand = 0
DACAddress=%1000000 ' 1 dac
'DACAddress =%1000010 ' 2 dac
'DACAddress =%1000100 ' 3 dac
'DACAddress =%1000110 ' 4 dac
'DACAddress =%1001000 ' 5 dac
'DACAddress =%1001010 ' 6 dac
'DACAddress =%1001100 ' 7 dac
'DACAddress =%1001110 ' 8 dac
'DACAddress =%1010000 ' 9 dac
'DACAddress =%1010010 ' 10 dac
'DACAddress =%1010100 ' 11 dac
'DACAddress =%1010110 ' 12 dac
'DACAddress =%1011000 ' 13 dac
'DACAddress =%1011010 ' 14 dac
'DACAddress =%1011100 ' 15 dac
'DACAddress =%1011110 ' 16 dac
' her dac ta 2 cıkıs var yani 32 cıkıs eder
'Dacların 1ci cıkısı DACCommand = 0 yaparak
'Dacların 2ci cıkısı DACCommand = 1 yaparak
'kullanılır
' Bir adrese komut gonderilince ve bu adres sistemde yoksa
' Porteusra Command error olusuyor...
start:
For DacVal = 0 To 255
BusOut DACAddress,DACCommand,[DacVal]
DelayMS 10
Next
GoTo start
