API tools faq
paste
Guest User

Code

a guest
May 7th, 2011
481
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 38.51 KB | None | 0 0
raw download clone embed print report
  1. Public Class Form1
  2. 'These are the variable declarations.'
  3. Dim dblPenny As Double = 0.01
  4. Dim dblNickel As Double = 0.05
  5. Dim dblDime As Double = 0.1
  6. Dim dblQuarter As Double = 0.25
  7. Dim dblDouble As Double = 2
  8. Dim dblStarting As Double
  9. 'These are the picture boxes for the program.'
  10. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  11. PictureBox1.BackgroundImage = My.Resources.money_bags
  12. End Sub
  13. Private Sub radPenny_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radPenny.CheckedChanged
  14. PictureBox1.BackgroundImage = My.Resources.penny
  15. End Sub
  16.  
  17. Private Sub radNickel_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radNickel.CheckedChanged
  18. PictureBox1.BackgroundImage = My.Resources.nickel
  19. End Sub
  20.  
  21. Private Sub radDime_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radDime.CheckedChanged
  22. PictureBox1.BackgroundImage = My.Resources.dime
  23. End Sub
  24.  
  25. Private Sub radQuarter_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radQuarter.CheckedChanged
  26. PictureBox1.BackgroundImage = My.Resources.quarter
  27. End Sub
  28. Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
  29. 'These If Then Else Statements add the starting amount to the list box and also declare dblStarting (used in CalcDouble) for each currency.'
  30. If radPenny.Checked = True Then
  31. dblStarting = dblPenny
  32. lstMoney.Items.Add("Starting Amount: " & dblPenny.ToString("c"))
  33. ElseIf radNickel.Checked = True Then
  34. dblStarting = dblNickel
  35. lstMoney.Items.Add("Starting Amount " & dblNickel.ToString("c"))
  36. ElseIf radDime.Checked = True Then
  37. dblStarting = dblDime
  38. lstMoney.Items.Add("Starting Amount " & dblDime.ToString("c"))
  39. ElseIf radQuarter.Checked = True Then
  40. dblStarting = dblQuarter
  41. lstMoney.Items.Add("Starting Amount " & dblQuarter.ToString("c"))
  42. 'This Else statement displays an error message when you radio buttons are selected.'
  43. Else
  44. MessageBox.Show("Please Select a Currency", "Error")
  45. lstMoney.Items.Clear()
  46. End If
  47. 'These If Then Else Statements calculate the product of CalcDouble and twice the amount for each subsequent day.'
  48. If radThirty.Checked = True Then
  49. lstMoney.Items.Add("Day 2: " & CalcDouble(dblStarting, dblDouble).ToString("c"))
  50. lstMoney.Items.Add("Day 3: " & (CalcDouble(dblStarting, dblDouble) * 2).ToString("c"))
  51. lstMoney.Items.Add("Day 4: " & (CalcDouble(dblStarting, dblDouble) * 4).ToString("c"))
  52. lstMoney.Items.Add("Day 5: " & (CalcDouble(dblStarting, dblDouble) * 8).ToString("c"))
  53. lstMoney.Items.Add("Day 6: " & (CalcDouble(dblStarting, dblDouble) * 16).ToString("c"))
  54. lstMoney.Items.Add("Day 7: " & (CalcDouble(dblStarting, dblDouble) * 32).ToString("c"))
  55. lstMoney.Items.Add("Day 8: " & (CalcDouble(dblStarting, dblDouble) * 64).ToString("c"))
  56. lstMoney.Items.Add("Day 9: " & (CalcDouble(dblStarting, dblDouble) * 128).ToString("c"))
  57. lstMoney.Items.Add("Day 10: " & (CalcDouble(dblStarting, dblDouble) * 256).ToString("c"))
  58. lstMoney.Items.Add("Day 11: " & (CalcDouble(dblStarting, dblDouble) * 512).ToString("c"))
  59. lstMoney.Items.Add("Day 12: " & (CalcDouble(dblStarting, dblDouble) * 1024).ToString("c"))
  60. lstMoney.Items.Add("Day 13: " & (CalcDouble(dblStarting, dblDouble) * 2048).ToString("c"))
  61. lstMoney.Items.Add("Day 14: " & (CalcDouble(dblStarting, dblDouble) * 4096).ToString("c"))
  62. lstMoney.Items.Add("Day 15: " & (CalcDouble(dblStarting, dblDouble) * 8192).ToString("c"))
  63. lstMoney.Items.Add("Day 16: " & (CalcDouble(dblStarting, dblDouble) * 16384).ToString("c"))
  64. lstMoney.Items.Add("Day 17: " & (CalcDouble(dblStarting, dblDouble) * 32768).ToString("c"))
  65. lstMoney.Items.Add("Day 18: " & (CalcDouble(dblStarting, dblDouble) * 65536).ToString("c"))
  66. lstMoney.Items.Add("Day 19: " & (CalcDouble(dblStarting, dblDouble) * 131072).ToString("c"))
  67. lstMoney.Items.Add("Day 20: " & (CalcDouble(dblStarting, dblDouble) * 262144).ToString("c"))
  68. lstMoney.Items.Add("Day 21: " & (CalcDouble(dblStarting, dblDouble) * 524288).ToString("c"))
  69. lstMoney.Items.Add("Day 22: " & (CalcDouble(dblStarting, dblDouble) * 1048576).ToString("c"))
  70. lstMoney.Items.Add("Day 23: " & (CalcDouble(dblStarting, dblDouble) * 2097152).ToString("c"))
  71. lstMoney.Items.Add("Day 24: " & (CalcDouble(dblStarting, dblDouble) * 4194304).ToString("c"))
  72. lstMoney.Items.Add("Day 25: " & (CalcDouble(dblStarting, dblDouble) * 8388608).ToString("c"))
  73. lstMoney.Items.Add("Day 26: " & (CalcDouble(dblStarting, dblDouble) * 16777216).ToString("c"))
  74. lstMoney.Items.Add("Day 27: " & (CalcDouble(dblStarting, dblDouble) * 33554432).ToString("c"))
  75. lstMoney.Items.Add("Day 28: " & (CalcDouble(dblStarting, dblDouble) * 67108864).ToString("c"))
  76. lstMoney.Items.Add("Day 29: " & (CalcDouble(dblStarting, dblDouble) * 134217728).ToString("c"))
  77. lstMoney.Items.Add("Day 30: " & (CalcDouble(dblStarting, dblDouble) * 268435456).ToString("c"))
  78. ElseIf radSixty.Checked = True Then
  79. lstMoney.Items.Add("Day 2: " & CalcDouble(dblStarting, dblDouble).ToString("c"))
  80. lstMoney.Items.Add("Day 3: " & (CalcDouble(dblStarting, dblDouble) * 2).ToString("c"))
  81. lstMoney.Items.Add("Day 4: " & (CalcDouble(dblStarting, dblDouble) * 4).ToString("c"))
  82. lstMoney.Items.Add("Day 5: " & (CalcDouble(dblStarting, dblDouble) * 8).ToString("c"))
  83. lstMoney.Items.Add("Day 6: " & (CalcDouble(dblStarting, dblDouble) * 16).ToString("c"))
  84. lstMoney.Items.Add("Day 7: " & (CalcDouble(dblStarting, dblDouble) * 32).ToString("c"))
  85. lstMoney.Items.Add("Day 8: " & (CalcDouble(dblStarting, dblDouble) * 64).ToString("c"))
  86. lstMoney.Items.Add("Day 9: " & (CalcDouble(dblStarting, dblDouble) * 128).ToString("c"))
  87. lstMoney.Items.Add("Day 10: " & (CalcDouble(dblStarting, dblDouble) * 256).ToString("c"))
  88. lstMoney.Items.Add("Day 11: " & (CalcDouble(dblStarting, dblDouble) * 512).ToString("c"))
  89. lstMoney.Items.Add("Day 12: " & (CalcDouble(dblStarting, dblDouble) * 1024).ToString("c"))
  90. lstMoney.Items.Add("Day 13: " & (CalcDouble(dblStarting, dblDouble) * 2048).ToString("c"))
  91. lstMoney.Items.Add("Day 14: " & (CalcDouble(dblStarting, dblDouble) * 4096).ToString("c"))
  92. lstMoney.Items.Add("Day 15: " & (CalcDouble(dblStarting, dblDouble) * 8192).ToString("c"))
  93. lstMoney.Items.Add("Day 16: " & (CalcDouble(dblStarting, dblDouble) * 16384).ToString("c"))
  94. lstMoney.Items.Add("Day 17: " & (CalcDouble(dblStarting, dblDouble) * 32768).ToString("c"))
  95. lstMoney.Items.Add("Day 18: " & (CalcDouble(dblStarting, dblDouble) * 65536).ToString("c"))
  96. lstMoney.Items.Add("Day 19: " & (CalcDouble(dblStarting, dblDouble) * 131072).ToString("c"))
  97. lstMoney.Items.Add("Day 20: " & (CalcDouble(dblStarting, dblDouble) * 262144).ToString("c"))
  98. lstMoney.Items.Add("Day 21: " & (CalcDouble(dblStarting, dblDouble) * 524288).ToString("c"))
  99. lstMoney.Items.Add("Day 22: " & (CalcDouble(dblStarting, dblDouble) * 1048576).ToString("c"))
  100. lstMoney.Items.Add("Day 23: " & (CalcDouble(dblStarting, dblDouble) * 2097152).ToString("c"))
  101. lstMoney.Items.Add("Day 24: " & (CalcDouble(dblStarting, dblDouble) * 4194304).ToString("c"))
  102. lstMoney.Items.Add("Day 25: " & (CalcDouble(dblStarting, dblDouble) * 8388608).ToString("c"))
  103. lstMoney.Items.Add("Day 26: " & (CalcDouble(dblStarting, dblDouble) * 16777216).ToString("c"))
  104. lstMoney.Items.Add("Day 27: " & (CalcDouble(dblStarting, dblDouble) * 33554432).ToString("c"))
  105. lstMoney.Items.Add("Day 28: " & (CalcDouble(dblStarting, dblDouble) * 67108864).ToString("c"))
  106. lstMoney.Items.Add("Day 29: " & (CalcDouble(dblStarting, dblDouble) * 134217728).ToString("c"))
  107. lstMoney.Items.Add("Day 30: " & (CalcDouble(dblStarting, dblDouble) * 268435456).ToString("c"))
  108. lstMoney.Items.Add("Day 31: " & (CalcDouble(dblStarting, dblDouble) * 536870912).ToString("c"))
  109. lstMoney.Items.Add("Day 32: " & (CalcDouble(dblStarting, dblDouble) * 1073741824).ToString("c"))
  110. lstMoney.Items.Add("Day 33: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (2)).ToString("c"))
  111. lstMoney.Items.Add("Day 34: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (4)).ToString("c"))
  112. lstMoney.Items.Add("Day 35: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (8)).ToString("c"))
  113. lstMoney.Items.Add("Day 36: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (16)).ToString("c"))
  114. lstMoney.Items.Add("Day 37: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (32)).ToString("c"))
  115. lstMoney.Items.Add("Day 38: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (64)).ToString("c"))
  116. lstMoney.Items.Add("Day 39: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (128)).ToString("c"))
  117. lstMoney.Items.Add("Day 40: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (256)).ToString("c"))
  118. lstMoney.Items.Add("Day 41: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (512)).ToString("c"))
  119. lstMoney.Items.Add("Day 42: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (1024)).ToString("c"))
  120. lstMoney.Items.Add("Day 43: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (2048)).ToString("c"))
  121. lstMoney.Items.Add("Day 44: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (4096)).ToString("c"))
  122. lstMoney.Items.Add("Day 45: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (8192)).ToString("c"))
  123. lstMoney.Items.Add("Day 46: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (16384)).ToString("c"))
  124. lstMoney.Items.Add("Day 47: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (32768)).ToString("c"))
  125. lstMoney.Items.Add("Day 48: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (65536)).ToString("c"))
  126. lstMoney.Items.Add("Day 49: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (131072)).ToString("c"))
  127. lstMoney.Items.Add("Day 50: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (262144)).ToString("c"))
  128. lstMoney.Items.Add("Day 51: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (524288)).ToString("c"))
  129. lstMoney.Items.Add("Day 52: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (1048576)).ToString("c"))
  130. lstMoney.Items.Add("Day 53: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (2097152)).ToString("c"))
  131. lstMoney.Items.Add("Day 54: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (4194304)).ToString("c"))
  132. lstMoney.Items.Add("Day 55: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (8388608)).ToString("c"))
  133. lstMoney.Items.Add("Day 56: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (16777216)).ToString("c"))
  134. lstMoney.Items.Add("Day 57: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (33554432)).ToString("c"))
  135. lstMoney.Items.Add("Day 58: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (67108864)).ToString("c"))
  136. lstMoney.Items.Add("Day 59: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (134217728)).ToString("c"))
  137. lstMoney.Items.Add("Day 60: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456)).ToString("c"))
  138. ElseIf radNinety.Checked = True Then
  139. lstMoney.Items.Add("Day 2: " & CalcDouble(dblStarting, dblDouble).ToString("c"))
  140. lstMoney.Items.Add("Day 3: " & (CalcDouble(dblStarting, dblDouble) * 2).ToString("c"))
  141. lstMoney.Items.Add("Day 4: " & (CalcDouble(dblStarting, dblDouble) * 4).ToString("c"))
  142. lstMoney.Items.Add("Day 5: " & (CalcDouble(dblStarting, dblDouble) * 8).ToString("c"))
  143. lstMoney.Items.Add("Day 6: " & (CalcDouble(dblStarting, dblDouble) * 16).ToString("c"))
  144. lstMoney.Items.Add("Day 7: " & (CalcDouble(dblStarting, dblDouble) * 32).ToString("c"))
  145. lstMoney.Items.Add("Day 8: " & (CalcDouble(dblStarting, dblDouble) * 64).ToString("c"))
  146. lstMoney.Items.Add("Day 9: " & (CalcDouble(dblStarting, dblDouble) * 128).ToString("c"))
  147. lstMoney.Items.Add("Day 10: " & (CalcDouble(dblStarting, dblDouble) * 256).ToString("c"))
  148. lstMoney.Items.Add("Day 11: " & (CalcDouble(dblStarting, dblDouble) * 512).ToString("c"))
  149. lstMoney.Items.Add("Day 12: " & (CalcDouble(dblStarting, dblDouble) * 1024).ToString("c"))
  150. lstMoney.Items.Add("Day 13: " & (CalcDouble(dblStarting, dblDouble) * 2048).ToString("c"))
  151. lstMoney.Items.Add("Day 14: " & (CalcDouble(dblStarting, dblDouble) * 4096).ToString("c"))
  152. lstMoney.Items.Add("Day 15: " & (CalcDouble(dblStarting, dblDouble) * 8192).ToString("c"))
  153. lstMoney.Items.Add("Day 16: " & (CalcDouble(dblStarting, dblDouble) * 16384).ToString("c"))
  154. lstMoney.Items.Add("Day 17: " & (CalcDouble(dblStarting, dblDouble) * 32768).ToString("c"))
  155. lstMoney.Items.Add("Day 18: " & (CalcDouble(dblStarting, dblDouble) * 65536).ToString("c"))
  156. lstMoney.Items.Add("Day 19: " & (CalcDouble(dblStarting, dblDouble) * 131072).ToString("c"))
  157. lstMoney.Items.Add("Day 20: " & (CalcDouble(dblStarting, dblDouble) * 262144).ToString("c"))
  158. lstMoney.Items.Add("Day 21: " & (CalcDouble(dblStarting, dblDouble) * 524288).ToString("c"))
  159. lstMoney.Items.Add("Day 22: " & (CalcDouble(dblStarting, dblDouble) * 1048576).ToString("c"))
  160. lstMoney.Items.Add("Day 23: " & (CalcDouble(dblStarting, dblDouble) * 2097152).ToString("c"))
  161. lstMoney.Items.Add("Day 24: " & (CalcDouble(dblStarting, dblDouble) * 4194304).ToString("c"))
  162. lstMoney.Items.Add("Day 25: " & (CalcDouble(dblStarting, dblDouble) * 8388608).ToString("c"))
  163. lstMoney.Items.Add("Day 26: " & (CalcDouble(dblStarting, dblDouble) * 16777216).ToString("c"))
  164. lstMoney.Items.Add("Day 27: " & (CalcDouble(dblStarting, dblDouble) * 33554432).ToString("c"))
  165. lstMoney.Items.Add("Day 28: " & (CalcDouble(dblStarting, dblDouble) * 67108864).ToString("c"))
  166. lstMoney.Items.Add("Day 29: " & (CalcDouble(dblStarting, dblDouble) * 134217728).ToString("c"))
  167. lstMoney.Items.Add("Day 30: " & (CalcDouble(dblStarting, dblDouble) * 268435456).ToString("c"))
  168. lstMoney.Items.Add("Day 31: " & (CalcDouble(dblStarting, dblDouble) * 536870912).ToString("c"))
  169. lstMoney.Items.Add("Day 32: " & (CalcDouble(dblStarting, dblDouble) * 1073741824).ToString("c"))
  170. lstMoney.Items.Add("Day 33: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (2)).ToString("c"))
  171. lstMoney.Items.Add("Day 34: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (4)).ToString("c"))
  172. lstMoney.Items.Add("Day 35: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (8)).ToString("c"))
  173. lstMoney.Items.Add("Day 36: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (16)).ToString("c"))
  174. lstMoney.Items.Add("Day 37: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (32)).ToString("c"))
  175. lstMoney.Items.Add("Day 38: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (64)).ToString("c"))
  176. lstMoney.Items.Add("Day 39: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (128)).ToString("c"))
  177. lstMoney.Items.Add("Day 40: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (256)).ToString("c"))
  178. lstMoney.Items.Add("Day 41: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (512)).ToString("c"))
  179. lstMoney.Items.Add("Day 42: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (1024)).ToString("c"))
  180. lstMoney.Items.Add("Day 43: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (2048)).ToString("c"))
  181. lstMoney.Items.Add("Day 44: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (4096)).ToString("c"))
  182. lstMoney.Items.Add("Day 45: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (8192)).ToString("c"))
  183. lstMoney.Items.Add("Day 46: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (16384)).ToString("c"))
  184. lstMoney.Items.Add("Day 47: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (32768)).ToString("c"))
  185. lstMoney.Items.Add("Day 48: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (65536)).ToString("c"))
  186. lstMoney.Items.Add("Day 49: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (131072)).ToString("c"))
  187. lstMoney.Items.Add("Day 50: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (262144)).ToString("c"))
  188. lstMoney.Items.Add("Day 51: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (524288)).ToString("c"))
  189. lstMoney.Items.Add("Day 52: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (1048576)).ToString("c"))
  190. lstMoney.Items.Add("Day 53: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (2097152)).ToString("c"))
  191. lstMoney.Items.Add("Day 54: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (4194304)).ToString("c"))
  192. lstMoney.Items.Add("Day 55: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (8388608)).ToString("c"))
  193. lstMoney.Items.Add("Day 56: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (16777216)).ToString("c"))
  194. lstMoney.Items.Add("Day 57: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (33554432)).ToString("c"))
  195. lstMoney.Items.Add("Day 58: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (67108864)).ToString("c"))
  196. lstMoney.Items.Add("Day 59: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (134217728)).ToString("c"))
  197. lstMoney.Items.Add("Day 60: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456)).ToString("c"))
  198. lstMoney.Items.Add("Day 61: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (2)).ToString("c"))
  199. lstMoney.Items.Add("Day 62: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (4)).ToString("c"))
  200. lstMoney.Items.Add("Day 63: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (8)).ToString("c"))
  201. lstMoney.Items.Add("Day 64: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (16)).ToString("c"))
  202. lstMoney.Items.Add("Day 65: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (32)).ToString("c"))
  203. lstMoney.Items.Add("Day 66: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (64)).ToString("c"))
  204. lstMoney.Items.Add("Day 67: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (128)).ToString("c"))
  205. lstMoney.Items.Add("Day 68: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (256)).ToString("c"))
  206. lstMoney.Items.Add("Day 69: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (512)).ToString("c"))
  207. lstMoney.Items.Add("Day 70: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (1024)).ToString("c"))
  208. lstMoney.Items.Add("Day 71: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (2048)).ToString("c"))
  209. lstMoney.Items.Add("Day 72: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (4096)).ToString("c"))
  210. lstMoney.Items.Add("Day 73: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (8192)).ToString("c"))
  211. lstMoney.Items.Add("Day 74: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (16384)).ToString("c"))
  212. lstMoney.Items.Add("Day 75: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (32768)).ToString("c"))
  213. lstMoney.Items.Add("Day 76: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (65536)).ToString("c"))
  214. lstMoney.Items.Add("Day 77: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (131072)).ToString("c"))
  215. lstMoney.Items.Add("Day 78: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (262144)).ToString("c"))
  216. lstMoney.Items.Add("Day 79: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (524288)).ToString("c"))
  217. lstMoney.Items.Add("Day 80: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (1048576)).ToString("c"))
  218. lstMoney.Items.Add("Day 81: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (2097152)).ToString("c"))
  219. lstMoney.Items.Add("Day 82: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (4194304)).ToString("c"))
  220. lstMoney.Items.Add("Day 83: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (8388608)).ToString("c"))
  221. lstMoney.Items.Add("Day 84: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (16777216)).ToString("c"))
  222. lstMoney.Items.Add("Day 85: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (33554432)).ToString("c"))
  223. lstMoney.Items.Add("Day 86: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (67108864)).ToString("c"))
  224. lstMoney.Items.Add("Day 87: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (134217728)).ToString("c"))
  225. lstMoney.Items.Add("Day 88: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456)).ToString("c"))
  226. lstMoney.Items.Add("Day 89: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (2)).ToString("c"))
  227. lstMoney.Items.Add("Day 90: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (4)).ToString("c"))
  228. ElseIf radHundred.Checked = True Then
  229. lstMoney.Items.Add("Day 2: " & CalcDouble(dblStarting, dblDouble).ToString("c"))
  230. lstMoney.Items.Add("Day 3: " & (CalcDouble(dblStarting, dblDouble) * 2).ToString("c"))
  231. lstMoney.Items.Add("Day 4: " & (CalcDouble(dblStarting, dblDouble) * 4).ToString("c"))
  232. lstMoney.Items.Add("Day 5: " & (CalcDouble(dblStarting, dblDouble) * 8).ToString("c"))
  233. lstMoney.Items.Add("Day 6: " & (CalcDouble(dblStarting, dblDouble) * 16).ToString("c"))
  234. lstMoney.Items.Add("Day 7: " & (CalcDouble(dblStarting, dblDouble) * 32).ToString("c"))
  235. lstMoney.Items.Add("Day 8: " & (CalcDouble(dblStarting, dblDouble) * 64).ToString("c"))
  236. lstMoney.Items.Add("Day 9: " & (CalcDouble(dblStarting, dblDouble) * 128).ToString("c"))
  237. lstMoney.Items.Add("Day 10: " & (CalcDouble(dblStarting, dblDouble) * 256).ToString("c"))
  238. lstMoney.Items.Add("Day 11: " & (CalcDouble(dblStarting, dblDouble) * 512).ToString("c"))
  239. lstMoney.Items.Add("Day 12: " & (CalcDouble(dblStarting, dblDouble) * 1024).ToString("c"))
  240. lstMoney.Items.Add("Day 13: " & (CalcDouble(dblStarting, dblDouble) * 2048).ToString("c"))
  241. lstMoney.Items.Add("Day 14: " & (CalcDouble(dblStarting, dblDouble) * 4096).ToString("c"))
  242. lstMoney.Items.Add("Day 15: " & (CalcDouble(dblStarting, dblDouble) * 8192).ToString("c"))
  243. lstMoney.Items.Add("Day 16: " & (CalcDouble(dblStarting, dblDouble) * 16384).ToString("c"))
  244. lstMoney.Items.Add("Day 17: " & (CalcDouble(dblStarting, dblDouble) * 32768).ToString("c"))
  245. lstMoney.Items.Add("Day 18: " & (CalcDouble(dblStarting, dblDouble) * 65536).ToString("c"))
  246. lstMoney.Items.Add("Day 19: " & (CalcDouble(dblStarting, dblDouble) * 131072).ToString("c"))
  247. lstMoney.Items.Add("Day 20: " & (CalcDouble(dblStarting, dblDouble) * 262144).ToString("c"))
  248. lstMoney.Items.Add("Day 21: " & (CalcDouble(dblStarting, dblDouble) * 524288).ToString("c"))
  249. lstMoney.Items.Add("Day 22: " & (CalcDouble(dblStarting, dblDouble) * 1048576).ToString("c"))
  250. lstMoney.Items.Add("Day 23: " & (CalcDouble(dblStarting, dblDouble) * 2097152).ToString("c"))
  251. lstMoney.Items.Add("Day 24: " & (CalcDouble(dblStarting, dblDouble) * 4194304).ToString("c"))
  252. lstMoney.Items.Add("Day 25: " & (CalcDouble(dblStarting, dblDouble) * 8388608).ToString("c"))
  253. lstMoney.Items.Add("Day 26: " & (CalcDouble(dblStarting, dblDouble) * 16777216).ToString("c"))
  254. lstMoney.Items.Add("Day 27: " & (CalcDouble(dblStarting, dblDouble) * 33554432).ToString("c"))
  255. lstMoney.Items.Add("Day 28: " & (CalcDouble(dblStarting, dblDouble) * 67108864).ToString("c"))
  256. lstMoney.Items.Add("Day 29: " & (CalcDouble(dblStarting, dblDouble) * 134217728).ToString("c"))
  257. lstMoney.Items.Add("Day 30: " & (CalcDouble(dblStarting, dblDouble) * 268435456).ToString("c"))
  258. lstMoney.Items.Add("Day 31: " & (CalcDouble(dblStarting, dblDouble) * 536870912).ToString("c"))
  259. lstMoney.Items.Add("Day 32: " & (CalcDouble(dblStarting, dblDouble) * 1073741824).ToString("c"))
  260. lstMoney.Items.Add("Day 33: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (2)).ToString("c"))
  261. lstMoney.Items.Add("Day 34: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (4)).ToString("c"))
  262. lstMoney.Items.Add("Day 35: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (8)).ToString("c"))
  263. lstMoney.Items.Add("Day 36: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (16)).ToString("c"))
  264. lstMoney.Items.Add("Day 37: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (32)).ToString("c"))
  265. lstMoney.Items.Add("Day 38: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (64)).ToString("c"))
  266. lstMoney.Items.Add("Day 39: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (128)).ToString("c"))
  267. lstMoney.Items.Add("Day 40: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (256)).ToString("c"))
  268. lstMoney.Items.Add("Day 41: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (512)).ToString("c"))
  269. lstMoney.Items.Add("Day 42: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (1024)).ToString("c"))
  270. lstMoney.Items.Add("Day 43: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (2048)).ToString("c"))
  271. lstMoney.Items.Add("Day 44: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (4096)).ToString("c"))
  272. lstMoney.Items.Add("Day 45: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (8192)).ToString("c"))
  273. lstMoney.Items.Add("Day 46: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (16384)).ToString("c"))
  274. lstMoney.Items.Add("Day 47: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (32768)).ToString("c"))
  275. lstMoney.Items.Add("Day 48: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (65536)).ToString("c"))
  276. lstMoney.Items.Add("Day 49: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (131072)).ToString("c"))
  277. lstMoney.Items.Add("Day 50: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (262144)).ToString("c"))
  278. lstMoney.Items.Add("Day 51: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (524288)).ToString("c"))
  279. lstMoney.Items.Add("Day 52: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (1048576)).ToString("c"))
  280. lstMoney.Items.Add("Day 53: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (2097152)).ToString("c"))
  281. lstMoney.Items.Add("Day 54: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (4194304)).ToString("c"))
  282. lstMoney.Items.Add("Day 55: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (8388608)).ToString("c"))
  283. lstMoney.Items.Add("Day 56: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (16777216)).ToString("c"))
  284. lstMoney.Items.Add("Day 57: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (33554432)).ToString("c"))
  285. lstMoney.Items.Add("Day 58: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (67108864)).ToString("c"))
  286. lstMoney.Items.Add("Day 59: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (134217728)).ToString("c"))
  287. lstMoney.Items.Add("Day 60: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456)).ToString("c"))
  288. lstMoney.Items.Add("Day 61: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (2)).ToString("c"))
  289. lstMoney.Items.Add("Day 62: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (4)).ToString("c"))
  290. lstMoney.Items.Add("Day 63: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (8)).ToString("c"))
  291. lstMoney.Items.Add("Day 64: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (16)).ToString("c"))
  292. lstMoney.Items.Add("Day 65: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (32)).ToString("c"))
  293. lstMoney.Items.Add("Day 66: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (64)).ToString("c"))
  294. lstMoney.Items.Add("Day 67: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (128)).ToString("c"))
  295. lstMoney.Items.Add("Day 68: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (256)).ToString("c"))
  296. lstMoney.Items.Add("Day 69: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (512)).ToString("c"))
  297. lstMoney.Items.Add("Day 70: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (1024)).ToString("c"))
  298. lstMoney.Items.Add("Day 71: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (2048)).ToString("c"))
  299. lstMoney.Items.Add("Day 72: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (4096)).ToString("c"))
  300. lstMoney.Items.Add("Day 73: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (8192)).ToString("c"))
  301. lstMoney.Items.Add("Day 74: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (16384)).ToString("c"))
  302. lstMoney.Items.Add("Day 75: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (32768)).ToString("c"))
  303. lstMoney.Items.Add("Day 76: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (65536)).ToString("c"))
  304. lstMoney.Items.Add("Day 77: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (131072)).ToString("c"))
  305. lstMoney.Items.Add("Day 78: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (262144)).ToString("c"))
  306. lstMoney.Items.Add("Day 79: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (524288)).ToString("c"))
  307. lstMoney.Items.Add("Day 80: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (1048576)).ToString("c"))
  308. lstMoney.Items.Add("Day 81: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (2097152)).ToString("c"))
  309. lstMoney.Items.Add("Day 82: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (4194304)).ToString("c"))
  310. lstMoney.Items.Add("Day 83: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (8388608)).ToString("c"))
  311. lstMoney.Items.Add("Day 84: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (16777216)).ToString("c"))
  312. lstMoney.Items.Add("Day 85: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (33554432)).ToString("c"))
  313. lstMoney.Items.Add("Day 86: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (67108864)).ToString("c"))
  314. lstMoney.Items.Add("Day 87: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (134217728)).ToString("c"))
  315. lstMoney.Items.Add("Day 88: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456)).ToString("c"))
  316. lstMoney.Items.Add("Day 89: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (2)).ToString("c"))
  317. lstMoney.Items.Add("Day 90: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (4)).ToString("c"))
  318. lstMoney.Items.Add("Day 91: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (8)).ToString("c"))
  319. lstMoney.Items.Add("Day 92: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (16)).ToString("c"))
  320. lstMoney.Items.Add("Day 93: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (32)).ToString("c"))
  321. lstMoney.Items.Add("Day 94: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (64)).ToString("c"))
  322. lstMoney.Items.Add("Day 95: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (128)).ToString("c"))
  323. lstMoney.Items.Add("Day 96: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (256)).ToString("c"))
  324. lstMoney.Items.Add("Day 97: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (512)).ToString("c"))
  325. lstMoney.Items.Add("Day 98: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (1024)).ToString("c"))
  326. lstMoney.Items.Add("Day 99: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (2048)).ToString("c"))
  327. lstMoney.Items.Add("Day 100: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (4096)).ToString("c"))
  328. lstMoney.Items.Add("Day 101: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (8192)).ToString("c"))
  329. lstMoney.Items.Add("Day 102: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (16384)).ToString("c"))
  330. lstMoney.Items.Add("Day 103: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (32768)).ToString("c"))
  331. lstMoney.Items.Add("Day 104: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (65536)).ToString("c"))
  332. lstMoney.Items.Add("Day 105: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (131072)).ToString("c"))
  333. lstMoney.Items.Add("Day 106: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (262144)).ToString("c"))
  334. lstMoney.Items.Add("Day 107: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (524288)).ToString("c"))
  335. lstMoney.Items.Add("Day 108: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (1048576)).ToString("c"))
  336. lstMoney.Items.Add("Day 109: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (2097152)).ToString("c"))
  337. lstMoney.Items.Add("Day 110: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (4194304)).ToString("c"))
  338. lstMoney.Items.Add("Day 111: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (8388608)).ToString("c"))
  339. lstMoney.Items.Add("Day 112: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (16777216)).ToString("c"))
  340. lstMoney.Items.Add("Day 113: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (33554432)).ToString("c"))
  341. lstMoney.Items.Add("Day 114: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (67108864)).ToString("c"))
  342. lstMoney.Items.Add("Day 115: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (134217728)).ToString("c"))
  343. lstMoney.Items.Add("Day 116: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (268435456)).ToString("c"))
  344. lstMoney.Items.Add("Day 117: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (268435456) * (2)).ToString("c"))
  345. lstMoney.Items.Add("Day 118: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (268435456) * (4)).ToString("c"))
  346. lstMoney.Items.Add("Day 119: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (268435456) * (8)).ToString("c"))
  347. lstMoney.Items.Add("Day 120: " & (CalcDouble(dblStarting, dblDouble) * (1073741824) * (268435456) * (268435456) * (268435456) * (16)).ToString("c"))
  348. Else
  349. 'This message box is displayed if no Duration is selected.'
  350. MessageBox.Show("Please Select a Duration", "Error")
  351. lstMoney.Items.Clear()
  352. End If
  353. End Sub
  354. 'This is the function CalcDouble which is necessary to attain the astronomically large numbers for this program.'
  355. Function CalcDouble(ByVal dblStarting As Double, ByVal dblDouble As Double) As Double
  356. CalcDouble = dblStarting * dblDouble
  357. Return CalcDouble
  358. End Function
  359.  
  360. Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
  361. 'This clears the List Box.'
  362. lstMoney.Items.Clear()
  363. End Sub
  364.  
  365. Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
  366. 'This closes the program.'
  367. Me.Close()
  368. End Sub
  369. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!