Scribd
Upload
108 views8 pages

Dice Game Controller

This document describes a dice game module in Verilog. It contains: 1) A dicegame module that simulates rolling dice and determining if the player wins, loses or continues rolling based on the dice sum. 2) A gametest module that triggers rolls of the dice by calling the dicegame module and resets after each game. 3) A test_tester module that instantiates the dicegame and gametest modules and provides a clock signal to run the simulation.

Uploaded by

EADALADA LAVANYA
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
108 views8 pages

Dice Game Controller

This document describes a dice game module in Verilog. It contains: 1) A dicegame module that simulates rolling dice and determining if the player wins, loses or continues rolling based on the dice sum. 2) A gametest module that triggers rolls of the dice by calling the dicegame module and resets after each game. 3) A test_tester module that instantiates the dicegame and gametest modules and provides a clock signal to run the simulation.

Uploaded by

EADALADA LAVANYA
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 8

module dicegame(rb,reset,clk,sum,roll,win,lose);

input rb,reset,clk;
input [3:0]sum;
output reg roll,win,lose;
reg [2:0]state,nextstate;
reg [3:0]point;
reg sp;
initial begin
state=0;nextstate=0;
point=2;
end

always@(rb,reset,sum,state)
begin
sp=1'b0;
roll=1'b0;
win=1'b0;
lose=1'b0;
nextstate=0;
case(state)
0: begin if(rb==1)
nextstate=1;
end
1: begin
if(rb==1) roll=1'b1;
else if((sum==7)|(sum==11))
nextstate=2;
else if((sum==2)|(sum==3)|(sum==12))
nextstate=3;
else
begin
sp=1'b1;
nextstate=4;
end
end
2: begin
win=1'b1;
if(reset==1)
nextstate=0;
end
3: begin
lose=1'b1;
if(reset==1)
nextstate=0;
end
4: begin
if(rb==1)
nextstate=5;
end
5: begin
if(rb==1)
roll=1'b1;
else if(sum==point)
nextstate=2;
else if(sum==7)
nextstate=3;
else
nextstate=4;
end
endcase
end

always@(posedge clk)
begin
if(clk)
state<=nextstate;
if(sp==1)
point<=sum;
end
initial $monitor($time, " sum=%d, win=%b,lose=%b,point=
%d",sum,win,lose,point);
endmodule
`timescale 1ns / 1ps

module gametest(rb,reset,sum,clk,roll,win,lose);

output reg rb,reset;

output reg [3:0] sum;

input clk;

input roll,win,lose;

reg[1:0] tstate,tnext;

reg trig1;

integer i;

integer sumarray[0:11];

initial begin

sumarray[0]=7;

sumarray[1]=11;

sumarray[2]=2;

sumarray[3]=4;

sumarray[4]=7;

sumarray[5]=5;

sumarray[6]=6;

sumarray[7]=7;

sumarray[8]=6;

sumarray[9]=8;

sumarray[10]=9;

sumarray[11]=6;

i=0;tstate=0;tnext=0;trig1=0;

end

always@(roll,win,lose,tstate)
begin

case(tstate)

0: begin

rb=1'b1;

reset=1'b0;

if(i>=12)

tnext=3;

else if(roll==1'b1)

begin

sum=sumarray[i];

i=i+1;

tnext=1;

end

end

1: begin

rb=1'b0;

tnext=2;

end

2: begin

tnext=0;

trig1=~trig1;

if((win|lose) ==1'b1) reset=1'b1;

end

3: begin

end

endcase

end

always@(posedge clk)
begin

tstate=tnext;

end

endmodule
`timescale 1ns / 1ps

module test_tester();

wire rb1,reset1;

reg clk1;

wire roll1,win1,lose1;

wire [3:0] sum1;

initial begin

clk1=0;

end

always #20 clk1<=~clk1;

dicegame d1(rb1,reset1,clk1,sum1,roll1,win1,lose1);

gametest g1(rb1,reset1,sum1,clk1,roll1,win1,lose1);

endmodule

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy