Advertisement
72_DEMON_

Codigo cafe

Sep 4th, 2023
137
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.06 KB | None | 0 0
  1. CLEAR
  2. DEFI WIND imagen FROM 0,0 TO 45,336 FONT "CALIBRI" float
  3. ACTIVATE WIND imagen
  4. @0,0 SAY "C:\Users\MINEDUCYT\Downloads\Inicio.mj2.jpg" BITMAP
  5. READ
  6. deactivate wind imagen
  7. * Definiendo ventana...
  8. DEFI WIND cafes FROM 2,35 TO 35,190 TITLE "Cafés" FONT "Calibri" CLOSE GROW
  9. ACTIVATE WINDOWS cafes
  10. * Imagen parte de cupón
  11. @0,0 SAY "C:\Users\MINEDUCYT\Downloads\cafes.jpg" bitmap
  12.  
  13. * Definiendo variables... (CAF1 = Cafe 1, CAF2, CAF3, CAF4)
  14. CAF1 = 0
  15. CAF2 = 0
  16. CAF3 = 0
  17. CAF4 = 0
  18.  
  19. * Retiene el numero de cafes...
  20. @26.5,19 GET CAF1 FONT "Arial" STYLE "Bold"
  21. READ
  22.  
  23. * Retiene numero de cafes...
  24. @26.5,45 GET CAF2 FONT "Arial" STYLE "Bold"
  25. READ
  26.  
  27. * Retiene numero de adultos cafes...
  28. @26.5,71 GET CAF3 FONT "Arial" STYLE "Bold"
  29. READ
  30. * Retiene numero de cafes...
  31. @26.5,96 GET CAF4 FONT "Arial" STYLE "Bold"
  32. READ
  33.  
  34. * Variable que suma las cantidades de cafe...
  35. Suma = CAF1 + CAF2 + CAF3 + CAF4
  36.  
  37. * Muestra el total de cafes...
  38. @26.5,113 SAY Suma FONT "Arial" STYLE "Bold"
  39. READ
  40.  
  41. * Variables de precios de cafes... (PCAF1 = PrecioCafe1 y así)
  42. PCAF1 = CAF1 * 3.25
  43. PCAF2 = CAF2 * 4.50
  44. PCAF3 = CAF3 * 5.00
  45. PCAF4 = CAF4 * 5.40
  46.  
  47. * Variable que suma los precios y da el total...
  48. TPCAF = PCAF1 + PCAF2 + PCAF3 + PCAF4
  49.  
  50. * Da el precio de los cafes segun la cantidad que haya...
  51. *@28.5,19 SAY PCAF1 FONT "Arial" STYLE "Bold"
  52.  
  53. * Da el precio de los cafes segun la cantidad que haya...
  54. *@28.5,45 SAY PCAF2 FONT "Arial" STYLE "Bold"
  55.  
  56. * Da el precio de los cafes segun la cantidad que haya...
  57. *@28.5,71 SAY PCAF3 FONT "Arial" STYLE "Bold"
  58.  
  59. * Da el precio de los cafes segun la cantidad que haya...
  60. *@28.5,96 SAY PCAF4 FONT "Arial" STYLE "Bold"
  61.  
  62. * Da el total a pagar por todos los cafes...
  63. *@28.5,113 SAY TPCAF FONT "Arial" STYLE "Bold"
  64.  
  65.  
  66.  
  67. * MENU DE REPOSTERIAS...
  68. *@22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  69. *respuesta = MESSAGEBOX ("¿Desea pasar al menu de reposterías?", 4, "CONFIRMACIÓN")
  70.  
  71.  
  72. * C1 = 10.00
  73. * C2 = 16.00
  74. * C3 = 14.00
  75.  
  76. * DO CASE
  77. * CASE (respuesta) = 6
  78. DEACTIVATE WIND cafes
  79. DEFI WIND reposterias FROM 2,35 TO 35,190 TITLE "Reposterías" FONT "Calibri" CLOSE GROW
  80. ACTIVATE WINDOWS reposterias
  81. *@0,0 SAY "C:\Users\MINEDUCYT\Downloads\postres.jpg" bitmap
  82. @0,0 SAY "C:\Users\MINEDUCYT\Downloads\postres (2).jpg" bitmap
  83.  
  84.  
  85.  
  86.  
  87. * AJUSTES DE MENU DE REPOSTERIAS xd
  88.  
  89.  
  90. * Definiendo variables... (CAF1 = Cafe 1, CAF2, CAF3, CAF4)
  91. GALLE = 0
  92. CHEE = 0
  93. BROWN = 0
  94. PIE = 0
  95.  
  96. * Retiene el numero de niños...
  97. @26.5,17 GET GALLE FONT "Arial" STYLE "Bold"
  98. READ
  99.  
  100. * Retiene numero de adultos...
  101. @26.5,44 GET CHEE FONT "Arial" STYLE "Bold"
  102. READ
  103.  
  104. * Retiene numero de adultos mayores...
  105. @26.5,74 GET BROWN FONT "Arial" STYLE "Bold"
  106. READ
  107.  
  108. @26.5,104 GET PIE FONT "Arial" STYLE "Bold"
  109. READ
  110.  
  111. * Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  112. Suma = GALLE + CHEE + BROWN + PIE
  113.  
  114. * Muestra el total de niños y adultos...
  115. @26.5,117 SAY Suma FONT "Arial" STYLE "Bold"
  116. READ
  117.  
  118. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  119. PGALLE = GALLE * 1.50
  120. PCHEE = CHEE * 5.75
  121. PBROWN = BROWN * 3.50
  122. PPIE = PIE * 3.75
  123.  
  124. * Variable que suma los precios y da el total...
  125. TPREPOS = PGALLE + PCHEE + PBROWN + PPIE
  126.  
  127. * Da el precio de los niños segun la cantidad que haya...
  128. *@9,13 SAY PGALLE FONT "Arial" STYLE "Bold"
  129.  
  130. * Da el precio de los adultos segun la cantidad que haya...
  131. *@9,39 SAY PCHEE FONT "Arial" STYLE "Bold"
  132.  
  133. * Da el precio de los adultos mayores segun la cantidad que haya...
  134. *@9,68 SAY PBROWN FONT "Arial" STYLE "Bold"
  135.  
  136. * Da el precio de los adultos mayores segun la cantidad que haya...
  137. *@9,85 SAY PPIE FONT "Arial" STYLE "Bold"
  138.  
  139. * Da el total a pagar entre los adultos y niños...
  140. *@9,103 SAY TPREPOS FONT "Arial" STYLE "Bold"
  141.  
  142. DEFINE WIND Ticket FROM 2,25 TO 25,70 TITLE "FACTURA" FONT "calibri" CLOSE FLOAT
  143. ACTIVATE WIND Ticket
  144.  
  145. *CAF1 = 0
  146. *CAF2 = 0
  147. *CAF3 = 0
  148. *CAF4 = 0
  149.  
  150. * Suma = CAF1 + CAF2 + CAF3 + CAF4
  151.  
  152. *GALLE = 0
  153. *CHEE = 0
  154. *BROWN = 0
  155. *PIE = 0
  156.  
  157. *PGALLE = GALLE * 1.50
  158. *PCHEE = CHEE * 5.75
  159. *PBROWN = BROWN * 3.50
  160. *PPIE = PIE * 3.75
  161.  
  162. @1,2 SAY "F A C T U R A" FONT "Arial" STYLE "Bold"
  163. @3,2 SAY "CAFÉS"
  164. @4,2 SAY "Americano"
  165. @5,2 SAY "Latte"
  166. @6,2 SAY "Avellana"
  167. @7,2 SAY "Expreso"
  168.  
  169. @3,16 SAY "CANT"
  170. @4,14 SAY CAF1
  171. @5,14 SAY CAF2
  172. @6,14 SAY CAF3
  173. @7,14 SAY CAF4
  174.  
  175. @8,11 SAY "TOTAL CAFÉS:"
  176.  
  177. @3,25 SAY "TOTAL"
  178. @4,22 SAY PCAF1
  179. @5,22 SAY PCAF2
  180. @6,22 SAY PCAF3
  181. @7,22 SAY PCAF4
  182.  
  183. @8,22 SAY TPCAF
  184.  
  185. * @2,30SAY TPCAF PICT "999.99"
  186. * Definiendo variables... (CAF1 = Cafe 1, CAF2, CAF3, CAF4)
  187. *GALLE = 0
  188. *CHEE = 0
  189. *BROWN = 0
  190. *PIE = 0
  191.  
  192. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  193. PGALLE = GALLE * 1.50
  194. PCHEE = CHEE * 5.75
  195. PBROWN = BROWN * 3.50
  196. PPIE = PIE * 3.75
  197.  
  198. * Variable que suma los precios y da el total...
  199. TPREPOS = PGALLE + PCHEE + PBROWN + PPIE
  200.  
  201. @10,2 SAY "REPOSTERÍAS"
  202. @11,2 SAY "Gall choco"
  203. @12,2 SAY "Chees"
  204. @13,2 SAY "Brow"
  205. @14,2 SAY "Pie manz"
  206.  
  207. @10,16 SAY "CANT"
  208. @11,14 SAY GALLE
  209. @12,14 SAY CHEE
  210. @13,14 SAY BROWN
  211. @14,14 SAY PIE
  212.  
  213. @15,11 SAY "TOTAL REPOS:"
  214.  
  215. @10,25 SAY "TOTAL"
  216. @11,22 SAY PGALLE
  217. @12,22 SAY PCHEE
  218. @13,22 SAY PBROWN
  219. @14,22 SAY PPIE
  220.  
  221. @15,22 SAY TPREPOS
  222.  
  223. subtotal = TPCAF + TPREPOS
  224.  
  225. @16,11 SAY "TOTAL FINAL:"
  226. @16,22 SAY subtotal
  227.  
  228. * @4,2 GET
  229. * @4,30 SAY PAM PICT "99.99"
  230.  
  231. * @8,0 SAY "-----------------------------------------------------------------"
  232.  
  233. * @6,2 SAY "TOTAL DE ENTRADAS:...................................."
  234. *@6,30 SAY TAA PICT "999.99"
  235.  
  236. * @7,0 SAY "-----------------------------------------------------------------"
  237. *@8,2 SAY "TOTAL A PAGAR:........................................"
  238. *@8,30 SAY TPREPOS PICT "999.99"
  239.  
  240. * @9,0 SAY "-----------------------------------------------------------------"
  241.  
  242. EFECT = 0.00
  243.  
  244. @18,2 SAY "PAGO CON:"
  245.  
  246. @18,20 GET EFECT
  247. READ
  248.  
  249. TFAPagar = TPREPOS + TPCAF
  250. IF TFAPagar > EFECT
  251.  
  252. @19,2 SAY "Cantidad de dinero invalida"
  253. READ
  254.  
  255. ELSE
  256.  
  257. TFAPagar = TPREPOS + TPCAF
  258.  
  259. * TFAP = TotalFinalAPagar
  260. CAMBIO = EFECT - TFAPagar
  261.  
  262. @19,2 SAY "SU CAMBIO"
  263.  
  264. @19,28 SAY CAMBIO PICT "999.99"
  265.  
  266. * MENSAJE = "PRESIONE CUALQUIER TECLA PARA SALIR"
  267.  
  268. * WAIT WIND MENSAJE AT 27,27
  269. * QUIT
  270. ENDIF
  271. * ENDCASE
  272.  
  273. *DEACTIVATE WIND Ticket
  274. *DEACTIVATE WIND reposterias
  275. *DEACTIVATE WIND ATRACO
  276.  
  277. * Preguntará al usuario si desea continuar...
  278. CON = SPACE(1)
  279. @20,2 SAY "Desea reiniciar? S/N"
  280. @20,20 GET CON
  281. READ
  282.  
  283. * Retorno o continuación del programa...
  284. IF CON = "s" THEN
  285.  
  286. DEACTIVATE WIND Ticket
  287. Do cafeshop
  288.  
  289. ELSE
  290.  
  291. QUIT
  292.  
  293. ENDIF
  294.  
  295. CLEAR
  296.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement