Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

vb bas module

Name: Anonymous 2011-10-01 0:05

hey, I'm just trying to follow the program described here : http://vbnet.mvps.org/index.html?code/system/findwindowlikesimple.htm

but where it said "put these declarations in the BAS module" what is a bas (basic?) module, and do they still exist in vs 2010.

(sorry this is probably a basic question, but I'm fairly new to VB, though I'm not new to programming, and google hasn't helped me out this time)

Name: Anonymous 2011-10-01 5:46

DIM WORDS$(1024)
N = 0
DO
    READ A$
    IF A$ <> "END" THEN
        WORDS$(N) = A$
        N = N + 1
    END IF
LOOP UNTIL A$ = "END"

PRINT N; " words in vocabulary."
PRINT
PRINT "You must talk to God, first, before running this program."
PRINT

OPEN "OUT.TXT" FOR OUTPUT AS #1

DO
    I = -1
    DO
        I = I + 1
        IF I >= N * 100 THEN I = 0
    LOOP UNTIL INKEY$ <> ""
    I = INT(I / 100)
    PRINT WORDS$(I); " ";
    PRINT #1, WORDS$(I); " ";
LOOP UNTIL WORDS$(I) = "done"
PRINT #1,
CLOSE #1

PRINT
PRINT "Press A Key"
DO
LOOP UNTIL INKEY$ <> ""


DATA "good","bad","fun","silly","stupid"
DATA "me","you","God","Obama","Bush"
DATA "love","hate","happy","sad","obviously"
DATA "okay","whatever","do_it","why","now"
DATA "money","car","oil","house","computer"
DATA "angel","demon","Satan","Heaven","Hell"
DATA "USA","Europe","Egypt","Russia","China"
DATA "Microsoft","Linux","LoseThos","Apple","Google"
DATA "sin","sex","lust","greed","sloth"
DATA "fortitude","virtue","patience","charity","honest"
DATA "music","art","software","hardware","food"
DATA "pity","probably","pest","pretty","ugly"
DATA "I","prayer","piety","you","your"
DATA "stupid","smart","healthy","unhealthy","quick"
DATA "fantastic","foolish","wise","Oops","Hmmm"
DATA "rediculous","biggot","grieved","ouch","conservative"
DATA "liberal","bickering","ouch","smurfs","bam"
DATA "zap","oy!","shalom","furious","fake"
DATA "impossible","crazy","joking","lovely","planet"
DATA "Venus","Mars","horrendous","buddy","nice"
DATA "day","night","wonder","laughable","better"
DATA "perfect","swear","lucky","mocked","occasion"
DATA "know","right","wrong","spunky","dignity"
DATA "prosparity","rich","poor","middle_class","meh"
DATA "care","don't","kludge","theory","practice"
DATA "experts","class","yawn","varoom","evolution"
DATA "population","threads","meek","Jesus","theft"
DATA "adultery","guppy","whale","astrophysics","gravity"
DATA "boss","hero","mess","nightmare","ordinarily"
DATA "special","nuts","bored","relax","news"
DATA "tip","super","cool","nasty","fancy"
DATA "birds","cats","dogs","goats","horses"
DATA "farm","produce","parks","nature","wild"
DATA "tame","cultivated","city","Vegas","D.C."
DATA "rock","tree","water","salt","CO2"
DATA "climate","rain","snow","ice","mud"
DATA "storm","lightening","thunder","gun","war"
DATA "shoot","smack","work","play","music"
DATA "soul","body","brain","heart","hand"
DATA "NASA","Afghanistan","France","Africa","Britain"
DATA "Germany","Japan","Russia","Mexico","person"
DATA "Catholic","Jew","Christian","Muslim","Buddist"
DATA "atheist","homo","ha!","programmer","scientist"
DATA "doctor","priest","cop","politician","lawyer"
DATA "Israel","Palistinians","Brazil","peace","hippy"
DATA "song","radio","TV","home","phone"
DATA "football","superbowl","game","show","teach"
DATA "school","M.I.T.","Ivy League","Harvard","Yale"
DATA "Stanford","ASU","physics","chemestry","biology"
DATA "hopefully","awesome","joyous","sermon","Christ"
DATA "Mohammad","BBC","Moses","proton","electron"
DATA "photon","neutron","radiation","magnetism","atom"
DATA "energy","mass","speed","relativity","charge"
DATA "economics","Nobel","saint","prize","win"
DATA "lose","death","birth","marriage","man"
DATA "woman","animal","king","president","leader"
DATA "Ticketmaster","event","ticket","chased","day"
DATA "monkey","plant","dinosaurs","shells","vertebrates"
DATA "primates","bugs","flowers","fruit","bear"
DATA "fire","smoke","burning","hidden","adapt"
DATA "King David","Bible","ark","flood","star"
DATA "slavery","freedom","rejoice","brave","coward"
DATA "fight","sing","write","read","paper"
DATA "Pope","please","thank you","New Testament","Old Testament"
DATA "seek","find","goto","get","give"
DATA "spend","save","book","email","Internet"
DATA "surely","So","let","it","be"
DATA "grown","adult","child","innocent","teenager"
DATA "drive","sports","band"
DATA "vacation","church","Sunday","math","geography"
DATA "of","the","is","a","in"
DATA "on","under","over","between","after"
DATA "before","time","space","Star Trek","Star Wars"
DATA "movie","should","shouldn't","commandment","for"
DATA "tax","IRS","FBI","CIA","media"
DATA "luxury","needy","enough","go","went"
DATA "remember","forget","fix","found","lost"
DATA "despair","laugh","cookie","genetic","algorithm"
DATA "ice_cream","soap","opera","umm...","fast"
DATA "black","hole","Sun","approach","light"
DATA "hilarious","funny","comical","ROFLMAO","LOL"

DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "END"




God says...
plant funny done

Newer Posts
Don't change these.
Name: Email:
Entire Thread Thread List