| View previous topic :: View next topic |
| Author |
Message |
dekorresley
Joined: 13 Jul 2012
Posts: 41
|
 Posted: Tue Jul 17, 2012 12:27 pm Post subject: (ASK)PIC to ATMEGA |
 |
|
hi .. companions forum
I ask for its support.
Where as if wearing ATMega 8 ....
please help, thank you.
| Code: | Device = 16f628a 'PIC'i tanıtıyoruz.
Config Intrc_osc_clkout , Mclre_off , Lvp_off , Wdt_off , Pwrte_off , Cp_off , Boden_off
Declare I2c_sclout On
'---------------------------LCD--------------------------------
Lcd_dtpin = Portb.0
Lcd_rspin = Portb.4
Lcd_enpin = Porta.3
Lcd_interface = 4 ' 4-bit Interface
Lcd_lines = 2
Lcd_type = 0
Cmcon = 7
'---------------------------Adresler----------------------------
Dim Frekans_step As Word 'Frekans Onda sayı
Dim Frekans_tam As Word 'Frekans Tam sayı
Dim Frekans_onda As Word 'Frekans stepi
Dim Frekans As Word 'Frekans bilgisi değişkeni
Dim F_kontrol As Word 'KONTROL değikenini tanımladık
Dim Adres As Byte 'TSA5511 için adres değişkeni
Dim Lo As Frekans.lowbyte 'Frekans değişkeninin düşük byte'ı
Dim Hi As Frekans.highbyte 'Frekans değişkeninin yüksek byte'ı
'--------------------------Portlar------------------------------
Symbol Sda = Porta.1 'I2C'nin SDA'sı PORTA.1'ya bağlı
Symbol Scl = Porta.0 'I2C'nin Scl'si PORTA.0'ya bağlı
Symbol Led = Porta.2 'LED PORTA.2'e bağlı
Porta = 0 : Portb = 0 'PORTA ve PORTB sıfırlandı
'------------------------Eepromdan OKu--------------------------
Bas:
High Led
Print At 1 , 1 , " FM TRANSMITTER "
Print At 2 , 1 , " Rdvv ViProje "
Delayms 999
Adres = $c2 'TSA ın adresi tanımlandı.
Frekans_step = Eread 02 'Frekans Deyerini EData dan okuyor.
If Frekans_step > 0 Then Tsayaz 'Frekans Bilgisi 0 Dan Büyük ise Tsa yaza gidiyor.
'----------------------Frekans Değiştir-------------------------
Frekans_set:
'----------------------- Tsa5511 e yaz--------------------------
Frekans = Frekans_step 'frekans_ step in içeriğini Frekans a aktar.
I2cwrite Sda , Scl , Adres , [hi , Lo , $8e , $10] 'TSA ya yaz Kırmızı Tsa Üzerindeki Kırmızı ledi yak.
Frekans_onda = Frekans_step / / 10 'LCD ye yazcak olan ondalık sayıyı hesapla Ör;9820//100=20
Frekans_tam = Frekans_step / 10 'LCD ye yazcak olan tam sayıyı hesapla Ör;9820/100=98
Print At 1 , 1 , " FRE SET " , Dec Frekans_tam , "," , Dec Frekans_onda , "0 " 'LCD Yaz
Print At 2 , 1 , " RDVV 8Watt PLL " 'LCD Yaz
Delayms 200
If Portb.5 = 1 Then Artir_frekans 'frekans artır butonunu kontrol et
If Portb.7 = 1 Then Azalt_frekans 'Frekans azalt butonunu kontrol et.
If Portb.6 = 1 Then Kaydet_frekans 'Kaydet Butonunu kontrol et.
Goto Frekans_set
Artir_frekans:
Frekans_step = Frekans_step + 1 'içeriği 5 artir
If Frekans_step > 10000 Then Frekans_step = 8750 'içerik 10800 dan büyük ise 8750 yap
Goto Frekans_set
Azalt_frekans:
Frekans_step = Frekans_step - 1 'içeriği 5 azalt
If Frekans_step < 8750 Then Frekans_step = 10800 'içerik 8750 den küçük ise 10800 yap
Goto Frekans_set
'--------------------------Edataya yaz---------------------------
Kaydet_frekans:
Ewrite 02 , [frekans_step] 'Frekans Bilgisini Edataya yazıyor
Delayms 50
'----------------------- Tsa5511 e yaz--------------------------
Tsayaz:
Frekans_onda = Frekans_step / / 10
Frekans_tam = Frekans_step / 10
Print At 1 , 1 , " UnLock " , Dec Frekans_tam , "," , Dec Frekans_onda , "0 " 'lcd yaz
Print At 2 , 1 , " RDVV 8Watt PLL " 'LCD Yaz
Frekans = Frekans_step
I2cwrite Sda , Scl , $c2 , [hi , Lo , $8e , $00]
Delayms 150
'----------------------Tsa5511i Kontrol et----------------------
If Portb.6 = 1 Then Frekans_set
I2cread Sda , Scl , $c2 , [f_kontrol]
If F_kontrol.6 = 1 Then Kitli
Goto Tsayaz
Kitli:
I2cwrite Sda , Scl , $c2 , [hi , Lo , $8e , $24]
Frekans_onda = Frekans_step / / 10
Frekans_tam = Frekans_step / 10
Print At 1 , 1 , " Lock " , Dec Frekans_tam , "," , Dec Frekans_onda , "0 " 'lcd Yaz
Print At 2 , 1 , " RDVV 8Watt PLL " 'LCD Yaz
K_buton:
Delayms 100
If Portb.5 = 1 Then Lcd_led_off
If Portb.7 = 1 Then Lcd_led_on
If Portb.6 = 1 Then Frekans_set
Goto K_buton
Lcd_led_on:
High Led
Goto K_buton
Lcd_led_off:
Low Led
Goto K_buton
End |
|
|
| Back to top |
|
 |
kimmi
Joined: 24 Feb 2006
Posts: 1922
Location: Denmark
|
| Posted: Wed Jul 18, 2012 3:58 pm Post subject: |
|
|
Here is a test you need to read bascom help file to learn more
This is just a direct translate of code , its better to make a main do - loop and sub's
no need to write to display unless you change the freq
| Code: |
$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 20
$framesize = 32
Config Portb.5 = Input
Config Portb.6 = Input
Config Portb.7 = Input
Config Portc.2 = Output
Config Scl = Portc.5
Config Sda = Portc.4
Config I2cdelay = 20
I2cinit
'setup lcd EDIT THIS TO YOUR LCD SETUP
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcd = 16 * 2
Cursor Off Noblink
Cls
Dim Frekans_step As Word
Dim Frekans_tam As Word
Dim Frekans_onda As Word
Dim Frekans As Word
Dim Lo As Byte
Dim Hi As Byte
Const Adres = &HC2
Led Alias Portc.2
Portb = 0
'Frekans_step = 982 test only
'Writeeeprom Frekans_step , 02 test only
Main:
Set Led
Locate 1 , 1
Lcd " FM TRANSMITTER "
Locate 2 , 1
Lcd " Rdvv ViProje "
Waitms 999
Readeeprom Frekans_step , 02
If Frekans_step > 0 Then Goto Tsayaz
Frekans_set:
Frekans = Frekans_step
Lo = Low(frekans)
Hi = High(frekans)
I2cstart
I2cwbyte Adres
I2cwbyte Hi
I2cwbyte Lo
I2cwbyte &H8E
I2cwbyte &H10
I2cstop
Waitms 10
Frekans_onda = Frekans_step Mod 10
Frekans_tam = Frekans_step / 10
Locate 1 , 1
Lcd " FRE SET " ; Val(frekans_tam) ; "," ; Val(frekans_onda) ; "0 "
Locate 2 , 1
Lcd " RDVV 8Watt PLL "
Waitms 200
If Pinb.5 = 1 Then Goto Artir_frekans
If Pinb.7 = 1 Then Goto Azalt_frekans
If Pinb.6 = 1 Then Goto Kaydet_frekans
Goto Frekans_set
Artir_frekans:
Frekans_step = Frekans_step + 1
If Frekans_step > 10800 Then Frekans_step = 8750
Goto Frekans_set
Azalt_frekans:
Frekans_step = Frekans_step - 1
If Frekans_step < 8750 Then Frekans_step = 10800
Goto Frekans_set
Kaydet_frekans:
Writeeeprom Frekans_step , 02
Waitms 50
Tsayaz:
Frekans_onda = Frekans_step Mod 10
Frekans_tam = Frekans_step / 10
Cls
Locate 1 , 1
Lcd " UnLock " ; Frekans_tam ; "," ; Frekans_onda ; "0 "
Locate 2 , 1
Lcd " RDVV 8Watt PLL "
Frekans = Frekans_step
I2cstart
I2cwbyte Adres
I2cwbyte Hi
I2cwbyte Lo
I2cwbyte &H8E
I2cwbyte &H00
I2cstop
Waitms 150
If Pinb.6 = 1 Then Goto Frekans_set
I2cstart
I2cwbyte Adres
I2crbyte F_kontrol , Nack
I2cstop
Waitms 25
If F_kontrol.6 = 1 Then Goto Kitli
Goto Tsayaz
Kitli:
I2cstart
I2cwbyte Adres
I2cwbyte Hi
I2cwbyte Lo
I2cwbyte &H8E
I2cwbyte &H24
I2cstop
Waitms 10
Frekans_onda = Frekans_step Mod 10
Frekans_tam = Frekans_step / 10
Locate 1 , 1
Lcd " Lock " ; Val(frekans_tam) ; "," ; Val(frekans_onda) ; "0 "
Locate 2 , 1
Lcd " RDVV 8Watt PLL "
K_buton:
Waitms 100
If Pinb.5 = 1 Then Goto Lcd_led_off
If Pinb.7 = 1 Then Goto Lcd_led_on
If Pinb.6 = 1 Then Goto Frekans_set
Goto K_buton
'----------------------
Lcd_led_on:
Set Led
Goto K_buton
'----------------------
Lcd_led_off:
Reset Led
Goto K_buton
End |
_________________
/ Kim |
|
| Back to top |
|
|
dekorresley
Joined: 13 Jul 2012
Posts: 41
|
|
| Back to top |
|
|
kimmi
Joined: 24 Feb 2006
Posts: 1922
Location: Denmark
|
| Posted: Thu Jul 19, 2012 9:37 pm Post subject: |
|
|
Hi,
Yes a error in read address
by mistake I used write address (R/W bit 0) for read it must be set to 1 Hex C2 must be C3
Dim F_kontrol as byte '
| Code: | I2cstart
I2cwbyte &HC3 ' WAS adres (C2)
I2crbyte F_kontrol , Nack
I2cstop
Waitms 25 |
Or you can try the addon file PLL.Bas
it use I2csend command
its from a old code with PLL U6205B - SP5055
_________________
/ Kim |
|
| Back to top |
|
|
ardydarwys
Joined: 08 Jun 2014
Posts: 9
|
| Posted: Sat Jun 28, 2014 6:31 pm Post subject: |
|
|
 where N value to setting???
