Svenska ElektronikForumet

Kod: Markera allt

program Servo
main:
  DDRB = 0xFF           ' Set PORTB as output
  PORTB = 0             ' Ingen puls

  while TRUE            ' Endless loop
      PORTB.2 = 1       ' Start puls
      Delay_us(1264)    ' Puls i 1264 us = 1,264 ms
      PORTB.2 = 0       ' Stopp puls
      Delay_ms(20)      ' Vänta 20 ms
  wend

end.

Kod: Markera allt

program Servo
  dim I as word
      J as word
      Jmin as byte
      Jmax as byte
      Jstep as byte

main:
  DDB0_bit = 0                            ' Set PORTB pin 0 as input
  DDB1_bit = 0                            ' Set PORTB pin 1 as input
  DDB2_bit = 1                            ' Set PORTB pin 2 as output
  PORTB = 0                               ' Ingen puls
  Jmin = 65
  Jmax = 85
  Jstep = 5

  while TRUE                              ' Endless loop
    J = Jmin
    if (PINB0_bit = 1) then               ' Detect if PORTB pin 0 is pressed
      PORTB.2 = 1
      J = J + Jstep
      if J > Jmax then J = Jmax end if
      for I = 1 to J                      ' Kör till ena ändläget
        Delay_us(1)
      next I
      PORTB.2 = 0
      Delay_ms(20)
    end if
    if (PINB1_bit = 1) then               ' Detect if PORTB pin 1 is pressed
      PORTB.2 = 1
      J = J - Jstep
      if J < Jmin then J = Jmin end if
      for I = J to Jmax                   ' Kör till andra ändläget
        Delay_us(1)
      next I
      PORTB.2 = 0
      Delay_ms(20)
    end if
  wend
end.

Kod: Markera allt

'  DDRB.0 = 0               ' Set PORTB pin 0 as input
'  DDRB.1 = 0               ' Set PORTB pin 1 as input
'  DDRB.2 = 1               ' Set PORTB pin 2 as output
  DDRB = 0b00000100        ' Set PORTB pin 0 and 1 as input, pin 2 as output

Kod: Markera allt

program ADC
' Skrivet för ATmega88
' LCD module connections
dim LCD_RS as sbit at PORTD.2
dim LCD_EN as sbit at PORTD.3
dim LCD_D4 as sbit at PORTD.4
dim LCD_D5 as sbit at PORTD.5
dim LCD_D6 as sbit at PORTD.6
dim LCD_D7 as sbit at PORTD.7

dim LCD_RS_Direction as sbit at DDRD.2
dim LCD_EN_Direction as sbit at DDRD.3
dim LCD_D4_Direction as sbit at DDRD.4
dim LCD_D5_Direction as sbit at DDRD.5
dim LCD_D6_Direction as sbit at DDRD.6
dim LCD_D7_Direction as sbit at DDRD.7
' End LCD module connections

  dim I, adc_rd, adc_rd_Sum as word
      outstr as char[12]
main:
  DDRB.2 = 1                        ' Set PORTB pin 2 as output
  DDRC.2 = 0                        ' Set PORTC pin 2 as input
  PORTB.2 = 0                       ' Ingen puls ut. Kan tas bort
  Lcd_Init()                        ' Initialize LCD
  Lcd_Cmd(_LCD_CLEAR)               ' Clear display
  Lcd_Cmd(_LCD_CURSOR_OFF)          ' Cursor off
  Delay_ms(500)

  while TRUE                        ' Endless loop
    adc_rd = ADC_Read(2)            ' Get ADC value from 2nd channel (PC2, pin25)
    adc_rd_Sum = adc_rd / 12        ' Delar talet med 12 för att utnyttja hela potten
    WordToStr(adc_rd_Sum,outstr)    ' Måste göra om till sträng för att kunna visa på LCD'n
    outstr = "Sum:" + outstr        ' Plussar på "grundtext"
    LCD_Out(1,1,outstr)             ' Write text in first row
    PORTB.2 = 1                     ' Puls ut
    for I = 1 to adc_rd_Sum         ' Kör från ena till andra ändläget
      Delay_us(1)                   ' Väntar med minsta värdet som går
    next I
    PORTB.2 = 0                     ' Ingen puls ut
    Delay_ms(20)                    ' Delay för att köra nästa puls
  wend
end.