Need to Restart an Excel VBA Do...Until Loop -

-

here's code seek assistance:

for = 1 numplayers     replacementdone = 0     until replacementdone <> 0         replacecards = inputbox("blah...blah")         if replacecards <> 0             replace100 = application.round((replacecards / 100), 0)             if replace100 < 5                 players(i, replace100) = deck(deckindex)                 deckindex = deckindex + 1             else                 msgbox "invalid entry - try again."             end if             replace10 = application.round(application.mod(replacecards, 100) / 10, 0)             if replace10 < 5 , replace10 > replace100                 players(i, replace10) = deck(deckindex)                 deckindex = deckindex + 1             else                 msgbox "invalid entry - try again."             end if             replace1 = application.round(application.mod(replacecards, 10), 0)             if replace1 < 5 , replace1 > replace10                 players(i, replace1) = deck(deckindex)                 deckindex = deckindex + 1             else                 msgbox "invalid entry - try again."             end if         end if     loop next

at each point if statement untrue , msgbox "invalid entry - try again." appear, want restart do until loop. responses i've seen regarding restarting do until loop address user's code logic rather identifying how restart. appreciated.

one way use "goto" statement, so:

for = 1 numplayers     replacementdone = 0      loopstart:     until replacementdone <> 0         replacecards = inputbox("blah...blah")         if replacecards <> 0             replace100 = application.round((replacecards / 100), 0)             if replace100 < 5                 players(i, replace100) = deck(deckindex)                 deckindex = deckindex + 1             else                 msgbox "invalid entry - try again."                 goto loopstart             end if             replace10 = application.round(application.mod(replacecards, 100) / 10, 0)             if replace10 < 5 , replace10 > replace100                 players(i, replace10) = deck(deckindex)                 deckindex = deckindex + 1             else                 msgbox "invalid entry - try again."                 goto loopstart             end if             replace1 = application.round(application.mod(replacecards, 10), 0)             if replace1 < 5 , replace1 > replace10                 players(i, replace1) = deck(deckindex)                 deckindex = deckindex + 1             else                 msgbox "invalid entry - try again."                 goto loopstart             end if         end if     loop next

Comments

Post a Comment

Popular posts from this blog

python - No exponential form of the z-axis in matplotlib-3D-plots -

-
Image
i have similar problem described in how prevent numbers being changed exponential form in python matplotlib figure : i don't want (in special case) weird scientific formatting of axis. problem different have problem @ z -axis. 2-d plots can use ax.get_yaxis().get_major_formatter().set_useoffset(false) . , there no function ax.get_zaxis() what use format z -axis same way? edit: example: from mpl_toolkits.mplot3d import axes3d import numpy np import sys import matplotlib import matplotlib.pyplot pyplot def func(xi, ti): res = 10e3 + np.cos(ti) * np.sin(xi) return res if __name__ == '__main__': timespacing = 20 timestart = 0 timeend = 1 time = np.linspace(timestart, timeend, timespacing) widthspacing = 50 widthstart = 0 widthend = 3 width = np.linspace(widthstart, widthend, widthspacing) reslist = [] matplotlib.rcparams['legend.fontsize'] = 10 fig = pyplot.figure() ax = fig.gca(projection = '3d...
Read more

php - Best Light server (Linux + Web server + Database) for Raspberry Pi -

-
i install web server database on raspberry pi (little computer). computer has 1gb ram. i want know best combination: linux distribution , web server , dbms run local server multiple users minimal latency, use php on server. , best settings performance , not have bugs (memory usage, disable plugin, disable service, etc)? i thought light debian , lighttpd server , sqlite database. solution? i think lighttpd + sqlite great choice. linux distro, debian @ centos or tiny core linux , although i'm not sure of compatibility pi. obviously, can't go wrong raspbian if want use in production , more stable performance, few more pi's , set them in cluster .
Read more

c# - "Newtonsoft.Json.JsonSerializationException unable to find constructor to use for types" error when deserializing class -

-
i developing app in xamarin android. have splash screen serialize class , pass mainactivity using intent . when try deserialize in mainactivity error message : "serializationexception unable find constructor use types" serialization : void loaddata() { currency currency = new currency(this); intent = new intent(this, typeof(mainactivity)); intent.putextra("currency", newtonsoft.json.jsonconvert.serializeobject(currency)); startactivity(intent); } deserialization : cur = newtonsoft.json.jsonconvert.deserializeobject<currency> (intent.getstringextra("currency")); // error here class constructor : public currency(context context) { thiscontext = context; } i began experiencing problem after added parameter context context constructor. has caused this? how can solve it? possible serialize/deserialize class has parameters? you need have empty constructor in currency class in order deserialize it. ...
Read more