PIULIVELLI

Il sistema è formato da una “vasca” in cui sono posizionati , su un righello, a circa 6 cm in verticale l’uno dalla ‘altro i terminali scoperti di 5 fili conduttori.

Il primo, il più in basso è collegato a terra (GND).

Gli altri 4 sono collegati ciascuno ad una resistenza di 470 kohm ,collegata a +5VDC.

I punti di unione fra i 4 fili uscenti dalla vasca e quello delle resistenza rappresentano il segnale di input per il micro(punto A).

Quando uno dei 4 fili superiori è scoperto il segnale registra una tensione di circa 4,8 VDC e quindi 1 logico. Quando l’acqua, conduttiva, bagna il terminale del filo immerso nella vasca ,punto A, viene prodotto un collegamento con il filo più in basso , punto B, e la tensione diventa 0.

In corrispondenza dell’innalzamento di livello viene acceso un led per ognuna delle 4 posizioni.

Il programma può essere modificato per effettuare un controllo fino alla posizione desiderata.

Schema collegamento sensori

Vasca con i sensori

Le schede di acquisizione dati e segnalazione di livello:livello massimo 4 led accesi

IL LISTATO

Const Device = CB280

Dim a As Integer

Dim i As Integer

Dim sp1 As String

Dim r As Single

Set Debug On

Debug CLR

sp1="livellostato"

scrivist 1,sp1

Out 5,0

Do

For i=1 To 4

a=In(i-1)

If a=1 Then Out 9+i,0

If a=0 Then Out 9+i,1

Next

Loop

Sub seriale()

Bclr 0,1

Opencom 0,9600,18,9,54

Bclr 1,2

For i=1 To 9

If i=7 Then r=77777

If i=8 Then r=88888

If i=9 Then r=99999

sp1=Fp(r,5,0)

Putstr 0,sp1

Next

Delay 300

End Sub

'soubroutine che visualizza alla riga

'il numero=num Con decimali=decim

's=testo4

Sub scrivi(riga As Integer,ss As String,num As Single,decim As Integer)

Debug Goxy,1,riga

Debug ss

Debug Fp(num,10,decim)

Debug Goxy,1,riga

End Sub

'soubroutine che visualizza alla riga

'il testo=s

Sub scrivist(riga As Integer,ss As String)

Debug Goxy,1,riga

Debug ss

End Sub