ProjektARES und kein Windows PC im Haus :-(

Hi,
ja es gibt Leute die keinen Windows PC haben, seit ca. 20 Jahren komme ich sehr gut zurecht ohne Windows PC. Alles was ich so mache funktioniert problemlos mit Linux, und dann kommt ein Bekannter mit der Frage "Du programmierst doch Mikrocontroller, kannst Du ein Programm schreiben mit dem man eine Laser-LED ansteuern kann als Einzelschuß oder über einen Schalter als Dauerfeuer?". Und so habe ich von dem ProjektARES erfahren, jetzt steht hier ein Laptop mit Windows welches nur eine Aufgabe hat: Projekt ARES .

Das Programm für meinen Bekannten sieht so aus:

Code:


' Compiler: Bascom-Demo 2.0.7.5

' Dateiname: Laser-Blitz mit Dauerfeuer.avr
' Funktion: einen Laser-Blitz über den Abzug auslösen, mit dem Schalter Dauerfeuer oder Einzelschuss wählen
' Datum: Start 15.01.2024, Stand 20.02.2024
'
' ATtiny85 (B.5 Reset)
'
'                                    +----v----+
'           PCINT5/RESET/ADC0/dW B.5 | 1     8 | VCC
'    PCINT3/XTAL1/CLKI/OC1B/ADC3 B.3 | 2     7 | B.2 SCK/USCK/SCL/ADC1/T0/INT0/PCINT2
'    PCINT4/XTAL2/CLKO/OC1B/ADC2 B.4 | 3     6 | B.1 MISO/DO/AIN1/OC0B/OC1A/PCINT1
'                                GND | 4     5 | B.0 MOSI/DI/SDA/AIN0/OC0A/OC1A/AREF/PCINT0
'                                    +---------+
'

' --- Mikrocontroler Daten -------------------------------------------------------------------------------------

$regfile   = "attiny85.dat"
$crystal   = 8000000
$hwstack   =      40
$swstack   =      40
$framesize =      40

' --- Deklarationen... -----------------------------------------------------------------------------------------

config portb.2 = input  : Schalter  alias pinb.2
config portb.0 = input  : Abzug     alias pinb.0
config portb.1 = output : Laser_LED alias portb.1 : Laser_LED = 0

' --- Programm Anfang ------------------------------------------------------------------------------------------

wait 1 ' eine kleine Pause für die Elektrik

If Abzug = 1 then ' wenn beim Einschalten der Abzug gedrückt wird, die
  Laser_LED = 1 ' Laser LED einschalten zum Kalibrieren
  do : waitms 10 : loop until Abzug = 0 ' warten bis der Abzug wieder losgelassen wurde
  waitms 100
  do : waitms 10 : loop until Abzug = 1 ' warten bis der Abzug gedrückt wird
  Laser_LED = 0 ' Laser LED ausschalten, Kalibrieren beenden
end if

do ' Anfang der Hauptschleife

  if Abzug = 1 then
    If Schalter = 1 then ' Dauerfeuer
      do
        Laser_LED = 1
        waitms 40
        Laser_LED = 0
        waitms 250
      loop until Abzug = 0
    else ' Einzelschuss
      Laser_LED = 1
      waitms 40
      Laser_LED = 0
      do : waitms 10 : loop until Abzug = 0  
    end if

  end if

loop

' --- Programm Ende --------------------------------------------------------------------------------------------

end

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



Gruß, Naubaddi

Hi,

Bauteile für eine Platine

Mikrocontroller ATtiny 85
R1, R2, R3 10K Widerstand
C1 100nF Kondensator
S1 Taster
S2 Schalter
L1 Laser-LED

und so sieht der Stromlaufplan und die Platine aus:

die Leiterbahnen sind natürlich auf der Rückseite der Platine


Gruß, Naubaddi