Commander moteur pas à pas 28BYJ-48 - FPGA - VHDL

[Nono06640]

Bonjour,
Je programme sous le logiciel Quartus.
J'essaye de commander le moteur pas à pas 28BYJ-48 avec la carte FPGA DE10-Lite et la carte ULN2003.

Voici mon programme :

Library ieee;
Use ieee.std_logic_1164.all;
Use ieee.numeric_std.all;
Use ieee.std_logic_unsigned.all;

entity codeMoteur is 

	port (
				code : in std_logic_vector (3 downto 0);
		  	  	  
				IN1  : out std_logic;
				IN2  : out std_logic;
				IN3  : out std_logic;
				IN4  : out std_logic
		  );
			
end codeMoteur;

architecture DESCRIPTION of codeMoteur is

	SIGNAL Moteur : std_logic_vector (1 to 4);
			
	BEGIN		
		WITH code (3 downto 0) select
		Moteur <= 
					"0000" WHEN "0000",
					"0001" WHEN "0001",
					"0011" WHEN "0011",
					"0010" WHEN "0010",
					"0110" WHEN "0110",
					"0100" WHEN "0100",
					"1100" WHEN "1100",
					"1000" WHEN "1000",
					"1001" WHEN "1001",
					"0000" WHEN OTHERS;
					
					IN1 <= Moteur(1);
					IN2 <= Moteur(2);
					IN3 <= Moteur(3);
					IN4 <= Moteur(4);

END DESCRIPTION;

J'arrive à bien commander les LEDs de la carte ULN2003. Mais le moteur ne tourne pas.
Après de longue recherche je n'arrive pas à trouver ce qu'il me manque.

Merci d'avance pour votre aide.
-----

[Gyrocompas]

Bonjour,
Peut être s'inspirer de ce qui a été fait ailleurs : https://ledisrupteurdimensionnel.com...arte-darduino/

[Nono06640]

Bonjour,
Je me suis inspiré de ce que vous m'avez passé.

Je débute dans le langage VHDL, je n'arrive pas à bien comprendre comment fonctionne la boucle for. Voici ce que j'ai essayé de faire :

Library ieee;
Use ieee.std_logic_1164.all;
Use ieee.numeric_std.all;
Use ieee.std_logic_unsigned.all;

entity codeMoteur is 

	port (		  	  
				IN1  : out std_logic;
				IN2  : out std_logic;
				IN3  : out std_logic;
				IN4  : out std_logic
		  );
			
end codeMoteur;

architecture DESCRIPTION of codeMoteur is
BEGIN		

	PROCESS IS
	BEGIN
	
	VARIABLE i : integer := 0;	
	
		FOR i in 0 to 512 LOOP
			REPORT IN1 = '0'; IN2 = '0'; IN3 = '0'; IN4 = '0';
			WAIT;
			REPORT IN1 = '1'; IN2 = '0'; IN3 = '0'; IN4 = '0';
			WAIT;
			REPORT IN1 = '0'; IN2 = '1'; IN3 = '0'; IN4 = '0';
			WAIT;
			REPORT IN1 = '0'; IN2 = '0'; IN3 = '1'; IN4 = '0';
			WAIT;
			REPORT IN1 = '0'; IN2 = '0'; IN3 = '0'; IN4 = '1';
			WAIT;
			REPORT IN1 = '0'; IN2 = '0'; IN3 = '0'; IN4 = '0';
			WAIT;
		END LOOP;
		WAIT;
			
	END PROCESS;

END DESCRIPTION;

[Kissagogo27]

Bonjour, de plus , il y a plusieurs moyens de commander le moteur, dans ce dernier programme une seule bobine a la fois, qui procure moins de couple et des pas positionnés différemment.

[A voir en vidéo sur Futura]

[Nono06640]

J'ai essayé encore une autre chose, j'ai oublié de préciser que je voudrais piloter le moteur avec des switchs.

Le code se compile, j'arrive à bien piloter les LEDs de la carte ULN2003 mais le moteur ne fonctionne toujours pas, rien ne se passe.

Library ieee;
Use ieee.std_logic_1164.all;
Use ieee.numeric_std.all;
Use ieee.std_logic_unsigned.all;

entity codeMoteur is 

	port (
				code : in std_logic_vector (3 downto 0);
				
				INx  : out std_logic_vector (1 to 4)
		  );
			
end codeMoteur;

architecture DESCRIPTION of codeMoteur is
BEGIN

		PROCESS(code)
		BEGIN
		
			IF code="0000" THEN
				INx <= "0000";
			
			ELSIF code="0001" THEN
				INx <= "1000";
			
			ELSIF code="0010" THEN
				INx <= "0100";
			
			ELSIF code="0100" THEN
				INx <= "0010";
			
			ELSIF code="1000" THEN
				INx <= "0001";
			
			ELSE INx <= "0000";
			END IF;		
			
		END PROCESS;
		
END DESCRIPTION;

[Nono06640]

Une autre question :
Je vois sur internet des codes avec "wait for" utilisé dans un process, alors que moi quand je compile on me dit que ce n'est pas possible et que je dois utiliser "wait until".
Il y a une autre manière pour attendre un laps de temps ?