Advertisement
Grinya90

Calc2

Sep 25th, 2019
1,063
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 7.23 KB | None | 0 0
  1. #include <GUIConstantsEx.au3>
  2. GUICreate("Калькулятор", 950, 300)
  3. GUISetState(@SW_SHOW)
  4. GUICtrlCreateLabel("Введите Ваш стаж:",350,3)
  5. GUICtrlCreateInput(" ",450,0,50,0,0x2000)
  6. ;Число
  7. GUICtrlCreateLabel("Внесите количество часов",400,30)
  8. GUICtrlCreateLabel("1",10,50)
  9. GUICtrlCreateLabel("2",41,50)
  10. GUICtrlCreateLabel("3",71,50)
  11. GUICtrlCreateLabel("4",100,50)
  12. GUICtrlCreateLabel("5",130,50)
  13. GUICtrlCreateLabel("6",160,50)
  14. GUICtrlCreateLabel("7",190,50)
  15. GUICtrlCreateLabel("8",220,50)
  16. GUICtrlCreateLabel("9",250,50)
  17. GUICtrlCreateLabel("10",280,50)
  18. GUICtrlCreateLabel("11",310,50)
  19. GUICtrlCreateLabel("12",340,50)
  20. GUICtrlCreateLabel("13",370,50)
  21. GUICtrlCreateLabel("14",400,50)
  22. GUICtrlCreateLabel("15",430,50)
  23. GUICtrlCreateLabel("16",460,50)
  24. GUICtrlCreateLabel("17",490,50)
  25. GUICtrlCreateLabel("18",520,50)
  26. GUICtrlCreateLabel("19",550,50)
  27. GUICtrlCreateLabel("20",580,50)
  28. GUICtrlCreateLabel("21",610,50)
  29. GUICtrlCreateLabel("22",640,50)
  30. GUICtrlCreateLabel("23",670,50)
  31. GUICtrlCreateLabel("24",700,50)
  32. GUICtrlCreateLabel("25",730,50)
  33. GUICtrlCreateLabel("26",760,50)
  34. GUICtrlCreateLabel("27",790,50)
  35. GUICtrlCreateLabel("28",820,50)
  36. GUICtrlCreateLabel("29",850,50)
  37. GUICtrlCreateLabel("30",880,50)
  38. GUICtrlCreateLabel("31",910,50)
  39. ;~ Кол-во часов
  40. GUICtrlCreateInput(" ",2,70,25,20,0x2000)
  41. GUICtrlCreateInput(" ",33,70,25,20,0x2000)
  42. GUICtrlCreateInput(" ",65,70,25,20,0x2000)
  43. GUICtrlCreateInput(" ",95,70,25,20,0x2000)
  44. GUICtrlCreateInput(" ",124,70,25,20,0x2000)
  45. GUICtrlCreateInput(" ",154,70,25,20,0x2000)
  46. GUICtrlCreateInput(" ",184,70,25,20,0x2000)
  47. GUICtrlCreateInput(" ",214,70,25,20,0x2000)
  48. GUICtrlCreateInput(" ",244,70,25,20,0x2000)
  49. GUICtrlCreateInput(" ",274,70,25,20,0x2000)
  50. GUICtrlCreateInput(" ",304,70,25,20,0x2000)
  51. GUICtrlCreateInput(" ",334,70,25,20,0x2000)
  52. GUICtrlCreateInput(" ",364,70,25,20,0x2000)
  53. GUICtrlCreateInput(" ",394,70,25,20,0x2000)
  54. GUICtrlCreateInput(" ",424,70,25,20,0x2000)
  55. GUICtrlCreateInput(" ",454,70,25,20,0x2000)
  56. GUICtrlCreateInput(" ",484,70,25,20,0x2000)
  57. GUICtrlCreateInput(" ",514,70,25,20,0x2000)
  58. GUICtrlCreateInput(" ",544,70,25,20,0x2000)
  59. GUICtrlCreateInput(" ",574,70,25,20,0x2000)
  60. GUICtrlCreateInput(" ",604,70,25,20,0x2000)
  61. GUICtrlCreateInput(" ",634,70,25,20,0x2000)
  62. GUICtrlCreateInput(" ",664,70,25,20,0x2000)
  63. GUICtrlCreateInput(" ",694,70,25,20,0x2000)
  64. GUICtrlCreateInput(" ",724,70,25,20,0x2000)
  65. GUICtrlCreateInput(" ",754,70,25,20,0x2000)
  66. GUICtrlCreateInput(" ",784,70,25,20,0x2000)
  67. GUICtrlCreateInput(" ",814,70,25,20,0x2000)
  68. GUICtrlCreateInput(" ",844,70,25,20,0x2000)
  69. GUICtrlCreateInput(" ",874,70,25,20,0x2000)
  70. GUICtrlCreateInput(" ",904,70,25,20,0x2000)
  71.  
  72. ;Будний/выходной
  73. GUICtrlCreateCheckbox("",8,90,20,20)
  74. GUICtrlCreateCheckbox("",39,90,20,20)
  75. GUICtrlCreateCheckbox("",69,90,20,20)
  76. GUICtrlCreateCheckbox("",98,90,20,20)
  77. GUICtrlCreateCheckbox("",128,90,20,20)
  78. GUICtrlCreateCheckbox("",158,90,20,20)
  79. GUICtrlCreateCheckbox("",188,90,20,20)
  80. GUICtrlCreateCheckbox("",158,90,20,20)
  81. GUICtrlCreateCheckbox("",218,90,20,20)
  82. GUICtrlCreateCheckbox("",248,90,20,20)
  83. GUICtrlCreateCheckbox("",278,90,20,20)
  84. GUICtrlCreateCheckbox("",308,90,20,20)
  85. GUICtrlCreateCheckbox("",338,90,20,20)
  86. GUICtrlCreateCheckbox("",368,90,20,20)
  87. GUICtrlCreateCheckbox("",398,90,20,20)
  88. GUICtrlCreateCheckbox("",428,90,20,20)
  89. GUICtrlCreateCheckbox("",458,90,20,20)
  90. GUICtrlCreateCheckbox("",488,90,20,20)
  91. GUICtrlCreateCheckbox("",518,90,20,20)
  92. GUICtrlCreateCheckbox("",548,90,20,20)
  93. GUICtrlCreateCheckbox("",578,90,20,20)
  94. GUICtrlCreateCheckbox("",608,90,20,20)
  95. GUICtrlCreateCheckbox("",638,90,20,20)
  96. GUICtrlCreateCheckbox("",668,90,20,20)
  97. GUICtrlCreateCheckbox("",698,90,20,20)
  98. GUICtrlCreateCheckbox("",698,90,20,20)
  99. GUICtrlCreateCheckbox("",728,90,20,20)
  100. GUICtrlCreateCheckbox("",758,90,20,20)
  101. GUICtrlCreateCheckbox("",788,90,20,20)
  102. GUICtrlCreateCheckbox("",818,90,20,20)
  103. GUICtrlCreateCheckbox("",850,90,20,20)
  104. GUICtrlCreateCheckbox("",880,90,20,20)
  105. GUICtrlCreateCheckbox("",909,90,20,20)
  106. GUICtrlCreateLabel("(Если день выходной/праздничный поставьте галочку)",350,110)
  107. GUICtrlCreateLabel("_______________________________________________________________________________________________________________________________________________________________",0,130)
  108. ;~ Кол-во пац
  109. GUICtrlCreateLabel("Внесите количетсво пациентов",375,150)
  110. GUICtrlCreateLabel("1",10,165)
  111. GUICtrlCreateLabel("2",41,165)
  112. GUICtrlCreateLabel("3",71,165)
  113. GUICtrlCreateLabel("4",100,165)
  114. GUICtrlCreateLabel("5",130,165)
  115. GUICtrlCreateLabel("6",160,165)
  116. GUICtrlCreateLabel("7",190,165)
  117. GUICtrlCreateLabel("8",220,165)
  118. GUICtrlCreateLabel("9",250,165)
  119. GUICtrlCreateLabel("10",280,165)
  120. GUICtrlCreateLabel("11",310,165)
  121. GUICtrlCreateLabel("12",340,165)
  122. GUICtrlCreateLabel("13",370,165)
  123. GUICtrlCreateLabel("14",400,165)
  124. GUICtrlCreateLabel("15",430,165)
  125. GUICtrlCreateLabel("16",460,165)
  126. GUICtrlCreateLabel("17",490,165)
  127. GUICtrlCreateLabel("18",520,165)
  128. GUICtrlCreateLabel("19",550,165)
  129. GUICtrlCreateLabel("20",580,165)
  130. GUICtrlCreateLabel("21",610,165)
  131. GUICtrlCreateLabel("22",640,165)
  132. GUICtrlCreateLabel("23",670,165)
  133. GUICtrlCreateLabel("24",700,165)
  134. GUICtrlCreateLabel("25",730,165)
  135. GUICtrlCreateLabel("26",760,165)
  136. GUICtrlCreateLabel("27",790,165)
  137. GUICtrlCreateLabel("28",820,165)
  138. GUICtrlCreateLabel("29",850,165)
  139. GUICtrlCreateLabel("30",880,165)
  140. GUICtrlCreateLabel("31",910,165)
  141. ;~ инпуты
  142. GUICtrlCreateInput(" ",2,185,25,20,0x2000)
  143. GUICtrlCreateInput(" ",33,185,25,20,0x2000)
  144. GUICtrlCreateInput(" ",65,185,25,20,0x2000)
  145. GUICtrlCreateInput(" ",95,185,25,20,0x2000)
  146. GUICtrlCreateInput(" ",124,185,25,20,0x2000)
  147. GUICtrlCreateInput(" ",154,185,25,20,0x2000)
  148. GUICtrlCreateInput(" ",184,185,25,20,0x2000)
  149. GUICtrlCreateInput(" ",214,185,25,20,0x2000)
  150. GUICtrlCreateInput(" ",244,185,25,20,0x2000)
  151. GUICtrlCreateInput(" ",274,185,25,20,0x2000)
  152. GUICtrlCreateInput(" ",304,185,25,20,0x2000)
  153. GUICtrlCreateInput(" ",334,185,25,20,0x2000)
  154. GUICtrlCreateInput(" ",364,185,25,20,0x2000)
  155. GUICtrlCreateInput(" ",394,185,25,20,0x2000)
  156. GUICtrlCreateInput(" ",424,185,25,20,0x2000)
  157. GUICtrlCreateInput(" ",454,185,25,20,0x2000)
  158. GUICtrlCreateInput(" ",484,185,25,20,0x2000)
  159. GUICtrlCreateInput(" ",514,185,25,20,0x2000)
  160. GUICtrlCreateInput(" ",544,185,25,20,0x2000)
  161. GUICtrlCreateInput(" ",574,185,25,20,0x2000)
  162. GUICtrlCreateInput(" ",604,185,25,20,0x2000)
  163. GUICtrlCreateInput(" ",634,185,25,20,0x2000)
  164. GUICtrlCreateInput(" ",664,185,25,20,0x2000)
  165. GUICtrlCreateInput(" ",694,185,25,20,0x2000)
  166. GUICtrlCreateInput(" ",724,185,25,20,0x2000)
  167. GUICtrlCreateInput(" ",754,185,25,20,0x2000)
  168. GUICtrlCreateInput(" ",784,185,25,20,0x2000)
  169. GUICtrlCreateInput(" ",814,185,25,20,0x2000)
  170. GUICtrlCreateInput(" ",844,185,25,20,0x2000)
  171. GUICtrlCreateInput(" ",874,185,25,20,0x2000)
  172. GUICtrlCreateInput(" ",904,185,25,20,0x2000)
  173. GUICtrlCreateLabel("_______________________________________________________________________________________________________________________________________________________________",0,210)
  174. ;Кнопка/Итог
  175. GUICtrlCreateButton("Рассчитать",10,240,100,50)
  176. GUICtrlCreateLabel("ИТОГ:",790,255)
  177. GUICtrlCreateLabel("",840,270,100,50)
  178.  
  179. $s0=
  180. $s1=
  181. $s2=
  182. $s3=
  183. $s4=
  184. $s5=
  185. $s6=
  186. $s7=
  187. $s8=
  188. $s9=
  189. Sleep(20000)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement