Elektronika.lt
 2024 m. gruodžio 23 d. Projektas | Reklama | Žinokite | Klausimai | Prisidėkite | Atsiliepimai | Kontaktai
Paieška portale
EN Facebook RSS

 Kas naujo  Katalogas  Parduotuvės  Forumas  Tinklaraščiai
 Pirmas puslapisSąrašas
 Forumas / + pokalbiai
 - Paieška forume
 - D.U.K. / Forumo taisyklės
 - Narių sąrašas
 - Registruotis
 - Prisijungti

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 23, 08:23. Visos datos yra GMT + 2 valandos.
 Forumas » Mikrovaldikliai » Atmega16 fuses nustatymai
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
 
  
Puslapis 11
Pradėti naują temą  Atsakyti į pranešimą Rodyti ankstesnį pranešimą :: Rodyti kitą pranešimą 
 Atmega16 fuses nustatymai
PranešimasParašytas: 2016 04 16, 16:10 Pranešti apie taisyklių pažeidimą Atsakyti su citata
laidback
Dažnas dalyvis
Dažnas dalyvis
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
Sveiki,

Darau is zurnalo winamp'o valdyma. Proteus simuletoriui programa pasileidzia ir lcd uzsidega "welcome" pasveikinimas, o realybei ant lcd tik dega visa eilute ir daugiau nieko. Gal blogi fuse nustatymai? Naudoju Atmega16A.

Kodas:
Kodas:
'ATmega16
$hwstack = 128
$swstack = 128
$framesize = 128
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , Rs = Portc.0 , E = Portc.1       'LCD 16*2
$baud = 9600
$crystal = 8000000                                          'Internal clock


Declare Function Getad() As Byte
Config Adc = Single , Prescaler = Auto , Reference = Aref
Dim Last As Word

Dim Value As Byte , Temp As Byte , Send As Byte , Diff As Integer , Cn As Byte
Dim Tmp As Byte

Dim Tex(40) As Byte                                         'Text memory

Config Portd.3 = Output                                     'Button setup
Config Portd.5 = Output
Config Portd.6 = Output

Config Porta.0 = Input
Config Porta.1 = Input
Config Porta.2 = Input
Config Porta.3 = Input

Set Porta.0
Set Porta.1
Set Porta.2
Set Porta.3

Tas1 Alias Pina.0                                           'Button 1
Tas3 Alias Pina.1                                           'Button 2
Tas4 Alias Pina.2                                           'Button 3
Tas2 Alias Pina.3                                           'Button 4


En Alias Portd.3                                            'Enable output for L293D
A1 Alias Portd.5                                            'Output 1 of L293D
A2 Alias Portd.6                                            'Output 2 of L293D



Last = 250

Cursor Off                                                  'LCD init
Cls
Lcd " Winamp Control"
Lowerline
Lcd " v.1.1"
Locate 1 , 1

New:
Waitms 100
Newi:
Temp = Udr                                                  'Read serial input
Value = Getad()                                             'Start position
Do
   Temp = Getad()                                           'Current position
   Diff = Value - Temp
   Diff = Abs(diff)
   If Diff > 5 Then                                         'Manual move?
      Goto Manual
   End If

   If Tas1 = 0 Then                                         'Button 1 pressed?
      Do
         Waitms 100
      Loop Until Tas1 = 1
      Printbin 251
      Printbin 0
   End If
   If Tas2 = 0 Then                                         'Button 2 pressed?
      Do
         Waitms 100
      Loop Until Tas2 = 1
      Printbin 252
      Printbin 0
   End If
   If Tas3 = 0 Then                                         'Button 3 pressed?
      Do
         Waitms 100
      Loop Until Tas3 = 1
      Printbin 253
      Printbin 0
   End If
   If Tas4 = 0 Then                                         'Button 4 pressed?
      Do
         Waitms 100
      Loop Until Tas4 = 1
      Printbin 254
      Printbin 0
   End If

   Temp = Inp(&H2b)                                         'Serial data received?
   Temp = Temp And &B10000000
Loop Until Temp > 0

Value = Udr                                                 'Process data
Sync:
If Value = 125 Then Goto Textd                              'Command 125 -> receive data and set LCD
Send = 140
If Value = 120 Then Send = 100                              'Valid command?
If Value = 110 Then Send = 0
If Send = 140 Then Goto New

Do
   Temp = Inp(&H2b)                                         'Wait for second data byte
   Temp = Temp And &B10000000
   Waitms 1
Loop Until Temp > 0

Value = Udr
If Value > 101 Then Goto Sync                               'Error
Send = Send + Value                                         'Check data
If Send > 200 Then Send = 200
Send = 200 - Send
Value = Getad()

Diff = Value - Send                                         'Diference between leaver and received value
Diff = Abs(diff)
If Diff < 5 Then Goto New                                   'Difference to small return

If Value > Send Then                                        'Drive leaver up
'###############################################################################
   Temp = Getad()
   If Temp = 0 Then Goto Endpush

   Cn = 0
   Value = Getad()

   Reset A1
   Set A2
   Set En

   Do
      Temp = Getad()
      If Value < Temp Then Goto Manual
      If Value = Temp Then
         Cn = Cn + 1
         If Cn = 250 Then Goto Manual
      Else
         Cn = 0
      End If
      Value = Temp
   Loop Until Temp =< Send Or Temp = 0
   Goto Endpush
