Freigeben über

Small Basic Poet

  • Artikel

Become a Small Basic poet! Paste in this program and try it out!

First, copy this image and name it "background.png", putting it in the same file folder as you Small Basic Poet file:

Next, see if you can alter our program and create your own Small Basic Poem Program! Change the words with your own!

Paste this code into Small Basic:

     

GraphicsWindow.Title             = "Small Basic Poet"

GraphicsWindow.CanResize  = "False"

GraphicsWindow.Width           = 480

GraphicsWindow.Height          = 360

GraphicsWindow.FontBold      = "False"

GraphicsWindow.FontItalic      = "True"

GraphicsWindow.FontSize      = 16

Path = Program.Directory

GraphicsWindow.DrawImage(path + "\Background.png", 0, 0)

Controls.AddButton("New", 10, 10)

CreateLists()

 

artCount  = Array.GetItemCount(article)

adjCount  = Array.GetItemCount(adjective)

nounCount = Array.GetItemCount(noun)

 

verbCount = Array.GetItemCount(verb)

prepCount = Array.GetItemCount(prepos)

Controls.ButtonClicked = OnButtonClicked

OnButtonClicked()

 

Sub CreateLists

  article  = "1=a;2=the;3=one;4=each;5=every;"

  adjective = "1=beautiful;2=blue;3=breeze;4=brief;5=broad;6=calm;7=careful;8=chilly;9=chubby;10=clean;11=clever;12=curved;13=damp;14=deep;15=delicious;16=delightful;17=early;18=faint;19=fast;20=freezing;21=fresh;22=full;23=gentle;24=gifted;25=glamorous;26=gray;27=great;28=green;29=handsome;30=high;31=hollow;32=hot;33=hot;34=icy;35=jolly;36=juicy;37=late;38=light;39=little;40=lively;41=loud;42=magnificent;43=melodic;44=mysterious;45=quiet;46=rainy;47=rapid;48=raspy;49=red;50=rich;51=scary;52=shallow;53=short;54=shy;55=sparkling;56=sparse;57=steep;58=straight;59=sweet;60=swift;61=tart;62=tender;63=thundering;64=tiny;65=voiceless;66=warm;67=wet;68=whispering;69=white;70=witty;71=yellow;72=young;"

  noun = "1=baby;2=bird;3=boat;4=breeze;5=brook;6=butterfly;7=cloud;8=coast;9=crow;10=dawn;11=day;12=deer;13=dew;14=doll;15=drop;16=dust;17=eye;18=face;19=fall;20=farm;21=fish;22=flame;23=flower;24=forest;25=fox;26=garden;27=gate;28=glitter;29=grape;30=grass;31=hair;32=hand;33=heart;34=hill;35=home;36=jewel;37=kiss;38=lake;39=lamp;40=land;41=leaf;42=light;43=love;44=meadow;45=mist;46=moon;47=morning;48=mouth;49=music;50=neck;51=night;52=noise;53=ocean;54=ornament;55=picture;56=pine;57=plant;58=pond;59=purpose;60=queen;61=quiet;62=quiver;63=rail;64=rain;65=raven;66=regret;67=reward;68=rhythm;69=ring;70=river;71=road;72=rock;73=sail;74=sand;75=scent;76=sea;77=shadow;78=skin;79=skirt;80=smell;81=snow;82=song;83=space;84=spring;85=star;86=street;87=sugar;88=summer;89=sun;90=sunset;91=swim;92=toy;93=tree;94=umbrella;95=vein;96=waterfall;97=whistle;98=wind;99=wine;100=winter;"

  verb     = "1=admires;2=amuses;3=appears;4=applauds;5=awakes;6=bathes;7=begins;8=beholds;9=belongs;10=bows;11=breathes;12=breeds;13=bursts;14=cares;15=carries;16=carves;17=casts;18=catches;19=creeps;20=cries;21=cures;22=dances;23=delights;24=dives;25=draws;26=dreams;27=drifts;28=drinks;29=dwells;30=earns;31=endures;32=enjoys;33=faces;34=fades;35=fails;36=fears;37=feels;38=flies;39=forgives;40=gazes;41=glows;42=heals;43=hides;44=holds;45=hopes;46=hugs;47=inspires;48=jumps;49=kisses;50=kneels;51=knocks;52=knows;53=laughs;54=leaps;55=loves;56=moves;57=packs;58=paints;59=passes;60=peels;61=prints;62=promises;63=races;64=rains;65=reaches;66=reads;67=rejoices;68=relaxes;69=rhymes;70=rises;71=runs;72=serves;73=shades;74=shakes;75=shares;76=shines;77=sleeps;78=smells;79=snows;80=sparks;81=stamps;82=stares;83=swims;84=swings;85=tastes;86=touches;87=visits;88=waits;89=walks;90=wanders;91=warms;92=whispers;"

  prepos   = "1=about;2=above;3=across;4=after;5=against;6=along;7=amidst;8=among;9=around;10=before;11=behind;12=below;13=beneath;14=beside;15=beyond;16=by;17=down;18=except;19=for;20=from;21=in;22=inside;23=into;24=near;25=next;26=off;27=on;28=outside;29=over;30=past;31=through;32=till;33=to;34=under;35=unlike;36=until;37=without;"

EndSub

 

Sub OnButtonClicked

  GraphicsWindow.DrawImage(path + "\Background.png", 0, 0)

  MakeLine1()  'Construct poemLine1

  MakeLine2()  'Construct poemLine2

  MakeLine3()  'Construct poemLine3

  GraphicsWindow.DrawText(180, 140, poemLine1)

  GraphicsWindow.DrawText(100, 165, poemLine2)

  GraphicsWindow.DrawText(180, 190, poemLine3) 

EndSub

 

Sub MakeLine1

  art1  = article  [Math.GetRandomNumber(artCount)]

  adj1  = adjective[Math.GetRandomNumber(adjCount)]

  noun1 = noun     [Math.GetRandomNumber(nounCount)]

  poemLine1 = art1 + " " + adj1 + " " + noun1

EndSub

 

Sub MakeLine2

  art1  = article[Math.GetRandomNumber(artCOUNT) ] 

  art2  = article[Math.GetRandomNumber(artCOUNT) ]     

  noun1 = noun   [Math.GetRandomNumber(nounCOUNT)] 

  noun2 = noun   [Math.GetRandomNumber(nounCOUNT)] 

  verb1 = verb   [Math.GetRandomNumber(verbCOUNT)]

  prep1 = prepos [Math.GetRandomNumber(prepCOUNT)] 

  adj1  = adjective[Math.GetRandomNumber(adjCOUNT)]

  poemLine2 = art1  + " " + noun1 + " " + verb1 

  poemLine2 = poemLine2 + " " + prep1 + " " + art2

  poemLine2 = poemLine2 + " " + adj1  + " " + noun2   

EndSub

 

Sub MakeLine3 

  adj1  = adjective[Math.GetRandomNumber(AdjCOUNT)]

  adj2  = adjective[Math.GetRandomNumber(AdjCOUNT)]

  noun1 = noun     [Math.GetRandomNumber(nounCOUNT)]

  poemLine3 = adj1 + " " + adj2 + " " + noun1

EndSub

  

==============

 

Did you play with it and change the words to create your own unique poem generator?

If so, comment below with your Import ID! And share it with your family and friends!

  

 

Do you have any questions? Ask us! We're full of answers and other fine things!

Head to the Small Basic forum to get the most answers to your questions: 

https://social.msdn.microsoft.com/Forums/en-US/smallbasic/threads/   

And go to https://blogs.msdn.com/SmallBasic to download Small Basic and learn all about it!

   

Small and Basically yours,

   - Ninja Ed & Majed Marji

Comments