Código Android (B4A)

Version=2.52 IconFile= NumberOfModules=0 Package=anywheresoftware.b4a.samples.serial DoNotOverwriteManifest=False ManifestCode= UserTypesHint= NumberOfFiles=3 File1=1.bal File2=LayoutSamsung.bal File3=LayoutSONY.bal NumberOfLibraries=3 Library1=audio Library2=core Library3=serial @EndOfDesignText@ #Region Module Attributes #FullScreen: False #IncludeTitle: True #ApplicationLabel: HHO Monitor #VersionCode: 1 #VersionName: #SupportedOrientations: unspecified #End Region 'Activity module Sub Process_Globals Dim Serial1 As Serial Dim TextReader1 As TextReader Dim Timer1 As Timer Dim connected As Boolean Dim LecturaFallida As Int Dim BufferRx(8) As Char End Sub Sub Globals Dim TramLog As Label Dim LAmp2 As Label Dim LAmp1 As Label Dim LAmp0 As Label Dim LVol2 As Label Dim LVol1 As Label Dim LVol0 As Label Dim LPWM2 As Label Dim LPWM1 As Label Dim LPWM0 As Label Dim ON_OFF As Label 'S=ON, N=OFF. Dim Aviso As Beeper End Sub Sub Activity_Create(FirstTime As Boolean) If FirstTime Then Serial1.Initialize("Serial1") Timer1.Initialize("Timer1", 80) End If Activity.LoadLayout("layoutsamsung") Activity.AddMenuItem("Connect", "mnuConnect") Activity.AddMenuItem("Disconnect", "mnuDisconnect") mnuConnect_Click End Sub Sub Activity_Resume If Serial1.IsEnabled = False Then Msgbox("Please enable Bluetooth.", "") Else Serial1.Listen 'listen for incoming connections End If End Sub Sub Serial1_Connected (Success As Boolean) If Success Then ToastMessageShow("Connected successfully", False) TextReader1.Initialize(Serial1.InputStream) Timer1.Enabled = True connected = True Aviso.Initialize2(500,2000,4) '500 milisegundos Aviso.Beep '2000 Hz,  4 volu. Else connected = False Timer1.Enabled = False Msgbox(LastException.Message, "Error connecting.") End If End Sub Sub mnuConnect_Click     Serial1.Connect("20:13:09:13:30:04") End Sub Sub mnuDisconnect_Click Serial1.Disconnect connected = False End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Timer1_Tick If connected Then If TextReader1.Ready Then 'check if there is any data waiting to be read Dim Buffer As String Dim Text As String Buffer = TextReader1.ReadLine LAmp2.Text=Buffer.SubString2(0,1) LAmp1.Text=Buffer.SubString2(1,2) LAmp0.Text=Buffer.SubString2(2,3) LVol2.Text=Buffer.SubString2(3,4) LVol1.Text=Buffer.SubString2(4,5) LVol0.Text=Buffer.SubString2(5,6) LPWM2.Text=Buffer.SubString2(6,7) LPWM1.Text=Buffer.SubString2(7,8) LPWM0.Text=Buffer.SubString2(8,9) If Buffer.SubString2(9,10)="N" Then ON_OFF.Visible=True Else ON_OFF.Visible=False End If TramLog.Text =Buffer LecturaFallida=0 Else LecturaFallida=LecturaFallida+1 If LecturaFallida=10 Then Aviso.Initialize2(500,700,4) '500 milisegundos Aviso.Beep '700 Hz,  4 volu. TramLog.Text ="Comunicación interrumpida." LAmp2.Text ="-" LAmp1.Text ="-" LAmp0.Text ="-" LVol2.Text ="-" LVol1.Text ="-" LVol0.Text ="-" LPWM2.Text ="-" LPWM1.Text ="-" LPWM0.Text ="-" End If End If Else ToastMessageShow("B.T. Desconectado.", False) End If Buffer="" End Sub

Empezando a producir

Ya tenemos todo montado, solo queda poner en marcha el motor para dar vida a nuestra criatura y empezar a producir HHO. En un primer momento necesitaremos comprobar muy a menudo el comportamiento del sistema a través del smartphone, supervisando el consumo de corriente y ver los ajustes que realiza automáticamente el circuito cuando está sometido a cambios de temperatura y vibraciones. Mantendremos en un lugar visible los datos que nos proporciona el sistema (cuidadito con la conducción) y que en un futuro solo lo utilizaremos eventualmente para mantenimiento. El interruptor de activación es algo que tampoco es necesario que sea manipulado constantemente. Lo dejamos activado y cuando dejemos el vehículo parado el sistema se desconecta con toda seguridad. Esto último que comento solo es válido para el montaje tal cual está representado. Cualquier modificación del mismo puede saltarse la cadena de seguridad de desconexión y ocasionar graves consecuencias. Volvamos al modo de como supervisar el sistema. El dato más relevante que necesitamos conocer es el de la corriente consumida, siempre tiene que ser inferior al máximo que hayamos programado. Podrá empezar en un valor bajo pero poco a poco según el sistema empiece a tomar temperatura se tiene que estabilizar en el marcado en la variable “Imax” del firmware del PIC. El resto de indicadores nos informaran de lo siguiente: V: Nivel de tensión de alimentación. Normalmente tendremos un valor superior a 14V. Solo en casos puntuales de excesiva demanda de corriente este puede bajar hasta los 13,9V. %pwm: Nivel de regulación del módulo PWM. Un valor de 100% informa que se está entregando toda la energía al sistema. Según la necesidad de acortar el paso de corriente, este valor irá bajando para ajustarse al valor “Imax”. Icono célula: Tengo representado un dibujo de la célula que se muestra “operativa” cuando está en funcionamiento y con un aspa roja cuando se ha cortado la producción de HHO. Ventana de notificaciones: En la esquina inferior izquierda tenemos una pequeña región donde se muestra información del estado de la comunicación con la electrónica de control. Tal y como he mencionado, si por las condiciones de circulación (retención motor) no fuese necesario producir HHO, esta queda reflejada en el icono de la célula con el aspa en rojo y el valor de consumo de corriente caería a 0A (el valor V puede variar pero en menor medida). Completo toda esta información con el código realizado en B4A para smartphone android:

En esta foto se muestran las indicaciones en pleno funcionamiento. El consumo de corriente se encuentra entre “Imin:10A” e “Imax:11”, la tensión de batería por encima de 14V y una regulación del PWM del 76%. Todos estos valores son normales y nos muestra el sistema regulando la corriente en función del estado del electrolito.

Un código muy ligero y sin grandes pretensiones nos servirá para monitorizar el sistema.

Con el sistema desconectado se muestra que no hay producción de HHO. No existe lectura para el resto de valores.

Con el contacto puesto y el motor parado seguimos sin producir HHO pero ya recibimos información.

Conclusiones

Para tener un dato objetivo que nos indique un ahorro de combustible real, es necesario que las pruebas se realicen en condiciones semejantes cuando estamos con o sin el sistema HHO. Hay que añadir influencia externa como tráfico y condiciones climáticas que de uno u otro modo afectan a nuestra manera de conducir. Tengo que hilar tan fino por que no es de esperar que la reducciones del consumo sean tan llamativas en motores optimizados como los HDI o en cualquier otro modelo de hoy en día. Lo primero es establecer el consumo real sin aplicar hidrógeno en un recorrido que se efectúe habitualmente. El consumo que se obtenga repetido más número de veces será el válido como muestra para poder comparar. Las pruebas fueron realizadas llenado el depósito en su totalidad y calculando el valor medio de consumo y/o kilómetros recorridos. Para evitar que de manera inconsciente pudiera alterar el modo de conducción he sido lo más disciplinado posible en aplicar los mismos vicios y picardías en el ahorro de combustible con y sin el HHO, como aprovechar al máximo las inercias en ciudad, utilizar punto muerto en momentos puntuales y tener cuidado con las aceleraciones bruscas. Con todo esto he obtenido unas cifras sin el HHO de 3,6l a los 100 en tres depósitos y 3,5l en otros dos, superando los 1500Km por depósito. Se ha circulado un 70% carretera (entre 90 y 120Km/h) y el 30% ciudad, con el 70% del tiempo ocupado por una sola persona y recorrido generalmente llano. El motor es el 1.6 de 90CV con 5 velocidades consumiendo gasoil del caro. Con estas cifras tan sorprendentes se lo he puesto muy difícil al HHO para que las pueda rebajar.  Activando el HHO la reducción del gasto de combustible tal y como me esperaba no ha sido tan llamativa. Una mejora muy sutil de 100Km que no compensa claramente todo el trabajo realizado. Siempre se ha mantenido un consumo de corriente de 10A y una producción de HHO próxima a los 3/4 litros minuto. Aplicando el sistema a una conducción más “normal” es posible que la diferencia en el ahorro de combustible serían más abultado. Lo que ha mejorado es el comportamiento del motor. Ahora se tienen sensaciones más agradables en cuanto a suavidad de conducción. Una aceleración más elástica que reduce el efecto “tractor” clásico de los diesel, sin penalizar el consumo ni observar sufrimiento aparente del motor. No llega a comportarse como un gasolina pero muestra una aceleración adictiva cuando pisamos el acelerador desde bajas revoluciones. Está claro que algo hace, pero si lo que andamos buscado es ahorro de combustible lo más efectivo es cambiar la manera de conducir. Esto no tiene por que quedarse aquí, puede modificarse el comportamiento del sistema modificando la producción de HHO en función de las revoluciones (aumentado a altas revoluciones y dejando en reposo el sistema en ralentí). Aumentar el rendimiento de la célula lo máximo posible reduciendo el consumo de corriente sería el mejor de los caminos para conseguir reducir el consumo más evidentes. Aclaración: La producción de HHO no es gratuita, estamos consumiendo 10A de forma continua que salen del combustible (aprox. 150W). Esta potencia se la cargamos al motor que tenemos que compensar con el aumento de rendimiento que debería de proporcionarnos el hidrógeno en la combustión. Hay que entender que el HHO es como añadir un “aditivo” que mejora la combustión y por ello aprovecharíamos mejor el combustible. Esto dependerá del tipo de motor, tecnología del mismo y muchos otros factores teóricos que pueden aburrir a las vacas. El hidrógeno en extremadamente explosivo, tiene más poder energético que la gasolina, por esto, la producción de HHO debe ser consumida instantáneamente y se desaconseja su almacenamiento. Toda esta información tiene carácter divulgativo y da a conocer mi experiencia con un sistema HHO en motores HDI. No me hago responsable de cualquier daño ni perjuicio que pueda producirse por la realización y/o manipulación de cualquier sistema de este tipo, o la aplicación de las notas aquí expuestas.