Ir para conteúdo
Fórum Script Brasil

Mick Newbie

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Sobre Mick Newbie

Mick Newbie's Achievements

0

Reputação

  1. Mick Newbie

    Perl e HTML

    Boa tarde pessoal, Quando eu crio um pagina html contendo o codigo perl e salvo esse arquivo como .html ele simplismente me mostra todo o codigo perl e não executa nada. como se não tivesse encontrando o interpretador perl. Quem poder me ajudar eu agradeceria.
  2. beleza baixei aqui vou conferir. Bom tentei do jeito q você me falou.,porem deu o mesmo erro só que com um diferencial (tipos imcopativeis:'CInt') esse script é somente um menuzinho.
  3. Boa noite a todos ,sou novato na area de programação e estou tentando desenvolver umas ferramentas pra trabalhar SAP no caso usando vbscript. O problema é o seguinte quando rodo meu codigo aparece o seguinte erro: Tipos incompativeis:'p1' o codigo: function Submenu () b1 = InputBox ("Escolha uma opção"& vbCrLf &_ "1-----------------Saldo Dap-Doa" & vbcrlf &_ "2-----------------Saldo Ship for repair" & vbCrLf &_ "3-----------------Saldo J-process"& vbCrLf &_ "4-----------------Voltar ao menu anterior"," Sub-Menu") If IsNumeric (b1) Then Select Case b1 Case 1 Case 2 Case 3 Case 4 Call Menuprincipal End Select Else msgbox "Inseira somente numeros" End If If b1 > 4 Then MsgBox "Opção invalida" End if End function function Menuprincipal () p1 = InputBox ("Escolha o que ira fazer"& vbCrLf &_ "1----------------Canibalização de pci" & vbCrLf &_ "2----------------Canibalização de Kit para Dap-Doa" & vbCrLf &_ "3----------------Canibalização de Kit para Dapdoa pci" & vbCrLf &_ "4----------------Subcontratar de Dap-doa pra Dap-doa" & vbCrLf &_ "5----------------Transferencia de Bin" & vbCrLf &_ "6----------------Confirmação de T.os em lista" & vbCrLf &_ "7----------------Proximo Menu"," Escolha uma opção") If IsNumeric (p1) Then Select Case p1 Case 1 Case 2 Case 3 Case 4 Case 5 Case 6 Case 7 Call Submenu End Select Else MsgBox"Insira Somente numeros" End If if p1 > 7 Then MsgBox "Opção invalida" End if End function Call Menuprincipal agradeço muito pela ajuda =D , abraços a todos.
×
×
  • Criar Novo...