ADC + Schieberegister + PORTA

$regfile = "m32def.dat"

$crystal = 16000000

$baud = 38400

$hwstack = 200

$swstack = 200

$framesize = 200

Config Adc = Single , Prescaler = Auto , Reference = Aref   'Für Spannungsmessung

Start Adc

Config Porta.2 = Output                                     'LED amarelo                                     '

Config Porta.3 = Output                                     'LED vermelho

Config Portd.3 = Input                                      'Botao Salvar

Config Portb.2 = Input

Config Portd.2 = Input

Portc.2 = 0

Ledamarelo Alias Porta.2

Ledvermelho Alias Porta.3

Botaosalvar Alias Portd.3

Portd.3 = 1

Dim Dummi As Integer

Dim Rpm1 As Integer

Dim Rpm2 As Integer

Dim Drehzahl1 As Integer

Dim Drehzahl2 As Integer

Dim Saveflag As Boolean

Saveflag = 0

Config Debounce = 30

'#################################################################################################################################

'#

'# LCD

'#

'#################################################################################################################################

' Einstellen des LCD Display's von myAVR in BASCOM

'Config Lcdpin = Pin , Db4 = Portc.7 , Db5 = Portc.6 , Db6 = Portc.5 , Db7 = Portc.4 , E = Portc.3 , Rs = Portd.7

'Config Lcd = 16 * 2

'#################################################################################################################################

'#

'# Accelerometer

'#

'#################################################################################################################################

'Acelerometro

Config Portc.2 = Output

Config Portb.0 = Output

Config Portb.1 = Output

Portb.0 = 0

Portb.1 = 0

Config Porta.6 = Input

Config Porta.5 = Input

Config Porta.4 = Input

Dim Xachse As Integer

Dim Yachse As Integer

Dim Zachse As Integer

Dim Ruhelage_x As Integer

Dim Ruhelage_y As Integer

Dim Ruhelage_z As Integer

Const Toleranz_x = 100

Const Toleranz_y = 100

Const Toleranz_z = 100

Waitms 5

Ruhelage_x = Getadc(6)

Waitms 10

Ruhelage_y = Getadc(5)

Waitms 10

Ruhelage_z = Getadc(4)

Waitms 5

'#################################################################################################################################

'#

'# Variabeln für RPM-LEDs

'#

'#################################################################################################################################

' Porta.0 to SRCLK (Dip pin 11, flat pack pin 14).

' Porta.7 to SER (Dip pin 14, flat pack pin 18).

' Porta.1 to RCLK (Dip pin 12, Flat pack pin 15).

'-----------------------------------------------------------------------

Config Porta.0 = Output

Config Porta.1 = Output

Config Porta.7 = Output

Dim Rpmwert As Word

Dim Low_byte As Byte At Rpmwert Overlay

Dim High_byte As Byte At Rpmwert + 1 Overlay

Dim I As Integer

Dim J As Integer

Low_byte = &B10000000

High_byte = &B00000000

'Set Ledamarelo

For J = 0 To 16

' send byte array to shift regs

For I = 0 To 16                                             'Dein Bit-Zaehler

Porta.7 = Rpmwert.6                                         'Das sind die Datenbits zum reinschieben

'Wenn du also 01101011 im 74595 stehen haben willst,

'dann mußt du das hier in entsprechender Reihenfolge

'so setzten (0 oder 1)

'01101011 <- Bits am Ausgang des 74595

'ABCDEFGH <- Ausgang vom 74595

'12345678 <- Schleifendurchlauf Nr. x

Porta.0 = 1 : Porta.0 = 0                                   'Damit erzeugst du ne negative Flanke

Rotate Rpmwert , Right

Next I                                                      'naechstes Bit

Porta.1 = 1 : Porta.1 = 0                                   'Das erzeugt den Impuls zur uebernahme ins Latch

'Reset Ledamarelo

Waitms 50

Next J

Declare Sub Rpm

'#################################################################################################################################

'#

'# Variabeln für die Uhr

'#

'#################################################################################################################################

'configure the scl and sda pins

Config Sda = Portc.1

