PIC Codigo completo Onda Senoidal de 60hz PIC16F887A

[aphawk]

58 minutos atrás, Samuel Neiva disse:

veja você mesmo ......... 

você sabe interpretar esses erros ...... por que eu não sei fazer isso, porém percebo claramente 

que eles estão ai 

 

Infelizmente não entendo nada de C ... não consigo entender ela, mas felizmente nunca precisei e nem vou dessa linguagem, tudo o que faço faço com Basic e Assembly....

 

Eu acho que esse código que você pegou tem erros ou faltam diretivas ao compilador.

 

Paulo

[Samuel Neiva]

3 horas atrás, aphawk disse:

 

Infelizmente não entendo nada de C ... não consigo entender ela, mas felizmente nunca precisei e nem vou dessa linguagem, tudo o que faço faço com Basic e Assembly....

 

Eu acho que esse código que você pegou tem erros ou faltam diretivas ao compilador.

 

Paulo

então você confirma que sabe programas em Assembly ?

se sim , este codigo pode ser escrito nesta linguágem 

que diga-se de passagem , é a linguágem nativa 

DOS MICROCONTROLADORES , caso não saiba 

ENTÃO EU TENHO OUTRA PERGUNTINHA PRA VOCÊ 

=============================================

SERÁ QUE VOCÊ PODE ESCREVER UM CODIGO 

QUE FAÇA COM QUE UM PIC ( seja la o pic que for ) 

FAÇA EXATAMENTE o que EU PRECISO ?

 

peço a gentileza do amigo , pra não teorizar 

POSSO FAZER ISSO , OU NÃO INFELIZMENTE 

NÃO POSSO FAZER ISSO EM ASSEMBLY ?

 

E então , você pode cria-lo em assembly então ?

[Samuel Neiva]

kd ustedeeeee PAULO 

kkkkkkkkkkkk Help ai meu velho 

[aphawk]

@Samuel Neiva ,

 

Ja programei em Assembly para um monte de processadores, mas microcontrolador só programo para a linha AVR.

Nao sei programar para os Pics o conceito de chavear Bancos é algo diferente de tudo o que já fiz ...

 

Mas te adianto que será bem mais fácil você aprender em C , porque em Assembly você precisa ter um Baita conhecimento do hardware interno dos Pics, e em C isso não é necessário.

 

Paulo

[Samuel Neiva]

eh ! realmente você está certo, tenho pesquisado muito aqui sobre está linguágem "C"

e tb "C++" , estou indeciso entre estas duas , porém perder quase 4 anos só pra aprender 

a criar um codigo que forneça um spwm na saída , entendo que possa ser idiotice da grossa 

 

POIS NADA FAÇO COM LINGUÁGEM DE PROGRAMAÇÃO , ALÉM DE PRECISAR DISSO 

MEU RAMO É COMPLETAMENTE OUTRO ...

 

Então eu acho que vou seguir procurando um codigo pronto , quem sabe eu esbarre com um 

por ai né , e evite toda está perda de tempo , se eu tivesse 20 anos , iria tentar até , porém 

na idade que estou ........ única chance que vou ter , e esbarrar com algo já pronto ou semi pronto .

 

valeu amigão pela força .

[aphawk]

@Samuel Neiva ,

 

Opa disponha !

 

Mas escute alguém que tem mais de 30 anos de experiência nesse campo :

Gerar o SPWM 60Hz é muito fácil, eu peguei um dos exemplos que te passei e fiz em Basic usando um Atmega328P, perdi 10 minutos para implementar.

Na minha simulação do Proteus funciona direitinho.

 

O problema é fazer a realimentação do sinal de saída para compensar a carga no secundário do transformador.

 

Os circuitos simples que funcionam sem realimentação apresentam uma grande variação na tensão de saída conforme a carga varia de 50 até 500 Watts.

 

E,claro, repare que nos exemplos ninguém se preocupa com o dead time, eu também não me preocupei kkkk mas para esse nível de 5KW vai precisar.

 

Paulo

[Samuel Neiva]

8 horas atrás, aphawk disse:

@Samuel Neiva ,

 

Opa disponha !

 

Mas escute alguém que tem mais de 30 anos de experiência nesse campo :

Gerar o SPWM 60Hz é muito fácil, eu peguei um dos exemplos que te passei e fiz em Basic usando um Atmega328P, perdi 10 minutos para implementar.

Na minha simulação do Proteus funciona direitinho.

 

O problema é fazer a realimentação do sinal de saída para compensar a carga no secundário do transformador.

 

Os circuitos simples que funcionam sem realimentação apresentam uma grande variação na tensão de saída conforme a carga varia de 50 até 500 Watts.

 

E,claro, repare que nos exemplos ninguém se preocupa com o dead time, eu também não me preocupei kkkk mas para esse nível de 5KW vai precisar.

 

Paulo

mande aqui pra mim o que funcionou ai no ATMEGA então por favor 

[aphawk]

@Samuel Neiva ,

 

Folgado ein ? kkkk

 

Não era para PIC ?

Bom vou te dar uma ajuda, embora seja o código quase idêntico dos exemplos.

Código em Basic com um minimo de Assembly.

 

$crystal = 8192000                                          ' used crystal frequency
$baud = 1200                                                ' use baud rate
$hwstack = 128                                              ' default use 128 for the hardware stack
$swstack = 64                                               ' default use 64 for the SW stack
$framesize = 64

' variables
Dim Half_cycle As Byte
Dim Sine_table(32) As Byte                                  ' Sine_table
Dim Index As Byte                                           ' Positive or Negativ Half_cycle

 

Config Timer0 = Timer , Prescale = 64                       '64/8.192 = 7.8125 us

Enable Ovf0
On Ovf0 Timer0_ovf Nosave

Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1
'+---------------------------------------------------------------------------+
'+ PWM Freq 32.00 kHz for PWM = 8 bit
'+---------------------------------------------------------------------------+

Enable Timer0                                               ' PWM Counter
Enable Interrupts
Start Timer1

'+------------------------ Sine ---------------------------------------------+
For Index = 0 To 31
   Sine_table(index + 1) = Lookup(index , Sine_dat)         ' Read sine_dat
Next Index

Index = 0
Half_cycle = 0                                              ' Positiv Sine Cycle

Do
Loop                                                        ' Loop Forever

End                                                         ' End Program

'+------------------ Interrupt0 ---------------------------------------------+
Timer0_ovf:

   $asm
  !PUSH R10
  !PUSH R11
  !PUSH R16
  !PUSH R23
  !PUSH R24
  !PUSH R25
  !PUSH R26
  !PUSH R27
  !IN R24, SREG
  !PUSH  R24
  $end asm

   Timer0 = 233

   If Half_cycle = 0 Then                                   ' Select Half Cycle Positiv
      Pwm1a = Sine_table(index + 1)                         ' PWM Positive Half Cycle
      Pwm1b = 0
   Else
      Pwm1b = Sine_table(index + 1)                         ' PWM Negativ Sine Cycle
      Pwm1a = 0
   End If

   Incr Index                                               ' Increments Index for "1"

   If Index => 31 Then
      Index = 0                                             ' Reset Index to "0"
      If Half_cycle = 0 Then
         Half_cycle = 1                                     ' Negativ Sine Cycle
      Else
         Half_cycle = 0                                     ' Positive Half Cycle

      End If
   End If

 $asm
  !POP  R24
  !OUT SREG, R24
  !POP R27
  !POP R26
  !POP R25
  !POP R24
  !POP R23
  !POP R16
  !POP R11
  !POP R10
  $end Asm
Return

'+-------------------- Look-up table ----------------------------------------+
Sine_dat:
Data 0, 25, 50, 74, 98, 120, 142, 162, 180, 197, 212, 225, 236, 244, 250, 254, 255, 254, 250,
Data 244, 236, 225, 212, 197, 180, 162, 142, 120, 98, 74, 50, 25

 

Simples demais....

 

Paulo

 

[Samuel Neiva]

6 horas atrás, aphawk disse:

@Samuel Neiva ,

 

Folgado ein ? kkkk

 

Não era para PIC ?

Bom vou te dar uma ajuda, embora seja o código quase idêntico dos exemplos.

Código em Basic com um minimo de Assembly.

 

$crystal = 8192000                                          ' used crystal frequency
$baud = 1200                                                ' use baud rate
$hwstack = 128                                              ' default use 128 for the hardware stack
$swstack = 64                                               ' default use 64 for the SW stack
$framesize = 64

' variables
Dim Half_cycle As Byte
Dim Sine_table(32) As Byte                                  ' Sine_table
Dim Index As Byte                                           ' Positive or Negativ Half_cycle

 

