{"id":3198,"date":"2012-10-01T15:52:40","date_gmt":"2012-10-01T15:52:40","guid":{"rendered":"http:\/\/irisfernandez.com.ar\/betaweblog\/?p=3198"},"modified":"2012-10-01T15:52:40","modified_gmt":"2012-10-01T15:52:40","slug":"bingo-un-generador-de-numeros-hecho-en-openoffice-calc","status":"publish","type":"post","link":"https:\/\/irisfernandez.com.ar\/betaweblog\/index.php\/2012\/10\/01\/bingo-un-generador-de-numeros-hecho-en-openoffice-calc\/","title":{"rendered":"\u00a1Bingo! Un generador de n\u00fameros hecho en OpenOffice Calc"},"content":{"rendered":"

Un colega pregunt\u00f3 en la lista de gleducar por un programa libre (con licencia libre, no simplemente gratuito), para generar los n\u00fameros del bingo.<\/p>\n

Yo pens\u00e9 en crear los n\u00fameros al azar con la funci\u00f3n aleatorio() en calc, pero ten\u00eda el problema de c\u00f3mo saber si los n\u00fameros ya salieron anteriormente. Como no encontr\u00e9 manera de agregar excepciones, algo que dijera “generar n\u00fameros al azar excepto los de esta lista”, no pude generar la aplicaci\u00f3n mediante simples funciones (exceptuando la “trampita” de poner muchos if anidados, pero tiene un gran margen de error… salvo que se creen tantos if anidados como celdas preceden a la que estamos escribiendo, terminando con una celda que tenga 99 condicionales…).<\/p>\n

Entonces busqu\u00e9 en Google una macro para OpenOffice Calc, donde se utilice la estructura while (mientras…), como para que el sistema realice esta estructura:<\/p>\n

“mientras el n\u00famero que salga en el sorteo no sea diferente a todos los anteriores, continuar sorteando n\u00fameros”.<\/p><\/blockquote>\n

Encontr\u00e9 este post que, casualmente, est\u00e1 realizado para un lotto (o bingo, no?)<\/a><\/p>\n

Descargu\u00e9 el archivo de la p\u00e1gina y entr\u00e9 al men\u00fa Macros, buscando la macro para editar su c\u00f3digo:<\/p>\n

\"Macros<\/a><\/p>\n

Para que funcione tuve que copiar el c\u00f3digo y pegarlo en una nueva macro (yendo a Mis Macros \/ Standard \/ Module 1<\/em> y eligiendo el bot\u00f3n Editar<\/em>).<\/p>\n

Modifiqu\u00e9 dos valores: donde dec\u00eda 49 puse 99, dos veces.<\/p>\n

Sub Lotto
\nDim i
\nDim j
\nDim val
\nDim match
\noSheet = ThisComponent.Sheets(1)
\n For i = 1 To 99<\/strong>
\noCell = oSheet.getCellByPosition(1,i)
\nDo
\nmatch = False
\n\u00a0\u00a0 val = int(rnd()*99) + 1<\/strong>
\nFor j = 1 To i
\nIf val = oSheet.getCellByPosition(1,j).getValue() Then
\nmatch = True
\nEnd If
\nNext j
\nLoop Until (match = False)
\noCell.setValue(val)
\nNext i
\nEnd Sub<\/p><\/blockquote>\n

Despu\u00e9s prob\u00e9 ejecutar la macro y efectivamente puso 100 n\u00fameros al azar en la columna B.<\/p>\n

Lo siguiente es muy sencillo: en la columna C le puse una f\u00f3rmula que mostrar los valores de la columna B s\u00f3lo si hab\u00eda algo en la columna A:<\/p>\n

=SI(A2<>””;B2;” “)<\/p><\/blockquote>\n

Ocult\u00e9 la columna B, y entonces, cada vez que uno escribe algo (por ejemplo una equis, un asterisco, cualquier cosa) en la columna A, se muestra un n\u00famero en la columna C. Hay que ir escribiendo desde A2 hacia abajo:<\/p>\n

\"Bingo<\/a><\/p>\n

Aqu\u00ed les dejo el archivo, para usarlo tal cual viene, o para modificarlo a piaccere<\/em>: bingo<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"

Un colega pregunt\u00f3 en la lista de gleducar por un programa libre (con licencia libre, no simplemente gratuito), para generar los n\u00fameros del bingo. Yo pens\u00e9 en crear los n\u00fameros al azar con la funci\u00f3n aleatorio() en calc, pero ten\u00eda el problema de c\u00f3mo saber si los n\u00fameros ya salieron anteriormente. Como no encontr\u00e9 manera … Continuar leyendo “\u00a1Bingo! Un generador de n\u00fameros hecho en OpenOffice Calc”<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3],"tags":[],"class_list":["post-3198","post","type-post","status-publish","format-standard","hentry","category-cultura-libre"],"_links":{"self":[{"href":"https:\/\/irisfernandez.com.ar\/betaweblog\/index.php\/wp-json\/wp\/v2\/posts\/3198","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/irisfernandez.com.ar\/betaweblog\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/irisfernandez.com.ar\/betaweblog\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/irisfernandez.com.ar\/betaweblog\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/irisfernandez.com.ar\/betaweblog\/index.php\/wp-json\/wp\/v2\/comments?post=3198"}],"version-history":[{"count":0,"href":"https:\/\/irisfernandez.com.ar\/betaweblog\/index.php\/wp-json\/wp\/v2\/posts\/3198\/revisions"}],"wp:attachment":[{"href":"https:\/\/irisfernandez.com.ar\/betaweblog\/index.php\/wp-json\/wp\/v2\/media?parent=3198"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/irisfernandez.com.ar\/betaweblog\/index.php\/wp-json\/wp\/v2\/categories?post=3198"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/irisfernandez.com.ar\/betaweblog\/index.php\/wp-json\/wp\/v2\/tags?post=3198"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}