Config Scl = Portc.0

'address of ds1307

Const Ds1307w = &HD0                                        ' Addresses of Ds1307 clock

Const Ds1307r = &HD1

Config Clock = User                                         ' this will dim the bytes automatic

'dim other needed variables

' Datumsformat deutsch Tag.Monat.Jahr und als Trennzeichen den Punkt

Config Date = Dmy , Separator = .

Dim Weekday As Byte

I2cinit

_day = 26

_month = 01

_year = 12

_sec = 59

_min = 05

_hour = 00

Gosub Setdate

Gosub Settime

'#################################################################################################################################

'#

'# Variabeln für die SD-Karte

'#

'#################################################################################################################################

' Variablen festlegen

Dim Fsiniterror As Byte                                     ' Fehlercode beim Dateisysteminit

Dim Temp As String * 100                                    ' Zwischenspeicher für Strings

Dim Z As Integer                                            ' Zählvariable

Const Datei1 = "lesen.txt"                                  ' Datei zum Lesen

Const Datei2 = "schreib.txt"                                ' Datei zum Schreiben

' Achtung:

'  Dateinamen müssen im Format 8.3 sein.

'  Also Maximal 8 Zeichen vor und 3 nach dem .

Const Cmmc_soft = 0

#if Cmmc_soft = 0

' --------- Start of Section for HW-SPI ----------------------------------------

   ' define Chip-Select Pin

' ->

' -> Dieser Pin wird für Chip-Select benutzt.

   Config Pinb.4 = Output                                   ' define here Pin for CS of MMC/SD Card

   Mmc_cs Alias Portb.4

   Set Mmc_cs

   ' Define here SS Pin of HW-SPI of the CPU (f.e. Pinb.0 on M128)

   ' If an other Pin than SS is used for MMC_SS, SS must be set to OUTPUT and high for proper work of SPI

   ' otherwise AVR starts SPI-SLAVE if SS-Pin is INPUT and goes to LOW

' ->

' -> Hier muss der SS-Pin des Hardware-SPI angegeben werden. (Auch wenn ein anderer Pin für Chip-Select benutzt wird.)

' -> Dieser muss als Ausgang konfiguriert sein und auf 1 gehalten werden, da sonst automatisch der SPI-Slave-Modus aktiviert wird.

 Config Pinb.4 = Output                                     ' define here Pin of SPI SS

 Spi_ss Alias Portb.4

 Set Spi_ss                                                 ' Set SPI-SS to Output and High por Proper work of

                                                            ' SPI as Master

   ' HW-SPI is configured to highest Speed

Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = High , Phase = 1 , Clockrate = 4 , Noss = 1

'   Spsr = 1                                       ' Double speed on ATMega128

   Spiinit                                                  ' Init SPI

' --------- End of Section for HW-SPI ------------------------------------------

#else                                                       ' Config here SPI pins, if not using HW SPI

' --------- Start of Section for Soft-SPI --------------------------------------

   ' Chip Select Pin  => Pin 1 of MMC/SD

   Config Pinb.4 = Output

   Mmc_cs Alias Portb.4

   Set Mmc_cs

   ' MOSI - Pin  => Pin 2 of MMC/SD

   Config Pinb.5 = Output

   Set Pinb.5

   Mmc_portmosi Alias Portb

   Bmmc_mosi Alias 5

   ' MISO - Pin  => Pin 7 of MMC/SD

   Config Pinb.6 = Input

   Mmc_portmiso Alias Portb

   Bmmc_miso Alias 6

   ' SCK - Pin  => Pin 1 of MMC/SD

   Config Pinb.7 = Output

   Set Pinb.7

   Mmc_portsck Alias Portb

   Bmmc_sck Alias 7

' --------- End of Section for Soft-SPI ----------------------------------------

#endif

Print "Initialisierung der SD-Card ... " ;

Const Cperrdrivereset = 225                                 ' Error response Byte at Reset command

Const Cperrdriveinit = 226                                  ' Error response Byte at Init Command

Const Cperrdrivereadcommand = 227                           ' Error response Byte at Read Command

