Continue to Site

Welcome to EDAboard.com

Welcome to our site! EDAboard.com is an international Electronics Discussion Forum focused on EDA software, circuits, schematics, books, theory, papers, asic, pld, 8051, DSP, Network, RF, Analog Design, PCB, Service Manuals... and a whole lot more! To participate you need to register. Registration is free. Click here to register now.

Register Log in

please help me to fix my translation from VHDL to Verilog

Status
Not open for further replies.
K

Kushanku

Newbie level 2
Newbie level 2
Joined
Nov 13, 2013
Messages
2
Helped
0
Reputation
0
Reaction score
0
Trophy points
1
Visit site
Activity points
61
Hello, i tried to translate from myself these 3 file from VHDL to Verilog.
I post the VHDL first and then mine translation. Can you help me to check it and fix it?

Code VHDL - [expand]
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

library ieee;
use ieee.std_logic_1164.all;
use ieee.numeric_std.all;
 
 
ENTITY VGA IS
PORT(
CLOCK_24: IN STD_LOGIC_VECTOR(1 downto 0);
VGA_HS,VGA_VS: OUT STD_LOGIC;
VGA_R,VGA_G,VGA_B: OUT STD_LOGIC_VECTOR(3 downto 0);
KEY: IN STD_LOGIC_VECTOR(3 downto 0);
SW : IN STD_LOGIC_VECTOR(1 downto 0)
);
END VGA;
 
 
 
 
ARCHITECTURE MAIN OF VGA IS
 
SIGNAL VGACLK,RESET: STD_LOGIC:='0';
---------------------------------------------
    component PLL is
        port (
            clk_in_clk  : in  std_logic := 'X'; -- clk
            reset_reset : in  std_logic := 'X'; -- reset
            clk_out_clk : out std_logic         -- clk
        );
     end component PLL;
--------------------------------------------
COMPONENT SYNC IS
PORT(
CLK: IN STD_LOGIC;
HSYNC,VSYNC: OUT STD_LOGIC;
R,G,B : OUT STD_LOGIC_VECTOR(3 downto 0);
KEYS: IN STD_LOGIC_VECTOR(3 downto 0);
S: IN STD_LOGIC_VECTOR(1 downto 0)
);
END COMPONENT SYNC;
BEGIN
C1: SYNC PORT MAP(VGACLK,VGA_HS,VGA_VS,VGA_R,VGA_G,VGA_B,KEY,SW);
C2: PLL PORT MAP(CLOCK_24(0),RESET,VGACLK);
 
 
END MAIN;


Code Verilog - [expand]
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

module VGA(clock_24, vga_hs, vga_vs, vga_r, vga_g, vga_b, key, sw);
input [1:0] clock_24;
input [1:0] sw;
input [3:0] key;
output [3:0] vga_r;
output [3:0] vga_g;
output [3:0] vga_b;
 
wire vga_hs, vga_vs;
wire [3:0] vga_r, vga_g, vga_b;
wire vgaclk =1'bz; 
reg reset;
initial reset =1'b0:
 
//-----------------------------------
        //PLL
//-----------------------------------
 
 
SYNC c1(.clk(vgaclk), .hsync(vga_hs), .vsync(vga_vs), .r(vga_r), .g(vga_g), .b(vga_b), .keys(key), .s(sw));
PLL c2(.clk_in_clk(clock_24[0]), .reset_reset(reset), .clk_out_clk(vgaclk));
endmodule


the next two VHDL codes are converted in one Verilog code (because verilog doesn't use PACKAGE, so i created a TASK in verilog to include it)
Code VHDL - [expand]
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

library ieee;
use ieee.std_logic_1164.all;
use ieee.numeric_std.all;
 
PACKAGE MY IS
PROCEDURE SQ(SIGNAL Xcur,Ycur,Xpos,Ypos: IN INTEGER;SIGNAL RGB:OUT STD_LOGIC_VECTOR(3 downto 0);SIGNAL DRAW: OUT STD_LOGIC);
END MY;
 
PACKAGE BODY MY IS
PROCEDURE SQ(SIGNAL Xcur,Ycur,Xpos,Ypos: IN INTEGER;SIGNAL RGB:OUT STD_LOGIC_VECTOR(3 downto 0);SIGNAL DRAW: OUT STD_LOGIC) IS
BEGIN
IF(Xcur>Xpos AND Xcur<(Xpos+100) AND Ycur>Ypos AND Ycur<(Ypos+100))THEN
  RGB<="1111";
  DRAW<='1';
  ELSE
  DRAW<='0';
END IF;
END SQ;
END MY;


Code VHDL - [expand]
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

library ieee;
use ieee.std_logic_1164.all;
use ieee.numeric_std.all;
use work.my.all;
 
 
ENTITY SYNC IS
PORT(
CLK: IN STD_LOGIC;
HSYNC,VSYNC: OUT STD_LOGIC;
R,G,B : OUT STD_LOGIC_VECTOR(3 downto 0);
KEYS: IN STD_LOGIC_VECTOR(3 downto 0);
S: IN STD_LOGIC_VECTOR(1 downto 0)
);
END SYNC;
 
 
ARCHITECTURE MAIN OF SYNC IS
SIGNAL RGB: STD_LOGIC_VECTOR(3 downto 0);
SIGNAL DRAW1,DRAW2: STD_LOGIC;
SIGNAL SQ_X1,SQ_Y1: INTEGER RANGE 0 TO 1688:=600;
SIGNAL SQ_X2,SQ_Y2: INTEGER RANGE 0 TO 1688:=500;
SIGNAL HPOS: INTEGER RANGE 0 TO 1688:=0;
SIGNAL VPOS: INTEGER RANGE 0 TO 1066:=0;
BEGIN
SQ(HPOS,VPOS,SQ_X1,SQ_Y1,RGB,DRAW1);
SQ(HPOS,VPOS,SQ_X2,SQ_Y2,RGB,DRAW2);
PROCESS(CLK)
BEGIN
IF(CLK'EVENT AND CLK='1')THEN
    IF(DRAW1='1')THEN
        IF(S(0)='1')THEN
         R<=(OTHERS=>'1');
         G<=(OTHERS=>'0');
         B<=(OTHERS=>'0');
       ELSE
         R<=(OTHERS=>'1');
        G<=(OTHERS=>'1');
        B<=(OTHERS=>'1');
       END IF;
    END IF;
    IF(DRAW2='1')THEN
        IF(S(1)='1')THEN
         R<=(OTHERS=>'1');
         G<=(OTHERS=>'0');
         B<=(OTHERS=>'0');
       ELSE
         R<=(OTHERS=>'1');
       G<=(OTHERS=>'1');
        B<=(OTHERS=>'1');
       END IF;
    END IF;
    IF(DRAW1='0' AND DRAW2='0')THEN
       R<=(OTHERS=>'0');
      G<=(OTHERS=>'0');
       B<=(OTHERS=>'0');
    END IF;
  IF(HPOS<1688)THEN
  HPOS<=HPOS+1;
  ELSE
  HPOS<=0;
      IF(VPOS<1066)THEN
          VPOS<=VPOS+1;
          ELSE
           IF(S(0)='1')THEN
              IF(KEYS(0)='0')THEN
              SQ_X1<=SQ_X1+5;
              END IF;
              IF(KEYS(1)='0')THEN
              SQ_X1<=SQ_X1-5;
              END IF;
              IF(KEYS(2)='0')THEN
              SQ_Y1<=SQ_Y1+5;
              END IF;
              IF(KEYS(3)='0')THEN
              SQ_Y1<=SQ_Y1-5;
              END IF;
            END IF;
           IF(S(1)='1')THEN
              IF(KEYS(0)='0')THEN
              SQ_X2<=SQ_X2+5;
              END IF;
              IF(KEYS(1)='0')THEN
              SQ_X2<=SQ_X2-5;
              END IF;
              IF(KEYS(2)='0')THEN
              SQ_Y2<=SQ_Y2+5;
              END IF;
              IF(KEYS(3)='0')THEN
              SQ_Y2<=SQ_Y2-5;
              END IF;
            END IF;  
          VPOS<=0;
      END IF;
  END IF;
  IF(HPOS>48 AND HPOS<160)THEN
     HSYNC<='0';
      ELSE
      HSYNC<='1';
  END IF;
  IF(VPOS>0 AND VPOS<4)THEN
    VSYNC<='0';
     ELSE
     VSYNC<='1';
  END IF;
  IF((HPOS>0 AND HPOS<408)OR(VPOS>0 AND VPOS<42))THEN
  R<=(OTHERS=>'0');
  G<=(OTHERS=>'0');
  B<=(OTHERS=>'0');
  END IF;
END IF;
END PROCESS;
END MAIN;


now the Verilog version of SYNC + MY
Code Verilog - [expand]
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

module SYNC(clk, hsync, vsync, r, g, b, keys, s);
input clk;
output hsync, vsync;
output [3:0] r, g, b;
input [3:0] keys;
input [1:0] s;
 
wire hsync, vsync;
wire [3:0] r, g, b;
 
wire [3:0] rgb;
wire draw1, draw2;
wire [10:0] sq_x1, sq_y1, sq_x2, sq_y2;
wire [10:0] hpos, vpos;
sq(hpos, vpos, sq_x1, sq_y1, rgb, draw1);
sq(hpos, vpos, sq_x2, sq_y2, rgb, draw2)
:
 
always @ (posedge clk) begin
    if (draw1==1) begin
        if (s(0)==1) begin
            r <= 'b 1;
            g <= 'b 0;
            b <= 'b 0;
        end else 
        begin
            r <= 'b 1;
            g <= 'b 1;
            b <= 'b 1;
        end
    end
    if (draw2==1) begin
        if (s(1)==1) begin
            r <= 'b 1;
            g <= 'b 0;
            b <= 'b 0:
        end else 
        begin
            r <= 'b 1;
            g <= 'b 1;
            b <= 'b 1;
        end
    end
    if (draw1==0 && draw2==0) begin
        r <= 'b 0;
        g <= 'b 0;
        b <= 'b 0;
    end
    if (hpos < 1688) begin
        hpos <= hpos+1;
    end else 
    begin
        hpos <= 0;
        if (vpos < 1066) begin
            vpos <= vpos+1;
        end else
        begin 
            if (s(0)==1) begin
                if (keys(0)==0) begin
                    sq_x1 <= sq_x1+5;
                end
                if (keys(1)==0) begin
                    sq_x1 <= sq_x1-5;
                end
                if (keys(2)==0) begin
                    sq_y1 <= sq_y1+5;
                end
                if (keys(3)==0) begin
                    sq_y1 <= sq_y1-5;
                end
            end
            if (s(1)==1) begin
                if (keys(0)==0) begin
                    sq_x2 <= sq_x2+5;
                end
                if (keys(1)==0) begin
                    sq_x2 <= sq_x2-5;
                end
                if (keys(2)==0) begin
                    sq_y2 <= sq_y2+5;
                end
                if (keys(3)==0) begin
                    sq_y2 <= sq_y2-5;
                end
            end
            vpos <= 0;
        end     
    end
    if (hpos>48 && hpos<160) begin
        hsync<=0;
    end else 
    begin
        hsync<=1;
    end
    if (vpos>0 && vpos<4) begin
        vsync <= 0;
    end else 
    begin
        vsync <= 1;
    end
    if ((hpos>0 && hpos<408) || (vpos>0 && vpos<42)) begin
        r <= 'b 0;
        g <= 'b 0;
        b <= 'b 0;
    end
end
 
task sq;
    input xcur;   
    integer xcur;
    input ycur;
    integer ycur;
    input xpos;
    integer xpos;
    input ypos;
    integer ypos;   
    output [3:0] rgb;
    reg [3:0] rgb;
    output draw;
    reg draw;
    begin
        if (xcur > xpos && xcur < (xpos + 100) && ycur > ypos && ycur < (ypos + 100)) begin
            RGB = 4'b1111;
            DRAW = 1'b1;
        end else
        begin
            DRAW = 1'b0;
        end
    end
endtask
 
endmodule


thank you to everyone will help me
regards
 

Hi,

I think,one way to check it is by simulating the VHDL code and then compared with the output of translated Verilog using the same testbench architecture.

Thanks
 

soloktanjung said:
Hi,

I think,one way to check it is by simulating the VHDL code and then compared with the output of translated Verilog using the same testbench architecture.

Thanks
Click to expand...

i'll try soon as possible, thank you very much for your answer
 

Status
Not open for further replies.

Similar threads

Part and Inventory Search

Welcome to EDABoard.com

Sponsor

Back
Top