Exemplo de Conexão com RStudio em Mysql

Segue um exemplo prático de obtenção de dados do Banco Mysql usando R

#install.packages(“dbConnect”,type=”source”)
library(RMySQL)
library(dbConnect)

con = dbConnect(MySQL(), user=’user’, password=’passwrd’, dbname=’SMSdb’, host=’192.168.1.211′)

dbListTables(con)

#Create table in R from Mysql table
myQuery = “select * from jobs”

str(df)

telefone= “16981434112”

 

#my_d_query=paste(“select * from jobs where telefone = ‘”,telefone,”‘ “)
my_d_query=paste(“select * from jobs “)
out_df= dbGetQuery(con,my_d_query)

dbWriteTable(con,”out_df”,out_df, overwrite=TRUE, append=FALSE)
dbDisconnect(con)

 

Instalando Mysql Conection em RStudio

O Procedimento a seguir foi extraído do seguinte artigo com variances:

http://db.rstudio.com/databases/my-sql/

Em Tools > Install Packages instale os seguintes pacotes:

  • RMySQL
  • devtools
  • dbConnect

Instale o ODBC e a lib do Mysql

Restart RStudio

Segue exemplo de conexão com Mysql

#install.packages(“dbConnect”,type=”source”)
library(RMySQL)
library(dbConnect)

con = dbConnect(MySQL(), user='<user>’, password='<password>’, dbname=’SMSdb’, host=’192.168.1.211′)

dbListTables(con)

#Create table in R from Mysql table
myQuery = “select * from jobs”

str(df)

telefone= “16981434112”

 

my_d_query=paste(“select * from jobs where telefone = ‘”,telefone,”‘ “)
out_df= dbGetQuery(con,my_d_query)

dbWriteTable(con,”out_df”,out_df, overwrite=TRUE, append=FALSE)
dbDisconnect(con)

 

 

Instalando Django no Linux

Segue procedimento para instalação de Djando no Linux

Primeiramente verifique se possui o add-apt-repository , caso não possuir instale o seguinte pacote:

sudo add-apt-repository ppa:fkrull/deadsnakes

Adicione o python3.5, através do comando:

apt-get install python3.5

Em seguida, instale o virtualenv

apt-get install python-virtualenv

O próximo passo é criar uma pasta de trabalho, através do comando

mkdir <pasta>

Configure o virtualenv através do comando

virtualenv <pasta> -p python3.5

source venv/bin/activate

Instale agora o django, através do comando :

pip install django

Configure o django-admin, para a pasta que criou, através do comando:

django-admin startproject djangoecommerce .

Agora para rodar o servidor, basta digitar

./manage.py runserver 0.0.0.0:8000

 

Exemplo de código em R

Segue um exemplo bem simples em R,

Criado para avaliar as notas , calculando média.

Fonte:

##Criado por Marcelo Maurin Martins
##Aplicação de Média
##19/02/2018
##Treinamento de Linguagem R

#Criar um algoritmo em R que faça:
#1 – Cadastro de alunos (nome, e-mail, etc…, notas de provas)
#2 – Mostra os dados dos alunos cadastrados informando também os aprovados e reprovados.

 

Nomes=c(“Marcelo”,”Fernanda”,”Camille”,”Roberta”,”Marcella”)
Nomes=as.character(Nomes)
Email=c(“marcelomaurinmartins@gmail.com”,”teste1@”,”teste2@”,”teste3@”,”teste4@”)
Email=as.character(Email)
Nota1=c(9,1.4,9,3,9)
Nota1=as.numeric(Nota1)
Nota2=c(9,2.4,9,2,8)
Nota2=as.numeric(Nota2)
Nota3=c(9,1.4,9,3,7)
Nota3=as.numeric(Nota3)
Nota4=c(9,3.4,9,4,6)
Nota4=as.numeric(Nota4)
Media=c(0,0,0,0,0)
Media=as.numeric(Media)

#Monta o data frame
Notas=data.frame(Nomes,Email,Nota1,Nota2,Nota3,Nota4,Media)

#Calcula a media
for(i in 1:length(Nomes))
{
print(Notas[i,1])
Notas[i,7]=(Notas[i,3]+Notas[i,4]+Notas[i,5]+Notas[i,6])/4
if(Notas[i,7]>=7)
{
print(“Aprovado”)
}
else
{
print(“Reprovado”)
}
}

Resultado do Data.frame

Notas
Nomes Email
1 Marcelo marcelomaurinmartins@gmail.com
2 Fernanda teste1@
3 Camille teste2@
4 Roberta teste3@
5 Marcella teste4@
Nota1 Nota2 Nota3 Nota4 Media
1 9.0 9.0 9.0 9.0 9.00
2 1.4 2.4 1.4 3.4 2.15
3 9.0 9.0 9.0 9.0 9.00
4 3.0 2.0 3.0 4.0 3.00
5 9.0 8.0 7.0 6.0 7.50

Output de dados

[1] Marcelo
[1] “Aprovado”
[1] Fernanda
[1] “Reprovado”
[1] Camille
[1] “Aprovado”
[1] Roberta
[1] “Reprovado”
[1] Marcella
[1] “Aprovado”

 

Instalação e Configuração de DLNA em Linux

Olá,

 

Iremos realizar agora a configuração do minidlna em um servidor Linux.

Bom para tanto, precisaremos das seguintes pré req:

  • Servidor Linux (debian ou equivalente) – Para demais alguns passos podem variar.
  • Raspberry PI ou Desktop com no mínimo HD de 1Tb para Filmes.
  • Algum conhecimento em linux.

Procedimentos de Instalação:

  1. Entre via SSH no servidor Linux, com usuário administrador (root)
  2. Através de interface texto, digite os seguintes comandos:
  3. apt-get update
  4. apt-get upgrade
  5. apt-get install minidlna
  6. Vá ao diretório /etc/
  7. Com um editor de sua preferencia, edite o arquivo minidlna.conf, recomendo o vim minidlna.conf
  8. Crie os parâmetros de configuração, conforme segue:

Media_dir – Cria um repositório de medias (vídeos, fotos, áudios), sendo v para vídeos, A para audio, P para fotos, e PV fotos e vídeos simultâneos.

Sintaxe:

media_dir=(A,P,V,PV),<path>

friendly_name – Cria um nome do servidor, que será apresentado em sua tv.

Sintaxe:

friendly_name=<nome do Servidor>

9. Crie as pastas no servidor que configurou em seu media_dir.

Para criar as pastas use o comando mkdir <path>

10. Atribua permissões para a pasta, como você esta como root, possivelmente seu servidor não irá enxergar.

Para tanto, execute na pasta anterior o seguinte comando:

chmod 755 -R <path>

Onde path é o caminho da sua pasta, exemplo /media/disk/Movies

11. Reinicie o serviço com  service minidlna restart ou reboot o servidor 😉

Seu serviço estará criado e não necessitará de nenhuma configuração adicional.

 

Exemplo de Firedac em Delphi XE10

Exemplo prático Delphi XE10

Este exemplo didático permite visualizar as requisições de SMS, e enviar novos.

Detalhes do Projeto

Banco de Dados: mysql 5

Servidor Banco: Linux Raspberry PI

Aplicação: X86

Linguagem: Delphi XE10

Tabela: jobs.sql

Fonte: src_clienteSMS2.zip

Binário: clientSMSAlpha1.zip

Tela principal da aplicação.

Nela o usuário pode selecionar a pesquisa de SMS, através do menu superior. Para tanto, basta clicar em SMS > Enviados.

Surgirá uma tela com Título JOBS.

Nela é possível verificar na área superior um campo telefone, este permite filtrar os telefones enviados por mensagem.

Pesquisa por Telefone

Para realizar a pesquisa, digite o telefone que pretende filtrar no campo telefone.

 Click no botão Pesquisar, a aplicação pesquisará todos os SMSs que não foram enviados ainda com este telefone.

O Resultado da pesquisa aparecerá no grid inferior.

Para maiores informações mande um email: marcelomaurinmartins@gmail.com

Outros projetos relacionados:

Exemplo de Delphi XE10 consumindo REST

Motion AVI 2 MP4

Português:

O objetivo destes scripts são de permitir interagir de forma facil e prática a partir do reconhecimento de movimento do programa do linux motion.

Os scripts são dois:

analisa_img.sh

Executa um script, permitindo a programação de outros comandos associados ao reconhecimento de imagem e/ou analise e filtragem da imagem capturada.

analisa_avi.sh

Executa um script, permitindo a progração de outros comandos associados a conversão para formato MP4, permitindo assim a visualização através do browser.

Este script pode ser modificado a medida de sua necessidade, peço apenas que no uso, envie um email para marcelomaurinmartins@gmail.com, informando a finalidade. Justamente para que eu veja os frutos de 3 dias de trabalho, realmente auxiliaram alguem em algum lugar do mundo 😉

Complemento: 

Para o perfeito funcionamento deste script é necessário instalar préviamente os seguintes pacotes:

ffmpeg – realiza a conversão do arquivo avi para mp4

sudo apt-get install ffmpeg

Instalação

  1. Deve-se criar as pastas /projetos/sosconsulta/linux/ eu recomendo mudar o caminho da pasta, porem será necessário mudar toda a referencia nos scripts. :-0

2. Copie a pasta analisa_img para o caminho indicado no passo 1

Entre na pasta; cd /projetos/sosconsulta/linux/analisa_img/

3. Rode o Makefile; make all

Este procedimento, irá instalar os scripts na pasta /usr/local/bin

4. Configure o arquivo motion.conf, editando em /etc/motion, vim motion.conf

Altere o arquivo, incluindo:

on_movie_end /usr/local/bin/analisa_avi.sh %f

caso tenha threads.conf, faça nas mesmas, se houver necessidade.

 

Git:

https://github.com/MarceloMaurin/motion_avi_mp4/blob/master/analisa_img/analisa_avi.sh

English

The purpose of these scripts is to allow easy and practical interaction from the motion recognition of the linux motion program.

The scripts are two:

analisa_img.sh

Performs a script, allowing programming of other commands associated with image recognition and / or analysis and filtering of the captured image.

analisa_avi.sh

It executes a script, allowing the programming of other commands associated with the conversion to MP4 format, thus allowing the visualization through the browser.

This script can be modified to suit your needs, just ask that in use, send an email to marcelomaurinmartins@gmail.com, stating the purpose. Just so I can see the fruits of 3 days of work, really helped someone somewhere in the world 😉

Complement:

For the perfect operation of this script it is necessary to install the following packages:

ffmpeg – performs conversion from avi file to mp4

sudo apt-get install ffmpeg

 

Installation

1. You should create the folders / projects / sosconsulta / linux / I recommend changing the folder path, however it will be necessary to change the entire reference in the scripts.  😮

2. Copy the analisa_img folder to the path indicated in step 1

Enter the folder; cd / projects / sosconsulta / linux / analisa_img /

3. Run the Makefile; make all

This will install the scripts in the / usr / local / bin folder

4. Configure the motion.conf file by editing in / etc / motion, vim motion.conf

Change the file, including:

on_movie_end /usr/local/bin/analisa_avi.sh% f

if it has threads.conf, do it on them, if need be.

 

Git:

https://github.com/MarceloMaurin/motion_avi_mp4/blob/master/analisa_img/analisa_avi.sh

Exemplo de Javascript Sharepoint

Segue o exemplo de código de javascript para planilhar uma lista Sharepoint

 

<form  method="post">

<table>




<tr>

    <td>Empresas</td>

    <td><select id="lstBaseCliente" name="BaseCliente" onclick="Load();">></select></td>

</tr>




<tr>

    <td>Equipe</td>

    <td> <select id="lstEquipe" name="Equipe"></select></td>

</tr>

<tr>

    <td>Colaborador</td>

    <td><select id="lstColaborador" name="Colaborador"></select></td>

</tr>

<tr>

    <td><br/></td>

</tr>

<tr>

    <td><br/></td>

    <td><rigth><input type="button" value="Visualizar" onclick="Main();"></rigth></td>

</tr>

</table>

<table>

<tr>

   <td>Grafico</td>

</tr>

<tr>

    <td><canvas id="Grafico" width="600" height="600"></canvas></td>

</tr>

<tr>

    <td>Tipo de Resultado</td>

</tr>

<tr>

    <td>Visualização</td>

    <td><select id="lstVer" name="Ver" onchange="Main();"> <option>Colaboradores</option> <option>Empresas</option></select></td>

</tr>

<tr>

    <td>Calculado:</td>

    <td><select id="lstResultado" name="Resultado" onchange="Main();"><option>Quantidade</option> <option>Tempo Gasto</option></select></td>

</tr>

<tr>

    <td><br/></td>

</tr>

</table>

<table>

<tr>

    <td>Grid Dados</td>

</tr>

<tr>

    <td>

    <table cellpadding="0" cellspacing="0" border="0" class="display" id="GRID">

    </table>

    </td>

<tr>

</table>

</form>

<script type="text/javascript" src="//ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"> </script>

<script type="text/javascript" src="//ajax.googleapis.com/ajax/libs/jqueryui/1.11.0/jquery-ui.min.js"></script>

<script type="text/javascript" src="https://jquery-datatables-editable.googlecode.com/svn/trunk/media/js/jquery.dataTables.min.js"></script>

<script type="text/javascript" >

        var collListItem; //ListItems

        var chartX = [];  //X-Axis Labels

        var chartY = [];  //Y-Axis Values

        

        var Dataset = [];    //Dados do Item

       




        var chartJs = "/Qualidade/Documentos Compartilhados/Chart.js";

        var gridJs = "https://jquery-datatables-editable.googlecode.com/svn/trunk/media/js/jquery.dataTables.min.js";

        var listName = "Novo TimeCostService"; //Data List Name

        var fieldEquipe = "Equipe";    //X-Axis Label Names from List

        var fieldColaborador = "Author";    //Author

        var fieldBaseCliente = "BASECLIENTE";    //Base Cliente

        var fieldTempoGasto = "TempoGasto";    //TempoGasto

        var idColaborador = "lstColaborador";    //Colaborador

        var idEquipe = "lstEquipe";

        var idBaseCliente = "lstBaseCliente";

        var idResultado = "lstResultado";

        var idVer = "lstVer";




        var idChart = "Grafico";    //Chart Canvas Div

        var idGRID = "GRID";    //Grid Canvas Div

        var pInd = -1;  //Posicao do Indice




        var clientContext;

        var oList;

        var camlQuery;




        //Variaveis associadas ao desenho do chart

        var Registro = [];

        var Valor = [];

        var BaseCliente = [];

   

//Carrega Load de Form

Load();

//alert("fim");







//Faz carga dos Arquivos

function Load()

{

   //alert("CarregaSP()");

   SP.SOD.executeOrDelayUntilScriptLoaded( function () 

   {

       CarregaSP(SP);

       clientContext.executeQueryAsync(function () 

       {

           cctxload(collListItem);

           CarregaChart(); //Carrega Chart

       }, null);

   },'SP.js');

   

  //loadchart();

  //CarregaChart();

   

   //alert("Fim Load()");

}







function MontaListagem()

{

     Valor.length = 0;

               Registro.length = 0;

                

               //processa dados

               for(var contador=0;contador<Dataset.length;contador++)

               {

                  

                  var valor = Dataset[contador][2];

                  //var BaseCliente = Dataset[contador][3]["$4B_1"];

                  //Mostra os colaboradores ou Empresas

                  var item;

                  var flgitem;

                  //Mostra os colaboradores 

                  if(document.getElementById(idVer).selectedIndex==0)

                  {

                     item = Dataset[contador][1]["$4B_1"];

                     flgitem = PertenceLista(item,idColaborador);

                  }

                  else

                  {

                     item = Dataset[contador][3]["$4B_1"];

                     flgitem = PertenceLista(item,idBaseCliente);

                  }

                  if(flgitem==true) //Pertence a listagem de elementos Date lista

                  {

                      //verifica se tem o elemento em lstEquipe

                      var Posicao = VerificaVetor(Registro,item)

                      if (Posicao==-1)

                      {

                        //Insere o Registro

                        Registro.push(item); 

                        if(document.getElementById(idResultado).selectedIndex  == 0)

                        {

                          Valor.push(1);

                        }

                        else

                        {

                           Valor.push(valor);

                        }

                      }

                      else

                      {

                         if(document.getElementById(idResultado).selectedIndex == 0)

                         {

                            //Apenas incrementa valor

                            Valor[Posicao]++;

                         }

                         else

                         {

                          //Apenas incrementa valor

                          Valor[Posicao]=Valor[Posicao]+valor;

                         }

                      }

                   }

               }

}




function CarregaChart()

{    

              //Monta listagem de dados  

              MontaListagem();                      

           

              //Load Chart JS

              loadJS(chartJs, function () {




                    //Generate Data

                    var data = {

                        //Mostra os colaboradores 

                        labels: this.Registro,

                        datasets: [

                            {

                                data: this.Valor

                            }

                        ]

                    };




                    //Display Chart

                    var ctx = document.getElementById(idChart).getContext("2d");

                    var myNewChart = new Chart(ctx).Bar(data);

                });  

                

                //loadGrid();  //Carrega Grid        

           

}




function MontaGRID()

{

     Valor.length = 0;

     Registro.length = 0;

     $('#GRID').empty();







     $('#GRID').append('<thead><tr><th>Colaborador</th><th>Empresa</th><th>Tempo Gasto</th></tr></thead>');                

                

     //processa dados

     for(var contador=0;contador<Dataset.length;contador++)

     {           

                  

                  var colaborador = Dataset[contador][1]["$4B_1"];

                  var Empresa = Dataset[contador][3]["$4B_1"];

                  var TempoGasto = Dataset[contador][2];




                  $('#GRID').append('<tr><td>'+colaborador+'</td>'+'<td>'+Empresa+'</td>'+'<td>'+TempoGasto+'</td></tr>');                

                  

      }

}







function loadGrid()

{

    if($('#GRID').dataTable()==0)

    {

       $('#GRID').dataTable().fnDestroy();

    }

    //Monta listagem de dados  

    MontaGRID();  

  

    //Gera GRID

    $(document).ready(function() {

       $('#GRID').dataTable({

           'aaSorting': [[ 1, "desc" ]],

           'bDestroy': true

           });

    } );

}




function loadJS(src, callback) 

{

            var s = document.createElement('script');

            s.src = src;

            s.async = true;

            s.onreadystatechange = s.onload = function () {

                var state = s.readyState;

                if (!callback.done && (!state || /loaded|complete/.test(state))) {

                    callback.done = true;

                    callback();

                }

            };

            document.getElementsByTagName('head')[0].appendChild(s);

}




//Carrega Elementos da Equipe

function CarregaEquipe(Dataset)

{

    document.getElementById(idEquipe).length =0; //reseta elementos Date lista

    InsertItem(idEquipe, "Todos");

    for(var contador=0;contador<Dataset.length;contador++)

    {

      var item = Dataset[contador][0];




      //verifica se tem o elemento em lstEquipe

      if (testa_item(idEquipe,item)==false)

      {

          InsertItem(idEquipe, item);

      }

    }

}




//Carrega Elementos da Empresa

function CarregaEmpresa(Dataset)

{

    document.getElementById(idBaseCliente).length =0; //reseta elementos Date lista

    InsertItem(idBaseCliente, "Todos");

    for(var contador=0;contador<Dataset.length;contador++)

    {

      var item = Dataset[contador][3]["$4B_1"];




      //verifica se tem o elemento em lstEquipe

      if (testa_item(idBaseCliente,item)==false)

      {

          InsertItem(idBaseCliente, item);

      }

    }

}




//Carrega Elementos da Equipe

function CarregaColaborador(Dataset,Equipe)

{

    document.getElementById(idColaborador).length =0; //reseta elementos Date lista

    limpa_item(idColaborador);

    InsertItem(idColaborador, "Todos");

    for(var contador=0;contador<Dataset.length;contador++)

    {

         var item = Dataset[contador][1]["$4B_1"];

         var regEquipe = Dataset[contador][0];

         var flgcheck= false;

         //verifica se tem o elemento em lstEquipe

         if (Equipe=="Todos")

         {

            flgcheck=true;        

         }

         else

         {

            if(Equipe==regEquipe)

            {

                flgcheck=true;        

            } 

         }

         if(flgcheck==true)

         {

            //Verifica se nao esta na lista

            if (testa_item(idColaborador,item)==false)

            {

              InsertItem(idColaborador, item);

            }

         }

    }

}




//CarregaSP

function CarregaSP(SP) 

{

            //Carrega Informações da Conexao 

            clientContext = new SP.ClientContext.get_current();




            //Carrega informações da Lista

            oList = clientContext.get_web().get_lists().getByTitle(listName);

            camlQuery = new SP.CamlQuery();

          

       //alert("CarregaSP Passo1");        

            camlQuery.set_viewXml('<View>'+

                '<GroupBy collapse="true">'+

       '<FieldRef Name="Equipe" />'+

       '</GroupBy>'+

                '<OrderBy>'+

       ' <FieldRef Name="Equipe" />'+

       '</OrderBy>'+

       '</View>');

            //alert("CarregaSP Passo2");

            this.collListItem = oList.getItems(camlQuery);

            //alert("CarregaSP Passo3");

            clientContext.load(collListItem);

            //alert("CarregaSP Passo2");

}







//Executa Query de forma assincrona

function cctxload(collListItem) 

{

                var listItemEnumerator = collListItem.getEnumerator();

                Dataset.length = 0; //Inicia listagem

                //Create Points from ListData

               

                while (listItemEnumerator.moveNext())

                {                

                  var oListItem = listItemEnumerator.get_current();

                  var record = new Array (oListItem.get_item(fieldEquipe),

                                          oListItem.get_item(fieldColaborador),

                                          oListItem.get_item(fieldTempoGasto),

                                          oListItem.get_item(fieldBaseCliente));

                  Dataset.push(record);  

                }

                //Carrega Empresas

                CarregaEmpresa(Dataset);

                //Carrega a lista de equipe

                CarregaEquipe(Dataset); //Carrega Lista de Equipes

                //Carrega a lista de equipe

                CarregaColaborador(Dataset,"Todos"); //Carrega Lista de Equipes

 }







//Carrega Informacao do Sharepoint

function Main()

{

   

   CarregaChart();

}




//Se Confirma operação executa ação

function Show_Confirm(msg)

{

  if (confirm(msg))

  {

return true;

  }

   else

  {

return false;

  }

}




//Mostra mensagem de alerta

function Show_Warning(msg)

{

alert("Atenção! "+msg);

}




//Mostra mensagem de alerta

function Show_Erro(msg)

{

alert("Erro! "+msg);

}




/*Função de mascara a data*/

function mascara_data(data, edit)

{ 

              var mydata = ''; 

              mydata = mydata + data; 

              if (mydata.length == 2)

 { 

                  mydata = mydata + '/'; 

                  edit.value = mydata; 

              } 

              if (mydata.length == 5)

 { 

                  mydata = mydata + '/'; 

                  edit.value = mydata; 

              } 

              if (mydata.length == 10)

 { 

                  verifica_data(edit); 

              } 

} 




/*Realiza a verificação da data*/           

function verifica_data(edit) 

{ 

 

        dia = (edit.value.substring(0,2)); 

        mes = (edit.value.substring(3,5)); 

        ano = (edit.value.substring(6,10)); 

   bar_x = (edit.value.substring(2,3)); 

   bar_y = (edit.value.substring(5,6)); 

   bar_z = ( bar_x + bar_y ) ;

     




            situacao = true; 

if( edit.value != "")

{

           // verifica o dia valido para cada mes 

           if ((dia < 01)||(dia < 01 || dia > 30) && (  mes == 04 || mes == 06 || mes == 09 || mes == 11 ) || dia > 31) { 

               situacao = false; 

           } 

 

           // verifica se o mes e valido 

           if (mes < 01 || mes > 12 ) { 

               situacao = false; 

           } 




           // verifica se e ano bissexto 

           if (mes == 2 && ( dia < 01 || dia > 29 || ( dia > 28 && (parseInt(ano / 4) != ano / 4)))) { 

               situacao = false; 

           } 




           // verifica se as barras foram preenchida

           if (bar_z  != "//") { 

               situacao = false; 

           } 




   

           if (edit.value == "") { 

               situacao = false; 

           } 




           if (situacao == false) { 

               

Show_Erro("Data Inválida! Formato da data: dd/mm/yyyy"); 

               edit.focus(); 

           } 

}

return situacao;

} 




/*Mascara hora*/

function mascara_hora(hora, edit)

{ 

              var myhora = ''; 

              myhora = myhora + hora; 

              if (myhora.length == 2){ 

                  myhora = myhora + ':'; 

                  edit.value = myhora; 

              } 

              if(myhora.length == 5){ 

                  verifica_hora(edit); 

              } 

} 







/*função de range numerico*/           

function checa_range(edit,inicio,fim)

{ 

               

              situacao = true; 




 if(Number(edit.value) == NaN) 

 {

                  situacao = false; 

alert('Valor não é um número');

                  edit.focus(); 

              } 

  else

 {

    var Nro = Number(edit.value)

if((Nro < inicio) || (Nro > fim))

{

                 situacao = false; 

              alert('Valor fora da faixa!'); 

              edit.focus(); 

}

   

              } 

 return situacao;




} 




//onclick event controler

function onclickEvento(Controler, Label)

{

    if (Controler==idColaborador)

    {

      //alert("ok Colaborador");

      Main();

    }

    if (Controler==idEquipe)

    {

       //alert("ok Equipe");

      //limpa_item(idColaborador);

      CarregaColaborador(Dataset,Label)

    }

}




//onchange event controler

function onchangeEvento(Controler)

{

    var Label = document.getElementById(Controler)[document.getElementById(Controler).selectedIndex].text;

    if (Controler==idColaborador)

    {

      //alert("ok Colaborador");




    }

    if (Controler==idEquipe)

    {

      //limpa_item(idColaborador);

      CarregaColaborador(Dataset,Label)

    }

}







/*Insere Elemento em uma lista de itens*/

function InsertItem(List, Item)

{    

    var x = document.getElementById(List);

    var option = document.createElement("option");

    //option.onclick=function(){onclickEvento(List,Item);};

    x.onchange=function(){onchangeEvento(List,Item);};

    option.text = Item;

    x.add(option);

}




//Limpa um item selecionado do combobox

function limpa_item(List)

{

    var combo = document.getElementById(List);

combo.options.length = 0;  

}







//Testa item verificando se o mesmo ja existe

function testa_item(combo,item)

{

    var boExiste = false;

    var x = document.getElementById(combo);




    for(ab=0;ab<x.options.length;ab++)

{

if(x.options[ab].text==item)

{

boExiste = true;

            break;

}

}

return boExiste;

}




function VerificaVetor(Vetor,item)

{

    var flgExiste = false;

    for(contador=0; contador<Vetor.length;contador++)

    {

        if(Vetor[contador]==item)

        {

            flgExiste=true;

            //Caso encontre sai imediatamente

            break;

        }       

    }

    if(flgExiste==true)

    {

        return contador;

    }

    else

    {

        return -1;

    }

}




//Pesquisa a ocorrencia de um registro dentro da lista DOM

function PertenceLista(Registro,idItem)

{ 

    var flgExist= false;

    Lista = document.getElementById(idItem);

    for(var contador=0;contador<Lista.length;contador++)

    {

        if(Lista.options[contador].value == Registro) 

        {

            flgExist = true;

            break;

        }

    }

    return flgExist;

}




</script>

Continue lendo “Exemplo de Javascript Sharepoint”

Desenvolvimento de aplicações em C/C++

Desenvolvimento de aplicações em C e C++ para Windows (MFC) e Linux.

Com 5 anos de experiencia em C, em especial em GCC.

São projetos que já desenvolvi:

  • Interface de Comunicação com Mysql em Linux
  • Interface Gráfica usando  Visual Studio 6 C++ integrando URA dialogic em sistema ativo de market (2006)
  • Discador RAS usando Visual Studio 6 C++
  • Servidor Socket em Linux (Daemon)
  • Client Socket em Linux
  • Desenvolvimento aplicação de rede neural (FANN) Linux/ARM
  • Desenvolvimento aplicação Text to Speak Linux/ARM
  • Desenvolvimento aplicação Reconhecimento de Voz English to Text(linux) , Portuguese to Text(windows)

 

Exemplos de código

Desenvolvimento de Socket Server em Linux