Const Cperrdrivewritecommand = 228                          ' Error response Byte at Write Command

Const Cperrdrivereadresponse = 229                          ' No Data response Byte from MMC at Read

Const Cperrdrivewriteresponse = 230                         ' No Data response Byte from MMC at Write

Const Cperrdrive = 231

Const Cperrdrivenotsupported = 232                          ' return code for DriveGetIdentity, not supported yet

Waitms 1                                                    ' Wait some time before initialising MMC/SD

Dim Gbdriveerror As Byte                                    ' General Driver Error register

Dim Gbdriveerrorreg As Byte                                 ' Driver load Error-Register of HD in case of error

Dim Gbdrivestatusreg As Byte                                ' Driver load Status-Register of HD on case of error

Dim Gbdrivedebug As Byte

$lib "MMC.LIB"                                              ' link driver library

$external _mmc

Gbdriveerror = Driveinit()                                  ' Init MMC/SD Card

' 'Fehler beim init?

If Gbdriveerror = 0 Then

   Print "ok"

   ' 'Config_AVR-DOS einbinden

' 'Puffergrößen, Anzahl von Datei-Handles usw. müssen in dieser Datei angepasst werden!

Print "Initialisierung des Dateisystems ..." ;

$include "config_avr-dos.bas"

 'Dateisystem starten

Fsiniterror = Initfilesystem(1)

If Fsiniterror = 0 Then

   Print "ok"

Else

   Print "Fehler bei der Initialisierung des Dateisystems! Fehlercode: " ; Fsiniterror

End If

' 'SD-Card erfolgreich gestartet

Print "SD-Card wurde erfolgreich gestartet!"

Print

Else

   Print "Fehler bei der Initialisierung der SD-Card! Fehlercode: " ; Gbdriveerror

End If

'#################################################################################################################################

'#

'# Interrupt für RPM

'#

'#################################################################################################################################

'Rpm2

Dim Icount As Long

Dim Wcountlo As Word At Icount Overlay

Dim Wcounthi As Word At Icount + 2 Overlay

Dim Zahl1 As Long

Dim Zahl2 As Long

Dim Zahl As Long

Dim Frequenz As Long

Config Timer1 = Timer , Prescale = 1 , Capture Edge = Rising

Config Int2 = Falling

On Int2 Oncapture

Enable Int2

On Ovf1 Onoverflow1

Enable Ovf1

'Rpm1

Dim Icount2 As Long

Dim Wcount2_high As Word At Icount2 Overlay

Dim Wcount2_low As Word At Icount2 + 2 Overlay

Dim Conta1 As Long

Dim Conta2 As Long

Dim Conta As Long

Dim Frequenz2 As Long

Const Interval = 156

Config Timer0 = Timer , Prescale = 1

Config Int0 = Falling

On Int0 Oncapture2

Enable Int0

On Ovf0 Onoverflow0

Enable Ovf0

'Speichern

Dim Overflowcount As Long

Config Timer2 = Timer , Prescale = 1024

On Ovf2 Onoverflow2

Config Int1 = Falling

On Int1 Save

Enable Int1

Enable Timer2

Enable Interrupts

'#################################################################################################################################

'#

'# Hauptprogramm

'#

'#################################################################################################################################

Do

Waitms 250

Disable Interrupts

Waitms 5

'Xachse = Getadc(6)

Waitms 1

'Yachse = Getadc(5)

Waitms 1

'Zachse = Getadc(4)

Waitms 3

Xachse = Xachse - Ruhelage_x

Yachse = Yachse - Ruhelage_y

Zachse = Zachse - Ruhelage_z

Gosub Getdatetime

 '~~~ In eine Datei schreiben ~~~

 'Datei zum Schreiben öffnen

'Open Datei2 For Output As #10

' 'Altervative:

 Open Datei2 For Append As #10

 'Output                                                     'schreibt die Datei neu (vorhandene Daten werden gelöscht!)

 'append                                                    'fügt Daten an die Datei an (vorhandene Daten bleiben erhalten und werden ergänzt)

 'Fehler beim Öffnen der Datei?

