Seja Bem Vindo(a)

Seja Bem Vindo(a)

Nunca é tarde demais


Neste blog encontrará matéria relacionada a fenômenos corriqueiros e paranormais, alienígenas, filmes, mapa estelar, músicas, religião, livros, palestras, astrologia, astronomia, ciência e espiritualidade.

Agradeço as pessoas que dê várias partes do planeta visitam meu blog: Brasil - Estados Unidos - Rússia – Bielorrússia - Croácia - Letônia - República Tcheca - Itália - Portugal - Alemanha – Suíça - Áustria - Suécia - Noruega - França - Luxemburgo - Irlanda - Bélgica - Grécia - Dinamarca - Ilhas Faroe - Espanha - México - Reino Unido - Holanda - Nova Zelândia - Austrália - Canadá - Ucrânia - Moldávia - Sérvia - Albânia - Hungria – Turquia - Índia - Romênia - Polônia - Japão – China - Coreia do Sul - Vietnã - Hong Kong - Indonésia - Tailândia - Haiti - Malásia - Filipinas - Argentina - Peru - Chile - Bolívia - Guiana Francesa - Paraguai - Venezuela - Colômbia - Nicarágua - Egito - Emirados Árabe Unidos - Angola - Moçambique - Cabo Verde - Quênia - Argélia.




Aqui poderá fazer sua numerologia gratuita, saberá sobre previsões para o planeta, descobrirá como manter seu computador livre de vírus, poderá calcular distância entre cidades brasileiras, testar a velocidade de conexão, além de aguçar o bom humor com algumas piadas.




Também aprenderá como criar e manter um campo magnético que conduz a saúde física, mental e espiritual.




Agradeço sua visita, deixe seu recado. Abraços, Oswaldo.


segunda-feira, 18 de março de 2013

Manutenção do pc - do computador - limpar registro e eliminar vermes

Como dividir uma imagem em partes iguais usando picture e image - visual studio 6 - visual basic



SEGUE ABAIXO O CÓDIGO PARA QUEM TRABALHA COM O VISUAL STUDIO E O VB.

Dim X1, Y1, Width1, Height1, X2, Y2, Width2, Height2
--------------------------------------------------------------------------------------------------
Private Sub Command1_Click()

X1 = 0: Y1 = 0: X2 = 0: Y2 = 0
Width1 = 800: Height1 = 800
Width2 = Image2.Width / 8: Height2 = Image2.Height / 6 ' variável ued e ait

Shape1.Top = Y2: Shape1.Left = X2
Shape1.Width = Image1.Width / 8: Shape1.Height = Image1.Height / 6

Label9 = X1
Label10 = Y1
Label11 = X2
Label12 = Y2
Label13 = Width1
Label14 = Height1
Label15 = Width2
Label16 = Height2

Picture1.Cls
Picture1.PaintPicture Image1, X1, Y1, Width1, Height1, X2, Y2, Width2, Height2

End Sub
--------------------------------------------------------------------------------------------------
Private Sub Command10_Click()
X2 = X2 + 100: VAI
Label13.Caption = X2
End Sub
--------------------------------------------------------------------------------------------------
Private Sub Command11_Click()
X2 = X2 - 100: VAI
Label13.Caption = X2
End Sub
--------------------------------------------------------------------------------------------------
Private Sub Command12_Click()
Y2 = Y2 + 100: VAI
Label14.Caption = Y2
End Sub
--------------------------------------------------------------------------------------------------
Private Sub Command13_Click()
Y2 = Y2 - 100: VAI
Label14.Caption = Y2
End Sub
--------------------------------------------------------------------------------------------------
Private Sub Command14_Click()
Width2 = Width2 + 100: VAI
Label15.Caption = Width2
End Sub
--------------------------------------------------------------------------------------------------
Private Sub Command15_Click()
Width2 = Width2 - 100: VAI
Label15.Caption = Width2
End Sub
--------------------------------------------------------------------------------------------------
Private Sub Command16_Click()
Height2 = Height2 + 100: VAI
Label16.Caption = Height2
End Sub
--------------------------------------------------------------------------------------------------
Private Sub Command17_Click()
Height2 = Height2 - 100: VAI
Label16.Caption = Height2
End Sub
--------------------------------------------------------------------------------------------------
Private Sub Command18_Click()
End
End Sub
--------------------------------------------------------------------------------------------------
Private Sub Command19_Click()
Dim R, F

If Line2(0).Visible = True Then R = "False" Else R = "True"

For F = 0 To 6
Line2(F).Visible = R
Next

