 |
|
|
Elektronika.lt portalo forumas
Jūs esate neprisijungęs lankytojas. Norint dalyvauti diskusijose, būtina užsiregistruoti ir prisijungti prie forumo.
Prisijungę galėsite kurti naujas temas, atsakyti į kitų užduotus klausimus, balsuoti forumo apklausose.
Administracija pasilieka teisę pašalinti pasisakymus bei dalyvius,
kurie nesilaiko forumo taisyklių.
Pastebėjus nusižengimus, prašome pranešti.
Dabar yra 2024 12 01, 12:55. Visos datos yra GMT + 2 valandos.
|
|
|
 |
Forumas » Mikrovaldikliai » Duomenų perdavimas tarp PIC16F628 ir PIC12F675
|
Jūs negalite rašyti naujų pranešimų į šį forumą
Jūs negalite atsakinėti į pranešimus šiame forume
Jūs negalite redaguoti savo pranešimų šiame forume
Jūs negalite ištrinti savo pranešimų šiame forume
Jūs negalite dalyvauti apklausose šiame forume
|
|
|
|
|
 |
Duomenų perdavimas tarp PIC16F628 ir PIC12F675 |
 Parašytas: 2015 05 24, 15:32 |
  |
|
|
|
Sveiki, taigi iškilo šiokia tokia problema: imtuvas surinktas ant PIC16F628 nepriima duomenų.
Siųstuvą surinkau ant PIC12F675, tikrinau osciloskopu - duomenys siunčiami.
Manau, klaida bus programavime, žemiau pateikiu siųstuvo ir imtuvo kodus:
SIŲSTUVAS:
| Kodas: |
#CONFIG
__config _INTRC_OSC_NOCLKOUT & _WDT_OFF & _CP_OFF & _MCLRE_OFF & _BODEN_OFF & _PWRTE_OFF
#ENDCONFIG
DEFINE OSC 4
DEFINE ADC_BITS 10
DEFINE ADC_CLOCK 3
DEFINE ADC_SAMPLEUS 50
CMCON = 7 : TRISIO = %00010001 : ADCON0.7 = 1 : ANSEL = %00011001
INCLUDE "modedefs.bas"
LED var GPIO.2
i var byte
Akumuliatorius VAR word
Lygis var word
Buves var word : Buves = 0
Buves1 var word
Buves2 var word
Adresas var byte : Adresas = %00111110
pause 100
FOR i = 1 TO 3
high led : pause 400
low led : pause 400
NEXT i
main:
ADCIN 0, akumuliatorius
if akumuliatorius <= 640 then
high led
else
low led
endif
adcin 3, lygis
Buves1 = Buves - 6 : Buves2 = Buves + 6
if Lygis <= Buves1 or Lygis >= Buves2 then
buves = lygis
SEROUT GPIO.1,T300,["ABC",Adresas]
endif
goto main
end
|
IMTUVAS:
| Kodas: |
#CONFIG
__config _FOSC_INTOSCIO & _WDT_OFF & _PWRTE_OFF & _MCLRE_OFF & _LVP_OFF & _CP_OFF
#ENDCONFIG
DEFINE OSC 4
PORTA = 0 : PORTB = 0 : TRISA = %00000100 : TRISB = %00000000 : CMCON = 7
INCLUDE "modedefs.bas"
LED var PORTA.1
i var byte
Adresas var byte
Buves var word : Buves = 100
pause 100
FOR i = 1 TO 3
high led : pause 400
low led : pause 400
NEXT i
main:
HPWM 1,buves,1000
SERIN PORTA.2,T300,["ABC"],Adresas
gosub tikrinam
SERIN PORTA.2,T300,["ABC"],adresas
gosub tikrinam
adresas = 0
goto main
tikrinam:
if (adresas = %00111110) then
high led
pause 100
low led
endif
return
end
|
|
|
|
|
|
|
|
  |
|
|
|
 |
Google paieška forume |
|
|
|
Naujos temos forume |
|
|
FS25 Tractors
Farming Simulator 25 Mods,
FS25 Maps,
FS25 Trucks |
|
ETS2 Mods
ETS2 Trucks,
ETS2 Bus,
Euro Truck Simulator 2 Mods
|
|
FS22 Tractors
Farming Simulator 22 Mods,
FS22 Maps,
FS25 Mods |
|
VAT calculator
VAT number check,
What is VAT,
How much is VAT |
|
LEGO
Mänguköök,
mudelautod,
nukuvanker |
|
Thermal monocular
Thermal vision camera,
Night vision ar scope,
Night vision spotting scope |
|
FS25 Mods
FS25 Harvesters,
FS25 Tractors Mods,
FS25 Maps Mods |
|
Dantų protezavimas
All on 4 implantai,
Endodontija mikroskopu,
Dantų implantacija |
|
FS25 Mods
FS25 Maps,
FS25 Cheats,
FS25 Install Mods |
|
GTA 6 Weapons
GTA 6 Characters,
GTA 6 Map,
GTA 6 Vehicles |
|
FS25 Mods
Farming Simulator 25 Mods,
FS25 Maps |
|
|
 |
