Форум программистов, компьютерный форум, киберфорум
Hrethgir
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  

Всё что нашёл без отладки - исправил.

Запись от Hrethgir размещена 13.10.2024 в 22:31
Показов 1402 Комментарии 1

Не работает. Пришло время освоить и изучить тест-бенчи.
Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
module Trs
(input S, R, output Q);
xor xor_01 (G,S,Q);
DLC dlc_01 (Q,S,G,R);
endmodule
 
module Cascad
(input StartTact,  InJamp, trsCommand, TrsStep, output MemoriOut);
and an2(an2_0,  trsCommand, TrsStep);
and an3(an3_0,  InJamp, an2_0);
and an4(MemoriOut,  an3_0, StartTact);
endmodule
 
 
module MyCF
(input Deactivat,StartTact, Set, ResLim, ResFil, Fillsin, limit,  Run, Zero, Unit, InJampM, InFillsin, InStub1, InFStub, InFStub1, Sel, Sel2,  
 output  Finish, OutJamp, OutFillsin, OutStub1, OutFStub, OutFStub1,  MemoriOut);
wire TrsStep, InJamp;
 
bufif1 bf0(InFillsin, Fillsin, Sel);
Trs Fill(InFillsin, ResFil, trsFill);
and a0(f1_0, Sel, limit);
Trs TrsLim(f1_0, ResLim, OutFStub);
not n0(OutFStub1, OutFStub);
xor x0(x0_0, OutFStub1, Sel2);
//bufif1 bf1(InFillsin, InFStub1, InFStub);
bufif1 bf2(OutFillsin, InFillsin, x0_0);
 
and an0(an0_0,  trsFill, Unit);
and an1(an1_0,  trsFill, Zero);
Trs Command(an0_0, an1_0, trsCommand);
Cascad Cs_01(StartTact,  InJamp, trsCommand, TrsStep, MemoriOut);
and an5(InJamp, Sel, Run);
bufif1 bf4(Deact, MemoriOut, Deactivat);
Trs Step(Set, Deact, TrsStep);
xor x1(x1_0, trsCommand, TrsStep);
and an6(InJamp1,  x1_0, x0_0);
bufif1 bf5(OutJamp, InJamp, InJamp1);//bufif1 bf5(OutJamp, InJamp, x1_0);
not n1(OutStub11, x1_0);
bufif1 bf6(OutJamp, x1_0, OutStub11);
 
and an7(Finish,  MemoriOut, OutFStub);
 
endmodule
 
module MyC
(input Deactivat,StartTact, Set, ResLim, ResFil, Fillsin, limit,  Run, Zero, Unit, InJamp, InFillsin, InStub1, InFStub, InFStub1, Sel, Sel2,
 output  Finish, OutJamp, OutFillsin, OutStub1, OutFStub, OutFStub1,  MemoriOut, Se2);
wire sig0;
bufif1 bf0(InFillsin, Fillsin, Sel);
Trs trsFill(InFillsin, ResFil, trs0_0);
and a0(f1_0, Sel, limit);
Trs trsLim(f1_0, ResLim, OutFStub);
not n0(OutFStub1, OutFStub);
xor x0(x0_0, OutFStub1, Sel2);
bufif1 bf1(InFillsin, InFStub1, InFStub);
bufif1 bf2(OutFillsin, InFillsin, x0_0);
and an0(an0_0,  trs0_0, Unit);
and an1(an1_0,  trs0_0, Zero);
Trs Command(an0_0, an1_0, trsCommand);
//and an2(an2_0,  sig0, trs2_0);
//and an3(an3_0,  InJamp, an2_0);
//and an4(MemoriOut,  an3_0, StartTact);
Cascad Cs_01(StartTact,  InJamp, trsCommand, TrsStep, MemoriOut);
and an5(an5_0, Sel, Run);
bufif1 bf3(InJamp, an5_0, an5_0);
bufif1 bf4_(Deact, MemoriOut, Deactivat);
Trs Step(Set, Deact, TrsStep);
xor x1(x1_0, trsCommand, TrsStep);
//bufif0 bf4(InJamp, InStub1, InStub1);
and an6(InJamp1,  x1_0, x0_0);
//and an6(an6_0,  x1_0, x0_0);
//assign OutStub1 = x1_0;//not n1(OutStub1, x1_0);
bufif1 bf5(OutJamp, InJamp, InJamp1);
and an7(Finish,  MemoriOut, OutFStub);
not n1(OutStub11, x1_0);
bufif1 bf6(OutJamp, x1_0, OutStub11);
assign Se2 = Sel;
endmodule
 
module Smalch (input mset, mreset, output mquit, mquit1);
Trs Deff_01(mquit,mreset,Out1);
Trs Deff_02(Out1,mreset,Out2);
Trs Deff_03(Out2,,mquit1);
not not_01(mquit, mquit1);
endmodule
 
module Smalch1 (input mset, mreset, output mquit, rquit);
Trs Deff_01(mset,mreset,Out1);
Trs Deff_02(Out1,mreset,rquit);
Trs Deff_03(rquit,mreset,mquit);
endmodule
 
module Lancher (output limit,fillsin,unit,StartRun, One, Zero);
wire Off_01, Off_02, Off_03, Off_04;
Smalch smch1(,Off_01,limit,over);
Smalch1 smch2(over,Off_02,fillsin,Off_01);
Smalch1 smch3(fillsin, off,unit,Off_02);
Smalch1 smch4(Off_02,Off_03,Off_03,StartRun);
Trs _One_Zero(limit,, One);
not (Zero,One);
endmodule
 