Else
'############################################################################### 'or drive leaver down
   Temp = Getad()
   If Temp = 200 Then Goto Endpush

   Cn = 0
   Value = Getad()

   Set A1
   Reset A2
   Set En

   Do
      Temp = Getad()
      If Value > Temp Then Goto Manual
      If Value = Temp Then
         Cn = Cn + 1
         If Cn = 250 Then Goto Manual
      Else
         Cn = 0
      End If
      Value = Temp
   Loop Until Temp => Send Or Temp = 200
   Goto Endpush
End If
'###############################################################################
Endpush:
   Reset En
Goto New


Textd:                                                      'Receive 32 bytes for display
Tmp = 1
   For Cn = 1 To 32
         Do
           Waitus 50
           Temp = Inp(&H2b)
           Temp = Temp And &B10000000
         Loop Until Temp > 0
         Tex(cn) = Udr
   Next Cn
Tmp = 1

Locate 1 , 1
For Cn = 1 To 32
   If Tex(cn) > 32 And Tex(cn) < 127 Then
      Lcd Chr(tex(cn))
   Else
      Lcd " "
   End If
   If Tex(cn) = 0 Then Goto Newi
   If Cn = 16 Then
      Locate 2 , 1
   End If
Next Cn
Goto Newi


Manual:                                                     'Manuall override
   Printbin 240                                             'Notifie PC that leaver was pushed manual
   Printbin 0
Manualt:
   Reset En
   Value = Getad()
   Waitms 250                                               'If leaver stood dtill for 250ms then notifie PC
   Temp = Getad()
   If Value <> Temp Then Goto Manualt
   Temp = 200 - Temp
   Temp = Temp + 1
   Printbin Temp
   Printbin 0
Goto New


Function Getad() As Byte
   Local A As Word , B As Integer
   A = Getadc(4)
   A = A / 5.12

   If A > 200 Then A = 200
   If A < 0 Then A = 0

   If A = 0 Or A = 200 Then
      Last = A
      Goto Exget
   End If

   B = A - Last
   B = Abs(b)
   If B < 5 Then
      A = Last
      Goto Exget
   End If
   Last = A
Exget:
   Getad = A
End Function


Fuses:


Patarkit ka dar perziuret.
 Atmega16 fuses nustatymai
PranešimasParašytas: 2016 04 16, 17:04 Pranešti apie taisyklių pažeidimą Atsakyti su citata
AlgisL
Senbuvis
Senbuvis
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
Zvilgtelk http://www.engbedded.com/fusecalc/ ir nusistatyk kaip reikia
Kad Atmega veiktu 8MHz dazniu, tau reikia nustatyti CKSEL0 bei nuimti CKSEL2 varnas.
Abejoju ar tau reikia JTAGEN
Manau, kad praverstu BODEN, o BODLEVEL priklauso nuo kiek maitini Atmega (jei nuo 5V, tai gali uzdeti varna).
 Atmega16 fuses nustatymai
PranešimasParašytas: 2016 04 16, 17:45 Pranešti apie taisyklių pažeidimą Atsakyti su citata
laidback
Dažnas dalyvis
Dažnas dalyvis
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
Dekui uz gero linko priminima, viskas susitvarke.
 Atmega16 fuses nustatymai
PranešimasParašytas: 2016 04 16, 18:56 Pranešti apie taisyklių pažeidimą Atsakyti su citata
S_Kulikauskas
Užkietėjęs dalyvis
Užkietėjęs dalyvis
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
Gaila,kad pas mus nėra"Laik" mygtuko, Laidback jau spaustų, o aš spausčiau du kart, už tai kad žmogus, aukodamas savo laiką tokius gerus patarimus dalina Wink .
Pradėti naują temą  Atsakyti į pranešimą
 
Forumo sistema: phpBB
 „Google“ paieška forume
 Kas naujesnio?
 Naujos temos forume

Global electronic components distributor – Allicdata Electronics

Electronic component supply – „Eurodis Electronics“

LOKMITA – įvairi matavimo, testavimo, analizės ir litavimo produkcija

Full feature custom PCB prototype service

Sveiki ir ekologiški maisto produktai

Mokslo festivalis „Erdvėlaivis Žemė

LTV.LT - lietuviškų tinklalapių vitrina

„Konstanta 42“

Technologijos.lt

Buitinė technika ir elektronika internetu žemos kainos – Zuza.lt

www.esaugumas.lt – apsaugok savo kompiuterį!

PriedaiMobiliems.lt – telefonų priedai ir aksesuarai

Draugiškas internetas

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
ATS Trailers
American Truck Simulator Mods, ATS Trucks, ATS Maps
Reklama
‡ 1999– © Elektronika.lt | Autoriaus teisės | Privatumo politika | Atsakomybės ribojimas | Turinys | Reklama | Kontaktai LTV.LT - lietuviškų tinklalapių vitrina
Script hook v, Openiv, Menyoo
gta5mod.net
FS25 Mods, FS25 Tractors, FS25 Maps
fs25mods.lt
Optical filters, UV optics, electro optical crystals
www.eksmaoptics.com
Reklamos paslaugos
SEO sprendimai

www.addad.lt
Elektroninių parduotuvių optimizavimas „Google“ paieškos sistemai
www.seospiders.lt
FS22 mods, Farming simulator 22 mods,
FS22 maps

fs22.com
Reklama


Reklama