Danke, aber dieses PDF habe ich auch nur zufällig gefunden. Ich kann mir also nichts darauf einbilden.
Genau.
circuit-20221004-1200.circuitjs.txt
Code: Alles auswählen
/*
File: main.c
Date: 04.10.2022
Author: Siro
Project: FlipFlop
Controller: Microchip PIC10F322 im SOT-23-6 Gehäuse
*/
// CONFIG
#pragma config FOSC = INTOSC // Oscillator Selection bits (INTOSC oscillator: CLKIN function disabled)
#pragma config BOREN = OFF // Brown-out Reset Enable (Brown-out Reset disabled)
#pragma config WDTE = OFF // Watchdog Timer Enable (WDT disabled)
#pragma config PWRTE = ON // Power-up Timer Enable bit (PWRT enabled)
#pragma config MCLRE = OFF // MCLR Pin Function Select bit (MCLR pin function is digital input, MCLR internally tied to VDD)
#pragma config CP = OFF // Code Protection bit (Program memory code protection is disabled)
#pragma config LVP = OFF // Low-Voltage Programming Enable (High-voltage on MCLR/VPP must be used for programming)
#pragma config LPBOR = OFF // Brown-out Reset Selection bits (BOR disabled)
#pragma config BORV = LO // Brown-out Reset Voltage Selection (Brown-out Reset Voltage (Vbor), low trip point selected.)
#pragma config WRT = OFF // Flash Memory Self-Write Protection (Write protection off)
#include <xc.h> // die einzige Headerdatei die benötigt wird.
void Flip(void)
{
LATA0=1; // Ersten Ausgang auf High
LATA1=0; // Zweiten Ausgang auf Low
}
void Flop(void)
{
LATA0=0; // Ersten Ausgang auf Low
LATA1=1; // Zweiten Ausgang auf High
}
void main(void)
{
OPTION_REG = 0x00; // prescale to timer 0, 1:256, enable pullups
WPUA = 0x0C; // Pullup on RA2 und RA3 einschalten
ANSELA = 0; // ADU abschalten und damit die Eingänge freigeben
TRISA = 0x0C; // RA0 und RA1 auf Ausgang, RA2 und RA3 auf Eingang
while (1)
{
if (!RA2) Flop(); // wenn erste Pin Low wird, dann Flop
if (!RA3) Flip(); // wenn zweiter Pin Low Wird dann Flip
// wenn beide Low, dann Ausflippen :-) beide LEDs leuchten bzw. (blinken abwechselnd mit 110 KHz)
}
}
Pfui siro, kein Pascal. Nicht genügend , setzen. 
Code: Alles auswählen
//////////////////////////////////////////////////////////
// Siro erstes PicPas Program für das FlipFlop 05.10.2022}
//////////////////////////////////////////////////////////
program NewProgram;
uses PIC10F322;
{$FREQUENCY 4MHZ}
{$CONFIG _FOSC_INTOSC, _BOREN_OFF,_WDTE_OFF, _PWRTE_ON,_MCLRE_OFF,_CP_OFF,_LVP_OFF,_LPBOR_OFF,_BORV_HI,_WRT_OFF}
procedure Flip;
begin
LATA_LATA1:=0;
LATA_LATA0:=1;
end;
procedure Flop;
begin
LATA_LATA1:=1;
LATA_LATA0:=0;
end;
begin
OPTION_REG:=0;
ANSELA:=0;
WPUA:=$0C;
TRISA:=$0C;
while (true) do
begin
if PORTA_RA2 = 0 then Flip; end; // nanu, hier MUSS ein end hin
if PORTA_RA3 = 0 then Flop; end; // und hier auch ... ????
end;
end;
end.
Verein
Links Suche
