kuroi

então tenta adicionar o conio.h e em vez de system("pause");, digite getch();.

desconheco qualquer forma de fazer isso, acho que você vai ter sim que colocar em cada evento um recordset para gravar no bd. bom, mas se tiver outra forma, eu também queria saber.

na verdade, ela não é usada antes do main, é usada dentro sim. ele só aparece antes do main, porque esta sendo declarada, entende?? desse modo, qualquer hora que você quiser calcular fatorial no meio do seu programa em vez de digitar o codigo todo do calculo, você apenas chama a sua funcao que ela já calcula pra você. no exemplo, ela é usada aqui:

bom, o melhor a fazer é adicionar um campo Pontos no seu Type piloto. ai você declara o seu array no module como Public. desse modo ele vai valer pra todos os formularios, qualquer alteracao que você fizer no array em um formulario, quando você abrir o outro ele vai continuar alterado. agora pra somar os pontos, você ve pelo indice do array. o array vai estar ordenado por ordem de chegada certo?? então é so somar pros 8 primeiros indices do array. exemplo (não assisto formula 1 (alias, é muito chato ahhaha, zuera), então não sei quanto os pilotos ganham, os valores ai são de exemplo): piloto(0).pontos = piloto(0).pontos + 20 piloto(1).pontos = piloto(1).pontos + 15 piloto(2).pontos = piloto(2).pontos + 12 ... ... ... piloto(6).pontos = piloto(6).pontos + 2 piloto(7).pontos = piloto(7).pontos + 1[/code]

o que exatamente você não entendeu?? a logica ou os codigos ou os dois?? basicamente deixa pronta uma funcao que retorna o fatorial de o numero passado por parametro (int fat(int n)). ai assim que o programa roda e o numero é digitado, ele faz uma rotina de repeticao pra contar de 0 ate o numero digitado. dentro dela ele vai somando um numero de 0 ate o numero digitado, e vai subtraindo outro do numero digitado ate chegar a 0. ai ele calcula a divisado do primeiro pelo fatorial do segundo e vai adicionando ao total.

e tópico movido pra VBA.

hahaha valeu. na verdade é bem simples, apesar de que me enrolei um poco pra fazer. tópico criado aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=105586

codigo pra mover o Form clicando em qualquer parte dele e arrastando: Dim xx As Integer, yy As Integer Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then xx = X yy = Y End If End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Me.Left = (Me.Left - xx) + X Me.Top = (Me.Top - yy) + Y End If End Sub[/code] a mesma logica vale pra mover objetos dentro do formulario

claro que podemos ajudar, mas explica exatamente em que devemos ajudar. qual o problema que você ta tendo nesse codigo??

cara, num tenho a minima ideia. esse negocio de css, eu faco as coisas sempre no chute ate que uma hora da certo. mas acho que tipo, no caso da borda, o seu erro tava na hora de passar a cor. acho que o certo seria border-left-color: em vez de border-left:. no firefox, pro border-left funcionar, você deve passar, como eu mostrei, tamanho, estilo e cor, td de uma vez. alias, esse é o problema do ie, ele aceita qualquer bestera que você escreve e ai as pessoas vao se acostumando a programar errado. quanto ao float: left, também nunca entendi, é uma coisa do firefox, acho que se o elemento não tem float, o ff não o considera como um objeto a parte, e sim como uma continuacao do elemento pai, no caso o body.

a mas em que parte do form você coloca isso?? não pode estar jogado em qualquer canto, tem que estar dentro duma sub ou function.

piloto não é uma variavel e sim um tipo, assim com string, integer, etc. ou seja você deve declarar uma variavel do tipo: Dim x As piloto e ai sim: x.nome = "piloto1"

tente assim: border-left: 1px solid #CCCCCC; border-right: 1px solid #CCCCCC;[/code] cara, isso pode ate zuar o seu layout, mas so de teste tenta por um float: left nessa sua div pra ver se esse problema continua.

é so você por todos eles dentro de um form que poste pra essa segunda pagina. tipo assim: <form id="Form1" name="Form1" method="post" action="dados.php"> -- Ponha seus textboxs aqui -- </form>[/code] e depois na dados.php você pode pega-los via $_POST. tipo [code]<?php echo $_POST["nome do seu input"]; ?> só na entendi a parte da imagem pequena.