If Gbdoserror <> 0 Then

   ' Fehler beim Öffnen der Datei

   Print "Die Datei " ; Datei2 ; " konnte nicht zum Schreiben geöffnet werden! Fehlercode: " ; Gbdoserror

   Goto Sd_init

Else

   ' Datei erfolgreich geöffnet, ein paar Daten schreiben

   Print "Schreibe in Datei " ; Datei2 ; " ..."

   ' Daten schrieben

    Print #10 , _day ; "." ; _month ; "." ; _year ; ";" ; _hour ; ":" ; _min ; ":" ; _sec ; ";" ; Frequenz ; ";" ; Frequenz2 ; ";" ; Xachse ; ";" ; Yachse ; ";" ; Zachse

   If Gbdoserror <> 0 Then Print "Fehler beim Schreiben in Datei " ; Datei2 ; "! Fehlercode: " ; Gbdoserror

   ' Datei wieder schließen

   Close #10

End If

'Reset Ledvermelho

'Reset alle variabeln

Xachse = 0

Yachse = 0

Zachse = 0

Print "Gespeichert!"

Enable Interrupts

Waitms 250

Loop

End

'#################################################################################################################################

'#

'# Subprogramme für Interrupt

'#

'#################################################################################################################################

Save:

Gosub Sd_init

Print "Saved"

Return

Oncapture:

      Disable Interrupts

      Wcountlo = Timer1

      Timer1 = 0

      Zahl1 = Wcounthi

      Zahl2 = Wcountlo

      Wcounthi = 0

      Zahl = Zahl1 * 65536

      Zahl = Zahl + Zahl2

      Frequenz = 480000000 / Zahl

      Enable Interrupts

Return

Oncapture2:

      Disable Interrupts

      Wcount2_low = Timer0

      Timer0 = 0

      Conta1 = Wcount2_high

      Conta2 = Wcount2_low

      Wcount2_high = 0

      Conta = Conta1 * 255

      Conta = Conta + Conta2

      Frequenz2 = 480000000 / Conta

      Print "Rpm1:" ; Frequenz2

      Enable Interrupts

Return

Onoverflow1:

Incr Wcounthi

Return

Onoverflow0:

Incr Wcount2_high

Return

Onoverflow2:

Disable Interrupts

Rpmwert = Frequenz

Print Rpmwert

Select Case Rpmwert

Case 0:

Rpmwert = &B0000000000000000

Case 1 To 120:

Rpmwert = &B0000000000000001

Case 121 To 240:

Rpmwert = &B0000000000000011

Case 241 To 360:

Rpmwert = &B0000000000000111

Case 361 To 480:

Rpmwert = &B0000000000001111

Case 481 To 620:

Rpmwert = &B0000000000011111

Case 621 To 840:

Rpmwert = &B0000000000111111

Case 841 To 960:

Rpmwert = &B0000000001111111

Case 961 To 1080:

Rpmwert = &B0000000011111111

Case 1081 To 1200:

Rpmwert = &B0000000111111111

Case 1201 To 1320:

Rpmwert = &B0000001111111111

Case 1321 To 1440:

Rpmwert = &B0000011111111111

Case 1441 To 1560:

Rpmwert = &B0000111111111111

Case 1561 To 1680:

Rpmwert = &B0001111111111111

Case 1681 To 1800:

Rpmwert = &B0011111111111111

Case 1801 To 1920:

Rpmwert = &B0111111111111111

End Select

Gosub Rpm

                                              '

Return

'#################################################################################################################################

'#

'# Subprogramme RS-232 Kummunikation

'#

'#################################################################################################################################

''''''''''''''';called from ds1307clock.lib

Getdatetime:

I2cstart                                                    '''''''''''''''; Generate start code

I2cwbyte Ds1307w                                            '''''''''''''''; send address

I2cwbyte 0                                                  '''''''''''''''; start address in 1307

I2cstart                                                    '''''''''''''''; Generate start code

I2cwbyte Ds1307r                                            '''''''''''''''; send address

I2crbyte _sec , Ack

I2crbyte _min , Ack                                         '''''''''''''''; MINUTES

I2crbyte _hour , Ack                                        '''''''''''''''; Hours