For F = 0 To 4
Line3(F).Visible = R
Next


End Sub
--------------------------------------------------------------------------------------------------
Private Sub Command2_Click()
X1 = X1 + 100: VAI
Label9.Caption = X1

End Sub
--------------------------------------------------------------------------------------------------
Private Sub Command3_Click()
X1 = X1 - 100: VAI
Label9.Caption = X1
End Sub
--------------------------------------------------------------------------------------------------
Private Sub Command4_Click()
Y1 = Y1 + 100: VAI
Label10.Caption = Y1
End Sub
--------------------------------------------------------------------------------------------------
Private Sub Command5_Click()
Y1 = Y1 - 100: VAI
Label10.Caption = Y1
End Sub
--------------------------------------------------------------------------------------------------
Private Sub Command6_Click()
Width1 = Width1 + 100: VAI
Label11.Caption = Width1
End Sub
--------------------------------------------------------------------------------------------------
Private Sub Command7_Click()
Width1 = Width1 - 100: VAI
Label11.Caption = Width1
End Sub
--------------------------------------------------------------------------------------------------
Private Sub Command8_Click()
Height1 = Height1 + 100: VAI
Label12.Caption = Height1
End Sub
--------------------------------------------------------------------------------------------------
Private Sub Command9_Click()
Height1 = Height1 - 100: VAI
Label12.Caption = Height1
End Sub
--------------------------------------------------------------------------------------------------
Private Sub VAI()

Picture1.Cls
Picture1.PaintPicture Image1, X1, Y1, Width1, Height1, X2, Y2, Width2, Height2

Shape1.Top = Y2 / 2: Shape1.Left = X2 / 2

Shape1.Width = Image1.Width / 8: Shape1.Height = Image1.Height / 6

End Sub
--------------------------------------------------------------------------------------------------
Private Sub Form_Load()

X1 = 0: Y1 = 0: X2 = 0: Y2 = 0

Width1 = 800: Height1 = 800
Width2 = Image2.Width / 8: Height2 = Image2.Height / 6

Shape1.Top = Y2: Shape1.Left = X2

Shape1.Width = Image1.Width / 8: Shape1.Height = Image1.Height / 6

Image1.Picture = Image2.Picture

X1 = X1 - 100

VAI

End Sub

sábado, 9 de março de 2013

SUA NUMEROLOGIA FEITA DE FORMA GRATUITA

CLIC  NA  IMAGEM  PARA   VER  O  FILME



 




PARA  SOLICITAR  SUA  NUMEROLOGIA  GRATUITA:

1- Clic respondondendo esta postagem (aqui no local onde você pode deixar comentário), colocando seu primeiro nome ou pseudônimo com o pedido de sua numerologia.

2- Mande email para bovettoretti@hotmail.com com os seguintes dados:

A - Nome completo de batismo (nome do primeiro registro em cartório). Não pode ser nome alterado como o nome de casamento.

B - Data de nascimento (dia - mês - ano)

C - Nome ou apelido de como é conhecido(a).

O texto da numerologia corresponde a aproximadamente 4 paginas do Word.

-----------------------------------------------------------------------------------

ESTA  POSTAGEM  NÃO  TEM  OBJETIVO  LUCRATIVO  E  NEM  PUBLICITÁRIO.



BREVE  HISTÓRIA  DESTE  PROGRAMA (SOFTWARE)


Em 1990, procurado por diversas grávidas em busca de ajuda na escolha do melhor nome para a criança, fui obrigado a criar este programa, pois a demanda tinha se tornado grande e eu já não vencia o tempo requisitado.



Depois de analisar mais de 30 livros que tratavam do assunto “numerologia”, montei os textos editados em “programação pura”, pois na época não havia editor de texto especializado. 

Também na época a ortografia era diferente e não havia corretor de texto.



Contudo, ainda hoje esse programa é considerado o mais assertivo e completo programa de numerologia.



Já foi comercializado em lojas e departamentos de diversos ramos, shoppings, etc...; hoje eu o coloco em meu blog e você o tem como presente “por tempo limitado”.


Na totalidade ele apresenta alguns módulos que aqui exponho:

1-    Numerologia baseada no nome do primeiro registro.

2-    Numerologia baseada na data de nascimento.

3-    Numerologia baseada na forma de como lhe chamam.

4-    Iching (do amor) – milenar sabedoria chinesa que vai responder suas perguntas em relação a pessoa amada, “seja ela quem for”.

5-    Seu grau de espiritualidade e até mesmo seu tempo de existência espiritual (antigo(a) ou jovem), baseado na sabedoria Maia.