bom, basicamente esse negocio de type é so um esquema pra criar o seu proprio tipo. exemplo, no type piloto que eu criei, você declarando assim: Dim x as piloto você poderia acessar as propriedades assim: piloto.nome = "Piloto 1" piloto.carro = "carro 1"[/code] e por poder guardar mais dados mais organizados e bunitinhos, nem preciso falar que seria bem mais eficaz do que o exemplo que te passei da matriz. alem de que o codigo ficaria menor.

a então. ai você teria que ter uma forma de vincular o piloto com o valor dele. mas tipo, na verdade o que você quer é exibir o piloto cada vez de uma ordem diferente cada hora que o programa rodar certo?? o numero randomico na verdade não importa no caso, certo?? ai nesse caso, o melhor seria fazer como os exemplos do graymalkin nesses topicos: http://scriptbrasil.com.br/forum/index.php?showtopic=64370 http://scriptbrasil.com.br/forum/index.php?showtopic=78756 mas tipo, se você quisesse por exemplo, calcular o tempo do piloto pra depois ordenar, ai como eu disse, você teria que ter uma forma de vincular o piloto com o valor dele. ai o esquema seria você criar uma matriz tipo assim: Dim x(3, 1) As Variant ai na hora de setar você faria tipo assim: Randomize x(0, 0) = Int(20 * Rnd) + 1 x(1, 0) = Int(15 * Rnd) + 1 x(2, 0) = Int(10 * Rnd) + 1 x(3, 0) = Int(5 * Rnd) + 1 x(0, 1) = "Piloto 1" x(1, 1) = "Piloto 2" x(2, 1) = "Piloto 3" x(3, 1) = "Piloto 4"[/code] ai você sabe que o primeiro indice pertence ao piloto 1 certo?? so que você vai ordenar o array pelo menor numero. então quando você mover o valor de indice, você tem que mover o nome do piloto junto. pra isso você teria que alterar aquela funcao. ela ficaria tipo assim: [code]Public Function SelectionSort(Vetor(), tam) Dim i, j Dim min, aux For i = 0 To tam min = i For j = i + 1 To tam If Vetor(j, 0) < Vetor(min, 0) Then min = j Next j aux = Vetor(i, 0) Vetor(i, 0) = Vetor(min, 0) Vetor(min, 0) = aux aux = Vetor(i, 1) Vetor(i, 1) = Vetor(min, 1) Vetor(min, 1) = aux Next i End Function desse jeito, assim que o numero for calculado ele vai estar associado com o piloto agora se por exemplo, você quisesse guardar outros dados, como o carro do piloto. você também teria que associar todos os dados dele ao mesmo indice do array. ai o melhor seria você criar uma classe, ou um type e criar um array desse tipo. bom, esse parte não sei se você ta entendendo, qualquer coisa fala ai. mas o esquema seria você criar um type tipo: Type piloto nome As String carro as String valor As Integer End Type[/code] ai você declarava assim: [code]Dim y(3) As piloto e ai você pode mudar td junto de lugar. so teria que fazer umas pequenas adaptacoes naquela funcao. mano num sei se to ajudano ou se to complicando mais ahahahha. mas ve ai o que você entende, o que você consegue fazer e qualquer coisa pergunta aí

beleza, o melhor jeito de aprender é se virando e fazendo você mesmo, mas a gente sempre precisa de uma explicacao do que tamos fazendo, senao fica foda. qualquer coisa pergunta aí. ou e se cadastra aí no forum

cara, tira o Order By. não existe Order By em Delete.