module BlockSm1(input In, output out1,out2,out3);
wire w1,w2,w3,w4,w5;
Smalch1(In,w2,w1,out1);
Smalch1(w1,w3,out2,w2);
Smalch1(out2,w4,out3,w3);
Smalch1(out3,w5,w5,w4);
endmodule
 
module Key2 (input Key1,Key2,output Ok);
bufif1 (Ok,Key1,Key1);
bufif1(Ok,Key2,Key2);
endmodule
 
module Key2G1 (input Key1,Key2,Gen,output Ok1, Ok2);
bufif1 (Ok1,Key1,Gen);
bufif1(Ok2,Key2,Gen);
endmodule
 
module MyCount
(input clk, sens, output ld);
reg [25:0] count =1;
reg led_reg = 0;
assign ld = led_reg;
wire sens1;
assign sens1 = sens; 
always @ (posedge clk)
 
begin
if (sens1 == 1) begin
led_reg = 0;
 count = count +1;
if (count == 50000000) begin
count <= 1;
led_reg = 1;
end
end
end
endmodule
 
module Run (input clk, Memori,  finish, StartRun, output Deactivat, Tact, Load);
wire onPause1,Wi1,Wi2,Wi3,Wi4,Wi5;
MyCount (clk,onPause1,ld);
xor xor_01(onPause,Memori,finish);
and (onPause2,Memori,finish);
Key2 _K2in1(onPause,onPause2,onPause1);
Key2G1 _1G2in1(onPause,onPause2,ld,BeginTact,BeginLoad);
Key2 KBeginTact(BeginTact,Wi3,StartTact);
BlockSm1 Tact1(StartTact,Wi1,ResTrs,SetTRS);
Key2 _K2in2(Wi1,Wi2,Deactivat);
Key2 _K2in22(SetTRS,StartRun,SetTRS1);
Trs _Tact(SetTRS1,ResTrs,Tact);
BlockSm1 Load1(BeginLoad,Wi2,Load,Wi3);
endmodule
 
module Mych(input clk, output wire led0,led1, led2,led3,led4,led5);
wire MSypple = 0;
wire  [0:0]se[0:5];
wire  [0:0]se2[0:5];
wire  [0:0]lim[0:5];
wire  [0:0]Fills[0:5];
wire [0:0]ActivMemo[0:5];
wire Start0,Start, Start1,  Set, Fillsin1, EndFillsin, StartTact1;
wire Finish, FinishTact, Unit,InJamp, StartTact,Deactivation, One, Zero;
wire sens, led;
wire limfil,fils;
genvar i;
generate
wire [0:2]OtJam, OutFillsi[0:5], OutStu1[0:5], OutFStu[0:5], OutFStu1[0:5], ORi[0:5], Fini[0:5];
MyCF mycf(Deactivation,StartTact, Set,  ResLim, ResFil, fils, limfil, One, Zero, Unit,InJamp,,,,
,fils,se2[0],Fini[0],ORi[0], OutFillsi[0], OutStu1[0], OutFStu[0], OutFStu1[0], ActivMemo[0]);
bufif1 bf0(FinishTact, ActivMemo[0], ActivMemo[0]);
bufif1 bf1(Finish, Fini[0], Fini[0]);
for (i=0; i<4; i=i+1 ) begin:MyC_generation
MyC myc(Deactivation,StartTact, Set,  ResLim, ResFil, fils, limfil, One, Zero, Unit, ORi[i], OutFillsi[i], , OutFStu[i], OutFStu1[i]
,Zero,se2[i+1], Fini[i+1],ORi[i+1], OutFillsi[i+1], , OutFStu[i+1], OutFStu1[i+1], ActivMemo[i+1], se2[i]);//OutStu1[i]
bufif1 bf0(FinishTact, ActivMemo[i+1], ActivMemo[i+1]);
bufif1 bf1(Finish, Fini[i+1], Fini[i+1]);
end
MyC myc(Deactivation,StartTact, Set,  ResLim, ResFil, fils,  limfil, One, Zero, Unit, ORi[4], OutFillsi[4], , OutFStu[4], OutFStu1[4]
, limfil,se2[5], Fini[5],ORi[5], OutFillsi[5], , OutFStu[5], OutFStu1[5], ActivMemo[5], se2[4]);
 
endgenerate
 
Lancher Lanch_01(limfil,fils,Unit,StartRun, One, Zero);
Run(clk,FinishTact,Finish,StartRun,Deactivation,StartTact,Set);
 
not (led0 , ActivMemo [0]);
not (led1 , ActivMemo [1]);
not (led2 , ActivMemo [2]);
not (led3 , ActivMemo [3]);
not (led4 , ActivMemo [4]);
not (led5 , ActivMemo [5]);
endmodule
Размещено в Без категории
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Всего комментариев 1
Комментарии
  1. Старый комментарий
    Остался только нерабочий триггер. Подумал - понял что такое расключение пинов - не решение для моей схемы. Для нее - старое решение было лучше нового.
    Запись от Hrethgir размещена 21.10.2024 в 05:36 Hrethgir вне форума
 
Новые блоги и статьи
Саморегулирующийся социальный контракт для сервера cross-section.
Hrethgir 14.08.2026
С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .
Часы электронные
Uhbif79 12.08.2026
Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .
Часы с будильником на основе класса QLCDNumber
Uhbif79 12.08.2026
Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .
Установка MinGW GCC 16.2 и CMake
8Observer8 10.08.2026
VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия
Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо
anaschu 10.08.2026
Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства
russiannick 07.08.2026
1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь
Мир по моей воле
kumehtar 07.08.2026
Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор
Maks 05.08.2026
Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru