thegoodfellas/blogset-br huggingface dataset:
Boa Noite PessoalDemorei mas finalizei o programa. Abaixo o video do programa.Apos longas tentativas consegui fazer funcionar nosso sistema. Ao acompanhar o video voce vera sendo efetuado dois cadastros de livros e dois cadastro de pessoas.Tambem e feito o emprestimo e a devolucao.Hoje nao irei comentar sobre o programa, apenas deixar o video para voces analisarem como ficou. nos proximos posts estaremos analisando as rotinas.Bom pessoal ate a proxima. To de volta. Chegamos na parte aonde as coisas comecam a se complicar. Chegamos na area do corpo no nosso programa. Nesta area e onde acontece as maiores mudancas do nosso programa. As formatacoes vao depender de cada acao que faremos. Primeiro fiz um pequeno ajuste na nossa area total( antes ia ate a coluna J, porem diminui uma coluna). No ultimo Post eu tinha inserido dois controles na area de controle. Um CADASTRO e outro SAIR. Primeiro iremos criar uma rotina para o controle cadastro. Vamos dividir o corpo do programa em 4 partes. Os codigos referentes a esta area eu vou escrever em um novo modulo.O que vai complicando quando um programa fica muito grande sao os nomes das variaveis e rotinas. Como eu nao sou programador ainda fico um pouco perdido. A rotina vai se chamar cria4areas. A rotina para criar areas ja foi explanada em post anterior. Aqui usamos a mesma cor da area original(17). Cada area recebe uma numeracao de ordem. A proxima rotina mescla cada area e define uma cor. chamarei de cor4areas.e depois alteramos o codigo da rotina areaControlesAgora e so atualizar o nosso programa e testar.Ate a proxima.Se puderem me digam o que estao achando. To de volta pessoal. Agora que finalizamos a base do nosso programa vamos dar uma repassada em VBA/EXCEL. E na medida do possivel vamos melhorar o nosso programa. O Visual Basic for Applications (VBA) e uma implementacao do Visual incorporada em todos os programas do Microsoft Office. Sabe quando voce tem de ficar repetindo uma acao no Excel? Sabe quando voce precisa usar aquela formula mas nao tem no Excel? E quando voce quer apenas deixar a sua planilha mais bonitinha? Pois e o VBA ajuda em tudo isto. E nao e uma linguagem muito complicada, com um pouquinho de tempo voce consegue aprender e fazer um montao de coisas. O que facilita muito o nosso dia a dia. Nos primeiros posts estavamos falando sobre o desenvolvimento do nosso programa gerenciador de qualquer coisa que na verdade nada mais era que uma biblioteca. Como pode ser observado no ultimo post, nosso programa consiste em uma base de dados em uma planilha Excel (BASE) e uma frame na outra planilha (PROGRAMA). Neste programa e executado as rotinas basicas de um gerenciador: Cadastro, Consulta, Retirada(emprestimo) e Devolucao. Sobre esta base podemos fazer uma infinidade de coisas. Um controle de gastos, um controle de itens de casa, um controle de uma lojinha etc... Dependera da disponibilidade de tempo e da imaginacao. O frame usaremos o mesmo. Entao independente do que vamos fazer a nossa tela inicial tera esta aparencia. Podendo variar as cores.
Entao para relembrar, nossa tela inicial e dividida em tres area. Uma para o titulo( preta ), uma para os controles ( roxa ) e outra para os forms( azul). Com dois controles, um para iniciar e outro para sair.No proximo post estarei novamente mostrando como fazemos esta tela.Ate mais pessoal e se quiserem deixe sugestao do tipo de programa que poderemos fazer.
Agora e hora de criarmos o nosso formulario. A principio a ideia era chamar um form para cadastro, como foi mostrado no video do post anterior, porem o Excel deu algumas travadas e eu resolvi usar as celulas da planilha como um formulario. Entao nosso programa ficara assim: Para o formulario, criei alguns moldes ( rotinas ) para os formularios. Ja pensando nos proximos formularios. Abaixo as rotinas comentada.A primeira e a caixa do formulario.A segunda e para o cabecalho.A terceira e o titulo.A quarta e uma caixa de texto(simulado).Agora a montagem do form.E a rotina para inserir os dados no banco de dados Livros. E a rotina para limpar areas do formularioVamos ver como vai ficarE isto ai. Ate a proxima Agora vamos criar a primeira tela para cadastro. Conforme vou desenvolvendo o programa tenho de fazer alguns ajustes em algumas das rotinas ja criadas. A primeira alteracao e na rotina ctltipo1() Repare que eu estava usando a linha ws.Shapes(id), porem isto estava causando alguns conflitos a medida em que eu acrescentava novas shapes. Apos apanhar e pesquisar um pouco achei a solucao, que era usar o proprio objeto criado. Substituindo a linha ws.Shapes(id).Name por art.Name e ws.Shapes(id).onAction por art.OnAction e retirando o parametro id da rotina. Agora vamos a nossa nova rotina a livPrincipal() Primeiro setamos a planilha Programa e criamos as variaveis imagem e i.Set ws = Worksheets("Programa")Dim imagem As VariantDim i As IntegerDepois criamos uma matriz com as shapes existente no corpo do programa e a apagamos. imagem = Array("Livros", "pessoas.png", _ "cds.png", "Pessoas", "Cds")For i = 0 To 4 ' um array se inicia no 0Call limpaShape(imagem(i))NextAgora limpamos a area do corpo, redimensionamos as colunas e movemos a unica shape que ficou para a posicao 150.ws.[corpo].ClearCall colunas(25, 10, 10, 3, 3, 3, 17, 17, 17)ws.[alivros2.png].Left = 150Criamos novas areas.Call criaAreas("Programa", "area5", 3, 5, 2, 30, 3)Call criaAreas("Programa", "area6", 4, 5, 4, 30, 4)Call criaAreas("Programa", "area7", 5, 5, 5, 30, 5)Call criaAreas("Programa", "area8", 6, 5, 6, 30, 6)Call criaAreas("Programa", "area9", 17, 5, 7, 30, 9)Criamos uma nova shape para chamar o formulario.Call ctltipo1("Programa", msoTextEffect11, "Livro", _ 150, 200, "cdtLivro")Por fim colocamos um valor 0 na celula Z1.Outra alteracao que tive de fazer para controle do programa, mas isto explico logo mais.A tela ficara assimNa rotina cor4areas() fiz as seguintes alteracoes abaixo. inclui 5 linhas de codigo. Antes de executar a rotina e testado o valor da coluna Z1, se for igual a 1 ele executa a rotina. Isto serve para evitar que a rotina seja executada repetidamente. Se voce clicar duas vezes na mesma shape. Na rotina saindo() que e executada atraves da shape Sair tambem foi feita uma alteracao. O valor da celula Z1 e alterado para 1 ao final da instrucao. Agora vou colocar o video de como vai ficar o programa ja com o formulario e no proximo post estarei explicando como e feito o formulario e as rotinas usadas. To de volta No post anterior fizemos a divisao das areas no corpo do nosso programa. Agora vamos melhorar um pouco mais. Para isto eu
tive de fazer alguns ajustes. O primeiro foi configurar o tamanho das colunas. Criei a rotina colunas()Esta rotina sera chamada logo apos a criacao das planilhas. A primeira coluna tera o tamanho 25 e as demais 10, totalizando 105. Mais pra frente iremos utilizar mais esta rotina pois teremos de redimensionar as celulas da nossa planilha. Tambem foi preciso alterar a rotina para criacao dos controles. A rotina antes chamada controle() agora chama-se ctltipo1() Alem do nome o que mudou? Coloquei uma condicao para que o item fosse criado, lembrando que esta rotina cria uma shape estilo wordArt. A linha If achaShape(plan,titulo) = 0 then instrucoes end if testa se a shape( objeto ) ja existe, se nao existir executa as instrucoes. Os parametros sao os mesmo ja explicados aquiTambem fiz uma rotina para inserir o objeto imagem. ctltipo2() Os parametros sao:plan - O nome da planilha que vai receber o objeto.figura - o nome da imagem dentro da pasta( eu gosto de usar imagens do tipo .png)h1(horizontal) e v1(vertical) - posicao da imagem em relacao a parte superior ( celula A1).t1 e t2 - tamanho da imagem - "C:\Users\Eli Vieira\Desktop\imagems\" - E o endereco da pasta aonde estao as imagens.Criei esta pasta no desktop chamada imagens para colocar as imagens que iremos usar eu escolhi tres. alivros.png, pessoas.png e cds.png.Agora criamos a rotina para a criacao e posicionamento dos objetos.Criamos 6 imagens. 3 desenhos e tres textos. Nos objetos tipo ctltipo1 e preciso colocar o indice ( 6 parametro), como o Excel faz o indice na ordem que a figura e criada, por isto e preciso saber quantas imagens temos e qual a ordem de criacao. Por enquanto tinhamos 5 ( as duas da area de controle e as 3 que criamos acima). Se nao for tomado este cuidado teremos uma imagem com o nome da outra. Outra alteracao foi a criacao da rotina sair(). Para o nosso objeto de mesmo nome.Foi usado um array para as imagens da area do corpo chamado imagem.imagem = Array("alivros2.png", "pessoas.png", _ "cds.png", "Livros", "Pessoas", "Cds")Uma instrucao For ... Next para apagar estas imagensFor i = 0 To 5Call limpaShape(imagem(i))NextE as instrucoes para a area corpo em si.Call areaTitulo(48, "Gerenciador DQC", 8) - texto na area titulows.[corpo].Clear - Limpa a area corpo, retirando objetos e formatacaows.[corpo].Interior.ColorIndex = 17 - Pinta o fundo da areaws.[corpo].Merge - Mescla as celulas da areaE tambem fiz alteracoes na rotina cor4areas()Aqui cabe destaque para a linha:ws.[corpo].UnMerge - Tira a mescla das celulasAs demais linhas ja nos sao comuns.e a ultima instrucao que chama a rotina objetosCadastroVamos ver como deve ficarE isto ai pessoal. Ate a proxima.
Agora vamos a formatacao da area de controle.Os controles do nosso programa ficara na area lateral.Primeiro temos de formatar a nossa area. Esta formatacao a principio e apenas o tamanho da area.Vamos a nossa sub-rotina. Esta sem parametros.Chamaremos de areaControle.Sub areaControle() - Inicio da nossa rotinaSet ws = WorkSheets("Programa") - A planilha que sera afetadaws.[controles].Select - selecionando a areaWith Selection - iniciando a instrucao para a selecao.Merge - mesclando as celulas.ColumnWidth = 25 - e aqui o tamanho da colunaEnd With - Finalizando a instrucao A principio e isto, porem esta e uma area de controles e precisaremos acrescentar os controles na area. A principio pensei em colocar alguns botoes porem nosso programa tem a caracteristica de se remontar, ou seja, se apagarmos uma planilha ela se refaz com apenas um comando( olha que chique!!!), entao iremos usar uma shape.Shape e uma figura ou um wordArt.Criei uma rotina chamada controle.Nossa rotina tem 7 parametros.plan = A planilha que ficara o controle.estilo = e o modelo de WordArt ( msoTextEffect + numero de 1 a 30)titulo = texto que aparecerax1 = posicao horizontal (da esquerda para direita), quanto maior o numero mais para direita.x2 = posicao ventical ( de cima para baixo), quanto maior mais pra baixo.id = indice da shape - deve ser diferente em cada controlealvo = a macro que sera executada.Outra linha a ser observada e a linha que cria o objeto.set art = ws.Shapes.AddTextEffect - Adiciona um texto de efeito(Word Art)ws.Shapes(id).Name = titulows.Shapes(id).onAction = alvoAgora e voltar pra nossa rotina controle e acrescentar os controles.E isto ai. Ate a proxima Faz muito frio!E quando digo muito frio e muito mesmo!Mas muuuuito!Vem ai um final de semana de pes gelados! Evitando lugares com aglomeracoes (a gripe - a gripe - a gripe)! E pelo jeito preguica!TEMA DE CASA:escrever algo que exija um pouco mais de neuronios!e mais:- processos- leitura de textos- reuniao- aniversario da avo- teatro- cama, coberto de soft laranja, longos suspiros e livropq sera que eu desconfio que nao vai dar tempo de fazer tudo???pq sera que desconfio que o ultimo item tomara a maior parte do tempo? No ultimo sabado a noite foi exibido na Globo o filme O Segredo de Brokeback Mountain.O filme conta a historia de dois homens que vao trabalhar juntos e se descobrem homossexuais, e apartir disso, como eles fazem para lidar com o amor que existe entre os dois e a reacao de uma sociedade que jamais admitiria essa relacao.O filme, na minha humilde opiniao e bom, mas interessante mesmo foi poder observar as reacoes de algumas pessoas sobre o filme.Virou assunto do almoco e da janta de domingo!Ouvi que aquilo nao e hora de certos tipos de obscenidades aparecerem no televisao. O filme comecou por volta de 23:45.Ouvi que aquilo influencia as nossas criancas indefesas e e um absurdo uma "coisa" "daquela" ser mostrada assim, que as pessoas assistem e podem se influenciar!!!(alias... homossexualidade nao e uma doenca, nao e contagiosa e tampouco uma moda que de tanto de falar acaba emplacando!)Eu me pergunto...23:45 e hora de criancas estarem vendo televisao
sem o acompanhamento dos pais?quem deve selecionar o que os filhos devem ou nao assistir?e a melhor... se a cena fosse entre um casal hetero a reacao seria a mesma????Esse puritanismo e preocupacao com as cenas do filme ou e uma reacao assustada ao ver duas pessoas pessoas do mesmo sexo se relacionando???O filme tem cenas que sao fortes, assim como sao fortes algumas cenas de novelas, e nao se fala nada!Alias, e tao assustador assim ver duas pessoas do mesmo sexo juntas? O sera que e diferente? E sera que o diferente e ruim? Ou e apenas uma questao de baixar as armas, deixar o preconceito de lado e compreender que e direito de cada um/a buscar sua satisfacao e felicidade?Ta na hora de parar com a hipocrisia hein!!! E de derrubar tanto preconceito!
Buenas...ate que enfim sai do papel, ou melhor no papel, ou ainda na tela do computador uma ideia, de ideia passa a ser um rascunho!O rascunho de mim mesma, espero que funcione, espero que seja duradouro, espero que eu possa rascunhar ideias para confima-las ou modifica-las!Esse e o espirito, tudo fica as vezes muito confuso no espaco apenas da minha cabeca, passo as ideias para ca e tenho a chance de ama-las ou odia-las e principalemte de modifica-las!Interessante essa proposta de iniciar esse blog no dia 30/12. e uma provocacao a mim mesma... chegar em 2009 com uma novidade a por em pratica!Entao de primeira passada fica por aqui meu desejo para esse ano novo...novidade, desafio e coragem! Muita coragem!Seja bem vinda a si mesma Cristina!Sejam bem vind@s voces que quiserem me acompanhar!HASTA 2009!!! Tem coisas que doem!Essas coisas me apavoram!Tenho tanto medo que a dor chega antecipada, a angustia acaba, muitas vezes, sendo maior do que a propria dor que vem!A dor do medo de sofrer doi mais que a propria dor do sofrimento!engracado isso!(e...ultimamente tenho me sentido como um vendedor trambiqueiro...vendo um pacote firme como um pe-de-moleque e depois da compra o pacote amolece como sorvete fora do gelo!) Essa manha ao acordar pensei...a vida e feliz quando antes de dormir comemos uma trufa de pimenta rosa e acordamos sob um cobertor de soft e dois endredons cheirosos e quentinhos!!! ai ai a temperatura cai em Caxiasa gripe A avanca criando neurose entre as pessoas mas hoje eu definitivamente estou feliz!!!! :D Ontem uma pessoa que leu o ultimo post me fez a seguinte pergunta (sem pe nem cabeca, e verdade): se eu nao achava que estava me intrometendo no direito das minorias, ao defender um direito que e delas? Que eu nao devo me intrometer nisso!Ou seja, como eu sou hetero. devo assistir a massacre de homossexuais de bracos cruzados, eles e elas que se virem!Os homens devem deixar as mulheres serem estupradas, sofrerem todo o tipo de opressao, e nao devem fazer nada, afinal esse nao e um problema deles!Entre tantos exemplos que eu podeia citar!So para lembrar, antes de ser mulher ou homem, branca ou negra, hetero ou homossexual, ainda somos seres humanos!Lembrei imediatamente desse texto:Marcos e gay em San Francisco, negro da Africa do Sul, asiatico na Europa, hispanico em San Isidro, anarquista em Espanha, palestiniano em Israel, indigena nas ruas de San Cristobal, rocker na cidade universitaria, judeu na Alemanha, feminista nos partidos politicos, comunista no pos guerra fria, pacifista na Bosnia, artista sem galeria e sem portfolio, dona de casa num sabado a tarde, jornalista nas paginas interiores do jornal, mulher no metropolitano depois das 22h, campones sem terra, editor marginal, operario sem trabalho, medico sem consultorio, escritor sem livros e sem leitores e, sobretudo, zapatista no Sudoeste do Mexico...(Marcos foi subcomandante na guerrilha Zapatista, foi acusado por um jornal americano de ter trabalhado em um bar gay em Sao Francisco) 01/01/2009comemoracao dos 50 anos da Revolucao Cubana!!!Queria muito estar la! Seria fantastico ver o povo comemorando uma data tao significativa a eles e
a todos/as que percebem o que esse ponto de resistencia significa.E preciso se desprender do discurso formatador que os meios de comunicacao de massa tentam vender e olhar alem.A proposito, 50 anos da revolucao. Uma tentativa de manter uma economia socialista, a historia de um dos maiores lideres revolucionarios. Um local onde saude e educacao sao direito de todos. E quantas reportagens voces viram sobre isso na televisao esse feriado????Talvez os fogos de artificio em Paris ou em Barcelona sejam mais relevantes!!! Talvez... afinal deve ser perigoso e subversivo ver que as pessoas comemoram essa data.Eu, quando olho para Cuba, olho com sorriso no rosto.Eu nunca estive la (infelizmente, mas um dia irei!!!), nunca vi aquela realidade de perto, mas ja ouvi relatos de quem esteve, relatos que so aumentam meu desejo que conhecer esse lugar e minha admiracao por esse povo.(a quem esteja lendo e pensando...que ingenua...respondo...ingenua talvez, nao boba...nem tudo sao flores, mas me apresente algo que seja!!!)Hasta!
Nao vou falar muito a respeito do conflito no Oriente Medio. Ja se tem falado isso a exaustao.Nao ha muito o que se dizer, nao ha o que se argumentar, diante da barbarie pouco se pode explicar!O que mais me doi quando leio, quando vejo imagens desse conflito todo e a estupidez!Em uma guerra dois exercitos se enfrentam e as mortes sao consequencia de um conflito, ainda que sem sentido! Ainda que nem um lado jamais saia vitorioso de uma guerra onde se perdem vidas!Mas ATENCAO o que esta acontecendo em Gaza nao e uma guerra! E um massacre onde um lado tem todo o poder, toda a forca e para o outro so sobram a dor e os mortos. Perdoem o desabafo, mas e que realmente me doi muito saber de tudo isso! E saber que aquela e a terra do Homem que so queria que as pessoas entendessem o sentido do amor!Nao vou entrar no debate sobre as razoes do conflito. Muito ja estao fazendo isso. Alguns se encarregam de defender veementemente Israel. Talvez essas pessoas possam explicar porque o predio da ONU, universidades, escolas e casas de civis estao sendo bombardeadas!Talvez... Eu gosto de politica!E nao adianta vir me dizer que sou chata! Que esta desacreditad@!Quem desiste da luta deixa espaco para is que nao lutam mas tambem nao desocupam o lugar!Ah...desculpe tambem te decepcionar, mas qualquer acao e politica! Ate nao fazer acao nenhuma ta!Quem fica em silencio deixa a voz dos que estao falando gritar!E por isso que eu gosto de politica!Ah...e caso nao esteja bem claro vou de Dilma dia 31!:D O silencio as vezes e esconderijo! Palavras as vezes sao perigosas!Expor-se em linhas de pensamento exige coerencia, mas e se nao consigo ser coerente nem com meus pensamentos, nem com minhas alegrias e dores, escondo-me!Tanto a falar, pouco a dizer!Parar para pensar as vezes pode ser assustador!CORAGEM! Para ser aquilo que ainda nao se e, mas que se quer ser!!! Por Chico AlencarA humanidade, em sua ainda recente caminhada na Terra, foi estabelecendo normas de convivio. Tanto para legitimar o dominio dos fortes sobre os fracos quanto para sobreviver com um minimo de civilidade. No Brasil, o Estado laico tem raizes culturais na tradicao greco-romana e judaico-crista. Por isso, quando cresce o clamor por controles sobre a atuacao das autoridades publicas, nao e arcaico revisitar o capitulo 20 do Livro do Exodo, do Antigo Testamento biblico, escrito no ano 1.250 antes de Cristo. Ali, Jave/Deus, que faz sair seu povo da casa da escravidao, oferece a Moises um decalogo de principios. Sao imperativos e proibicoes que orientaram uma pratica de vida que, atualizada, pode inibir a sucessao de transgressoes a moralidade publica, corriqueira em nossa politica contemporanea. A releitura dos Dez Mandamentos ha de ser util a qualquer um de nos que temos mandatos e estamos cingidos aos preceitos constitucionais da legalidade, impessoalidade, moralidade, publicidade e eficiencia:1. AMARAS A PROMOCAO DO BEM COMUM, e nao dos seus bens patrimoniais bezerros de ouro da prosperidade particular -, com todo o teu coracao e entendimento;2. NAO PRONUNCIARAS
A EXPRESSAO INTERESSE PUBLICO EM VAO, confundindo-a com a idolatria dos negocios privados;3. GUARDARAS NITIDA SEPARACAO ENTRE DEDICADO TRABALHO E SALUTAR DESCANSO, desfrutando deste sem nenhuma vantagem indevida ou mimo interessado derivado daquele;4. HONRARAS TODOS OS ANTECESSORES QUE, na vida publica, PRATICARAM A HONESTIDADE, o servico, a defesa de causas de justica para as maiorias desvalidas;5. NAO MATARAS A ESPERANCA DO POVO com praticas que degeneram o sentido maior da politica, corrompendo-a pelo poder dissolvente do dinheiro e da hipocrisia;6. NAO COMETERAS ATOS DE PROMISCUIDADE ENTRE O PUBLICO E O PRIVADO ao manter relacoes impublicaveis de intimidade com aqueles que tem interesses em contratos do Estado;7. NAO ROUBARAS O ERARIO, em nenhuma das variadas e inventivas formas que a corrupcao sistemica criou: trafico de influencia, compras sem licitacao, isencoes fiscais sem criterio, polpudas doacoes de campanha com retorno em obras publicas superfaturadas;8. NAO DARAS FALSO TESTEMUNHO nem obrigaras sua assessoria de imprensa a mentir para esconder viagens e relacoes que nao resistem a transparencia e aos criterios da moralidade administrativa;9. NAO COBICARAS, fascinado pela ascensao a vida de luxo e prazeres, O QUE NAO TE PERTENCES, nem daras a teus conjuges, parentes consanguineos diretos ou amigos privilegios e oportunidades que nao sao oferecidas as pessoas comuns;10. ZELARAS COM RIGOR MAXIMO PELO PATRIMONIO PUBLICO sobre o qual tens mandato temporario e que transitoriamente gerencias.
Camara de Compensacao do Norte (composta pelos estados do Amapa, Maranhao, Para, Piaui e Tocantins), ficou determinado que o Maranhao repassasse ao Piaui o valor de R$ 4.820.000 por ano para atendimento da populacao maranhense em municipios piauienses. A partir de 2004, este recurso, que vem sendo descontado do teto do estado do Maranhao, foi incorporado ao teto do municipio de Teresina, com o mesmo objetivo de garantir o atendimento medico da populacao daquela regiao.Havera uma reuniao extraordinaria da CIB para definir como os pagamentos dos atendimentos futuros feitos em municipios piauienses deverao acontecer.Fonte: GOV-MA