não não não. a funcao deve ficar separado do codigo. funcoes são tipo codigos já preparados pra serem chamados em qualquer parte do programa. o melhor é adicionar um Module no seu projeto e deixar ela la. já que o Module serve exclusivamente pra declaracao de variaveis e funcoes publicas. mas você pode por no seu proprio formulario, mas não pode ser dentro de nenhuma sub. seria tipo assim: Option Explicit Dim x(3) As Variant Private Sub Command1_Click() Randomize x(0) = Int(20 * Rnd) + 1 x(1) = Int(15 * Rnd) + 1 x(2) = Int(10 * Rnd) + 1 x(3) = Int(5 * Rnd) + 1 SelectionSort x(), 3 lbl1.Caption = x(0) lbl2.Caption = x(1) lbl3.Caption = x(2) lbl4.Caption = x(3) End Sub Public Function SelectionSort(Vetor(), tam) Dim i, j Dim min, aux For i = 0 To tam min = i For j = i + 1 To tam If Vetor(j) < Vetor(min) Then min = j Next j aux = Vetor(i) Vetor(i) = Vetor(min) Vetor(min) = aux Next i End Function[/code]

não, não, não, você so vai escrever Public Function na frente quando for pra declarar. pra chamar, é so digitar o nome. simplesmente assim, e sem parenteses: SelectionSort x(), 3 alias, tava vendo agora, se você não alterou direto na funcao, o array que deve ser passado deve ser do tipo Variant. então na hora de declara-lo crie como Variant, ou não especifique o tipo.

é o seguinte, você não precisa alterar nd nesse codigo que você pegou. ela é uma funcao que vai ordenar o vetor pra você. você deve copia-la igualzinha por seu programa. o que ele faz?? exemplo, você cria um array com 4 posicoes. e seta valores aleatorios pra ele. tipo assim: x(0) = 1 x(1) = 100 x(2) = -5 x(3) = 44[/code] ai você chama essa funcao e passa o vetor pra ela como parametro: [code]SelectionSort x(), 3 sendo que o primeiro parametro deve ser o vetor, e o segundo o numero do maior indice dele. depois de rodar a funcao, ele retornara o vetor ordenado assim: x(0) = -5 x(1) = 1 x(2) = 44 x(3) = 100[/code] entendeu?? é simples, você passa o vetor desordenado que ele fica ordenado. ai em vez de criar as 4 variaveis, você cria 1 so do tipo array. ai em vez de todo aquele codigo que você estava fazendo: [code]If (a > b) And (a > c) And (a > d) And (b >c) And (b > d) And (c > d) Then lbl1.Caption = "valor1" lbl2.Caption = "valor2" lbl3.Caption = "valor3" lbl4.Caption = "valor4" Endif você vai precisar duma unica linha SelectionSort a(), 3

então, da uma olhada no link da wikipedia http://pt.wikipedia.org/wiki/Algoritmo_de_...na%C3%A7%C3%A3o que tinha no otro tópico. la tem varios metodos explicados e com exemplos de codigo. hum, o metodo bolha não tem exemplo em VB mas tem em ASP que é praticamente igual, alem de que, no google, você deve encontrar exemplos em VB de qualquer um dos metodos. ai é so adaptar no seu codigo, não tem segredo. qualquer coisa pergunta aí.

é cara, a primeira coisa é que em vez de usar 4 variaveis, use um array. tipo, em vez de declarar a, b, c, d, declare a(3), por exemplo, e acesse a(0), a(1), a(2), a(3) e quanto a como ordenar, usando arrays existem varios metodos já desenvolvidos, o mais famoso é o método bolha. da uma olhada nesse tópico que deve ajudar: http://scriptbrasil.com.br/forum/index.php?showtopic=83195

mas Graymalkin, sera que precisa disso td mesmo?? em vb fiz assim: Dim xx As Integer, yy As Integer Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) xx = X yy = Y End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Me.Left = (Me.Left - xx) + X Me.Top = (Me.Top - yy) + Y End If End Sub[/code] e funciona legal. e em c# fiz assim: [code]public struct MoveForm { public int X; public int Y; } .... .... ... public partial class frmZero : Form { MoveForm mv = new MoveForm(); #region Movendo o Form private void frmZero_MouseDown(object sender, MouseEventArgs e) { if (e.Button != MouseButtons.Left) return; mv.X = this.Left - MousePosition.X; mv.Y = this.Top - MousePosition.Y; } private void frmZero_MouseMove(object sender, MouseEventArgs e) { if (e.Button == MouseButtons.Left) { this.Left = mv.X + MousePosition.X; this.Top = mv.Y + MousePosition.Y; } } #endregion } e também funciona legal... qual a vantagem de usar essas APIs??