Config Timer0 = Timer , Prescale = 64                       '64/8.192 = 7.8125 us

Enable Ovf0
On Ovf0 Timer0_ovf Nosave

Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1
'+---------------------------------------------------------------------------+
'+ PWM Freq 32.00 kHz for PWM = 8 bit
'+---------------------------------------------------------------------------+

Enable Timer0                                               ' PWM Counter
Enable Interrupts
Start Timer1

'+------------------------ Sine ---------------------------------------------+
For Index = 0 To 31
   Sine_table(index + 1) = Lookup(index , Sine_dat)         ' Read sine_dat
Next Index

Index = 0
Half_cycle = 0                                              ' Positiv Sine Cycle

Do
Loop                                                        ' Loop Forever

End                                                         ' End Program

'+------------------ Interrupt0 ---------------------------------------------+
Timer0_ovf:

   $asm
  !PUSH R10
  !PUSH R11
  !PUSH R16
  !PUSH R23
  !PUSH R24
  !PUSH R25
  !PUSH R26
  !PUSH R27
  !IN R24, SREG
  !PUSH  R24
  $end asm

   Timer0 = 233

   If Half_cycle = 0 Then                                   ' Select Half Cycle Positiv
      Pwm1a = Sine_table(index + 1)                         ' PWM Positive Half Cycle
      Pwm1b = 0
   Else
      Pwm1b = Sine_table(index + 1)                         ' PWM Negativ Sine Cycle
      Pwm1a = 0
   End If

   Incr Index                                               ' Increments Index for "1"

   If Index => 31 Then
      Index = 0                                             ' Reset Index to "0"
      If Half_cycle = 0 Then
         Half_cycle = 1                                     ' Negativ Sine Cycle
      Else
         Half_cycle = 0                                     ' Positive Half Cycle

      End If
   End If

 $asm
  !POP  R24
  !OUT SREG, R24
  !POP R27
  !POP R26
  !POP R25
  !POP R24
  !POP R23
  !POP R16
  !POP R11
  !POP R10
  $end Asm
Return

'+-------------------- Look-up table ----------------------------------------+
Sine_dat:
Data 0, 25, 50, 74, 98, 120, 142, 162, 180, 197, 212, 225, 236, 244, 250, 254, 255, 254, 250,
Data 244, 236, 225, 212, 197, 180, 162, 142, 120, 98, 74, 50, 25

 

Simples demais....

 

Paulo

 

E isso tá direto , sem faltar nenhum pedaço mesmo kkkkkkkkkkkk

como é que eu faço pra compilar isso ?

o falgado aqui precisa saber disso né kkkkkkkkkk

[aphawk]

@Samuel Neiva ,

 

Aí já é demais !!!!! Pô meu se vira um pouco né !

 

Isso é para compilar no compilador Basic Bascom para AVR.

 

No site do MCS tem uma versão demo, pode baixar que vai compilar nela numa boa.

https://www.mcselec.com

Paulo

 

 

 

 

[Samuel Neiva]

15 horas atrás, aphawk disse:

@Samuel Neiva ,

 

Aí já é demais !!!!! Pô meu se vira um pouco né !

 

Isso é para compilar no compilador Basic Bascom para AVR.

 

No site do MCS tem uma versão demo, pode baixar que vai compilar nela numa boa.

https://www.mcselec.com

Paulo

 

 

 

 

que isso tio ! tá bravo por que 

você não sabe , que você precisa me amar ?

 

[Visitante]

ola amigos

 

estou em um projeto totalmente NOVO, e revolucionario desta vez 

 

- PIC12F675

- METAS : Gerar 2 sinais iguais do tipo spwm , defasados um do outro em 180º

com amplitude em ambos de 5v aproximadamente ( pois perfeição nesse negocio parece mosca branca ) ... sinais estes que serão entregues a um ETAPA EXISTADORA FEITA COM DRIVERS DO TIPO : IR ( quem for ajudar use o que conhecer melhor pra facilitar, e se caso precisar ) , que depois desta etapa exitadora , irá para mosfet´s do tipo IRFP : https://pdf1.alldatasheet.com/datasheet-pdf/view/17805/PHILIPS/IRFP460.html , E DAQUI para um trafo TOROID com potência próxima a 2800W rms , partindo disso o que EU PRECISO ?

 

RESPOSTA : codigo spwm para o referido PIC