API tools faq
paste
Advertisement
Dece111

Slim

Dece111
Feb 28th, 2024
101
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 8.28 KB | None | 0 0
raw download clone embed print report diff
  1. 'Slim
  2.  
  3. Sub S_10269750(ByVal NND As Integer)
  4. ACT_MOD = "1026975"
  5. CLAMP = 0
  6.  
  7.  
  8. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  9. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  10. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  11. VV = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  12. BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
  13.  
  14.  
  15. fn = ""
  16.  
  17.  
  18. P1 = 250
  19. P2 = H - 400
  20. MVAL = 500
  21. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  22.  
  23. Call SAVE_SUB(NND, STRINGA)
  24.  
  25. POSINTAB = def_posintab(NND)
  26. Call CUT_END_S(H, L, "0", POSINTAB)
  27. Call FVTPT(3, NND, "")
  28. Call CUT_END_S(H, L, "B", POSINTAB)
  29. Call FVTPT(3, NND, "B")
  30. Call CUT_END_S(H, L, "C", POSINTAB)
  31. Call FVTPT(3, NND, "C")
  32.  
  33.  
  34. End Sub
  35.  
  36. Sub S_1026712A(ByVal NND As Integer)
  37. ACT_MOD = "1026712"
  38. CLAMP = 0
  39.  
  40.  
  41. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  42. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  43. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  44. VV = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  45. BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
  46.  
  47.  
  48. fn = ""
  49.  
  50.  
  51. P1 = 250
  52. P2 = H - 400
  53. MVAL = 500
  54. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  55.  
  56. Call SAVE_SUB(NND, STRINGA)
  57.  
  58. POSINTAB = def_posintab(NND)
  59. Call CUT_END_S(H, L, "0", POSINTAB)
  60. Call FVTPT(3, NND, "")
  61. Call CUT_END_S(H, L, "B", POSINTAB)
  62. Call FVTPT(3, NND, "B")
  63. Call CUT_END_S(H, L, "C", POSINTAB)
  64. Call FVTPT(3, NND, "C")
  65.  
  66.  
  67. End Sub
  68.  
  69. Sub S_10284540(ByVal NND As Integer)
  70. ACT_MOD = "1028454"
  71. CLAMP = 0
  72.  
  73.  
  74. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  75. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  76. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  77. VV = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  78. BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
  79.  
  80. Select Case VV
  81. Case 1, 2
  82. R01 = T_RECT1(-6, 22, 35.5, L + 6) & T_RECT1(H - 31, H + 6, -6, 59)
  83. Case 3, 4
  84. R01 = T_RECT1(H + 6, H - 22, 35.5, L + 6) & T_RECT1(31, -6, -6, 59)
  85. Case Else
  86. MsgBox ("ERRORE VERSIONE SU CODICE " & ACT_MOD)
  87. End Select
  88.  
  89. fn = R01
  90.  
  91.  
  92. P1 = 250
  93. P2 = H - 400
  94. MVAL = 500
  95. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  96.  
  97. Call SAVE_SUB(NND, STRINGA)
  98.  
  99. POSINTAB = def_posintab(NND)
  100. Call CUT_END_S(H, L, "0", POSINTAB)
  101. Call FVTPT(3, NND, "")
  102. Call CUT_END_S(H, L, "B", POSINTAB)
  103. Call FVTPT(3, NND, "B")
  104. Call CUT_END_S(H, L, "C", POSINTAB)
  105. Call FVTPT(3, NND, "C")
  106.  
  107.  
  108. End Sub
  109.  
  110.  
  111. Sub S_10285220(ByVal NND As Integer)
  112. ACT_MOD = "1028522"
  113. CLAMP = 0
  114.  
  115.  
  116. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  117. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  118. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  119. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  120. VV = INPUT_NUM(NND, "VER", ver, ACT_MOD)
  121. BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
  122.  
  123. Select Case VV 'MODIFICATA 26/10/2020
  124. Case 1, 2
  125. R01 = T_RECT1(-0.6, 22, 33.7, L + 6) & T_RECT1(H - 31, H + 1.6, -6, M2)
  126. Case 3, 4
  127. R01 = T_RECT1(H + 0.6, H - 22, 33.7, L + 6) & T_RECT1(31, -1.6, -6, M2)
  128. Case Else
  129. MsgBox ("ERRORE VERSIONE SU CODICE " & ACT_MOD)
  130. End Select
  131.  
  132. fn = R01
  133.  
  134.  
  135. P1 = 250
  136. P2 = H - 400
  137. MVAL = 500
  138. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  139.  
  140. Call SAVE_SUB(NND, STRINGA)
  141.  
  142. POSINTAB = def_posintab(NND)
  143. Call CUT_END_S(H, L, "0", POSINTAB)
  144. Call FVTPT(3, NND, "")
  145. Call CUT_END_S(H, L, "B", POSINTAB)
  146. Call FVTPT(3, NND, "B")
  147. Call CUT_END_S(H, L, "C", POSINTAB)
  148. Call FVTPT(3, NND, "C")
  149.  
  150.  
  151. End Sub
  152.  
  153.  
  154. Sub S_1026633A(ByVal NND As Integer)
  155. ACT_MOD = "1026633"
  156. CLAMP = 0
  157.  
  158.  
  159. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  160. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  161. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  162. VV = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  163. BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
  164.  
  165.  
  166. XX_CR = (L - 75 - 75) / 3
  167. R01 = T_SLOT(75, 7, 10, 5, 90) & T_SLOT(75 + XX_CR, 7, 10, 5, 90) & T_SLOT(75 + 2 * XX_CR, 7, 10, 5, 90) & T_SLOT(75 + 3 * XX_CR, 7, 10, 5, 90) & T_SLOT(L - 75, 7, 10, 5, 90)
  168.  
  169.  
  170. fn = R01
  171.  
  172.  
  173. P1 = 250
  174. P2 = H - 400
  175. MVAL = 500
  176. STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & fn
  177.  
  178. Call SAVE_SUB(NND, STRINGA)
  179.  
  180. POSINTAB = def_posintab(NND)
  181. Call CUT_END_S(L, H, "0", POSINTAB)
  182. Call FVTPT(3, NND, "")
  183. Call CUT_END_S(L, H, "B", POSINTAB)
  184. Call FVTPT(3, NND, "B")
  185. Call CUT_END_S(L, H, "C", POSINTAB)
  186. Call FVTPT(3, NND, "C")
  187.  
  188.  
  189. End Sub
  190.  
  191. Sub S_10328000(ByVal NND As Integer)
  192. ACT_MOD = "1032800"
  193. CLAMP = 0
  194.  
  195.  
  196. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  197. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  198. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  199. VV = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  200. BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
  201.  
  202. R01 = T_RECT1(-6, 31.5, 14.5, H - 30.5) & T_RECT1(L - 31.5, L + 6, 14.5, H - 30.5)
  203. R02 = T_RECT1(-3.5, 16.5, -1, 14.5 + 4.5) & T_RECT1(L - 16.5, L + 3.5, -1, 14.5 + 4.5)
  204.  
  205. fn = R01 & R02
  206.  
  207.  
  208. P1 = 250
  209. P2 = H - 400
  210. MVAL = 500
  211. STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & fn
  212.  
  213. Call SAVE_SUB(NND, STRINGA)
  214.  
  215. POSINTAB = def_posintab(NND)
  216. Call CUT_END_S(L, H, "0", POSINTAB)
  217. Call FVTPT(3, NND, "")
  218. Call CUT_END_S(L, H, "B", POSINTAB)
  219. Call FVTPT(3, NND, "B")
  220. Call CUT_END_S(L, H, "C", POSINTAB)
  221. Call FVTPT(3, NND, "C")
  222.  
  223.  
  224. End Sub
  225.  
  226.  
  227. Sub S_10287960(ByVal NND As Integer)
  228. ACT_MOD = "1028796"
  229. CLAMP = 0
  230.  
  231.  
  232. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  233. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  234. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  235. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  236. VV = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  237. BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
  238.  
  239.  
  240. R01 = T_RECT1(-6, 31.5, 14.5, H - 30.5) & T_RECT1(L - 31.5, L + 6, 14.5, H - 30.5)
  241. R02 = T_RECT1(-3.5, 16.5, -1, 14.5 + 4.5) & T_RECT1(L - 16.5, L + 3.5, -1, 14.5 + 4.5)
  242. R03 = T_SLOT(38.5, 2.5, 14.5, 9, 90) & T_SLOT(38.5 + M1, 2.5, 14.5, 9, 90) & T_SLOT(L - 38.5, 2.5, 14.5, 9, 90) & T_SLOT(L - 38.5 - M1, 2.5, 14.5, 9, 90)
  243.  
  244.  
  245. fn = R01 & R02 & R03
  246.  
  247.  
  248. P1 = 250
  249. P2 = H - 400
  250. MVAL = 500
  251. STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & fn
  252.  
  253. Call SAVE_SUB(NND, STRINGA)
  254.  
  255. POSINTAB = def_posintab(NND)
  256. Call CUT_END_S(L, H, "0", POSINTAB)
  257. Call FVTPT(3, NND, "")
  258. Call CUT_END_S(L, H, "B", POSINTAB)
  259. Call FVTPT(3, NND, "B")
  260. Call CUT_END_S(L, H, "C", POSINTAB)
  261. Call FVTPT(3, NND, "C")
  262.  
  263.  
  264. End Sub
  265.  
  266.  
  267. Sub S_10269010(ByVal NND As Integer)
  268. ACT_MOD = "1026901"
  269. CLAMP = 0
  270.  
  271.  
  272. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  273. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  274. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  275. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  276. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  277. VV = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  278. BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
  279.  
  280.  
  281. R01 = T_RECT1(-6, 31.5, 14.5, H - 30.5) & T_RECT1(L - 31.5, L + 6, 14.5, H - 30.5)
  282. R02 = T_RECT1(-3.5, 16.5, -1, 14.5 + 4.5) & T_RECT1(L - 16.5, L + 3.5, -1, 14.5 + 4.5)
  283.  
  284. R03 = T_SLOT(M2, 2.5, 14.5, 9, 90) & T_SLOT(M2 + M1, 2.5, 14.5, 9, 90) & T_SLOT(L - M2, 2.5, 14.5, 9, 90) & T_SLOT(L - M2 - M1, 2.5, 14.5, 9, 90)
  285. R04 = T_SLOT(L / 2 - M1 / 2, 2.5, 14.5, 9, 90) & T_SLOT(L / 2 + M1 / 2, 2.5, 14.5, 9, 90)
  286.  
  287.  
  288. fn = R01 & R02 & R03 & R04
  289.  
  290.  
  291. P1 = 250
  292. P2 = L - 400
  293. MVAL = 500
  294. STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & fn
  295.  
  296. Call SAVE_SUB(NND, STRINGA)
  297.  
  298. POSINTAB = def_posintab(NND)
  299. Call CUT_END_S(L, H, "0", POSINTAB)
  300. Call FVTPT(3, NND, "")
  301. Call CUT_END_S(L, H, "B", POSINTAB)
  302. Call FVTPT(3, NND, "B")
  303. Call CUT_END_S(L, H, "C", POSINTAB)
  304. Call FVTPT(3, NND, "C")
  305.  
  306.  
  307. End Sub
  308.  
  309.  
  310. Sub S_1026901A(ByVal NND As Integer)
  311. ACT_MOD = "1026901"
  312. CLAMP = 0
  313.  
  314.  
  315. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  316. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  317. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  318. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  319. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  320. VV = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  321. BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
  322.  
  323. AGY = 2
  324.  
  325. R01 = T_RECT1(-6, 31.5, MR_Y(14.5, H, AGY), MR_Y(H - 30.5, H, AGY)) & T_RECT1(L - 31.5, L + 6, MR_Y(14.5, H, AGY), MR_Y(H - 30.5, H, AGY))
  326. R02 = T_RECT1(-3.5, 16.5, MR_Y(-1, H, AGY), MR_Y(14.5 + 4.5, H, AGY)) & T_RECT1(L - 16.5, L + 3.5, MR_Y(-1, H, AGY), MR_Y(14.5 + 4.5, H, AGY))
  327.  
  328. R03 = T_SLOT(M2, MR_Y(2.5, H, AGY), 14.5, 9, 90) & T_SLOT(M2 + M1, MR_Y(2.5, H, AGY), 14.5, 9, 90) & T_SLOT(L - M2, MR_Y(2.5, H, AGY), 14.5, 9, 90) & T_SLOT(L - M2 - M1, MR_Y(2.5, H, AGY), 14.5, 9, 90)
  329. R04 = T_SLOT(L / 2 - M1 / 2, MR_Y(2.5, H, AGY), 14.5, 9, 90) & T_SLOT(L / 2 + M1 / 2, MR_Y(2.5, H, AGY), 14.5, 9, 90)
  330.  
  331.  
  332. fn = R01 & R02 & R03 & R04
  333.  
  334.  
  335. P1 = 250
  336. P2 = L - 400
  337. MVAL = 500
  338. STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & fn
  339.  
  340. Call SAVE_SUB(NND, STRINGA)
  341.  
  342. POSINTAB = def_posintab(NND)
  343. Call CUT_END_S(L, H, "0", POSINTAB)
  344. Call FVTPT(3, NND, "")
  345. Call CUT_END_S(L, H, "B", POSINTAB)
  346. Call FVTPT(3, NND, "B")
  347. Call CUT_END_S(L, H, "C", POSINTAB)
  348. Call FVTPT(3, NND, "C")
  349.  
  350.  
  351. End Sub
  352.  
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!