vb.net - How to handle second condition in If Else statement -

-

how handle second condition in if else statement, if statement working second condition not working(elseif), there wrong condition declaration?

try             if val(textbox7.text.trim.split(".")(1)) >= 60                  textbox7.text = val(textbox7.text.trim.split(".")(0)) + 1 & "." & val(textbox7.text.trim.split(".")(1) - 60) & " " & format(now, "mm/dd/yyyy")                 textbox3.text = val(textbox3.text.trim.split(".")(0)) & "." & val(textbox3.text.trim.split(".")(1) - 60) & " " & format(now, "mm/dd/yyyy")              elseif val(textbox7.text.trim.split(".")(1)) >= 100                  textbox7.text = val(textbox7.text.trim.split(".")(0)) - 1 & "." & val(textbox7.text.trim.split(".")(1) - 45) & " " & format(now, "mm/dd/yyyy")                 textbox3.text = val(textbox3.text.trim.split(".")(0)) - 1 & "." & val(textbox3.text.trim.split(".")(1) - 45) & " " & format(now, "mm/dd/yyyy")               else                 textbox7.text = format(val(textbox6.text) + val(strings.left(time.text.trim, 5)), "##.00") & strings.right(time.text.trim, 11)                 textbox3.text = format(val(textbox6.text) + val(strings.left(time.text.trim, 5)), "##.00") - 1 & strings.right(time.text.trim, 11)                 'textbox3.text = format(val(textbox3.text.trim.split(".")(0) - 1) & "." & val(textbox3.text.trim.split(".")(1)) & " " & format(now, "mm/dd/yyyy"))             end if         catch             textbox7.text = format(val(textbox6.text) + val(strings.left(time.text.trim, 5)), "##.00") & strings.right(time.text.trim, 11)         end try

what @james said + i'd suggest rewrite select case - should easier follow:

select case val(textbox7.text.trim.split(".")(1))   case >= 100     textbox7.text = val(textbox7.text.trim.split(".")(0)) - 1 & "." & val(textbox7.text.trim.split(".")(1) - 45) & " " & format(now, "mm/dd/yyyy")     textbox3.text = val(textbox3.text.trim.split(".")(0)) - 1 & "." & val(textbox3.text.trim.split(".")(1) - 45) & " " & format(now, "mm/dd/yyyy")   case >= 60     textbox7.text = val(textbox7.text.trim.split(".")(0)) + 1 & "." & val(textbox7.text.trim.split(".")(1) - 60) & " " & format(now, "mm/dd/yyyy")     textbox3.text = val(textbox3.text.trim.split(".")(0)) & "." & val(textbox3.text.trim.split(".")(1) - 60) & " " & format(now, "mm/dd/yyyy")   case else     textbox7.text = format(val(textbox6.text) + val(strings.left(time.text.trim, 5)), "##.00") & strings.right(time.text.trim, 11)     textbox3.text = format(val(textbox6.text) + val(strings.left(time.text.trim, 5)), "##.00") - 1 & strings.right(time.text.trim, 11) end select

also several points of interest:

  • don't use val, use convert class instead, example, convert.toint32.
  • you can wrap textbox3.text.trim.split(".") function, , reuse.
  • you read date twice, it's better read date once before select, datevar.tostring("mm/dd/yyyy").
  • favour .net syntax instead of vb6. val, format, strings.left vb6. .net equivalents convert.*, tostring format string, , substring.
  • control naming - textbox3 , textbox7 don't mean anything. try come better name them.

Comments

Post a Comment

Popular posts from this blog

PHPMotion implementation - URL based videos (Hosted on separate location) -

-
i have implement video collection website users of specific isp. site hosted on public web-server movies hosted on local isp server. user of isp + general visitors can see available movies; isp's users able play them. player on site point url of local machine ( http://192.x.x.x/movies/mymovie.mov ) private class (192.x.x.x) accessible isp user. question: possible phpmotion script? or need custom work. if possible, can please suggest available mods? phpmotion require modifications able handle this. uploading, conversion, thumbnail generation, , playback pretty static in phpmotion. really though, rather modding entire upload , conversion process, if created quick custom form add entries phpmotion database (maybe include thumbnail upload), tweaked playback paths, should go on phpmotion side of things. assume had videos in format player handle (such flv or mp4).
Read more

c# - Unity IoC Lifetime per HttpRequest for UserStore -

-
i'm trying clean default implementation of accountcontroller.cs comes out of box in new mvc5/owin security implementation. have modified constructor this: private usermanager<applicationuser> usermanager; public accountcontroller(usermanager<applicationuser> usermanager) { this.usermanager = usermanager; } also, have created lifetime manager unity looks this: public class httpcontextlifetimemanager<t> : lifetimemanager, idisposable { private httpcontextbase _context = null; public httpcontextlifetimemanager() { _context = new httpcontextwrapper(httpcontext.current); } public httpcontextlifetimemanager(httpcontextbase context) { if (context == null) throw new argumentnullexception("context"); _context = context; } public void dispose() { this.removevalue(); } public override object get
Read more

I am trying to solve the error message 'incompatible ranks 0 and 1 in assignment' in a fortran 95 program. -

-
i writing program in fortran find velocity of parachuting person in relation time. keep getting error can't fix. new programming , appreciated. the error is v(i+1)=v(i)+[32-((c*v(i)*v(i))/m)]*(h) 1 error: incompatible ranks 0 , 1 in assignment @ (1) and program is program para integer :: real :: v(11) !velocity real :: q !initial velocity real :: h !time step real :: c !drag coefficient real :: m !mass ! gravity equal 32 ft/s^2 write (*,*)'enter time step' read(*,*)h write(*,*)'enter initial velocity' read(*,*)q write(*,*)'enter drag coefficient' read(*,*)c write(*,*)'enter mass' read(*,*)m i=1,10 ! 1 10, 1 being interval. end v(i+1)=v(i)+[32-((c*v(i)*v(i))/m)]*(h) q=v(1) end program you cannot use [] normal parenthesis in expressions. array constructor, [ items ] means array items elements. end do should after line.
Read more