iburol

/*
 * Prueba del UNI-T UT71E
 *
 * Created: 30/03/2016
 * Author: Ismael Burgos
 *
 * https://electroprogramacionblog.wordpress.com
 *
 */ 

iburol

# clock pin for Basys Board
NET "CLK" LOC = "p54"; # Bank = 2, Signal name = CLK1
#NET "CLK2" LOC = "p53"; # Bank = 2, Signal name = CLK1

# Pin assignment for DispCtl
# Connected to Basys onBoard 7seg display

NET "seg<6>" LOC = "p25"; # Bank = 3, Signal name = CA
NET "seg<5>" LOC = "p16"; # Bank = 3, Signal name = CB
NET "seg<4>" LOC = "p23"; # Bank = 3, Signal name = CC

iburol

<?xml version="1.0" encoding="UTF-8"?>
<interface>
  <requires lib="gtk+" version="2.24"/>
  <!-- interface-naming-policy project-wide -->
  <object class="GtkWindow" id="window1">
    <property name="can_focus">False</property>
    <property name="title" translatable="yes">Analizador de Vibraciones</property>
    <signal name="destroy" handler="evento_terminar" swapped="no"/>
    <signal name="destroy-event" handler="evento_terminar" swapped="no"/>
    <child>

iburol

#!/usr/bin/env python
# -*- coding: utf-8 -*-

import pygtk
import gtk
import gtk.glade
import numpy
import matplotlib.pyplot as plt
import serial
import scipy

iburol

/*
 *
 * Author: Ismael Burgos
 *
 * Blog: https://electroprogramacionblog.wordpress.com
 *
 */ 

#define F_CPU 16000000

iburol

TYPE
  Color:  (amarillo, verde, rojo);  (* enumeración *)
  Lectura_Sensor: INT (-50..125); (* rango *)
  Medida: ARRAY[0..20] OF Lectura_Sensor; (* array *)
  TestBanco:
    STRUCT
      Puesto: UINT; (* Tipo de dato simple *)
      Baliza: Color:= rojo; (* Enumeración con inizialización *)
      Medida1:  Medida; (* tipo array *)
      Medida2:  Medida; (* tipo array *)

iburol

TYPE
  Longitud_Numero_FLOAT:  LREAL; (* Desde un tipo de dato IEC *)
  Numero_ComaFlotante:  Longitud_Numero_FLOAT;  (* Desde un tipo de dato definido por el usuario *)
  Numero_FLOAT: LREAL:=1.0; (* Inicialización de la variable *)
  Flag_Control: BOOL:=TRUE; (* Inicialización de la variable *)
END_TYPE

iburol

-- --------------------------------------------------------------------------
--
-- Título       :  Controlador Microondas
-- Librería     :  IEEE
-- Definicion   :  ContadorBCD
-- --------------------------------------------------------------------------
-- Autor    :  Ismael Burgos
-- --------------------------------------------------------------------------
-- historia : versión definitiva.
-- --------------------------------------------------------------------------

iburol

-- --------------------------------------------------------------------------
--
-- Título       :  Controlador Microondas
-- Librería     :  IEEE
-- Definicion   :  Este código define el controlador de un Microondas. 
-- --------------------------------------------------------------------------
-- Autor    :  Ismael Burgos
-- --------------------------------------------------------------------------
-- historia : versión definitiva.
-- --------------------------------------------------------------------------

iburol

%Función DFT. Calcula y representa la Transformada
%de Fourier compleja de una señal.
%La representación se limita a frecuencias entre 0 y 1/2
function y = dft(x)
    n = length(x);
    y = fft(x);
    %Una vez obtenida la DFT la se representa
    %en polares
    f=100/n*(1:(n/2-1));
    module = abs(y);