Luis Antonio Ferreira
Brasileiro - Solteiro - 21 Anos
Rua Eduardo Ferreira França, 928.
Saúde - São Paulo
Fone: 5073-8976 ou 8114-4646
E-mail: luisferreira@mandic.com.br
Síntese das Qualificações
" Web Master (Administração, Implementação
e Projeto em Programação e Banco de Dados).
" Principais Tecnologias (ASP, Visual Basic, Flash Mx, Java Script, VB Script,
SQL Server, My SQL, Access, Windows 2000).
Experiência Profissional
Empresa Ricardo Botelho Marketing.
Admissão 01 de novembro de 2001
Atuo como Web Master desenvolvendo programas administrativos na intranet da
empresa e projetando e desenvolvendo soluções para clientes voltados
a área de Decoração e Arquitetura com programas de fidelidade
para empresas como Philips, ABD, Núcleo de decoração, Deca
entre outras.
Empresa Primicia Indústria e Comércio ltda.
Admissão 09 de novembro de 2000
Saída 31 de Outubro de 2001
Atuei diretamente na confecção do layout da página para
os consumidores finais, administrei o Site de Vendas para os lojistas da Primicia,
fazendo e-mail marketing com promoções prestando suporte aos lojistas,
chegando a representar 10% no faturamento mensal da empresa.
Empresa Big Company Web Solutions
Admissão Free-lance - Setembro de 1999
Atuo como free-lance na confecção de home pages
para pequenas e médias empresas.
Portfólio
Últimos trabalhos realizados:
www.espacosparaeventos.com.br, www.nucleodecoracao.com, www.abd.org.br, www.abiplar.com.br,
www.abd.org.br/hotviverbem, www.sonicseguros.com.br , www.gosh.com.br , www.rottaseguros.com.br,
www.firmacasa.com.br
O portfólio completo, encontra-se no meu site: www.luisferreira.com.br
Formação Acadêmica
Graduação em Criação e Desenvolvimento
de web Sites na Universidade Anhembi Morumbi
Conclusão em 2003
Idiomas
Inglês - Técnico
Espanhol - Básico
Treinamentos Realizados
Especialização em Internet
Programação
Treinamento Local de realização
Lógica de Programação Visual Impacta Tecnologia
ASP Impacta Tecnologia
Java Script Impacta Tecnologia
Programando o MS Sql Server 2000 MOC 2330 Impacta Tecnologia
Action Script (Flash MX) ENG
Dreamweaver Ultradev Impacta Tecnologia
PHP Uni. Anhembi Morumbi
Visual Basic 6 - Essential Impacta Tecnologia
Visual Basic 6 - Client Server Impacta Tecnologia
HTML Impacta Tecnologia
Designer
Treinamento Local de realização
Criação e Designer Impacta Tecnologia
Dreamweaver com DHTML Impacta Tecnologia
Fireworks Impacta Tecnologia
Adobe Photoshop Impacta Tecnologia
Flash MX (Básico, Avançado e Programado) ENG
Treinamentos em Sistemas Operacionais
Treinamento Local de realização
Conceitos básicos do Windows 2000 e de redes MOC 2151 Ka Solutions
Implementando o Windows 2000 Professional e Server. MOC 2152 Ka Solutions
Introdução ao Linux Utah Linux Center
Administração de Sistemas Linux Utah Linux Center
Administração de Redes Linux Utah Linux Center
Administração de Servidor Linux Utah Linux Center
Últimos trabalhos realizados:
www.espacosparaeventos.com.br
Tecnologias utilizadas:
ASP, MS SQL Server.
www.abd.org.br
Tecnologias utilizadas:
ASP, MS SQL Server, Flash, Fireworks, Photoshop.
Estes são alguns dos meus trabalhos, já desenvolvi muitos outros
inclusive um catálogo eletrônico 100% em Flash MX com integração
ao ASP e Ms SQL Server mas o mesmo não posso colocar aqui pois ele é
restrito a usuários cadastrados no programa de CRM da Philips Lighting
Brasil e administrado pela empresa que atualmente trabalho a Ricardo Botelho
Marketing.
Outros trabalhos realizados:
Abiplar - www.abiplar.com.br
Firma Casa - www.firmacasa.com.br
GOSH - www.gosh.com.br
MC Line - www.mcline.com.br
Núcleo de Decoração - www.nucleodecoracao.com.br
Rotta Seguros - www.rottaseguros.com.br
ShoppingVirtual.net - www.shoppingvirtual.net
Sonic Seguros - www.sonicseguros.com.b
Desenvolvo soluções criadas para satisfazer as necessidades específicas dos meus clientes concebendo e implementando soluções de negócios completas. Confira algumas:
Banco de dados
Planejamento, Manutenção e Desenvolvimento de banco de dados relacionais.
Database Marketing
Organização e gerenciamento de Bancos de Dados, desde a simples
formação de mailings até o sofisticado processo de qualificação
de registros.
Desenvolvimento de sistemas
Consultoria, Desenvolvimento/Integração e Manutenção
de sistemas para atender e automatizar as necessidades dos Clientes.
Intranet
Consultoria, Desenvolvimento/Integração e Manutenção
de intranets para atender e automatizar as necessidades dos Clientes.
Webmarketing
Os serviços incluem a criação de sites e, principalmente,
a definição de estratégias de atuação e divulgação
dos Clientes no meio Internet.
Com intuito de criar tráfego tornando seu site mais atraente e efetivo,
elaboro alguns métodos como, captação de e-mails, criação
de newsletters eletrônicas, cadastro em sites de busca e campanhas em
portais como Banners ou campanhas especiais.
Outra atividade é o desenvolvimento de leilões, cursos e eventos
via Internet.
Websites e Hot Sites
Institucionais, Produtos e Serviços (B2C - Comércio Eletrônico)
e também projetos com Painel para gerenciamento total do site.
rTitulo=Validar Data dd\mm\yyyy C#|TOP 2 de cada produto|Crie um gráfico de barras no braço! Puro código VB6!|Função para tirar acentos VB.NET|Criar Tabela Access Via Código|FLASH MX - Play ao contrario timeline reverse|Renomear Todos JPGS de Uma Pasta para arquivos de nome sequencial em outra pasta|Checar se tem duplicidade em um Array| LISTA DE KEYCODES - VB.NET E VB6|Migrar Path fisico banco SQL Server|Função para ASP e VB para remover ascentos|Replace para VBA e VB5|Quebra de Página para Impressão em ASP|Classificar um array em ordem alfabética|Função para ASP E VB para tirar ascento de uma palavra|Função para ASP E VB para Abreviar Nomes|Função para ASP e VB para formatar data|Exportar tabelas do Access para txt|Procurando um campo em todas as tabelas do Access|Mais um exemplo interessante de como gerar senhas aleatórias VB e ASP|Galeria de imagens sensacional em Flash Imagevue|Banco de dados Access (.mdb) corrompido|Gerar Chave Única Alfanumérica|Busca Fonética Soundex Para VB e ASP|Função Replace para VBA|Como Atualiza de null para 0 multiplas coluna de uma tabela|Como Separar as palavras de uma string em ASP|Spectrum Sound Analyzer|O que significa Developer Log?&Data=03.11.2005 22:55:37|17.08.2005 11:00:51|10.05.2005 20:29:53|11.12.2004 00:09:13|10.11.2004 12:15:04|05.11.2004 21:46:42|25.10.2004 21:48:44|25.10.2004 20:12:12|19.10.2004 21:09:18|15.09.2004 11:52:23|10.09.2004 19:12:24|30.08.2004 16:27:15|19.08.2004 23:56:22|18.08.2004 23:44:36|05.08.2004 19:30:19|05.08.2004 19:30:17|22.07.2004 18:45:09|13.05.2004 23:31:35|13.05.2004 23:31:14|15.04.2004 01:45:01|27.03.2004 16:52:21|27.03.2004 16:45:38|11.03.2004 11:44:33|07.02.2004 02:12:59|07.02.2004 02:08:23|22.01.2004 21:44:30|19.01.2004 20:01:11|26.11.2003 01:52:12|24.11.2003 22:54:02&Post=using System.Globalization;
private bool IsDate(string date)
{
bool ret = false;
try
{
CultureInfo info = new CultureInfo("pt-BR");
DateTime birthDate = DateTime.ParseExact(date, "dd/MM/yyyy", info);
ret = true;
}
catch (System.FormatException)
{
// Ignora
}
return ret;
} |Select OrderId, ProductId, UnitPrice, Quantity, Discount
FROM [order details] AS OD
WHERE OrderID IN
(
SELECT TOP 2 OrderID
FROM [order details] AS OD2
WHERE OD2.ProductID = OD.ProductID
ORDER BY OrderID DESC
)
ORDER BY ProductID
Fonte: http://br.thespoke.net/MyBlog/Luti/MyBlog.aspx|'ponha nas declarations
Dim Credts(0 To 11) As Variant
Dim Debts(0 To 11) As Variant 'isto é um array que vc pode criar n deles
'cole isto no form que vc tem e crie um picturebox, renomeando o mesmo como "P" e mudando sua propriedade autoredraw para true
Sub dISPLAY_BARS(nCATEGORY As Integer, values(), Nseries As Single, Maximum As Single)
Const separation = 25
Dim series As Integer, cat As Integer
catwidth = 100 / nCATEGORY
barwidth = catwidth * (100 - separation) / (100 * Nseries)
p.FillStyle = 0
For cat = 1 To nCATEGORY
p.CurrentX = catwidth * cat - catwidth / 2 - (barwidth * Nseries) / 2
For series = 1 To Nseries
p.CurrentY = 0
p.FillColor = GoodColor(series)
p.Line Step(0, 0)-Step(barwidth, values(cat, series) * 100 / Maximum), , B
Next series
Next cat
End Sub
Sub display_grid(Title As String, nCATEGORY As Integer, description() As String, nvalues As Integer, maxvalue As Single)
Dim I As Integer
p.Scale (-15, 120)-(140, -15)
p.CurrentX = (100 - p.TextWidth(Title)) / 2
p.CurrentY = 105 + p.TextHeight(Title)
p.Print Title
p.Line (0, 0)-(0, 100)
p.Line (0, 0)-(100, 0)
For I = 1 To nvalues
p.DrawStyle = 0
YVALUE%25 = 100# * I / nvalues
p.Line (-1, YVALUE%25)-(0, YVALUE%25)
p.DrawStyle = 2
p.Line (-1, YVALUE%25)-(100, YVALUE%25)
Value$ = Format$((maxvalue * I / nvalues), "##.#")
p.CurrentX = -3 - p.TextWidth(Value$)
p.CurrentY = YVALUE%25 + p.TextHeight(Value$) / 2
p.Print Value$;
Next I
For I = 1 To nCATEGORY
p.DrawStyle = 0
XVALUE = 100 * I / nCATEGORY
p.Line (XVALUE, 1)-(XVALUE, 2)
p.CurrentY = -2
p.CurrentX = XVALUE - 50 / nCATEGORY - p.TextWidth(description(I)) / 2
p.Print description(I)
Next I
End Sub
Sub display_Legend(Nseries As Integer, Sname() As String)
p.FillStyle = 0
THEIGHT%25 = p.TextHeight(Sname(1))
StartY = 50 + (THEIGHT%25 * 1.5 * Nseries) / 2
For series%25 = 1 To Nseries
p.FillColor = GoodColor(series%25)
p.Line (102, StartY)-Step(8, -THEIGHT%25), , B
p.CurrentY = StartY - THEIGHT%25
p.CurrentX = 112
p.Print Sname(series%25)
StartY = StartY - THEIGHT%25 * 1.5
Next series%25
End Sub
'
Sub displaygrap(MAX_VALUE As Single, Credts(), Debts(), Ano As String)
Const CATEGORIEs = 12
Const series = 2 ' isto significa que tenho duas linhas verticais (crédito e outra débito)
p.Cls
Static Desc$(CATEGORIEs), values(CATEGORIEs, series), SERIES_NAMES$(series)
Desc$(1) = "Jan"
Desc$(2) = "Fev"
Desc$(3) = "Mar"
Desc$(4) = "Abr"
Desc$(5) = "Mai"
Desc$(6) = "Jun"
Desc$(7) = "Jul"
Desc$(8) = "Ago"
Desc$(9) = "Set"
Desc$(10) = "Out"
Desc$(11) = "Nov"
Desc$(12) = "Dez"
display_grid "Relação Crédito x Débito por mês de " %26 Ano, CATEGORIEs, Desc$(), 5, MAX_VALUE
values(1, 1) = Credts(0): values(1, 2) = Debts(0)
values(2, 1) = Credts(1): values(2, 2) = Debts(1)
values(3, 1) = Credts(2): values(3, 2) = Debts(2)
values(4, 1) = Credts(3): values(4, 2) = Debts(3)
values(5, 1) = Credts(4): values(5, 2) = Debts(4)
values(6, 1) = Credts(5): values(6, 2) = Debts(5)
values(7, 1) = Credts(6): values(7, 2) = Debts(6)
values(8, 1) = Credts(7): values(8, 2) = Debts(7)
values(9, 1) = Credts(8): values(9, 2) = Debts(8)
values(10, 1) = Credts(9): values(10, 2) = Debts(9)
values(11, 1) = Credts(10): values(11, 2) = Debts(10)
values(12, 1) = Credts(11): values(12, 2) = Debts(11)
dISPLAY_BARS CATEGORIEs, values(), series, MAX_VALUE
SERIES_NAMES$(1) = "Créditos"
SERIES_NAMES$(2) = "Débitos"
display_Legend series, SERIES_NAMES$()
End Sub
Function GoodColor(X) As Long
If X = 0 Then
GoodColor = QBColor(8)
ElseIf X = 1 Then
GoodColor = QBColor(10)
ElseIf X = 2 Then
GoodColor = QBColor(12)
ElseIf X = 3 Then
GoodColor = QBColor(14)
End If
End Function
'coloque isto no form Load
Private Sub Form_Load()
For I = 0 To 11
Credts(I) = Int(Rnd * 100) ' numero randomico
Debts(I) = Int(Rnd * 100)
Next
displaygrap 100, Credts, Debts, "2003"
End Sub
FONTE: www.vbweb.com.br|Public Function SemAcento(ByVal sTexto As String) As String
'Return sTexto
Dim sComAcento As String = "ÄÅÁÂÀÃäáâàãÉÊËÈéêëèÍÎÏÌíîïìÖÓÔÒÕöóôòõÜÚÛüúûùÇç"
Dim sSemAcento As String = "AAAAAAaaaaaEEEEeeeeIIIIiiiiOOOOOoooooUUUuuuuCc"
Dim i As Integer
For i = 1 To sComAcento.Length
sTexto = sTexto.Replace(Mid(sComAcento, i, 1).ToString(), Mid(sSemAcento, i, 1).ToString())
Next
Return sTexto
End Function|%26lt;!--#include file="include/global.asp"--%26gt;
%26lt;%25
Dim sSql
sSql = "CREATE TABLE Tb_Log (CodRegistro AUTOINCREMENT PRIMARY KEY, CodEquipe Integer,Tipo Varchar(255), Pagina Varchar(255), Data Varchar(255))"
Abre()
Conexao.Execute(sSql)
Fecha()
Response.Write "OK"
%25%26gt;|é só colocar no seu frame:
this.play( -1 ); //var dar o play ao contrário...
// O código abaixo no seu primeiro frame...
if ( _root.___EOFMC___ == undefined ){
_root.createEmptyMovieClip( '___EOFMC___' , Infinity );
_root.___EOFMC___.onEnterFrame = function(){
MovieClip.broadcastMessage( '__OEF__' );
}
ASBroadcaster.initialize( MovieClip );
var proto = MovieClip.prototype;
proto.addProperty( 'currentframe',
function(){
return( this._currentframe );
},
function( f ){
if ( f %26gt;= this._totalframes ) f = 1;
else if ( f %26lt;= 0 ) f = this._totalframes;
this.$gotoAndStop( f );
}
);
proto.$gotoAndStop = proto.gotoAndStop;
proto.play = function( f ){
MovieClip.addListener( this );
if ( f == null ) f = 1;
if ( f == 0 ) this.stop();
else {
this.__OEF__ = function(){
this.currentframe = this._currentframe + f;
}
}
}
proto.stop = function(){
MovieClip.removeListener( this );
}
proto.gotoAndPlay = function( f ){
this.stop();
this.currentframe = f
this.play( 1 );
}
proto.gotoAndStop = function( f ){
this.stop();
this.currentframe = f;
}
delete proto;
}
FONTE: www.pontoflash.com.br|Dim diretorio, sdest As String
Dim i, z As Double
Dim fsys As New FileSystemObject
sdest = "C:\Documents and Settings\Administrador\Desktop\novas\laila"
i = 1
diretorio = "C:\Documents and Settings\Administrador\Desktop\laila"
If fsys.FolderExists(diretorio) Then
Set thisFolder = fsys.GetFolder(diretorio)
Set sFolders = thisFolder.SubFolders
Set AllFiles = thisFolder.Files
For Each FileItem In AllFiles
FileCopy diretorio %26 "\" %26 FileItem.Name, sdest %26 "\" %26 "Foto" %26 Format(i, "00000") %26 ".jpg"
i = i + 1
Next
End If|Private Sub Command1_Click()
Dim i() As Integer
ReDim i(4) As Integer
i(0) = 1
i(1) = 2
i(2) = 3
i(3) = 3
i(4) = 5
MsgBox AnyDup(i)
End Sub
Public Function AnyDup(NumList As Variant) As Boolean
Dim a As Long, b As Long
'Start the first Loop
For a = LBound(NumList) To UBound(NumList)
'Start the second Loop (thanks For the s
' uggestions everyone)
For b = a + 1 To UBound(NumList)
'Check If the values are the same
'If they're equal, Then we found a dupli
' cate
'tell the user And End the Function
If NumList(a) = NumList(b) Then AnyDup = True: Exit Function
Next
Next
End Function| VB6 Key Codes
==============
Constant Value Description
vbKeyLButton %26H1 Left mouse button
vbKeyRButton %26H2 Right mouse button
vbKeyCancel %26H3 CANCEL key
vbKeyMButton %26H4 Middle mouse button
vbKeyBack %26H8 BACKSPACE key
vbKeyTab %26H9 TAB key
vbKeyClear %26HC CLEAR key
vbKeyReturn %26HD ENTER key
vbKeyShift %26H10 SHIFT key
vbKeyControl %26H11 CTRL key
vbKeyMenu %26H12 MENU key
vbKeyPause %26H13 PAUSE key
vbKeyCapital %26H14 CAPS LOCK key
vbKeyEscape %26H1B ESC key
vbKeySpace %26H20 SPACEBAR key
vbKeyPageUp %26H21 PAGE UP key
vbKeyPageDown %26H22 PAGE DOWN key
vbKeyEnd %26H23 END key
vbKeyHome %26H24 HOME key
vbKeyLeft %26H25 LEFT ARROW key
vbKeyUp %26H26 UP ARROW key
vbKeyRight %26H27 RIGHT ARROW key
vbKeyDown %26H28 DOWN ARROW key
vbKeySelect %26H29 SELECT key
vbKeyPrint %26H2A PRINT SCREEN key
vbKeyExecute %26H2B EXECUTE key
vbKeySnapshot %26H2C SNAPSHOT key
vbKeyInsert %26H2D INS key
vbKeyDelete %26H2E DEL key
vbKeyHelp %26H2F HELP key
vbKeyNumlock %26H90 NUM LOCK key
KeyA Through KeyZ Are the Same as Their ASCII Equivalents: 'A' Through 'Z'
Constant Value Description
vbKeyA 65 A key
vbKeyB 66 B key
vbKeyC 67 C key
vbKeyD 68 D key
vbKeyE 69 E key
vbKeyF 70 F key
vbKeyG 71 G key
vbKeyH 72 H key
vbKeyI 73 I key
vbKeyJ 74 J key
vbKeyK 75 K key
vbKeyL 76 L key
vbKeyM 77 M key
vbKeyN 78 N key
vbKeyO 79 O key
vbKeyP 80 P key
vbKeyQ 81 Q key
vbKeyR 82 R key
vbKeyS 83 S key
vbKeyT 84 T key
vbKeyU 85 U key
vbKeyV 86 V key
vbKeyW 87 W key
vbKeyX 88 X key
vbKeyY 89 Y key
vbKeyZ 90 Z key
Key0 Through Key9 Are the Same as Their ASCII Equivalents: '0' Through '9
Constant Value Description
vbKey0 48 0 key
vbKey1 49 1 key
vbKey2 50 2 key
vbKey3 51 3 key
vbKey4 52 4 key
vbKey5 53 5 key
vbKey6 54 6 key
vbKey7 55 7 key
vbKey8 56 8 key
vbKey9 57 9 key
Keys on the Numeric Keypad
Constant Value Description
vbKeyNumpad0 %26H60 0 key
vbKeyNumpad1 %26H61 1 key
vbKeyNumpad2 %26H62 2 key
vbKeyNumpad3 %26H63 3 key
vbKeyNumpad4 %26H64 4 key
vbKeyNumpad5 %26H65 5 key
vbKeyNumpad6 %26H66 6 key
vbKeyNumpad7 %26H67 7 key
vbKeyNumpad8 %26H68 8 key
vbKeyNumpad9 %26H69 9 key
vbKeyMultiply %26H6A MULTIPLICATION SIGN (*) key
vbKeyAdd %26H6B PLUS SIGN (+) key
vbKeySeparator %26H6C ENTER (keypad) key
vbKeySubtract %26H6D MINUS SIGN (-) key
vbKeyDecimal %26H6E DECIMAL POINT(.) key
vbKeyDivide %26H6F DIVISION SIGN (/) key
Function Keys
Constant Value Description
vbKeyF1 %26H70 F1 key
vbKeyF2 %26H71 F2 key
vbKeyF3 %26H72 F3 key
vbKeyF4 %26H73 F4 key
vbKeyF5 %26H74 F5 key
vbKeyF6 %26H75 F6 key
vbKeyF7 %26H76 F7 key
vbKeyF8 %26H77 F8 key
vbKeyF9 %26H78 F9 key
vbKeyF10 %26H79 F10 key
vbKeyF11 %26H7A F11 key
vbKeyF12 %26H7B F12 key
vbKeyF13 %26H7C F13 key
vbKeyF14 %26H7D F14 key
vbKeyF15 %26H7E F15 key
vbKeyF16 %26H7F F16 key
Visual Basic .NET equivalents.
==============================
Visual Basic 6.0 Visual Basic .NET Equivalent
vbKeyLButton (1) System.Windows.Forms.Keys.LButton
vbKeyRButton (2) System.Windows.Forms.Keys.RButton
vbKeyCancel (3) System.Windows.Forms.Keys.Cancel
vbKeyMButton (4) System.Windows.Forms.Keys.MButton
vbKeyBack (8) System.Windows.Forms.Keys.Back
vbKeyTab (9) System.Windows.Forms.Keys.Tab
vbKeyClear (12) System.Windows.Forms.Keys.Clear
vbKeyReturn (13) System.Windows.Forms.Keys.Return
vbKeyShift (16) System.Windows.Forms.Keys.ShiftKey
vbKeyControl (17) System.Windows.Forms.Keys.ControlKey
vbKeyMenu (18) System.Windows.Forms.Keys.Menu
vbKeyPause (19) System.Windows.Forms.Keys.Pause
vbKeyCapital (20) System.Windows.Forms.Keys.Capital
vbKeyEscape (27) System.Windows.Forms.Keys.Escape
vbKeySpace (32) System.Windows.Forms.Keys.Space
vbKeyPageUp (33) System.Windows.Forms.Keys.PageUp
vbKeyPageDown (34) System.Windows.Forms.Keys.PageDown
vbKeyEnd (35) System.Windows.Forms.Keys.End
vbKeyHome (36) System.Windows.Forms.Keys.Home
vbKeyLeft (37) System.Windows.Forms.Keys.Left
vbKeyUp (38) System.Windows.Forms.Keys.Up
vbKeyRight (39) System.Windows.Forms.Keys.Right
vbKeyDown (40) System.Windows.Forms.Keys.Down
vbKeySelect (41) System.Windows.Forms.Keys.Select
vbKeyPrint (42) System.Windows.Forms.Keys.Print
vbKeyExecute (43) System.Windows.Forms.Keys.Execute
vbKeySnapshot (44) System.Windows.Forms.Keys.Snapshot
vbKeyInsert (45) System.Windows.Forms.Keys.Insert
vbKeyDelete (46) System.Windows.Forms.Keys.Delete
vbKeyHelp (47) System.Windows.Forms.Keys.Help
vbKeyNumlock (144) System.Windows.Forms.Keys.Numlock
vbKeyScrollLock (145) System.Windows.Forms.Keys.Scroll
Alphabetic Key Code Constants
VB6 Visual Basic .NET Equivalent
VbKeyA (65) System.Windows.Forms.Keys.A
VbKeyB (66) System.Windows.Forms.Keys.B
VbKeyC (67) System.Windows.Forms.Keys.C
VbKeyD (68) System.Windows.Forms.Keys.D
VbKeyE (69) System.Windows.Forms.Keys.E
VbKeyF (70) System.Windows.Forms.Keys.F
VbKeyG (71) System.Windows.Forms.Keys.G
VbKeyH (72) System.Windows.Forms.Keys.H
VbKeyI (73) System.Windows.Forms.Keys.I
VbKeyJ (74) System.Windows.Forms.Keys.J
VbKeyK (75) System.Windows.Forms.Keys.K
VbKeyL( 76) System.Windows.Forms.Keys.L
vbKeyM (77) System.Windows.Forms.Keys.M
VbKeyN (78) System.Windows.Forms.Keys.N
VbKeyO (79) System.Windows.Forms.Keys.O
VbKeyP( 80) System.Windows.Forms.Keys.P
VbKeyQ (81) System.Windows.Forms.Keys.Q
VbKeyR (82) System.Windows.Forms.Keys.R
VbKeyS (83) System.Windows.Forms.Keys.S
VbKeyT (84) System.Windows.Forms.Keys.T
VbKeyU (85) System.Windows.Forms.Keys.U
VbKeyV (86) System.Windows.Forms.Keys.V
VbKeyW (87) System.Windows.Forms.Keys.W
VbKeyX (88) System.Windows.Forms.Keys.X
VbKeyY (89) System.Windows.Forms.Keys.Y
VbKeyZ (90) System.Windows.Forms.Keys.Z
Numeric Key Constants
VB6 Visual Basic .NET Equivalent
vbKey0 (48) System.Windows.Forms.Keys.D0
vbKey1 (49) System.Windows.Forms.Keys.D1
vbKey2 (50) System.Windows.Forms.Keys.D2
vbKey3 (51) System.Windows.Forms.Keys.D3
vbKey4 (52) System.Windows.Forms.Keys.D4
vbKey5 (53) System.Windows.Forms.Keys.D5
vbKey6 (54) System.Windows.Forms.Keys.D6
vbKey7 (55) System.Windows.Forms.Keys.D7
vbKey8 (56) System.Windows.Forms.Keys.D8
vbKey9 (57) System.Windows.Forms.Keys.D9
Numeric Keypad Key Constants
VB6 Visual Basic .NET Equivalent
vbKeyNumpad0 (96) System.Windows.Forms.Keys.NumPad0
vbKeyNumpad1 (97) System.Windows.Forms.Keys.NumPad1
vbKeyNumpad2 (98) System.Windows.Forms.Keys.NumPad2
vbKeyNumpad3 (99) System.Windows.Forms.Keys.NumPad3
vbKeyNumpad4 (100) System.Windows.Forms.Keys.NumPad4
vbKeyNumpad5 (101) System.Windows.Forms.Keys.NumPad5
vbKeyNumpad6 (102) System.Windows.Forms.Keys.NumPad6
vbKeyNumpad7 (103) System.Windows.Forms.Keys.NumPad7
vbKeyNumpad8 (104) System.Windows.Forms.Keys.NumPad8
vbKeyNumpad9 (105) System.Windows.Forms.Keys.NumPad9
VbKeyMultiply (106) System.Windows.Forms.Keys.Multiply
VbKeyAdd (107) System.Windows.Forms.Keys.Add
VbKeySeparator (108) System.Windows.Forms.Keys.Separator
VbKeySubtract (109) System.Windows.Forms.Keys.Subtract
VbKeyDecimal (110) System.Windows.Forms.Keys.Decimal
VbKeyDivide (111) System.Windows.Forms.Keys.Divide
Function Key Constants
vb6 Visual Basic .NET Equivalent
vbKeyF1 (112) System.Windows.Forms.Keys.F1
vbKeyF2 (113) System.Windows.Forms.Keys.F2
vbKeyF3 (114) System.Windows.Forms.Keys.F3
vbKeyF4 (115) System.Windows.Forms.Keys.F4
vbKeyF5 (116) System.Windows.Forms.Keys.F5
vbKeyF6 (117) System.Windows.Forms.Keys.F6
vbKeyF7 (118) System.Windows.Forms.Keys.F7
vbKeyF8 (119) System.Windows.Forms.Keys.F8
vbKeyF9 (120) System.Windows.Forms.Keys.F9
vbKeyF10 (121) System.Windows.Forms.Keys.F10
vbKeyF11 (122) System.Windows.Forms.Keys.F11
vbKeyF12 (123) System.Windows.Forms.Keys.F12
vbKeyF13 (124) System.Windows.Forms.Keys.F13
vbKeyF14 (125) System.Windows.Forms.Keys.F14
vbKeyF15 (126) System.Windows.Forms.Keys.F15
vbKeyF16 (127) System.Windows.Forms.Keys.F16|--Pega o path do arquivo do banco
sp_helpfile
GO
-- desconecta / remove o banco
exec sp_detach_db 'RBCadu'
GO
-- muda o path fisico do banco
EXEC sp_attach_db @dbname = N'RBCadu',
@filename1 = N'c:\RBCadu\RBCadu_data.mdf',
@filename2 = N'c:\RBCadu\RBCadu_log.ldf'
GO|Function LimpaSTR(ByVal Texto As Variant) As String
If VarType(Texto) %26lt;%26gt; vbString Then Exit Function
Dim sComAcento As String, _
sSemAcento As String, _
i As Integer
sComAcento = "áàãâäéèêëíìîïóòõôöúùûüçÁÀÃÂÄÉÈÊËÍÌÎÏÓÒÕÔÖÚÙÛÜÇ"
sSemAcento = "aaaaaeeeeiiiiooooouuuucAAAAAEEEEIIIIOOOOOUUUUC"
For i = 1 To Len(sComAcento)
'Se for utilizar o Replace abaixo então
Texto = Replace(Texto, Mid(sComAcento, i, 1), Mid(sSemAcento, i, 1))
'Se for utilizar o Replace do VB então
Texto = Replace(Texto, Mid(sComAcento, i, 1), Mid(sSemAcento, i, 1),,,0)
Next
LimpaSTR = Texto
End Function|Function Replace(ByVal SearchString As String, ByVal LookFor As String, ByVal ReplaceWith As String, Optional ByVal Start As Long = 1, Optional ByVal Count As Long = -1, Optional ByVal CaseSensitive As Boolean = True) As String
Dim i As Integer
Dim Compare As Integer
If Not CaseSensitive Then Compare = 1
If Start %26lt; 1 Then Start = 1
i = InStr(Start, SearchString, LookFor, Compare)
Do While i %26gt; 0
Count = Count - 1
If Count = -1 Then Exit Do
SearchString = Left(SearchString, i - 1) %26 ReplaceWith %26 Mid(SearchString, i + Len(LookFor))
i = InStr(i, SearchString, LookFor, Compare)
Loop
Replace = SearchString
End Function|Se a 1ª página ocupa apenas metade de uma folha porém a segunda folha quando é impressa é impressa imendada a ela há uma necessidade de se forçar uma quebra de página nesta página. Isso pode ser Resolvido com o Seguinte CSS...
p style='page-break-before: always' /p|Sub OrdemAlfa(sArray(), ByVal ini, ByVal fim)
Dim i, j, aux
For i = ini to fim - 1
For j = i + 1 to fim
If StrComp(sArray(i), sArray(j), 1) = 1 then
aux = sArray(i)
sArray(i) = sArray(j)
sArray(j) = aux
End if
Next
Next
End Sub|Public Function SemAscento(ByVal sTexto As String) As String
Dim mChar() As String
Dim i As Integer
Dim j As Integer
ReDim mChar(19, 2)
mChar(0, 0) = "Á"
mChar(0, 1) = "A"
mChar(1, 0) = "É"
mChar(1, 1) = "E"
mChar(2, 0) = "Í"
mChar(2, 1) = "I"
mChar(3, 0) = "Ó"
mChar(3, 1) = "O"
mChar(4, 0) = "Ú"
mChar(4, 1) = "U"
mChar(5, 0) = "Â"
mChar(5, 1) = "A"
mChar(6, 0) = "Ê"
mChar(6, 1) = "E"
mChar(7, 0) = "Î"
mChar(7, 1) = "I"
mChar(8, 0) = "Ô"
mChar(8, 1) = "O"
mChar(9, 0) = "Û"
mChar(9, 1) = "U"
mChar(10, 0) = "Ã"
mChar(10, 1) = "A"
mChar(11, 0) = "Õ"
mChar(11, 1) = "O"
mChar(12, 0) = "Ç"
mChar(12, 1) = "C"
mChar(13, 0) = "À"
mChar(13, 1) = "A"
mChar(14, 0) = "Ä"
mChar(14, 1) = "A"
mChar(15, 0) = "Ë"
mChar(15, 1) = "E"
mChar(16, 0) = "Ï"
mChar(16, 1) = "I"
mChar(17, 0) = "Ö"
mChar(17, 1) = "O"
mChar(18, 0) = "Ü"
mChar(18, 1) = "U"
sTexto = UCase(IIf(IsNull(sTexto), "", sTexto))
SemAscento = sTexto
For i = 0 To 18
If InStr(sTexto, mChar(i, 0)) %26gt; 0 Then
For j = 1 To Len(sTexto)
If Mid(sTexto, j, 1) = mChar(i, 0) Then
sTexto = Mid(sTexto, 1, j - 1) %26 mChar(i, 1) %26 Mid(sTexto, j + 1)
End If
Next
End If
Next
SemAscento = sTexto
End Function|Public Function Abrevia(sTexto As String, iMax As Integer) As String
Dim iTam As Integer
Dim i As Integer
Dim iIni, iFim As Integer
Dim sNovoTexto As String
Dim j As Integer
Dim sFrag As String
sTexto = UCase(sTexto)
Abrevia = sTexto
iTam = Len(sTexto)
iIni = 0
iFim = 0
j = iTam
If iTam %26lt;= iMax Then
Exit Function
End If
Desvio_AbreviaDeNovo:
For i = j To 1 Step -1
If Mid(sTexto, i, 1) = " " Then
If iIni %26gt; 0 Then
iFim = i
Exit For
ElseIf iIni = 0 Then
iIni = i
End If
End If
Next
If sNovoTexto = "" Then
sNovoTexto = sTexto
End If
If iFim = 0 Then
Abrevia = sNovoTexto
Exit Function
End If
sFrag = Mid(sNovoTexto, iFim + 1, iIni - iFim - 1)
If sFrag %26lt;%26gt; "DE" And _
sFrag %26lt;%26gt; "DO" And _
sFrag %26lt;%26gt; "DA" And _
sFrag %26lt;%26gt; "DOS" And _
sFrag %26lt;%26gt; "DAS" And _
sFrag %26lt;%26gt; "E" Then
sNovoTexto = Mid(sNovoTexto, 1, iFim) %26 Mid(sNovoTexto, iFim + 1, 1) %26 "." %26 Mid(sNovoTexto, iIni)
End If
If Len(sNovoTexto) %26lt;= iMax Then
Abrevia = sNovoTexto
Exit Function
Else
j = iFim
iIni = 0
iFim = 0
GoTo Desvio_AbreviaDeNovo
End If
End Function|Formata uma data. As máscaras suportadas são:
yy Ano com 2 dígitos
yyyy Ano com 4 dígitos
mm Mês de 01 a 12
dd Dia de 01 a 31
hh Hora de 00 a 23
ii Minuto de 00 a 59
ss Segundo de 00 a 59
Function DateFormat(ByVal Format, ByVal dtVariant)
Dim y2, y4, m, d
Dim h, i, s
dtVariant = CDate(dtVariant)
y4 = Year(dtVariant) %26 ""
m = Month(dtVariant) %26 ""
d = Day(dtVariant) %26 ""
h = Hour(dtVariant) %26 ""
i = Minute(dtVariant) %26 ""
s = Second(dtVariant) %26 ""
y2 = Right(y4, 2)
If Len(m) = 1 Then m = "0" %26 m
If Len(d) = 1 Then d = "0" %26 d
If Len(h) = 1 Then h = "0" %26 h
If Len(i) = 1 Then i = "0" %26 i
If Len(s) = 1 Then s = "0" %26 s
Format = Replace(Format, "yyyy", y4)
Format = Replace(Format, "yy", y2)
Format = Replace(Format, "mm", m)
Format = Replace(Format, "dd", d)
Format = Replace(Format, "hh", h)
Format = Replace(Format, "ii", i)
Format = Replace(Format, "ss", s)
DateFormat = Format
End Function|Dim conexao As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim Sql As String
Dim fso As New Scripting.FileSystemObject
Dim txtFile As Scripting.TextStream
On Error GoTo trata_erro
'cria conexão
With conexao
.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\teste\Biblio.mdb;"
.Open
End With
Sql = "select * from produtos"
'ativa a consulta e escreve o resultado em um arquivo texto delimitidado
rst.Open Sql, db
'cria arquivo texto
Set txtFile = fso.CreateTextFile("C:\arqTexto.txt", True)
'escreve e utiliza o separador ( ) entre os campos
txtFile.Write (rst.GetString(adClipString, , "", vbCrLf, ""))
MsgBox "Arquivo texto gerado com sucesso !", vbInformation, "Exportando um Recordset como Texto"
Exit Sub
trata_erro:
MsgBox "Ocorreu o seguinte erro : " %26 Err.Description|Código escrito para Access, para
usá-lo no VB somente faça a adaptação
de CurrentDB para sua variável DataBase
Public Function FindFieldInTables(FldName As String, Optional Delimeter As String = Vbcrlf) As String
Dim tdf As TableDef
Dim fld As Field
Dim res As String
If FldName = "" Then
Exit Function
Else
FldName = Trim(FldName)
End If
For Each tdf In CurrentDb.TableDefs
For Each fld In tdf.Fields
If StrComp(fld.Name, FldName, vbTextCompare) = 0 Then
res = res %26 tdf.Name %26 Delimeter
End If
Next
Next
'strip off trailing delimeter when returning result
If Len(res) %26gt; 1 Then
FindFieldInTables = Left(res, Len(res) - Len(Delimeter))
End If
End Function|Public Function PassGen(Optional nLen As Integer = 8) As String
Dim range As Collection
Dim ivalue, icount
Dim iLen As Long
Dim pass As String
Set range = New Collection
range.Add ("0")
range.Add ("1")
range.Add ("2")
range.Add ("3")
range.Add ("4")
range.Add ("5")
range.Add ("6")
range.Add ("7")
range.Add ("8")
range.Add ("9")
range.Add ("A")
range.Add ("B")
range.Add ("C")
range.Add ("D")
range.Add ("E")
range.Add ("F")
range.Add ("G")
range.Add ("H")
range.Add ("I")
range.Add ("J")
range.Add ("K")
range.Add ("L")
range.Add ("M")
range.Add ("N")
range.Add ("O")
range.Add ("P")
range.Add ("Q")
range.Add ("R")
range.Add ("S")
range.Add ("T")
range.Add ("U")
range.Add ("V")
range.Add ("W")
range.Add ("X")
range.Add ("Y")
range.Add ("Z")
range.Add ("a")
range.Add ("b")
range.Add ("c")
range.Add ("d")
range.Add ("e")
range.Add ("f")
range.Add ("g")
range.Add ("h")
range.Add ("i")
range.Add ("j")
range.Add ("k")
range.Add ("l")
range.Add ("m")
range.Add ("n")
range.Add ("o")
range.Add ("p")
range.Add ("q")
range.Add ("r")
range.Add ("s")
range.Add ("t")
range.Add ("u")
range.Add ("v")
range.Add ("w")
range.Add ("x")
range.Add ("y")
range.Add ("z")
icount = 0
ivalue = 0
iLen = range.Count
Do Until icount = nLen
Randomize
ivalue = CByte(Mid(CStr(Rnd(GetTickCount)), 3, 2))
If ivalue %26gt; 0 And ivalue %26lt;= iLen Then
icount = icount + 1
pass = pass %26 range(ivalue)
End If
Loop
PassGen = pass
End Function|Depois de 3hs de procura no google deste sistema em flash que custa 30 euros, achei e ele é simplesmente muito loko....
vejam:
www.luisferreira.com.br/galeria
se alguem quiser os fontes me envia um e-mail...
luis [at] luisferreira [dot] com [dot] br|Essa semana me deparei com um banco corrompido que havia perdido a tabela com as informações dos objetos do banco tabledef...
Depois de muito esforço consegui baixar e arrumar o software em sua versão genérica (hehehe)...
Esse software chamado Access Fix é excelente ele recuperou todas as tabelas do banco, o qual a microsoft diz que não era possível recuperar.
O único "defeito" desse software é que ele não recupera nem forms / views / módulos... ele só recupera as tabelas e seus dados.
Se alguem precisar do software me mande um e-mail:
luis [at] luisferreira [dot] com [dot] br|Bom eu precisei gerar uma chave única para uma tabela de 10.000 registros.
vejam a solução:
GeraKey = ""
For i = 0 To 24
Randomize
GeraKey = GeraKey + Chr(Rnd * 9 + 48) + Chr(Rnd * 25 + 97)
GeraKey = UCase(sSenha)
i = i + 1
Next|Esse projeto implementa o algoritmo SOUNDEX descrito por Donald Knuth, volume 3, The art of Computer programming.
O algoritmo consiste na obtencao de um codigo formado por 4 digitos que representam os som das consoantes.
Caso nao haja mais de 4 consoantes o codigo adiciona zeros.
Caso as palavras comparadas possuam o mesmo codigo soundex, significa que elas sao foneticamente parecidas.
A digitacao das consoantes que formam o nome a ser procurado é extremamente importante para retorno no nome.
Felipe = Filipe = Phelipe
Agnaldo = Aguinaldo
Scheila = Sheila
Paul = Paulo = Paula
Ann = Ana = Anna = Anne = Anni
OBS: Consoantes seguidamente duplicadas, Ex.Anna, contam somente como uma consoante
Para utilizar a Função buscando num banco crie uma Tabela com uma coluna,
Insira na Coluna Chico, Xico, Agnaldo, Aguinaldo, Ann, Ana, Anna ...
Sub TestaSoundex()
Dim sTexto as String
Dim sSoundex as String
Dim Rs as Recordset
Dim sSql as String
Dim sMsg as String
sTexto = Soundex("Anna")
sSql = "Select Coluna From Tabela"
Set Rs = New Recordset
RS.Open sSql, ObjConn, adOpenForwardOnly, adLockReadOnly
Do While Not Rs.Eof
If sTexto = Soundex(Rs!Coluna) Then
sMsg = sMsg %26 Rs!Coluna %26 Chr(13)
End If
Rs.MoveNext
Loop
If sMsg %26lt;%26gt; "" Then
msgbox "Foram Localizados os Seguintes nomes: " %26 Chr(13) %26 sMsg
Else
msgbox "A busca não resultados."
End If
End Sub
Public Function Soundex(Word As String) As String
Dim strCode As String
Dim strChar As String
Dim lngWordLength As Long
Dim strLastCode As String
'Verifico o codigo Soundex para a primeira letra do nome
strCode = GetSoundCodeNumber(UCase(Mid$(Word, 1, 1)))
strLastCode = GetSoundCodeNumber(strCode)
'Guardo o tamanho do nome
lngWordLength = Len(Word)
'Faco um loop apartir da segunda letra do nome
For i = 2 To lngWordLength
strChar = GetSoundCodeNumber(UCase(Mid$(Word, i, 1)))
' Caso numeros vizinhos coincidam conto apenas o primeiro
If Len(strChar) %26gt; 0 And strLastCode %26lt;%26gt; strChar Then
strCode = strCode %26 strChar
End If
strLastCode = strChar
Next
'Trim 4 caracteres do codigo final
Soundex = Mid$(strCode, 1, 4)
'... se for menos que 4 caracteres, completo com zeros
If Len(strCode) %26lt; 4 Then
Soundex = Soundex %26 String(4 - Len(strCode), "0")
End If
End Function
Private Function GetSoundCodeNumber(Character As String) As String
'Atribuo a cada letra o numero referente na tabela SOUNDEX
Select Case Character
Case "B", "F", "P", "V"
GetSoundCodeNumber = "1"
Case "C", "G", "J", "K", "Q", "S", "X", "Z", "H"
GetSoundCodeNumber = "2"
Case "D", "T"
GetSoundCodeNumber = "3"
Case "L"
GetSoundCodeNumber = "4"
Case "M", "N"
GetSoundCodeNumber = "5"
Case "R"
GetSoundCodeNumber = "6"
End Select
End Function
Biografia: www.vbmania.com.br|é Infelizmente o VBA não tem o tão querido replace
bom mas meu grande amigo Leandro resolveu nosso problema...
Public Function Replace(sTexto, sTextoSubs, sTextoNovo) As String
Dim i As Integer
Dim sReplace As String
i = -1
Do While i %26lt;%26gt; 0
i = InStr(sTexto, sTextoSubs)
If i %26gt; 0 Then
sReplace = Mid(sTexto, 1, i - 1)
sReplace = sReplace %26 sTextoNovo
sReplace = sReplace %26 Mid(sTexto, i + Len(sTextoSubs))
sTexto = sReplace
End If
Loop
Replace = sTexto
End Function
|mCampos(0) = "Coluna1"
mCampos(1) = "Coluna2"
mCampos(2) = "Coluna3"
mCampos(3) = "Coluna4"
mCampos(4) = "Coluna5"
mCampos(5) = "Coluna6"
mCampos(6) = "Coluna7"
mCampos(7) = "Coluna8"
mCampos(8) = "Coluna9"
mCampos(9) = "Coluna10"
For i = 0 To 9
sSql = "UPDATE [Tabela] SET "
sSql = sSql %26 "[" %26 mCampos(i) %26 "] = 0 "
sSql = sSql %26 "WHERE [" %26 mCampos(i) %26 "] Is Null "
'No VBA
DoCmd.RunSQL sSql
'No ASP
Conexao.Execute sSql
Next|'A string
sTexto = "Luis,Antonio,Ferreira"
'o Caracter que separa as palavras
sCaracter = ","
'transforma a string em array
Arrayx = Split(sTexto,sCaracter,-1,1)
'pega o total de palavras
iArray = ubound(Arrayx)
'vamos ver o resultado
Response.Write "A string tem " %26 iArray + 1 %26 " partes." %26 VbCrlf
For z = 0 To iArray
Response.Write z %26 " - " %26 Arrayx(z) %26 VbCrlf
Next|Abaixo segue o código do Spectrum que eu fiz pro meu site.
Crie um movie clip com as seguintes dimensões:
w = 67
h = 20
coloque o registration point na posição:
x = -5.5
y = -17.5
e abaixo o código...
// function ligado
Spectrum.inicio = function() {
this.onEnterFrame = function() {
// cria os mc e especifica a grossura e cor da linha de cada led
this.createEmptyMovieClip("um_mc", 1);
this.createEmptyMovieClip("dois_mc", 2);
this.createEmptyMovieClip("tres_mc", 3);
this.createEmptyMovieClip("quatro_mc", 4);
this.createEmptyMovieClip("cinco_mc", 5);
this.createEmptyMovieClip("seis_mc", 6);
this.createEmptyMovieClip("sete_mc", 7);
this.createEmptyMovieClip("oito_mc", 8);
this.um_mc.lineStyle(4, 0x000000, 40);
this.dois_mc.lineStyle(4, 0x000000, 40);
this.tres_mc.lineStyle(4, 0x000000, 40);
this.quatro_mc.lineStyle(4, 0x000000, 40);
this.cinco_mc.lineStyle(4, 0x000000, 40);
this.seis_mc.lineStyle(4, 0x000000, 40);
this.sete_mc.lineStyle(4, 0x000000, 40);
this.oito_mc.lineStyle(4, 0x000000, 40);
// pego o max e o min dependendo da altura do som
var max = som.getVolume()/60;
var min = _global.volume/10;
// determina 1 valor para o tamanho da linha de cada mc
var nmr = max+Math.floor(Math.random()*(min-max+1));
var nmr1 = max+Math.floor(Math.random()*(min-max+1));
var nmr2 = max+Math.floor(Math.random()*(min-max+1));
var nmr3 = max+Math.floor(Math.random()*(min-max+1));
var nmr4 = max+Math.floor(Math.random()*(min-max+1));
var nmr5 = max+Math.floor(Math.random()*(min-max+1));
var nmr6 = max+Math.floor(Math.random()*(min-max+1));
var nmr7 = max+Math.floor(Math.random()*(min-max+1));
// desenho a linha dos 8 mc
this.um_mc.lineTo(0, -nmr);
this.dois_mc.lineTo(0, -nmr1);
this.tres_mc.lineTo(0, -nmr2);
this.quatro_mc.lineTo(0, -nmr3);
this.cinco_mc.lineTo(0, -nmr4);
this.seis_mc.lineTo(0, -nmr5);
this.sete_mc.lineTo(0, -nmr6);
this.oito_mc.lineTo(0, -nmr7);
// espaço cada um dos mc apartir da posição x do ultimo
setProperty(this.dois_mc, _x, this.um_mc._x+8);
setProperty(this.tres_mc, _x, this.dois_mc._x+8);
setProperty(this.quatro_mc, _x, this.tres_mc._x+8);
setProperty(this.cinco_mc, _x, this.quatro_mc._x+8);
setProperty(this.seis_mc, _x, this.cinco_mc._x+8);
setProperty(this.sete_mc, _x, this.seis_mc._x+8);
setProperty(this.oito_mc, _x, this.sete_mc._x+8);
};
};
// funcao parar
Spectrum.fim = function() {
this.createEmptyMovieClip("um_mc", 1);
this.createEmptyMovieClip("dois_mc", 2);
this.createEmptyMovieClip("tres_mc", 3);
this.createEmptyMovieClip("quatro_mc", 4);
this.createEmptyMovieClip("cinco_mc", 5);
this.createEmptyMovieClip("seis_mc", 6);
this.createEmptyMovieClip("sete_mc", 7);
this.createEmptyMovieClip("oito_mc", 8);
delete this.onEnterFrame;
};
// inicio o obj som
som = new Sound(this.receptor);
som.attachSound("rapsupa");
som.start(0, 99);
// volume
_global.volume = 100;
// chamo o inicio
Spectrum.inicio();|Bom pessoal é simples.
Aqui neste canal vou postar algumas soluções encontradas por mim, para resolver os diverssos problemas encontrados diariamente no desenvolvimento de sistemas.&Vars=29