API tools faq
paste
Advertisement
Dece111

Riv Ante

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