API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Sep 20th, 2017
47
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 18.59 KB | None | 0 0
raw download clone embed print report
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Form1
  3. Inherits System.Windows.Forms.Form
  4. Dim store1 As Single
  5. Dim store2 As Single
  6. Dim answer As Single
  7. Dim sing As Char
  8. 'Form overrides dispose to clean up the component list.
  9. <System.Diagnostics.DebuggerNonUserCode()> _
  10. Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  11. Try
  12. If disposing AndAlso components IsNot Nothing Then
  13. components.Dispose()
  14. End If
  15. Finally
  16. MyBase.Dispose(disposing)
  17. End Try
  18. End Sub
  19.  
  20. 'Required by the Windows Form Designer
  21. Private components As System.ComponentModel.IContainer
  22.  
  23. 'NOTE: The following procedure is required by the Windows Form Designer
  24. 'It can be modified using the Windows Form Designer.
  25. 'Do not modify it using the code editor.
  26. <System.Diagnostics.DebuggerStepThrough()> _
  27. Private Sub InitializeComponent()
  28. Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
  29. Me.output = New System.Windows.Forms.TextBox()
  30. Me.submit = New System.Windows.Forms.Button()
  31. Me.GroupBox1 = New System.Windows.Forms.GroupBox()
  32. Me.num0 = New System.Windows.Forms.Button()
  33. Me.num4 = New System.Windows.Forms.Button()
  34. Me.num9 = New System.Windows.Forms.Button()
  35. Me.num8 = New System.Windows.Forms.Button()
  36. Me.num7 = New System.Windows.Forms.Button()
  37. Me.num6 = New System.Windows.Forms.Button()
  38. Me.num5 = New System.Windows.Forms.Button()
  39. Me.num3 = New System.Windows.Forms.Button()
  40. Me.num2 = New System.Windows.Forms.Button()
  41. Me.num1 = New System.Windows.Forms.Button()
  42. Me.clear = New System.Windows.Forms.Button()
  43. Me.GroupBox2 = New System.Windows.Forms.GroupBox()
  44. Me.divi = New System.Windows.Forms.Button()
  45. Me.multi = New System.Windows.Forms.Button()
  46. Me.subs = New System.Windows.Forms.Button()
  47. Me.add = New System.Windows.Forms.Button()
  48. Me.Quit = New System.Windows.Forms.Button()
  49. Me.delchar = New System.Windows.Forms.Button()
  50. Me.ShapeContainer1 = New Microsoft.VisualBasic.PowerPacks.ShapeContainer()
  51. Me.OvalShape1 = New Microsoft.VisualBasic.PowerPacks.OvalShape()
  52. Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
  53. Me.QuitNowToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
  54. Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
  55. Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
  56. Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
  57. Me.ToolStripProgressBar1 = New System.Windows.Forms.ToolStripProgressBar()
  58. Me.GroupBox1.SuspendLayout()
  59. Me.GroupBox2.SuspendLayout()
  60. Me.MenuStrip1.SuspendLayout()
  61. Me.StatusStrip1.SuspendLayout()
  62. Me.SuspendLayout()
  63. '
  64. 'output
  65. '
  66. Me.output.Location = New System.Drawing.Point(12, 95)
  67. Me.output.Name = "output"
  68. Me.output.Size = New System.Drawing.Size(294, 20)
  69. Me.output.TabIndex = 0
  70. '
  71. 'submit
  72. '
  73. Me.submit.Location = New System.Drawing.Point(325, 81)
  74. Me.submit.Name = "submit"
  75. Me.submit.Size = New System.Drawing.Size(57, 34)
  76. Me.submit.TabIndex = 1
  77. Me.submit.Text = "Enter"
  78. Me.submit.UseVisualStyleBackColor = True
  79. '
  80. 'GroupBox1
  81. '
  82. Me.GroupBox1.Controls.Add(Me.num0)
  83. Me.GroupBox1.Controls.Add(Me.num4)
  84. Me.GroupBox1.Controls.Add(Me.num9)
  85. Me.GroupBox1.Controls.Add(Me.num8)
  86. Me.GroupBox1.Controls.Add(Me.num7)
  87. Me.GroupBox1.Controls.Add(Me.num6)
  88. Me.GroupBox1.Controls.Add(Me.num5)
  89. Me.GroupBox1.Controls.Add(Me.num3)
  90. Me.GroupBox1.Controls.Add(Me.num2)
  91. Me.GroupBox1.Controls.Add(Me.num1)
  92. Me.GroupBox1.Location = New System.Drawing.Point(26, 149)
  93. Me.GroupBox1.Name = "GroupBox1"
  94. Me.GroupBox1.Size = New System.Drawing.Size(253, 273)
  95. Me.GroupBox1.TabIndex = 2
  96. Me.GroupBox1.TabStop = False
  97. Me.GroupBox1.Text = " Variables"
  98. '
  99. 'num0
  100. '
  101. Me.num0.Location = New System.Drawing.Point(56, 221)
  102. Me.num0.Name = "num0"
  103. Me.num0.Size = New System.Drawing.Size(133, 38)
  104. Me.num0.TabIndex = 10
  105. Me.num0.Text = "0"
  106. Me.num0.UseVisualStyleBackColor = True
  107. '
  108. 'num4
  109. '
  110. Me.num4.Location = New System.Drawing.Point(13, 102)
  111. Me.num4.Name = "num4"
  112. Me.num4.Size = New System.Drawing.Size(44, 34)
  113. Me.num4.TabIndex = 9
  114. Me.num4.Text = "4"
  115. Me.num4.UseVisualStyleBackColor = True
  116. '
  117. 'num9
  118. '
  119. Me.num9.Location = New System.Drawing.Point(189, 174)
  120. Me.num9.Name = "num9"
  121. Me.num9.Size = New System.Drawing.Size(44, 34)
  122. Me.num9.TabIndex = 8
  123. Me.num9.Text = "9"
  124. Me.num9.UseVisualStyleBackColor = True
  125. '
  126. 'num8
  127. '
  128. Me.num8.Location = New System.Drawing.Point(97, 174)
  129. Me.num8.Name = "num8"
  130. Me.num8.Size = New System.Drawing.Size(44, 34)
  131. Me.num8.TabIndex = 7
  132. Me.num8.Text = "8"
  133. Me.num8.UseVisualStyleBackColor = True
  134. '
  135. 'num7
  136. '
  137. Me.num7.Location = New System.Drawing.Point(13, 174)
  138. Me.num7.Name = "num7"
  139. Me.num7.Size = New System.Drawing.Size(44, 34)
  140. Me.num7.TabIndex = 6
  141. Me.num7.Text = "7"
  142. Me.num7.UseVisualStyleBackColor = True
  143. '
  144. 'num6
  145. '
  146. Me.num6.Location = New System.Drawing.Point(189, 102)
  147. Me.num6.Name = "num6"
  148. Me.num6.Size = New System.Drawing.Size(44, 34)
  149. Me.num6.TabIndex = 5
  150. Me.num6.Text = "6"
  151. Me.num6.UseVisualStyleBackColor = True
  152. '
  153. 'num5
  154. '
  155. Me.num5.Location = New System.Drawing.Point(97, 102)
  156. Me.num5.Name = "num5"
  157. Me.num5.Size = New System.Drawing.Size(44, 34)
  158. Me.num5.TabIndex = 4
  159. Me.num5.Text = "5"
  160. Me.num5.UseVisualStyleBackColor = True
  161. '
  162. 'num3
  163. '
  164. Me.num3.Location = New System.Drawing.Point(189, 36)
  165. Me.num3.Name = "num3"
  166. Me.num3.Size = New System.Drawing.Size(44, 34)
  167. Me.num3.TabIndex = 2
  168. Me.num3.Text = "3"
  169. Me.num3.UseVisualStyleBackColor = True
  170. '
  171. 'num2
  172. '
  173. Me.num2.Location = New System.Drawing.Point(97, 36)
  174. Me.num2.Name = "num2"
  175. Me.num2.Size = New System.Drawing.Size(44, 34)
  176. Me.num2.TabIndex = 1
  177. Me.num2.Text = "2"
  178. Me.num2.UseVisualStyleBackColor = True
  179. '
  180. 'num1
  181. '
  182. Me.num1.Location = New System.Drawing.Point(13, 36)
  183. Me.num1.Name = "num1"
  184. Me.num1.Size = New System.Drawing.Size(44, 34)
  185. Me.num1.TabIndex = 0
  186. Me.num1.Text = "1"
  187. Me.num1.UseVisualStyleBackColor = True
  188. '
  189. 'clear
  190. '
  191. Me.clear.Location = New System.Drawing.Point(388, 87)
  192. Me.clear.Name = "clear"
  193. Me.clear.Size = New System.Drawing.Size(46, 28)
  194. Me.clear.TabIndex = 3
  195. Me.clear.Text = "( C )"
  196. Me.clear.UseVisualStyleBackColor = True
  197. '
  198. 'GroupBox2
  199. '
  200. Me.GroupBox2.Controls.Add(Me.divi)
  201. Me.GroupBox2.Controls.Add(Me.multi)
  202. Me.GroupBox2.Controls.Add(Me.subs)
  203. Me.GroupBox2.Controls.Add(Me.add)
  204. Me.GroupBox2.Location = New System.Drawing.Point(295, 161)
  205. Me.GroupBox2.Name = "GroupBox2"
  206. Me.GroupBox2.Size = New System.Drawing.Size(138, 260)
  207. Me.GroupBox2.TabIndex = 4
  208. Me.GroupBox2.TabStop = False
  209. Me.GroupBox2.Text = " Operators"
  210. '
  211. 'divi
  212. '
  213. Me.divi.Location = New System.Drawing.Point(19, 200)
  214. Me.divi.Name = "divi"
  215. Me.divi.Size = New System.Drawing.Size(68, 34)
  216. Me.divi.TabIndex = 3
  217. Me.divi.Text = "/"
  218. Me.divi.UseVisualStyleBackColor = True
  219. '
  220. 'multi
  221. '
  222. Me.multi.Location = New System.Drawing.Point(19, 143)
  223. Me.multi.Name = "multi"
  224. Me.multi.Size = New System.Drawing.Size(68, 34)
  225. Me.multi.TabIndex = 2
  226. Me.multi.Text = "X"
  227. Me.multi.UseVisualStyleBackColor = True
  228. '
  229. 'subs
  230. '
  231. Me.subs.Location = New System.Drawing.Point(18, 87)
  232. Me.subs.Name = "subs"
  233. Me.subs.Size = New System.Drawing.Size(68, 34)
  234. Me.subs.TabIndex = 1
  235. Me.subs.Text = "-"
  236. Me.subs.UseVisualStyleBackColor = True
  237. '
  238. 'add
  239. '
  240. Me.add.Location = New System.Drawing.Point(18, 34)
  241. Me.add.Name = "add"
  242. Me.add.Size = New System.Drawing.Size(68, 34)
  243. Me.add.TabIndex = 0
  244. Me.add.Text = "+"
  245. Me.add.UseVisualStyleBackColor = True
  246. '
  247. 'Quit
  248. '
  249. Me.Quit.Location = New System.Drawing.Point(11, 434)
  250. Me.Quit.Name = "Quit"
  251. Me.Quit.Size = New System.Drawing.Size(421, 29)
  252. Me.Quit.TabIndex = 5
  253. Me.Quit.Text = "Quit"
  254. Me.Quit.UseVisualStyleBackColor = True
  255. '
  256. 'delchar
  257. '
  258. Me.delchar.Location = New System.Drawing.Point(360, 121)
  259. Me.delchar.Name = "delchar"
  260. Me.delchar.Size = New System.Drawing.Size(46, 28)
  261. Me.delchar.TabIndex = 7
  262. Me.delchar.Text = "( D )"
  263. Me.delchar.UseVisualStyleBackColor = True
  264. '
  265. 'ShapeContainer1
  266. '
  267. Me.ShapeContainer1.Location = New System.Drawing.Point(0, 0)
  268. Me.ShapeContainer1.Margin = New System.Windows.Forms.Padding(0)
  269. Me.ShapeContainer1.Name = "ShapeContainer1"
  270. Me.ShapeContainer1.Shapes.AddRange(New Microsoft.VisualBasic.PowerPacks.Shape() {Me.OvalShape1})
  271. Me.ShapeContainer1.Size = New System.Drawing.Size(447, 516)
  272. Me.ShapeContainer1.TabIndex = 8
  273. Me.ShapeContainer1.TabStop = False
  274. '
  275. 'OvalShape1
  276. '
  277. Me.OvalShape1.Location = New System.Drawing.Point(421, 3)
  278. Me.OvalShape1.Name = "OvalShape1"
  279. Me.OvalShape1.Size = New System.Drawing.Size(22, 24)
  280. '
  281. 'FileToolStripMenuItem
  282. '
  283. Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.QuitNowToolStripMenuItem})
  284. Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem"
  285. Me.FileToolStripMenuItem.Size = New System.Drawing.Size(76, 20)
  286. Me.FileToolStripMenuItem.Text = "Main Main"
  287. '
  288. 'QuitNowToolStripMenuItem
  289. '
  290. Me.QuitNowToolStripMenuItem.Name = "QuitNowToolStripMenuItem"
  291. Me.QuitNowToolStripMenuItem.Size = New System.Drawing.Size(125, 22)
  292. Me.QuitNowToolStripMenuItem.Text = "Quit Now"
  293. '
  294. 'AboutToolStripMenuItem
  295. '
  296. Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem"
  297. Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(52, 20)
  298. Me.AboutToolStripMenuItem.Text = "About"
  299. '
  300. 'MenuStrip1
  301. '
  302. Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.AboutToolStripMenuItem})
  303. Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
  304. Me.MenuStrip1.Name = "MenuStrip1"
  305. Me.MenuStrip1.Size = New System.Drawing.Size(447, 24)
  306. Me.MenuStrip1.TabIndex = 6
  307. Me.MenuStrip1.Text = "MenuStrip1"
  308. '
  309. 'StatusStrip1
  310. '
  311. Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripProgressBar1})
  312. Me.StatusStrip1.Location = New System.Drawing.Point(0, 494)
  313. Me.StatusStrip1.Name = "StatusStrip1"
  314. Me.StatusStrip1.Size = New System.Drawing.Size(447, 22)
  315. Me.StatusStrip1.TabIndex = 9
  316. Me.StatusStrip1.Text = "StatusStrip1"
  317. '
  318. 'ToolStripProgressBar1
  319. '
  320. Me.ToolStripProgressBar1.Name = "ToolStripProgressBar1"
  321. Me.ToolStripProgressBar1.Size = New System.Drawing.Size(100, 16)
  322. '
  323. 'Form1
  324. '
  325. Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
  326. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
  327. Me.ClientSize = New System.Drawing.Size(447, 516)
  328. Me.Controls.Add(Me.StatusStrip1)
  329. Me.Controls.Add(Me.delchar)
  330. Me.Controls.Add(Me.Quit)
  331. Me.Controls.Add(Me.GroupBox2)
  332. Me.Controls.Add(Me.clear)
  333. Me.Controls.Add(Me.GroupBox1)
  334. Me.Controls.Add(Me.submit)
  335. Me.Controls.Add(Me.output)
  336. Me.Controls.Add(Me.MenuStrip1)
  337. Me.Controls.Add(Me.ShapeContainer1)
  338. Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
  339. Me.MainMenuStrip = Me.MenuStrip1
  340. Me.Name = "Form1"
  341. Me.Text = "Calculator"
  342. Me.GroupBox1.ResumeLayout(False)
  343. Me.GroupBox2.ResumeLayout(False)
  344. Me.MenuStrip1.ResumeLayout(False)
  345. Me.MenuStrip1.PerformLayout()
  346. Me.StatusStrip1.ResumeLayout(False)
  347. Me.StatusStrip1.PerformLayout()
  348. Me.ResumeLayout(False)
  349. Me.PerformLayout()
  350.  
  351. End Sub
  352. Friend WithEvents output As System.Windows.Forms.TextBox
  353. Friend WithEvents submit As System.Windows.Forms.Button
  354. Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  355. Friend WithEvents num9 As System.Windows.Forms.Button
  356. Friend WithEvents num8 As System.Windows.Forms.Button
  357. Friend WithEvents num7 As System.Windows.Forms.Button
  358. Friend WithEvents num6 As System.Windows.Forms.Button
  359. Friend WithEvents num5 As System.Windows.Forms.Button
  360. Friend WithEvents num3 As System.Windows.Forms.Button
  361. Friend WithEvents num2 As System.Windows.Forms.Button
  362. Friend WithEvents num1 As System.Windows.Forms.Button
  363. Friend WithEvents clear As System.Windows.Forms.Button
  364. Friend WithEvents num0 As System.Windows.Forms.Button
  365. Friend WithEvents num4 As System.Windows.Forms.Button
  366. Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
  367. Friend WithEvents divi As System.Windows.Forms.Button
  368. Friend WithEvents multi As System.Windows.Forms.Button
  369. Friend WithEvents subs As System.Windows.Forms.Button
  370. Friend WithEvents add As System.Windows.Forms.Button
  371. Friend WithEvents Quit As System.Windows.Forms.Button
  372.  
  373. Private Sub num4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  374.  
  375. End Sub
  376.  
  377. Private Sub Close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Quit.Click
  378. Close()
  379. End Sub
  380.  
  381. Private Sub QuitNowToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitNowToolStripMenuItem.Click
  382. Close()
  383. End Sub
  384.  
  385. Private Sub output_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles output.TextChanged
  386.  
  387. End Sub
  388.  
  389. Private Sub num1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num1.Click
  390. output.AppendText(1)
  391. End Sub
  392.  
  393. Private Sub num2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num2.Click
  394. output.AppendText(2)
  395. End Sub
  396.  
  397. Private Sub num3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num3.Click
  398. output.AppendText(3)
  399. End Sub
  400.  
  401. Private Sub num4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num4.Click
  402. output.AppendText(4)
  403. End Sub
  404.  
  405. Private Sub num5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num5.Click
  406. output.AppendText(5)
  407. End Sub
  408.  
  409. Private Sub num6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num6.Click
  410. output.AppendText(6)
  411. End Sub
  412.  
  413. Private Sub num7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num7.Click
  414. output.AppendText(7)
  415. End Sub
  416.  
  417. Private Sub num8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num8.Click
  418. output.AppendText(8)
  419. End Sub
  420.  
  421. Private Sub num9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num9.Click
  422. output.AppendText(9)
  423. End Sub
  424.  
  425. Private Sub num0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num0.Click
  426. output.AppendText(0)
  427. End Sub
  428. Friend WithEvents delchar As System.Windows.Forms.Button
  429.  
  430. Private Sub add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add.Click
  431. store1 = Val(output.Text)
  432. sing = "+"
  433. output.Clear()
  434. End Sub
  435.  
  436. Private Sub subs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles subs.Click
  437. store1 = Val(output.Text)
  438. sing = "-"
  439. output.Clear()
  440. End Sub
  441.  
  442. Private Sub multi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles multi.Click
  443. store1 = Val(output.Text)
  444. sing = "*"
  445. output.Clear()
  446. End Sub
  447.  
  448. Private Sub divi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles divi.Click
  449. store1 = Val(output.Text)
  450. sing = "/"
  451. output.Clear()
  452. End Sub
  453.  
  454. Private Sub submit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles submit.Click, submit.Enter
  455. store2 = Val(output.Text)
  456. If (sing = "+") Then
  457. answer = store1 + store2
  458. output.Text = answer
  459. ElseIf (sing = "-") Then
  460. answer = store1 - store2
  461. output.Text = answer
  462. ElseIf (sing = "*") Then
  463. answer = store1 * store2
  464. output.Text = answer
  465. ElseIf (sing = "/") Then
  466. answer = store1 / store2
  467. output.Text = answer
  468. End If
  469. End Sub
  470.  
  471.  
  472. Private Sub clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clear.Click
  473. store1 = 0
  474. store2 = 0
  475. output.Clear()
  476. answer = 0
  477. End Sub
  478. Friend WithEvents ShapeContainer1 As Microsoft.VisualBasic.PowerPacks.ShapeContainer
  479. Friend WithEvents OvalShape1 As Microsoft.VisualBasic.PowerPacks.OvalShape
  480. Friend WithEvents FileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
  481. Friend WithEvents QuitNowToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
  482. Friend WithEvents AboutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
  483. Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
  484.  
  485. Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
  486.  
  487. End Sub
  488. Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
  489. Friend WithEvents ToolStripProgressBar1 As System.Windows.Forms.ToolStripProgressBar
  490.  
  491. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!