Osciloscopio virtual - DIY (3 / 4 paso)

Paso 3: Software para PC y Software embebido

Las direcciones de los tres registros que contienen señales digitalizadas son

AN1 3C2h 962
AN4 3C8h 968
AN5 3CAh 970

Aquí está parte del código de Firmware:

Descripción: Inicialización de un convertidor AD en AN1
*****************************************************************************/
InitAD vacío (void)
{
adcon0 = 0 x 09;      / * disparador de sw, modo de repetición, AN1 * / / / este es ORIGINAL para los CDS
adcon1 = 0 x 20;      / * vref conectado, modo 8 bits * /
adcon2 = 0 x 01;      / * Grupo P10, muestra y mantenga presionado * /

adcon0 = 0 x 09;      / * disparador de sw, modo de repetición, AN1 * / / / / este se agrega por ABOHMEED FOR AN4
adcon1 = 0 x 20;      / * vref conectado, modo 8 bits * /
adcon2 = 0 x 01;      / * Grupo P10, muestra y mantenga presionado * /

adst = 1;           / * Iniciar conversión * /
}

Software:

La PC del anfitrión ejecuta un programa VB expreso que leer en las direcciones mencionadas en la selección de usuario del puerto de entrada deseada y maneja estos datos de entrada a una clase virtual osciloscopio que la señal en tiempo real.

El usuario selecciona el canal de entrada de la caja de una radio. El resultado carga el registro de control de analógico a digital 0 (adcon0 Dirección 982) con uno de tres entradas según el puerto de entrada deseado:

AN1 h 49
AN4 4Ch
AN5 4Dh

Desde el cliente basado en PC, el usuario puede elegir el canal de entrada que aparecerá en el osciloscopio virtual y la tasa a la que se muestra.

Aquí está la parte de código de Visual Basic.net (corriendo en PC)

Privada Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) maneja Button2.Click

Si Button2.Text = "Ejecutar" luego
Button2.Text = "Detener"
Button1.Enabled = False
Button4.Enabled = False

Dim D1(2) como doble
' Dim Db como doble
Dim te como entero

ScopeStarted = True

D1(0) = 0

Hacer

''''''''''''''''''''''''''''''''''''''''''''

HTS. GetMemory2 (lBegin, echar, lDisplayWidth, vMemData)

outValue = vMemData.GetValue(0)

D1(0) = outValue * 0.01953125

TextBox1.Text = outValue
TextBox2.Text = D1(0)

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Para i = 0 a 10000 paso 1

' Call ExternalNext (scopehandle, Db)
Llamada ShowNext (scopehandle, D1(0))

Siguiente

Bucle hasta (no ScopeStarted)

Otra cosa
Button2.Text = "Ejecutar"
Button1.Enabled = True
Button4.Enabled = True
ScopeStarted = False
End If
End Sub