I2crbyte Weekday , Ack                                      '''''''''''''''; Day of Week

I2crbyte _day , Ack                                         '''''''''''''''; Day of Month

I2crbyte _month , Ack                                       '''''''''''''''; Month of Year

I2crbyte _year , Nack                                       '''''''''''''''; Year

I2cstop

_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)

_day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)

Return

Setdate:

_day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)

I2cstart                                                    '''''''''''''''; Generate start code

I2cwbyte Ds1307w                                            '''''''''''''''; send address

I2cwbyte 4                                                  '''''''''''''''; starting address in 1307

I2cwbyte _day                                               '''''''''''''''; Send Data to SECONDS

I2cwbyte _month                                             '''''''''''''''; MINUTES

I2cwbyte _year                                              '''''''''''''''; Hours

I2cstop

Return

Settime:

_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)

I2cstart                                                    '''''''''''''''; Generate start code

I2cwbyte Ds1307w                                            '''''''''''''''; send address

I2cwbyte 0                                                  '''''''''''''''; starting address in 1307

I2cwbyte _sec                                               '''''''''''''''; Send Data to SECONDS

I2cwbyte _min                                               '''''''''''''''; MINUTES

I2cwbyte _hour                                              '''''''''''''''; Hours

I2cstop

Return

'#################################################################################################################################

'#

'# Subprogramme für die SD-Karte

'#

'#################################################################################################################################

Sd_init:

Print "Initialisierung der SD-Card ... " ;

$external _mmc

Gbdriveerror = Driveinit()                                  ' Init MMC/SD Card

' 'Fehler beim init?

If Gbdriveerror = 0 Then

   Print "ok"

   ' 'Config_AVR-DOS einbinden

' 'Puffergrößen, Anzahl von Datei-Handles usw. müssen in dieser Datei angepasst werden!

Print "Initialisierung des Dateisystems ..." ;

$include "config_avr-dos.bas"

 'Dateisystem starten

Fsiniterror = Initfilesystem(1)

If Fsiniterror = 0 Then

   Print "ok"

Else

   Print "Fehler bei der Initialisierung des Dateisystems! Fehlercode: " ; Fsiniterror

      Do

      Waitms 500

      Saveflag = 0

      Goto Sd_init

      Loop

End If

' 'SD-Card erfolgreich gestartet

Print "SD-Card wurde erfolgreich gestartet!"

Print

   Saveflag = 1

   Print "saveflag aktiviert"

Else

   Print "Fehler bei der Initialisierung der SD-Card! Fehlercode: " ; Gbdriveerror

      Do

      Waitms 500

      Saveflag = 0

      Goto Sd_init

      Loop

End If

Return

'#################################################################################################################################

'#

'# Subprogramme für RPM und RPM-LEDs

'#

'#################################################################################################################################

Rpm:                                                        ' *** set initial conditions for I/O ***

' Porta.0 to SCK (Dip pin 11, flat pack pin 14).

' Porta.7 to SER (Dip pin 14, flat pack pin 18).

' Porta.1 to RCK (Dip pin 12, Flat pack pin 15).

'-----------------------------------------------------------------------

'Set Ledamarelo

' send byte array to shift regs

For I = 0 To 16                                             'Dein Bit-Zaehler

Porta.7 = Rpmwert.15                                        'Das sind die Datenbits zum reinschieben

'Wenn du also 01101011 im 74595 stehen haben willst,

'dann mußt du das hier in entsprechender Reihenfolge

'so setzten (0 oder 1)

'01101011 <- Bits am Ausgang des 74595

'ABCDEFGH <- Ausgang vom 74595

'12345678 <- Schleifendurchlauf Nr. x

Porta.0 = 1 : Porta.0 = 0                                   'Damit erzeugst du ne negative Flanke

Rotate Rpmwert , Right

Next I                                                      'naechstes Bit

Porta.1 = 1 : Porta.1 = 0                                   'Das erzeugt den Impuls zur uebernahme ins Latch

'Reset Ledamarelo

Enable Interrupts

Return