ex calculate in 100 mhz
3,2Mhz/512 = 6,25khz signal reference
100mhz/8 = 12,5 mhz
12,5mhz/6,25khz= 2000 |
|
| Back to top |
|
|
ardydarwys
Joined: 08 Jun 2014
Posts: 9
|
| Posted: Sat Jun 28, 2014 6:34 pm Post subject: |
|
|
where?
|
|
| Back to top |
|
|
kimmi
Joined: 24 Feb 2006
Posts: 1922
Location: Denmark
|
| Posted: Mon Jun 30, 2014 2:18 am Post subject: |
|
|
the code you show is setup for 6.4Mhz xtal ad 100 Khz steps
see datasheet
| Quote: | The 7.8125 kHz reference frequency is obtained by dividing the output of the 4 MHz crystal oscillator by 512. Because
the input of UHF/VHF signal is first divided by 8 the step size is 62.5 kHz.
A 3.2 MHz crystal can offer step sizes of 50 kHz. |
3200/512 = 6.25 Khz * 8 = 50 Khz
pll value 1750 - 2160 = 87.5 - 108 Mhz
see addon bas
_________________
/ Kim |
|
| Back to top |
|
|
ardydarwys
Joined: 08 Jun 2014
Posts: 9
|
| Posted: Mon Jun 30, 2014 2:15 pm Post subject: |
|
|
| thanks mr.kim.. |
|
| Back to top |
|
|
ardydarwys
Joined: 08 Jun 2014
Posts: 9
|
| Posted: Mon Jun 30, 2014 6:57 pm Post subject: |
|
|
work
hore...hore...hore..
thank mr.kimmi   |
|
| Back to top |
|
|
kimmi
Joined: 24 Feb 2006
Posts: 1922
Location: Denmark
|
| Posted: Tue Jul 01, 2014 1:16 am Post subject: |
|
|
Nice !!
A small fix in code
delete this red text :
Freq_lcd = Frekans_step * 50
Freq_lcd = Freq_lcd /1000
use this
Freq_lcd = Frekans_step * 0.05
no need to div by 1000
I was a bit sleepy when i edit the code 
_________________
/ Kim |
|
| Back to top |
|
|
ardydarwys
Joined: 08 Jun 2014
Posts: 9
|
| Posted: Tue Jul 01, 2014 5:57 pm Post subject: |
|
|
Mr. I want to ask the result of the following code on the can of formula where and how where how to find out. thank you.
Pll = Frekans_step
Pll_msb = High(pll)
Pll_lsb = Low(pll)
Ax(1) = Pll_msb
Ax(2) = Pll_lsb
Ax(3) = &H8E <<<?
Ax(4) = &H10 <<<?
Snd_bytes = 4
I2csend Address_write , Ax(1) , Snd_bytes |
|
| Back to top |
|
|
i.dobson
Joined: 05 Jan 2006
Posts: 1534
Location: Basel, Switzerland
|
| Posted: Tue Jul 01, 2014 7:15 pm Post subject: |
|
|
Hello
&H means the value is a hex number, so
&H8E = 142 (decimal)
&H10 = 16 (decimal)
Regards
Ian Dobson
_________________
Home of AVRTimer, the Bascom timer value calculator.
http://www.planet-ian.com
Walking on water and writing software to specification is easy if they're frozen. |
|
| Back to top |
|
|
kimmi
Joined: 24 Feb 2006
Posts: 1922
Location: Denmark
|
| Posted: Tue Jul 01, 2014 9:00 pm Post subject: |
|
|
see datasheet page 7 byte 4 & 5
Charge-pump and test bits
and
Output ports control bits
_________________
/ Kim |
|
| Back to top |
|
|
dekorresley
Joined: 13 Jul 2012
Posts: 41
|
| Posted: Tue Jul 01, 2014 9:07 pm Post subject: |
|
|
Pll = Frekans_step
Pll_msb = High(pll)
Pll_lsb = Low(pll)
Ax(1) = Pll_msb
Ax(2) = Pll_lsb
Ax(3) = &H8E <<<?
Ax(4) = &H10 <<<?
Snd_bytes = 4
I2csend Address_write , Ax(1) , Snd_bytes
may mean that the address is in Datasheet TSA 5511
& H8E = 142 (decimal) <<<???
& H10 = 16 (decimal) <<<???
The can of where and how where how to determine it.?
_________________
https://www.facebook.com/dekorresley |
|
| Back to top |
|
|
kimmi
Joined: 24 Feb 2006
Posts: 1922
Location: Denmark
|
| Posted: Tue Jul 01, 2014 10:21 pm Post subject: |
|
|
&H8E = binary 10001110
Charge-pump
and test bits
1 CP T1 T0 1 1 1 OS
1 0 0 0 1 1 1 0 (&H8E)
CP charge-pump current
CP = 0 50 µA
CP = 1 220 µA
P3 to P0 = 1 limited-current output is active
P7 to P4 = 1 open-collector output is active
P7 to P0 = 0 outputs are in high impedance state
T1, T0, OS = 0 0 0 normal operation
T1 = 1 P6 = fref, P7 = fDIV
T0 = 1 3-state charge-pump
OS =1 operational amplifier output is switched off (varicap drive disable)
_________________
/ Kim |
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You cannot download files in this forum
|
|
FAQ
Search
Register
Log in
