thegoodfellas/blogset-br huggingface dataset:
Uma noite, um velho indio contou ao seu neto sobre uma batalha que acontece dentro das pessoas. Ele disse:- Meu filho, a batalha acontece entre dois "lobos" dentro de todos nos...Um e o Mau: a raiva, inveja, ciume, tristeza, desgosto, cobica, arrogancia, pena de si mesmo, culpa, ressentimento. O outro e Bom: a alegria, paz, esperanca, serenidade, humildade, bondade, benevolencia, empatia, generosidade, compaixao e fe.O neto pensou alguns minutos e perguntou ao seu avo:- Qual lobo vence?O velho indio respondeu:- Aquele que voce alimenta mais...Alimente-se das maravilhas de Deus, fortaleca seu Espirito e enfraqueca a sua carne.Reflita e fique na Paz do Senhor. A dieta alimentar de cada pais, a disponibilidade de alimentos e a despesa com a comida em 1 semana. Repare ainda no tamanho das familias! 1 - Alemanha: Familia Melander de Bargteheide.Despesa com alimentacao em 1 semana: 375.39 Euros / $500.07 dolares2 - Estados Unidos da America: Familia Revis da Carolina do Norte Despesa com alimentacao em 1 semana: $341.98 dolares3 - Italia: Familia Manzo da SeciliaDespesa com alimentacao em 1 semana: 214.36 Euros / $260.11 dolares4 - Mexico: Familia Casales de Cuernavaca Despesa com alimentacao em 1 semana: 1,862.78 Pesos / $189.09 dolares5 - Polonia: Familia Sobczynscy de Konstancin-Jeziorna Despesa com alimentacao em 1 semana: 582.48 Zlotys / $151.27 dolares6 - Egito: Familia Ahmed do Cairo Despesa com alimentacao em 1 semana: 387.85 Egyptian Pounds / $68.53 dolares7 - Equador: Familia Ayme de Tingo Despesa com alimentacao em 1 semana: $31.55 dolares8 - Butao: Familia Namgay da vila de Shingkhey Despesa com alimentacao em 1 semana: 224.93 ngultrum / $5.03 dolares9 - Chade: Familia Aboubakar do campo de refugiados de BreidjingDespesa com alimentacao por semana: 685 Francos / $1.23 dolaresE o seu senhor lhe disse: Bem esta, servo bom e fiel. Sobre o pouco foste fiel, sobre muito te colocarei; entra no gozo do teu senhor. Mateus 25:21Honre a Deus e agradeca a cada dia por tudo que Ele poena sua mesa.Ajude o seu irmao nao importa o quanto, mas faca aquilo que Jesus faria no seu lugar, fique na bencao do Senhor. Temos dificuldades de entregarmos nossos problemas ao Senhor e confiar na sua direcao.Sempre falamos da boca para fora "Deus provera", mas nem mesmo nos acreditamos totalmente e neste caso ficamos dividindo as coisas com Cristo."Invoca-me, e te responderei; anunciar-te-ei coisas grandes e ocultas, que nao sabes."Jeremias 33:3Deus tem a resposta para tudo em nossas vidas agora resta saber quem esta no controle da sua vida, assista ao video abaixo e reflita.Que a Paz do Senhor esteja com voce Como esta sua vida espiritual?Voce e daqueles que falam "ha... eu vou a igreja tres vezes por semana, eu dizimo, dou ofertas...", mas voce tem pregado o evangelho? Tem testemunhado as maravilhas de DEUS na sua vida para outras pessoas?Quando foi a ultima vez que voce falou de Jesus para alguem? E a biblia voce tem lido?Assim como o Pai, que vive, me enviou, e eu vivo pelo Pai, assim, quem de mim se alimenta, tambem vivera por mim. Joao 6:57Voce esta se alimentando do Senhor? DEUS
nos sustenta dia apos dia nesta terra, nos da forca, sabedoria e tantas outras davidas para que possamos continuar retos no seu caminho, mas temos compartilhado isto com o proximo? Muitas vezes precisamos de um empurraozinho, mas ate quando vamos precisar ser impulsionados a agir por uma pregacao, por uma mensagem, sera que so o pedido de Jesus para nos ja nao seria o suficiente?E disse-lhes: Ide por todo o mundo, pregai o evangelho a toda criatura. Marcos 16:15Nao podemos esquecer de todas as coisas que o Senhor prometeu para nossas vidas e o minimo que podemos fazer e compartilhar tudo isto. Voce pode estar pensando "Ah... mais eu tenho vergonha, eu nao tenho dom para fazer isto". Vamos refletir, para contarmos uma piada, falar daquele ou da noticia do momento. Somos como um virus, contaminamos todos, rapidamente todo mundo fica sabendo de tudo, mas e Cristo? Para falar sobre Ele nao deveria ser no minimo da mesma forma? Quanto a timidez a palavra diz: Mas, quanto aos timidos, e aos incredulos, e aos abominaveis, e aos homicidas, e aos fornicadores, e aos feiticeiros, e aos idolatras e a todos os mentirosos, a sua parte sera no lago que arde com fogo e enxofre; o que e a segunda morte. Apocalipse 21:8Da mesma forma precisamos tambem entender que nao precisamos ter o dom para pregar, pois Deus usa ate mesmo uma mula para falar conosco, Gloria a Deus que possamos ser usados pelo Senhor, por menor que voce se sinta quem faz a obra e o Senhor, voce so precisa deixar que Ele te use.Voce pode estar tendo dificuldades para cumprir este chamado que Deus tem para todos nos, ore e peca a Ele que lhe ajude, peca para que lhe de um empurraozinho... So nao espere muito! Ja pensou quantas almas podem ser salvas atraves da sua decisao? Nao se conforme com o mundo mas o transforme conforme a vontade de DEUS.Nem sempre temos alguem para dar o empurraozinho, mas se achar que convem no video abaixo tem alguem que gosta de dar uma maozinha aqueles que precisam...
Deus sempre da uma nova pagina em branco para nos, um novo dia para recomecar, nos que devemos aprender com nossos erros e buscar a vontade de Deus para nossas vidas sempre, pois desta forma ficamos mais proximos dos acertos e diminuimos nossos erros.Reflita: Nos devemos ter cuidado em saber aonde estao nossas riquezas e valores. A palavra do Senhor nos fala aonde esta o nosso coracao ali estao nossas riquezas, precisamos buscar a presenca de Deus a cada instante fazendo Dele a nossa rocha, a nossa vida.Sempre nos preocupamos com tudo e esquecemos que Deus tem que estar no centro, tem que ser nosso alvo principal como vemos em Lucas 12:31"Buscai antes o reino de Deus, e todas estas coisas vos serao acrescentadas."Vamos refletir assistindo o video abaixo e avaliar se realmente Deus esta acima de todas as coisas em nossa vida. Esta quase nem tem graca. e muito facil!Dim s as Sound // instancia do objetos = GetOpenFolderItem("").OpenAsSound //Abre o arquivo de somif s = Nil Then Return //Encerra se nao houver arquivos.Play // Toca a musica Moleza nao e ? Bom, mesmo assim vou falar algo a respeito.A classe Sound apesar de reduzida tem algumas propriedades interessantes, como por exemplo o Pan, onde voce pode regular o balanco do sterio, o Volume que varia de 0 a 100, o PlayLooping que permite repetir continuamente um som, e sem esquecer do Stop que para o som imediatamenteCom o Stop, eu consegui fazer um telegrafo usando um unico beep continuo, apenas variando o tempo de duracao que eu queria para cada beep. Com a propriedade IsPlaying, e possivel saber se o som ainda esta tocando, assim um playlist ficara bem simples de ser feita (Quando terminar uma, coloque a proxima da lista). E isso e tudo p p soal :) MySql e Ultimo ID = titulo de filme do velho oeste :) Em outros tempos e em outras linguagens eu travava a tabelas, inseria e re-consultava. Mas aqui e agora... Quando voce executar uma instrucao INSERT e precisar do ID que esta instrucao gerou para qualquer outra coisa e so perguntar para a conexao do MySql. id = MyCnn.GetInsertID //MyCnn = conexao com banco de dados misql Voce tambem pode perguntar quantos registros foram afetados por uma instrucao com GetAffectedRows (por ex: quantos registros eu deletei?) Como adicionar dinamicamente componente em uma janela do RealBasic ? E comum nos depararmos com a necessidade de adicionarmos campos de texto, botoes ou outro componente de tela enquanto o programa esta funcionando. Imagine fazer um calendario aonde cada um dos 31 dias seja um botao para selecionar o dia? E muito chato e demorado ter que colocar um por um e ainda levando em conta que eles mudam de lugar a cada mes. E muito facil se fazer isso no RealBasic. So lembrando que o resultado e um Array de controles. Leia mais...Insira o objeto desejado na tela, Nas propriedades, altere o Index para 0. Declare uma Variavel com o tipo do objeto em questao, em seguida atribua o valor a ela como sendo
seu novo objeto. Dim pb As PushButtonpb = New PushButton1 Em seguida e so alterar as propriedades que desejar e pronto, ja temos dois botoes na tela. E para remover o objeto, basta acessar o metodo close: PushButton1(n).Close Para estender o uso sem muito trabalho podemos usar um conjunto de For ... next e criar quantos botoes forem necessario Exemplo: Seguindo os passos a cima, coloque um botao em uma janela e defina a sua altura e largura pra 22, e seu caption para 0. No evento Open da janela digite: Dim x,y,n,c,l,t As integer 'Declarar das variaveisDim pb As PushButton 'Declarar objetol = PushButton1(0).Left 'Obter posicaot = PushButton1(0).Topn = 1 'iniciar coluna em 1for y = 0 to 5 'contar 6 linhasfor x = n to 4 'contar 5 colulas pb = New PushButton1 'criar novo botao pb.Left = x * 22 + l 'Posicionar botao pb.Top = y * 22 + t c=c+1 'Numero para exibir pb.Caption = str(c) 'Exibir Numeronextn=0 'zerar colunanextO resultado sera similar a este:
Uma amiga olha para uma LX-300 em cima da minha mesa, franze o canto esquerdo do labio superior e me pergunta: -vem ca, essa coisa e velha ou e assim mesmo?.Para infelicidade de muitos nem tudo pode ser modernizado. Para que uma matricial possa ser substituida por outra tecnologia e necessario que o conceito de sua utilizacao tambem seja modificado.As matriciais sao mais comumente empregadas onde se deseja ter uma ou mais copias identicas por meio de carbono, preenchimento de formularios e etc.Leia mais...Enquanto os que fazem uso dessa necessaria peca de museu nao a substituirem por impressao laser, termica ou algum tipo de documentacao digital. Empresas como a Epson e suas clonoconcorrentes, bem como os programadores de aplicacoes dedicadas ainda precisam alimentar o mercado e dar o devido suporte.Na hera Jurassic-DOS era sumariamente simples enviar caracteres de controle para a porta-paralela e baseado nos manuais do fabricante (que ja nao existem mais), era possivel ir e vir em cima do papel de bordas perfuradas.Mas hoje com o advento do sistema protegido e seu Simulador DOS ate a porta paralela deixou de existir, hoje mesmo comprei uma Placa Mae sem LPT, fato esse que nao significa nada para quem usa MAC, la ela nunca existiu.Os problemas para usar estas impressoras estao se agravando por 3 motivos:- Esta caindo em desuso;- A lei da procura e da oferta esta elevando muito seu preco- e por ultimo e nao menos importante esta faltando informacoes na internet.Mas chega de filosofia e vamos ao que importa.O maior problema na hora de se emitir um relatorio em formulario continuo esta em dizer para impressora que seu papel e exatamente deste tamanho e que ela nao deve ejetar uma pagina A4 quando terminar de imprimir.Eu descobrir da pior forma que nao precisava de uma unica linha de codigo alem das necessarias para imprimir. E so adicionar a colecao de paginas do servidor de impressao uma pagina no tamanho exato que voce deseja e o spool se encarregara do resto.Va ao seu Painel de Controle e acesse Impressoras e Aparelhos de fax. No menu arquivo clique em Propriedades do ServidorAdicione sua pagina no tamanho que quiser e assim todos os aplicativos irao ter acesso a este modelo. Lembre-se que a largura nao podera exceder a capacidade da impressora.Estou preparando um topico especifico para impressao ja que eu acho que e mais facil imprimir no Realbasic que roubar doce de crianca dormindo.\V/, vida longa e prospera. A Expressao regular e uma poderosa ferramenta de busca de padroes. Desenvolvida por nerdes que nunca tranzaram na vida, e terrivelmente confusa, e vai dar um no nos seus neuronios logo de cara! Entretanto vale a pena o sacrificio, pois os resultados sao incriveis!Embora o RealBasic ja trabalhe com as expressoes regulares, e muito util (e poupa muito codigo) deixar que o MySQL as execute. Vera que e possivel fazer filtragens ate absurdas. Algo como isolar todos os e-mails de um unico provedor e que comesse com "ana" ficaria mais ou menos assim:Leia mais...>... WHERE Campo REGEXP "ana.+\@globo\.[a-z]{3}"E a melhor parte: - Se voce
usa o LIKE nas suas consultas, pode substitui-lo por RLIKE e abolir o por-cento (%), com a vantagem de poder usar as sintaxe regulares para ampliar suas filtragens de consultas. Nao irei mais a fundo por que outros ja o fizeram por mim e merecem todo o credito. Entretanto se quiser ir e se aventurar, a Wikipedia e um bom comeco para entender as expressoes regulares ou, va especificamente ao MySQL se preferir. Temos tambem o Livro Expressoes Regulares - Guia de Consulta Rapida disponivel inteiramente gratis na nete. por Aurelio Marinho Jargas. (ou compre o livro se preferir) Ate a aproxima!
Navegando aleatoriamente pela internet me deparei com este excelente artigo sobre projeto de interface com usuario para programadores. Por Joel SpolskyTraduzido por Rosana de OliveiraVale a pena conferir.Projeto de Interface com Usuario para Programadores Aqui esta uma coisa que me passou despercebido por um longo tempo. Em uma consulta aonde eu preciso consultar 2 valores diferentes em uma mesma tabela, sempre recorria a uma sub consulta (SELECT dentro de SELECT). Ate que, acidentalmente, descobri que era muito mais simples, e estava sempre ali na minha cara. Para ilustrar a ideia vamos montar uma situacao ficticia:Em uma empresa altamente setorizada voce tem um diretor e um vice diretor para cada setor, entre tanto, ambos sao funcionarios e estao cadastrados na mesma tabela Pessoas. E uma tabela de setores so contem o ID de cada um e e necessario exibir o nome dos 2 individuos em uma lista.Ex. com sub consulta. Leia mais...SELECT un.id, f1.nome AS diretor,(SELECT nome FROM pessoas WHERE id = un.pessoa) AS viceFROM unidades AS unLEFT JOIN pessoas AS f1 ON f1.id = un.pessoaE a consulta como devia ser:SELECT un.id, f1.nome diretor, f2.nome viceFROM unidades AS unLEFT JOIN pessoas f1 ON f1.id = un.pessoaLEFT JOIN pessoas f2 ON f2.id = un.diretorNao entrando em questao de performance (que deve levar alguns mili segundos de vantagem), a segunda e bem mais "limpa"Simples! nao e? Dadas as necessidades de resolver alguns problemas, precisei ler bancos de dados no Firebird. Eu suspeitava que nao fosse uma tarefa tao simples, e para completar, ainda esbarrei na vaga documentacao on-line.Em virtude do apelo de uma pessoa que prezo muito, nao irei expressar meu desafeto pelo Firebird neste artigo, apesar de ter esta intencao. Como nao o estudei a fundo, e tambem nao pretendo em funcao de algumas das caracteristicas basicas que ele apresenta, tais como a dificuldade de conexao, banco de dados ser apenas um arquivo em disco entre outras. Tratarei apenas de demonstrar como se estabelece uma comunicacao com este tipo de banco de dados usando o Realbasic e o plugin ODBC. Leia mais...Requisitos: Para comecar, suponho que o Firebird ja esteja instalado em uma maquina que voce tenha acesso (pode ser seu proprio PC ou o servidor da sua empresa que, por algum motivo obscuro optou-se por ele). Eu nao irei mencionar criacao de banco de dados neste artigo, nem tao pouco as sintax SQL, tendo visto que ja fiquei indignado com a falha na minha primeira tentativa (select now() nao funciona)Caso ainda nao o tenha instalado, va em www.firebirdsql.org, la tem tudo que voce precisa saber para instala-lo. Em segundo lugar, voce precisa do drive ODBC especifico para ele. O qual pode ser encontrado em firebirdsql ODBC. Baixe e instale.Em terceiro e tao importante quanto, seu RB deve possuir o plugin ODBC. O qual ja deve existir na pasta ...\Extras\Database Plugins\ODBC aonde esta instalado o RB. E se ainda nao estiver na pasta ...\Plugins, e so copialo e reiniciar o rb. (Eu sei que voce ja sabe disso, mas tem gente q nao sabia!)Bom... Com esses detalhinhos resolvidos vamos nos conectar.Temos 3 metodos simples
para fazer isso.- O primeiro e mais facil e voce ir ao Administrador de Fonte de Dados ODBC e criar um DSN.Na guia Fonte de dados de usuarios, clique em adicionar, na proxima tela (Criar nova fonte de dados) selecione o drive Firebird/InterBase(r) driver, clique em concluir. Na proxima tela (Firebird ODBC Setup), de um nome ao seu DSN (ex: fb_test), depois, localize o banco de dados, que deve ser um fdb ou um gdb. Preencha o Database Accounte com seu login e depois Password (o padrao e SYSDBA e masterkey) (E um saco escrever manual!)Vamos a diante. Agora no Realbasic:Dim db As New ODBCDatabase //Instanciamos o objeto ODBCDim sDSN() as String //String para conter os parametros//e assim q eu uso, pois Array sao sempre mais rapidas q concatenacao,// mas voce pode fazer diferente.sDSN.Append "DSN= fb_test "//Local do seu banco de dadossDSN.Append "Dbname= C:\ Endereco_do_banco\banco_de_dados.GDB"db.DataSource = Join(sDSN,";") //Preciso falar o que o join faz?if db.connect Ten MsgBox Conexao bem sucedida!Else MsgBox Nao foi desta vez! + EndOfLine + db.ErrorMessageEnd if- A proxima conexao nao fara uso de um DSN, o que pode facilitar a distribuicao dos programas(e tambem nao ira criar um DSN automaticamente para voce)Dim db As New ODBCDatabase //Instanciamos o objeto ODBCDim sDSN() as String //String para conter os parametros//Local do seu banco de dadossDSN.Append "Dbname= C:\Endereco_do_banco\banco_de_dados.GDB"//O Nome do drive ODBC que voce instalousDSN.Append "Driver=Firebird/InterBase(r) driver"sDSN.Append "UID=SYSDBA" //UsuariosDSN.Append "PWD=masterkey" //A senha(vc tb pode mandar em MD5 tambem)db.DataSource = Join(sDSN,";")if db.connect Ten MsgBox Conexao bem sucedida!Else MsgBox Nao foi desta vez! + EndOfLine + db.ErrorMessageEnd if- Por ultimo, vamos nus conectar remotamente ao banco de dados (e... isso e possivel sim). Para isso na maquina cliente devera ter o drive ODBC instalado. Mas, nao podemos esquecer que sempre deixam algo de fora. Tem uma Dll de nome fbclient.dll que esta na pasta system32 do servidor e deve ser copiada para o system32 do cliente (aproposito eu estou usando o windows) Ficano do resultado assim:Dim db As New ODBCDatabase //Instanciamos o objeto ODBCDim sDSN() as String //String para conter os parametrossDSN.Append "Driver=Firebird/InterBase(r) driver"sDSN.Append "Dbname=192.168.0.100:/Endereco_do_banco/banco_de_dados.GDB"sDSN.Append "port=3050"sDSN.Append "protocol=TCPIP"sDSN.Append "CHARSET=NONE"sDSN.Append "PWD=masterkey"sDSN.Append "UID=SYSDBA"db.DataSource = Join(sDSN,";")if db.connect Ten MsgBox Conexao bem sucedida!Else MsgBox Nao foi desta vez! + EndOfLine + db.ErrorMessageEnd ifAgora que voce ja se conectou ao Firebird, vamos abrir umas tabelas.Dim rs As RecordSetrs = db.SQLSelect("SELECT * FROM TB_VENDAS")So !Eu adoro estas poucas linhas do RealBasic.Mas ja que sao poucas. Veja tambem como listar todas as tabelas do banco de dados:Dim a As Stringr = db.TableSchemaDo until r.EOF for n as integer = 1 to r.Fieldcount a = a + r.IdxField( n ).Value + " >-> " next a = a + EndOfLine r.MoveNextloopEditField1.Text = aPor hoje e tudo pe pe ssoal!
Nao querendo ser repetitivo, mas ja sendo. Vou apresentar uma rotina para calcular o CPF e CNPJ. So que desta vez tudo em uma coisa so. Eu nao gosto de rotinas extensas muito menos redundantes. Mesmo ja tendo ouvido falar que uma rotina mais extensa se torna mais facil dar manutencao, ainda prefiro olhar varias vezes para um pouquinho de linhas e tentar achar onde esta Wally do que ficar rolando a barra de scroll, ou ainda ficar quicando de uma sub-rotina a outra. Entao procuro fazer uso dos recursos disponiveis e fazer o menor e mais eficiente codigo possivel. Nessa rotina de verificacao eu organizei as sequencias de calculos para serem executadas de uma so vez e de modo a calcular tanto o CPF quanto CNPJ.Leia mais...A primeira atitude tomada por ela e extrair apenas os numeros do CNP, eliminando qualquer outro tipo de caractere. Em seguida verifica se todos os numeros sao iguais, caso positivo ja encerra ali mesmo. Pela quantidade dos digitos limpos saberemos se e um CPF ou um CNPJ, assim uma array e carregada com a sequencia de valores de calculo para cada tipo, e logo em seguida executa-se o calculo. O retorno e verdadeiro ou falso.Dim Nm(),Mt() As Integer Dim i,n As Integer 'ContadoresDim Dv1, Dv2 As Integer 'Digitos de verificacaoDim chek As Boolean = True 'ControleDim vResto As Double 'ResultadoDim s() As Strings = CNP.Split("") 'Separar todos os caracteresFor i = 0 to s.Ubound 'Deixar apenas numeros if IsNumeric(s(i)) Then Nm.Append s(i).valNextFor i = 0 To Nm.Ubound - 2 //numeros iguais: "222.222.222.22" if Nm(i) = Nm(i + 1) Then n = n + 1Nextif n = Nm.Ubound - 1 Then Return False 'Sair se todos os numeros forem iguaisSelect case Nm.Ubound //Pelo tamanho, sabemos se e um cpf ou cnpjCase 10 // CNPF "0 a 10 = 11" Mt = Array(11, 10, 9, 8, 7, 6, 5, 4, 3, 2)Case 13 // CNPJ "0 a 13 = 14" Mt = Array(6, 5, 4, 3, 2, 9, 8, 7, 6, 5, 4, 3, 2)Case Else Return False 'NUMERO NAO E CALCULAVEL end select//Primeiro caltulo nos digitos For i = 0 To Mt.Ubound -1 Dv1 = Dv1 + (Nm(i) * Mt(i + 1)) Dv2 = Dv2 + (Nm(i) * Mt(i))Next//Calcular digito 1 vResto = Dv1 Mod 11chek = vResto > 1Dv1 = (11 - vResto) * Abs(Bin(chek).val) //Calcular digito 2vResto = (Dv2 + (Dv1 * 2)) Mod 11chek = (vResto > 1)Dv2 = (11 - vResto) * Abs(Bin(chek).val)Return (Nm(Nm.Ubound-1) = Dv1) AND (Nm(Nm.Ubound) = Dv2) Oi PessoalTeremos nova atividade no Blog na proxima 2a feira dia 14 de junho. Ate la vamos fazendo os exercicios das apostilas que estao no Portal de acordo com a orientacao na atividade 3.OK?Obs.:Estarei enviando por email a partitura de Ciranda da Lia que nao foi publicada no Portal por causa de direitos autorais. Nos ainda nao conseguimos a autorizacao da compositora para publicar na Internet. 1- 2- 1. Binario2. Minima3. Sol4. Colcheia5. Ritornello6. Mezzo forte7. Travessao simples8. Do si la9. Seminima10. 1 tempo e meio11. Seminima pontuada12. Sol e mi13. Do14.
se sairam no exercicio.Para escrever no blog, clique na palavra comentarios que a caixa para escrever se abre.Para mim e muito importante este retorno de voces pois e em cima disso que eu posso ajudar voces com novas atividades OK?Estou esperandoAbcs