Просмотр исходного текста страницы Часы на Verilog

== Описание реализации счетчика времени нажатия кнопки ==

[[File:Схема_new.jpg|800px]]
<br/>Основными частями реализации являются счетчики:
<br/>- счетчик суммы времени нажатия до одной секунды;
<br/>- счетчик времени нажатий в секундах;
<br/>- счетчики для работы семисегментного индикатора.
<br/>Алгоритм работы счетчика таков:
<br/>1. При нажатии на кнопку происходит начинается счет тактовых сигналов;
<br/>2. При достижении количества сигналов, равного 10^8 в счетчике суммы прибавляется одна секунда, счетчик импульсов сбрасывается в ноль;
<br/>3. Далее с регистра, содержащего информацию о количестве секунд, эти значению передаются на дальнейшую обработку для передачи на семисегментные индикаторы.
<br/>4. Реализация работы семисегментных индикаторов была произведена с помощью циклов.
<br/>
<br/>Подробнее про работу с семисегментными индикаторами.
<br/>Так как индикаторов 4 а катоды к ним общие, то принято было работать по следующему алгоритму. Есть 2 счетчика. Один счетчик считает количество тактовых сигналов. Когда это количество становится равным 200000 то на втором счетчике прибавляется единица. В зависимости от значения на втором счетчике выбирается тот анод, на котором будет низкий уровень и значит загорится этот индикатор. Так как время циклов очень мало, то мы мы не замечаем мигание индикаторов. Второй счетчик в схеме имеет 2 разряда, поэтому сбрасывать его нет необходимости.<br/>

[[File:Симисегментный индикатор.jpg|800px]]

<br/> На данном ниже рисунке показана схема подключения катодов и анодов. Из этой схемы наглядно видно, что для того, чтобы зажечь определенный сегмент на одном из индикаторов необходимо подать на соответствующий катод и соответствующий анод низкий уровень.<br/>
[[File:Работа индикатора.jpg|350px]]
<br/> На рисунке ниже показано, на какие выводы необходимо подать низкий уровень, чтобы зажечь необходимый сегмент
[[File:Индикатор.jpg]]
<br/>Текст реализации счетчика времени нажатия

<pre>

module main( 
				input clk, 
				input BTNS, // кнопка
				output [3:0] AN, // выводы к анодам для переключения семисегментных индикаторов
				output [7:0] ind // выводы к катодам семисегментного индикатора
    );
	 reg [3:0] assist_AN; // вспомогательный регистр для анодов семисегментных индикаторов
	 reg [7:0] assist_ind; // вспомогательный регистр для катодов семисегментного индикатора
	 reg [26:0] sum; // накапливаемое значение суммы для регистрации нажатия
	 reg [7:0] assist_ld; // сумматор времени нажатия кнопки
	 reg [3:0] nul_r; // младший сегмент индикатора
	 reg [3:0] first_r; // второй сегмент индикатора
	 reg [3:0] second_r; // третий сегмент индикатора
	 reg [17:0] counter; // регистр, хранящий время работы семисегментного индикатора
	 reg [1:0] c; // регистр указателя номера семисегментного индикатора
	 always @(posedge clk)
	 begin
		if (BTNS) // нажатие кнопки
			sum <= sum + 1'b1; 
		else
			sum <= 27'd0;
		if (sum >= 27'd100000000) // суммирование времени нажатия до 1 секунды
			begin
			assist_ld <= assist_ld + 1'b1; // счет количества секунд
			sum <= 27'd0;
			end
		nul_r <= assist_ld % 10; // значение первого семисегментного индикатора
		first_r <= (assist_ld % 100 - nul_r)/10; // значение второго индикатора
		second_r <= assist_ld / 100; // значение третьего индикатора
		counter <= counter + 1'b1;
			if (counter == 17'd200000) // цикл работы семисегметных индикаторов
			begin
				c <= c + 1'b1;
				counter <= 17'd0;
			end
		if (c == 2'b00) // первый семисегментный индикатор
		begin
		assist_AN <= 4'b1110; // значение анодов
		case (nul_r)
			4'd0: assist_ind <= 8'b00000011; // значения катодов
			4'd1: assist_ind <= 8'b10011111;
			4'd2: assist_ind <= 8'b00100101;
			4'd3: assist_ind <= 8'b00001101;
			4'd4: assist_ind <= 8'b10011001;
			4'd5: assist_ind <= 8'b01001001;
			4'd6: assist_ind <= 8'b01000001;
			4'd7: assist_ind <= 8'b00011111;
			4'd8: assist_ind <= 8'b00000001;
			4'd9: assist_ind <= 8'b00001001;
			default: assist_ind <= 8'b11111111;
		endcase
		end
		if (c == 2'b01) // второй семисегментный индикатор
		begin
		assist_AN <= 4'b1101;
		case (first_r)
				4'd0: assist_ind <= 8'b00000011;
				4'd1: assist_ind <= 8'b10011111;
				4'd2: assist_ind <= 8'b00100101;
				4'd3: assist_ind <= 8'b00001101;
				4'd4: assist_ind <= 8'b10011001;
				4'd5: assist_ind <= 8'b01001001;
				4'd6: assist_ind <= 8'b01000001;
				4'd7: assist_ind <= 8'b00011111;
				4'd8: assist_ind <= 8'b00000001;
				4'd9: assist_ind <= 8'b00001001;
				default: assist_ind <= 8'b11111111;
				endcase
		end
		if (c == 2'b10) // третий семисегментный индикатор
		begin
		assist_AN <= 4'b1011;
		case (second_r)
				4'd0: assist_ind <= 8'b00000011;
				4'd1: assist_ind <= 8'b10011111;
				4'd2: assist_ind <= 8'b00100101;
				default: assist_ind <= 8'b11111111;
				endcase 
		end
	 end
	assign AN = assist_AN; // значение на выходах к аноду равно значению вспомогательных регистров
	assign ind = assist_ind; // значение на выходах к катоду равно значению вспомогательных регистров
endmodule

</pre>

<br/>ucf файл с описанием портов ввода-вывода

<pre>
NET "clk" LOC = V10;
NET "BTNS" LOC = B8;
NET "AN[0]" LOC = N16;
NET "AN[1]" LOC = N15;
NET "AN[2]" LOC = P18;
NET "AN[3]" LOC = P17;
NET "ind[0]" LOC = M13;
NET "ind[1]" LOC = L14;
NET "ind[2]" LOC = N14;
NET "ind[3]" LOC = M14;
NET "ind[4]" LOC = U18;
NET "ind[5]" LOC = U17;
NET "ind[6]" LOC = T18;
NET "ind[7]" LOC = T17;
</pre>