Input: A0, A1, A2 (zunächst Taster, später LEDs)
Output: B0, B1    (LEDs)

A2 A1 A0  B1 B0
 0  0  0   1  0
 0  0  1   0  1
 0  1  0   0  1
 0  1  1   1  0
 1  0  0   0  1
 1  0  1   1  0
 1  1  0   1  0
 1  1  1   0  1

Code 0-1: Wahrheitstabelle für die aktuelle Aufgabe

A2 A1 A0  AUS
 0  0  0   0 
 0  0  1   1 
 0  1  0   1 
 0  1  1   0 
 1  0  0   1 
 1  0  1   0 
 1  1  0   0 
 1  1  1   1 

Code 0-2: Logiktabelle.

//Beispiel von:
//http://www.kramann.info/67_Echtzeitsysteme/08_NeuronaleNetze/01_Neuron/index.php
public float sigmoid(float u)
{
    float d = 1.0;
    return 1.0/(1.0 + exp(-d*u));
}
public float neuro(float in0, float in1)
{
    //Gewichte zur ersten Schicht hin:
    float w00 = 1.0;
    float w01 = 1.0;
    float w02 = 1.0;
    float w03 = 1.0;
    
    //Gewichte von der ersten zur zweiten Schicht:
    float w10 = 1.0;
    float w11 = 1.0;
    
    //Erste Schicht:
    float q10 = in0*w00 + in1*w03;
    float n10 = sigmoid(q10);    
    float q11 = in0*w01 + in1*w02;
    float n11 = sigmoid(q11);
    //Zweite Schicht:
    float q20 = n10*w10 + n11*w11;
    float n20 = sigmoid(q20);    
    return n20;
}

Code 0-3: Testsketch (unvollständig, vergl. Vorl.)

import java.util.Random;

Random zufall = new Random(System.currentTimeMillis());

public void setup()
{
   for(int i=0;i<10;i++)
   {
     int x = zufall.nextInt(100); //Gleichv. Zuf. 0..99
     double y = zufall.nextDouble(); //gleichv. Zuf. 0..1
     println("x="+x+"  y="+y);
   }  
}

Code 0-4: Erzeugen von gleichverteilten Zufallsvariablen mit Java/Processing.

Beste Gewichte:
w0=6.0052643
w1=0.02110678
w2=-0.17983842
w3=-0.18512046
w4=0.31746292
w5=-0.92752934
d=100.0
Guete bei besten Gewichten: Guete=0.75
in0=0.0 in1=0.0 out=5.6568696E-14
in0=1.0 in1=0.0 out=7.213868E-23
in0=0.0 in1=1.0 out=0.4999997
in0=1.0 in1=1.0 out=1.0

Code 0-5: Ergebnis von NN005

library IEEE;
use IEEE.STD_LOGIC_1164.ALL;

entity seriellemu is
    Port ( MEINECLOCK : in  STD_LOGIC;
           TXD : out  STD_LOGIC);
end seriellemu;

architecture Behavioral of seriellemu is
    signal zaehler    : integer range 0 to 624 := 0;
    signal logikpegel : std_logic := '0';
    signal wort : std_logic_vector(15 downto 0) := "1110100000101111";	 
begin
       process begin
            wait until rising_edge(MEINECLOCK);
            if (zaehler<624) then
                zaehler <= zaehler+1;
            else
                zaehler <= 0;
                logikpegel <= wort(15);
					 wort <= wort(14 downto 0) & wort(15);
            end if;
        end process;
        TXD <= logikpegel;
end Behavioral;

Code 0-6: VHDL-Code für simplen Emulator aus seriellemu1.

## GCLK6 ist auf FPGA-Chip Pin 56
NET "MEINECLOCK" LOC = "P56";
## IO_L05P_0 ist auf FPGA-Chip Pin 125
NET "TXD"   LOC = "P125";

NET "MEINECLOCK" IOSTANDARD = LVCMOS25;
NET "TXD"   IOSTANDARD = LVCMOS33; 

Code 0-7: passende ucf-Datei.

int c;
void setup() 
{
  Serial.begin(9600);
  Serial1.begin(9600);
}

void loop() 
{
  if(Serial1.available())
  {
      c = Serial1.read();
      Serial.write(c);
  }
}

Code 0-8: Arduino-Programm, um die seriellen Daten zu empfangen und im seriellen Monitor zu sehen. RxD vom Arduino muß mit Pin125 beim FPGA verbunden sein und auch die Massen beider Boards.

library IEEE;
use IEEE.STD_LOGIC_1164.ALL;

entity seriellemu is
    Port ( MEINECLOCK : in  STD_LOGIC;
           TXD : out  STD_LOGIC);
end seriellemu;

architecture Behavioral of seriellemu is
    signal zaehler    : integer range 0 to 624 := 0;
    signal index      : integer range 0 to 16 := 0; -- Index für Array
    signal logikpegel : std_logic := '0';
--    signal wort : std_logic_vector(15 downto 0) := "1110100000101111";	
    type meinarraytyp is array (0 to 15) of integer range 0 to 1; -- TYP
    signal meinarray : meinarraytyp := (1,1,1,0,0,1,0,0,0,0,1,0,1,1,1,1); -- INSTANZ (ASCII B=66)
    begin
       process begin
            wait until rising_edge(MEINECLOCK);
            if (zaehler<624) then
                zaehler <= zaehler+1;
            else
                zaehler <= 0;
					 if (meinarray(index)=1) then
                   logikpegel <= '1';
					 else
                   logikpegel <= '0';					 
					 end if;
					 index <= index+1;
					 if (index=16) then
					    index <= 0;
				    end if;		 
            end if;
        end process;
        TXD <= logikpegel;
    end Behavioral;

Code 0-9: Verwendung eines Integer-Arrays in VHDL. Programm entspricht weitestgehend dem vorangehenden.