6-    Vidas passadas – deixo claro que isso não é numerologia e não foi estudado por mim, coloquei apenas a título de curiosidade, não há indícios de que exista realidade nas afirmações.

Ainda original, o programa não possui corretor de texto e nem formatação, por isso, ao adquiri-lo (o texto), recomendo que copie e cole no Word ou outro editor. Dessa maneira poderá ler com maior facilidade.

Quero deixar claro que o índice geral de acerto é superior a 90%, isso varia de pessoa para pessoa, pois além do fator numerológico, existem muitos outros fatores que determinam as características e personalidade do indivíduo.

Caso não saiba, seu Ano Novo inicia na data de seu aniversário, apresentando 9 ciclos.

A numerologia é feita por mim, pessoa por pessoa, individualmente.

Deixe aqui seu recado, será sempre bem vindo.

Sem mais considerações,

Abraços, Oswaldo.
 

terça-feira, 5 de março de 2013

FAMÍLIA DE GIOVANNI VETTORETTI E AMIGOS

Giovanni  Vettoretti (meu avô) - filho de Valério Vettoretti  e Rosa Giuseppina Sartori, neto de Gio Battista Vettoretti e Perina Sartori.
Nasceu em Oderzo a 07/07/1882, na via Comunale di Faè  nº8, Vêneto, região de Treviso.
Imigrou  para o Brasil em 1888,  com 6 anos de idade.
Embarcou com os pais no porto de Genova a bordo do vapor Plata.
Desembarcou no porto de Santos em 04/02/1888.
Gionanni teve seu sobrenome alterado: de Vettoretti para Vittoretti, isso influênciou no registro de seus descendentes que passaram a usar o sobrenome de Vittoretti.
Também seu nome foi alterado, de Giovanni para João, como era popularmente chamado.
Então Giovanni Vettoretti e João Vittoretti é a mesma pessoa, é membro da família Vettoretti  assim como seus descendentes que ainda tem o sobrenome de Vittoretti.
Na cidade de Redenção da Serra, Giovanni exerceu a função de prefeito, delegado, montou a empresa de onibus Redenção da Serra, fabrica de esteiras, de farinha e outras.


Ziza - Adalgiza Vettoretti - minha tia
Anita Vettoretti e Armando Vettoretti (meus primos)
Anita Vettoretti e Armando Vettoretti
Anita Vettoretti
Armando Vettoretti
Eu - baile de formatura
Eu - baile de formatura
Eu - Fernando meu irmão - minhas primas e minha avó Luzia
Eu
Eu
Eu
Casamento de Oswaldo Vettoretti
Daniella Vettoretti - minha filha


Minhas filhas - Graziella - Daniella - Natacha.


Em pé: sr. Eduardo (meu amigo) e Giovanni Vettoretti
Casamento de Benedito Vettoretti com Marlene- Giovanni Vettoretti e Rizoleta Vettoretti
Meu irmão Fernando Vettoretti (menor) e Eu
Oswaldo Vettoretti e Leotriz
Meus pais
Leotriz e eu
Minha avó Luzia e eu
Oswaldo Vettoretti
Oswaldo Vettoretti
Oswaldo Vettoretti
Oswaldo Vettoretti e amigo
Oswaldo Vettoretti e amigos
Oswaldo Vettoretti e amigos
Oswaldo Vettoretti e amigos
Oswaldo Vettoretti
Oswaldo Vettoretti e amigos
Oswaldo Vettoretti e amigos
Oswaldo Vettoretti e amigos
Oswaldo Vettoretti e amigos
Oswaldo Vettoretti e amigos
Oswaldo Vettoretti e amigo
Oswaldo Vettoretti - Adalgiza Vettoretti e amiga
Oswaldo Vettoretti (goleiro) e amigos do time de Redenção da Serra
Oswaldo Vettoretti em momento de trabalho
Oswaldo Vettoretti dentro da jardineira
Oswaldo Vettoretti trabalhando na empresa de onibus
Oswaldo Vettoretti e irmão - Benedito Vettoretti
Rizoleta Vettoretti e filha: Adalgiza Vettoretti
Minha avó Rizoleta Vettoretti em Redenção da Serra
Eu - minha mãe e minhas filhas
Eu e o Genoino em São José dos Campos

Eu, Genoino e equipe em São José dos Campos

Eu em São Sebastião

Eu e Genoino em São Sebastião

Eu, Genoino e equipe em São Sebastião.
Eu ao fundo - Genoino - Deputado Marco Aurélio e sua Esposa em Jacareí
Eu - Genoino e equipe em São José dos Campos.