.net - Turning What If into Select Case -

-

question is, wrote rock paper scissors game in vb.net using if statements , wondered how try , work select case instead.

professor pretty awful @ teaching things , didn't let know until today had select case(its due tomorrow ._.)

public class form1

    dim randomgenerator new random       private sub form1_load(byval sender system.object, byval e system.eventargs) handles mybase.load      end sub       private sub rdorock_checkedchanged(byval sender system.object, byval e system.eventargs) handles rdorock.checkedchanged         if rdorock.checked = true             picrock.visible = true         else             picrock.visible = false         end if     end sub      private sub rdopaper_checkedchanged(byval sender system.object, byval e system.eventargs) handles rdopaper.checkedchanged         if rdopaper.checked = true             picpaper.visible = true         else             picpaper.visible = false         end if     end sub      private sub rdoscissors_checkedchanged(byval sender system.object, byval e system.eventargs) handles rdoscissors.checkedchanged         if rdoscissors.checked = true             picscissors.visible = true         else             picscissors.visible = false         end if     end sub       private sub btnstart_click(byval sender system.object, byval e system.eventargs) handles btnstart.click         dim computerchoice integer          randomgenerator.next(1, 4)         computerchoice = randomgenerator.next(1, 4)          'if computerchoice = 1         'picrock2.visible = true         'elseif computerchoice = 2         'picpaper2.visible = true         'elseif computerchoice = 3         'picscissors2.visible = true         'end if          if computerchoice = 1             picrock2.visible = true             if rdorock.checked = true                 lbltie.visible = true             elseif rdopaper.checked = true                 lblwin.visible = true             elseif rdoscissors.checked = true                 lbllose.visible = true             end if         end if          if computerchoice = 2             picpaper2.visible = true             if rdorock.checked = true                 lbllose.visible = true             elseif rdopaper.checked = true                 lbltie.visible = true             elseif rdoscissors.checked = true                 lblwin.visible = true             end if         end if          if computerchoice = 3             picscissors2.visible = true             if rdorock.checked = true                 lblwin.visible = true             elseif rdopaper.checked = true                 lbllose.visible = true             elseif rdoscissors.checked = true                 lbltie.visible = true             end if         end if         end sub      private sub label5_click(byval sender system.object, byval e system.eventargs) handles lblwin.click      end sub      private sub button1_click(byval sender system.object, byval e system.eventargs) handles button1.click         picrock.visible = false         picrock2.visible = false         picpaper2.visible = false         picpaper.visible = false         picscissors.visible = false         picscissors2.visible = false         lblwin.visible = false         lbltie.visible = false         lbllose.visible = false         rdorock.checked = false         rdopaper.checked = false         rdoscissors.checked = false      end sub end class

i believe you're looking 1, 2, or 3 select case - like:

select case computerchoice     case 1         ' what's in [if computerchoice = 1] section     case 2         ' what's in [if computerchoice = 2] section     case 3         ' what's in [if computerchoice = 3] section end select

Comments

Post a Comment

Popular posts from this blog

php - What is the difference between $_SERVER['PATH_INFO'] and $_SERVER['ORIG_PATH_INFO']? -

-
what’s difference between $_server['path_info'] , $_server['orig_path_info'] ? how use them? when run print_r($_server) , path_info , orig_path_info not present in array. why not? how can enable them? i have read php manual on them, still don’t understand them. the path_info variable present if invoke php script this: http://www.example.com/phpinfo.php/hello_there it's /hello_there part after .php script. if don't invoke url that, there won't $_server["path_info"] environment variable. the porig_ prefix uncommon. path_info standard cgi-environment variable, , should never prefixed. did read that? (there issues around php3/php4 if invoked php interpreter via cgi-bin/ - hardly has such setups today.) for reference: http://www.ietf.org/rfc/rfc3875
Read more

fortran - Function return type mismatch -

-
i'm attempting recode old c++ program in fortran make use of lapack (i'm aware c++ have lapack++, i'm having lot of trouble installing it, gave up). i didn't have problems compilation, when had variables declared real . when started coding section of program required lapack, found parameters passed dsyev need double precision . tried change double precision (including changing hard coded numbers double precision counterparts, i.e. 0.0 -> 0.0d0) when try compile, following error of functions , subroutines i've written: error: return type mismatch of function <function> @ (1) (real(4)/real(8)) i'm not sure coming from, in program has been changed double precision. for example, i've declared following: double precision :: alpha(3),d(3),zeta1,zeta2 double precision :: a1(3),a2(3),d1(3),d2(3) double precision :: pi pi = 3.14159265359d0 alpha = (/0.109818d0, 0.405771d0, 2.22766d0/) d = (/0.444635d0, 0.535328d0, 0.154329d0 /) 10 i=1,3 ...
Read more

queue - mq_receive: message too long -

-
i implementing communication between 2 processes using queue. problem when call function mq_receive, error: message long. i have done following: struct mq_attr attr; long size = attr.mq_msgsize; .... // initializing queue "/gateway" int rc = mq_receive(gateway, buffer, size, &prio); if print size value, size=1, while when print same size program (got same mechanism), not long integer ( -1217186280 )... how can solve error?....so while size = 1, believe it's right "message long" why 1? p.s. have tried put : int rc = mq_receive(gateway, buffer, sizeof(buffer), &prio); but no result. it seems need read docs more carefully. when call mq_receive should pass size of destination buffer. this size must greater mq_msgsize attribute of queue . in addition, seems have error in queue attributes initialisation makes proper mq_receive call impossible. here standard message queue session: fill mq_attr struct ( doc ): struct mq_a...
Read more