Kanal 5 | Kanal 6 | |
gemessen wird | Impulshöhe |
Impulshöhe |
Methode | (A/D-Wandler) | (A/D-Wandler) |
Sondentyp, Bezeichnung | z.B. Sonde mit NaI(Tl)-Scintillator | z.B. Sonde mit ZnS-Scintillator |
vorgesehen für | Spektrometrie | Spektrometrie |
Voltmeter mit 1GOhm
Innenwiderstand
Der Innenwiderstand des Voltmeters sollte 1Giga-Ohm betragen. Mit diesem kann dann selbst eine sehr hochohmige Spannungsquelle überprüft werden, ohne diese relevant zu belasten. Sehr einfach entsteht ein solches 1GOhm-Voltmeter, wenn der 2000mV Messbereich eines preiswerten Digitalvielfachmessgerät (1MOhm Innenwiderstand ) mit einem 1GOhm Vorwiderständ erweitert wird. Kenntnis über Messbereichserweiterung von Voltmetern ist für den weiteren Ausbau Voraussetzung. Für das 1Giga-Ohm-Voltmeter werden nun die folgenden Bauteile benötigt: ![]() Bild1 Bauteile für das 1Giga-Ohm-Voltmeter (von links nach rechts): 1.) Ein kleines Digitalvoltmeter mit 1MOhm Innenwiderstand 2.) Ein durchsichtiges Plastikgehäuse 3.) Ein Schiebeschalter (Ein/Aus) 4.) Ein 1GOhm-Vorwiderstand (100 x 10MOhm) (auf dem Foto nicht ganz fertig gelötet) Den 1GOhm Vorwiderstand löte ich mir aus 100 Stück 10MOhm Widerständen auf zwei kleine Pertinaxplatten Lochraster zusammen. Dann habe ich alles zusammen wie folgt in das Plastikgehäuse angeordnet. Der Messbereich innen am Digitalvoltmeter ist auf 2000mV voreingestellt. Mit dem Schiebeschalter oben auf der Stirnseite wird das Gerät Ein- und Aus geschaltet. Die Messbereichserweiterung mit dem 1GOhm Vorwiderstand ermöglicht nun genaue Spannungsmessungen auch an leistungsschwachen Hochspannungsquellen bis 2000 Volt Hochspannung. Ansichten des Eigenbau-Voltmeter mit 1GOhm Innenwiderstand : ![]() ![]() ![]() Bild2 :
Ansicht Rückseite (geöffnet)
Bild3
: Ansicht
Vorderseite...
Bild4 : .. und
beschriftet
Mit
einer energiereichen HV
und einem Digitalmultimeter lässt sich die Genauigkeit des
Eigenbau-HV-Meters überprüfen. Falls nötig
auch
nachkalibrieren.
![]() Bild 5 : Mein Eigenbau-HV-Meter (rechts im Bild) habe ich mit einer energiereichen HV-Quelle und einem Multimeter auf ausreichende Messgenauigkeit überprüft und
fertig ist das Voltmeter mit 1GOhm Innenwiderstand
|
Damit Beta-Strahlung nicht
übersehen wird, sollen zwei oder vier russische SBM20 zum
Einsatz kommen. Die
SBM20-Zählröhre ist eine besonders auf
Beta-Strahlung und auch auf
Gamma-Strahlung sehr empfindlich reagierendes russisches
Standardzählrohr.
![]() Die Zählrohrspannung beträgt 330 Volt bis 400 Volt Schaltungsbeispiele mit dieser Röhre finden sich auf folgenden WEB-Seiten --> Eigenbau Geigerzähler Ein russisches Datenblatt zu der gleichwertigen STS5 zeigt das folgende Foto: ![]() Datenblatt zur STS5 Geiger-Müller-Zählröhre Weil mein Eigenbau-Strahlenmessgerät YB-Mini-Monitor mit genau diesen Röhren ausgestattet ist und auch einen Ausgang für einen externen Impulszähler besitzt, kann ich sofort einen meinerYB-Mini-Monitore an den Datalogger anschliessen. Das ist natürlich sehr bequem für mich ! Der YB-Mini-Monitor besitzt einen Impulsausgang zum Anschluss eines externen Zählers und ist damit als ein weiterer Sensor für den geplanten Datalogger ideal geeignet. ![]() YBMM01 YBMM04 YB-Mini-Monitor mit russischen Zählröhren Die Schaltung für dieses Gerät ist auf folgender WEB-Seite ausführlich beschrieben: --> YB-Mini-Monitor |
Für Gamma Strahlung ist die Sonde
sehr empfindlich. Leider nicht so sehr für
Beta-Strahlung. Die
Beta-Gamma-Sonde vom RAM63 kann deshalb gut mit aufgeschraubtem Deckel
betrieben werden, so das nur Gamma-Strahlung registriert
wird.
Es handelt sich um
eine Sonde mit einem Scintillator,
der in eine Plastmasse eingebettet ist. Diese Sonde enthält
dazu
einen Photomultiplier und einen Vorverstärker. Zur Messung der
Gamma-Hintergrundstrahlung mittels Impulszählung ist diese
Sonde sehr gut geeignet. Auf
der Rückseite sind einige Anschlüsse
herausgeführt.
Fünf davon sind für den weiteren Ausbau
relevant. Das
folgende Bild zeigt die Belegung :
Als Signalverstärker für diese Sonde kann ein Teil der 1. Vorstufe meines Eigenbau-Gamma-Spektrometer (YB-Mini-MCA) dienen. Dieser MCA war ursprünglich auf diese RAM63 Sonde ausgelegt. Diese Schaltung wird etwas vereinfacht und dann auch hier eingesetzt. Anmerken möchte ich, das diese Schaltung zur Beobachtung der Radioaktivität in einer natürlichen Umwelt (z.B. Wohnumgebung und Umweltmesstechnik) vorgesehen ist. ![]() Signalverstärker Eigenbau Entwurf für die RAM63-Beta-Gamma-Sonde Die beiden Potis im Signalverstärker habe ich so justiert, das der Nulleffekt (ca. 0,1µSv/h Gamma Hintergrund) gemessen mit der Beta-Gamma-Sonde am Ausgang (Z1) 100 Impulse in 100 Sekunden ausmacht Der ganze Aufbau funktioniert sehr gut. Beschreibung der Schaltung : Das Signal am Signaleingang (IN) kommt von Pin4 der Ram63-Beta-Gamma-Sonde. Die beiden CA3140 bilden einen einfachen Peakholder in Verbindung mit einer Signalverlängerung. Im Anschluss erzeugt ein Schmitt-Trigger die Rechteckimpulse, welche ein noch zu bauendes Impulszähler-Modul verarbeiten soll. Mit P1 wird die Diskriminatorschwelle für die Rauschunterdrückung justiert. Der 1M Trimmer neben dem 47nF Kondensator stellt die Signalverstärkung ein. Sobald die beiden Trimmer richtig justiert sind, steht am Ausgang Z1 der CMOS-kompatible Zählimpuls zur Verfügung. Dieser Ausgang Z1 wird nun mit einem ganz normalen Impulszähler verbunden oder kann mit dem Zählereingang eines geeigneten Datenspeichers verbunden werden. Letzteres kann z.B. eine C-Control-Unit (z.B. C-Control-MEGA) sein , oder ein anderer Mikrocontroller mit Speicher z.b. Arduino oder das Adafruit Data Logging Shield . Auch andere Systeme , z.B. ein Laptop mit einem USB-Zähler-Adapter dürften sich eignen. Ich selber werde voraussichtlich eine C-Control-MEGA einsetzen. Ein passendes Programm für die C-Control gibt es dann voraussichtlich hier an dieser Stelle, sobald alles fertig gebaut ist. |
![]() Gesamtansicht 2-Kanal-Alpha-Detektor (Eigenbau) |
![]() Die Sondenkabel habe ich
während der Testphase mit einem Kunstoffdeckel und mit Klebeband fixiert.
|
![]() Anschließend
wird die Kabelzuführung oben mit Isolierband lichtdicht
umwickelt und die Signalleitung wird gut geschirmt.
|
Die Alpha-Sonde vom Ram63 passt prima auf den Glasbehälter einer ungarischen Paprikapaste. |
![]() Alpha-Sonde wird locker oben auf den Glasbehälter aufgesetzt
(Der Luftspalt zwischen Sonde und Glas sorgt für natürliche Luftzirkulation) |
' Zähler und Datenspeicher für einen Geigerzähler ' Mit digitaler LCD-Anzeige ' realisiert mit C-Control-Pro Mega-32 ' Äquivalentdosis in nSv/h wird angezeigt ' weitere Daten sind per Tastendruck abfragbar ' + Datenübertragung an PC über RS232-Schnittstelle ' Mit LED Ausgang als Warnsignal falls Dosisrate sich ändert ' Messwertspeicher für 150 Messwerte ' Datentübertragung über RS232-Schnittstelle an den PC ' 2 LEDs sind für Warnsignal (DYSI0-Signal) vorgesehen. ' LED1 leuchtet gelb ............: DYSI0 grösser 1.5 (Vorwarnung) ' LED2 leuchtet blau ............: DYSI0 grösser 2.0 (Erkennungsgrenze) ' LED1 + LED2 leuchten gelb+blau : DYSI0 grösser 3.0 (Nachweisgrenze) ' erforderliche Library: IntFunc_Lib.cc, LCD_Lib.cc 'Die ersten beiden blauen Tasten auf dem Gehäuse: #define SIGMA 18 'Anzeige Sigma nSv/h #define COUNT 19 'Anzeige Zählerstand 'DYSI0 (eine einfache dynamische Signifikanzabschätzung) 'Das Programm überprüft laufend die Messwerte auf Poisson-Verteilung. 'werden beide blaue Tasten gleichzeitig betätigt, 'dann wird der aktuelle DYSI0-Wert angezeigt, 'welcher sich aus den vergangenen maximal sechs 'Messintervallen berechnet. 'Die Bedeutung von DYSI0... 'DYSI0 ist größer 2 : "es gilt als erkannt , das 'die Messwerte nicht Poisson-verteilt sind" '--> Warnung vor aktuell geringen Änderungen der Radioaktivität in der Umgebung 'DYSI0 ist größer 3 : "es gilt als nachgewiesen, das 'die Messwerte nicht Poisson-verteilt sind" '--> Warnung vor aktuell großen Änderungen der Radioaktivität in der Umgebung 'schwarze Taste auf dem Gehäuse #define CPM 20 'Anzeige IPM (Impulse pro Minute) ' zwei rote Tasten auf dem Gehäuse #define ZEIT 21 'Anzeige Messzeitspanne (Minuten) #define MITTE4 22 'Anzeige Mittelwert aus den letzten 6 Perioden '= Tages Mittelwert im MODUS LONG '= sechs Minuten Mittelwert im MODUS SHORT 'werden beide roten Tasten gleichzeitig betätigt, 'dann erfolgt ein RESET Datenspeicher wird geleert 'alle Merker auf NULL gesetzt und Messvorgang startet erneut. #define SL 23 'Umschaltung MODUS Short/Long 'LONG-Modus : Messzeitspanne 4 Stunden 'SHORT-Modus : Messzeitspanne 1 Minute ' Die erste Taste auf dem Projektboard ' ist als Impulseingang vorgesehen ' gezählt wird mit ansteigender Impulsflanke #define Button 26 'Impulseingang 'die zweite Taste auf dem Projektboard #define Button2 27 'Daten senden 'wird nicht direkt an Masse gelegt, sondern über ein RC-Glied '1MOhm parallel zu 1µF dadurch erhält der Eingang nur einen 'kurzen Impuls und die Datenübertragung startet sofort. #define kalfaktor 0.5 'Kalibrierfaktor = 0.5 für SBM20 '(wird an die Zählröhre angepasst) #define zeit_s 60 '1 Minute Messzeit #define zeit_l 14400 '4 Stunden Messzeit 'Datenspeicher für 150 Messwerte 'Daten gehen bei Stromausfall verloren '(Pufferbatterie bei Netzausfall vorsehen !) #define Nspeicher 152 'Feld-Grösse des Datenspeichers Dim cnt,delval As Single Dim i,j,warnung As Integer Dim S1,S2 As Single Dim dosis,dosis2,gdosis,wert1 As Single Dim wert2 As Word 'Single ' Deklaration der globalen Dim zeile1(20) As Char ' Variablen Dim zeile2(10) As Char Dim sekunde,sekunde10,sekunde60,TT,JJ,N,JJi As Word Dim cnt1 As Word Dim wurzel,faktor As Single Dim mittel,sigma,x1,x2,x3,x4,x5,x6,x7,dysi0,zaehler As Single Dim feld1(Nspeicher) As Single Dim Zflag,SBM20 As Integer Dim einheit1(10) As Char ' Deklaration der globalen Dim einheit2(10) As Char ' Deklaration der globalen '--------------------------------------------------------------------- 'RS232 Scnittstelle initialisieren Dim buffer(20) As Byte '------------------------------------------------------------------------------- ' Hauptprogramm ' Sub main() Serial_Init(0,SR_8BIT Or SR_1STOP Or SR_NO_PAR,SR_BD9600) AbsDelay(100) Serial_Write(0,10) Serial_Write(0,13) SBM20=4 'Anzahl der SBM20 Zählröhren 'SBM20 = 1 : YBMM01 'SBM20 = 2 : YBMM02 'SBM20 = 4 : YBMM04 delval=2000 'Wartezeit für LED1 sekunde10=1 zaehler=0 Port_DataDirBit(PORT_LED1,PORT_OUT) Port_WriteBit(PORT_LED1,PORT_OFF) Port_DataDirBit(31,PORT_OUT) Port_WriteBit(31,PORT_OFF) Port_DataDirBit(Button,0) Port_WriteBit(Button,1) Port_DataDirBit(Button2,0) 'Speicher Port_WriteBit(Button2,1) 'Speicher Port_DataDirBit(18,0) 'Sigma Port_WriteBit(18,1) 'Sigma Port_DataDirBit(19,0) 'Zähler Port_WriteBit(19,1) 'Zähler Port_DataDirBit(20,0) 'CPM Port_WriteBit(20,1) 'CPM Port_DataDirBit(21,0) 'Zeit Port_WriteBit(21,1) 'Zeit Port_DataDirBit(22,0) 'Mittel Port_WriteBit(22,1) 'Mittel Port_DataDirBit(23,0) 'SL Port_WriteBit(23,1) 'SL Irq_SetVect(INT_0,IRQ) Ext_IntEnable(0,2) cnt=0 i=1 j=0 TT=zeit_s 'SHORT 1 Minute Abtastzeit (in Sekunden) TT=zeit_l 'LONG 4 Stunden Abtastzeit (in Sekunden) JJ=0 LCD_Init() ' Display wird initialisiert LCD_ClearLCD() ' Display wird gelöscht LCD_CursorOff() ' Cursor wird ausgeschaltet Irq_SetVect(INT_TIM2COMP,INT_10ms) 'Interrupt für Zeitkontrolle 'Wenn beim Einschalten die Taste 1 (SIGMA) gedrückt ist, dann 'wird auf YBMM01 initialisiert If Port_ReadBit(SIGMA)=0 Then SBM20=1 End If 'Wenn beim Einschalten die Taste 2 (Zähler) gedrückt ist, dann 'wird auf YBMM02 initialisiert If Port_ReadBit(COUNT)=0 Then SBM20=2 End If ' vorbereiten faktor = 1.0*kalfaktor/SBM20 'Anzeige der Version wert2=0 dosis=0.0 einheit2="YBMM04-B" If SBM20=1 Then einheit2="YBMM01-B" End If If SBM20=2 Then einheit2="YBMM02-B" End If If SBM20=4 Then einheit2="YBMM04-B" End If Ausgabe() 'Ende Anzeige der Version 'LED1 und LED2 Test Port_WriteBit(PORT_LED1,PORT_ON) Port_WriteBit(PORT_LED2,PORT_ON) AbsDelay(delval) Port_WriteBit(PORT_LED1,PORT_OFF) Port_WriteBit(PORT_LED2,PORT_OFF) zeile1=" 0.00" ' default Wert für Zeile1 zeile2=" 0.00" ' default Wert für Zeile2 sekunde=1 Do While (True) ' Endlosschleife wird gestartet TT=zeit_s 'Abtastzeit= 1 Minute If Port_ReadBit(SL)=0 Then TT=zeit_l 'Abtastzeit= 24 Stunden End If wert1=cnt wert2=sekunde dosis=1000.0*zaehler/sekunde*faktor If sekunde>=TT Then 'sekunde=1 JJ=JJ+1 'speicherinhalt verschieben If JJ=Nspeicher-1 Then i=2 Do While i<Nspeicher-1 feld1(i-1)=feld1(i) i=i+1 End While JJ=Nspeicher-2 End If feld1(JJ)=wert1 'Berechnen von dysi0 If JJ>0 Then N=0 S1=0.0 S2=0.0 Do While N<6 And N<JJ S1=S1+feld1(JJ-N) S2=S2+feld1(JJ-N)*feld1(JJ-N) N=N+1 End While mittel=1.0*S1/N sigma=1.0*S2/N-mittel*mittel sqrt(sigma) sigma=wurzel sqrt(mittel) dysi0=100*sigma dysi0=dysi0/wurzel dosis=1.0*dysi0*0.01 Port_WriteBit(PORT_LED2,PORT_OFF) Port_WriteBit(PORT_LED1,PORT_OFF) warnung=0 If dysi0>=150 And dysi0<200 Then 'falls SIGNIFIKANTE Änderung erkannt, dann LED1 kurz einschalten warnung=1 End If If dysi0>=200 And dysi0<300 Then 'falls SIGNIFIKANTE Änderung erkannt, dann LED1 kurz einschalten warnung=2 End If If dysi0>=300 Then 'falls SIGNIFIKANTE Änderung erkannt, dann LED1 kurz einschalten warnung=3 End If If warnung=1 Then Port_WriteBit(PORT_LED1,PORT_ON) End If If warnung=2 Then Port_WriteBit(PORT_LED2,PORT_ON) End If If warnung=3 Then Port_WriteBit(PORT_LED1,PORT_ON) Port_WriteBit(PORT_LED2,PORT_ON) End If 'mittlere Dosis über fünf Abtastperioden anzeigen 'und die Standardabweichung anzeigen dosis=1000.0*mittel/sekunde*faktor dosis2=dosis wert2=0 dosis=1000.0*sigma/sekunde*faktor wert2=0 sekunde=1 sekunde10=1 cnt=0 zaehler=0 End If zaehler=0 sekunde=1 cnt=0 End If If wert2>999 Then wert2=wert2/60 einheit2 = " Min." End If einheit2= " nSv/h" wert2=0 If Port_ReadBit(SIGMA)=0 And Port_ReadBit(COUNT)=1 Then einheit2= "+- nSv/h" wert2=0 sqrt(zaehler) dosis=1000.0*wurzel/sekunde*faktor End If Zflag=0 If Port_ReadBit(COUNT)=0 And Port_ReadBit(SIGMA)=1 Then einheit2= " Zaehler" wert2=0 dosis=zaehler Zflag=1 End If 'Dysi0 Anzeigen |
If Port_ReadBit(COUNT)=0 And Port_ReadBit(SIGMA)=0 Then dosis=1.0*dysi0*0.01 einheit2= " DYSI0" wert2=0 'falls die erste Messzeitspanne noch nicht beendet wurde 'kann es noch keine Anzeige von Mittelwert und Sandardabweichung geben If JJ<1 Then einheit2= "b.WARTEN" wert2=0 dosis=0 End If End If If Port_ReadBit(CPM)=0 Then einheit2= " IPM" wert2=0 dosis=60.0*zaehler/sekunde End If If Port_ReadBit(ZEIT)=0 And Port_ReadBit(MITTE4)=1 Then einheit2= " Minuten" wert2=0 dosis=1.0*sekunde/60 End If If Port_ReadBit(MITTE4)=0 And Port_ReadBit(ZEIT)=1 Then If JJ>0 Then If JJ=1 Then einheit2= "M1 nSv/h" End If If JJ=2 Then einheit2= "M2 nSv/h" End If If JJ=3 Then einheit2= "M3 nSv/h" End If If JJ=4 Then einheit2= "M4 nSv/h" End If If JJ=5 Then einheit2= "M5 nSv/h" End If If JJ>5 Then einheit2= "M6 nSv/h" End If wert2=0 dosis=dosis2 End If If JJ<1 Then einheit2= "b.WARTEN" wert2=0 dosis=0 End If End If 'Button2 ist Speicher Abfrage- Taste If Port_ReadBit(Button2)=0 Then If JJ<1 Or sekunde >= TT-15 Then einheit2= "b.WARTEN" wert2=0 dosis=0 wert2=0 Ausgabe() End If If JJ>0 And sekunde < TT-15 Then zeile1 = "YBMM04" Serial_WriteText(0,zeile1) zeile1=" " Serial_WriteText(0,zeile1) zeile1="L-Modus" If TT=zeit_s Then zeile1 = "S-Modus" End If Serial_WriteText(0,zeile1) Serial_Write(0,13) Serial_Write(0,10) zeile1="Min. Z nSv/h" Serial_WriteText(0,zeile1) Serial_Write(0,13) Serial_Write(0,10) JJi=JJ einheit2= " Daten " dosis=0.0 wert2=0 Ausgabe() dosis=1.0*sekunde/60 Str_WriteFloat(dosis,2,zeile1,0) Serial_WriteText(0,zeile1) zeile1=" " Serial_WriteText(0,zeile1) dosis=1.0*zaehler Str_WriteFloat(dosis,0,zeile1,0) Serial_WriteText(0,zeile1) zeile1=" " Serial_WriteText(0,zeile1) dosis=1000.0*zaehler/sekunde*faktor Str_WriteFloat(dosis,5,zeile1,0) Serial_WriteText(0,zeile1) Serial_Write(0,13) Serial_Write(0,10) Do While JJi>0 dosis=0.0 wert2=JJ-JJi+1 Zflag=1 Ausgabe() Zflag=0 dosis=1.0*dosis*TT/60 Str_WriteFloat(dosis,2,zeile1,0) Serial_WriteText(0,zeile1) zeile1=" " Serial_WriteText(0,zeile1) dosis=feld1(JJi) Str_WriteFloat(dosis,0,zeile1,0) Serial_WriteText(0,zeile1) zeile1=" " Serial_WriteText(0,zeile1) dosis=1000.0*feld1(JJi)/TT*faktor Str_WriteFloat(dosis,5,zeile1,0) Serial_WriteText(0,zeile1) Serial_Write(0,13) Serial_Write(0,10) JJi=JJi-1 AbsDelay(10) End While End If Do While Port_ReadBit(Button2)=0 AbsDelay(100) End While End If 'Taste für RESET/START If Port_ReadBit(MITTE4)=0 And Port_ReadBit(ZEIT)=0 Then einheit2= " Start " wert2=0 dosis=0 zaehler=0 Ausgabe() sekunde=1 sekunde10=1 sekunde60=1 cnt=0 JJ=0 'Speicher leeren Do While JJ<=Nspeicher-1 JJ=JJ+1 feld1(JJ)=0 End While JJ=0 TT=zeit_s 'Abtastzeit= SHORT Modus If Port_ReadBit(SL)=0 Then TT=zeit_l 'Abtastzeit= LONG Modus End If Port_WriteBit(PORT_LED1,PORT_OFF) 'Alarm LEDs ausschalten Port_WriteBit(PORT_LED2,PORT_OFF) End If 'ENDE IF RESET Start Ausgabe() End While End Sub Sub IRQ() Dim irq As Word irq = Irq_GetCount(INT_0) cnt = cnt + irq zaehler=zaehler+irq End Sub Sub INT_10ms() Dim irqcnt As Integer cnt1 = cnt1+1 If cnt1=100 Then sekunde=sekunde+1 sekunde10=sekunde10+1 sekunde60=sekunde60+1 cnt1 = 0 End If If sekunde10=20 Then sekunde10=0 End If If sekunde60=60 Then sekunde60=0 End If irqcnt=Irq_GetCount(INT_TIM2COMP) End Sub Sub LED1_On(delay_val As Integer) Port_WriteBit(PORT_LED1,PORT_ON) AbsDelay(delay_val) Port_WriteBit(PORT_LED1,PORT_OFF) End Sub 'Die Mega2 berechnet keine Quadratwurzel 'Dafür gibt es diese Routine für näherungsweise Quadratwurzel berechnen Sub sqrt(zz As Word) 'näherungsweise quadratwurzel berechnen Dim k As Word wurzel= (zz+2)/2 k=1 Do While k<10 k=k+1 wurzel=(wurzel+zz/wurzel)/2 End While End Sub ' Displayausgabe ' erforderliche Library: IntFunc_Lib.cc, LCD_Lib.cc ' Displayausgabe für den YB-Mini-Monitor-Zähler und Datalogger' Sub Ausgabe() einheit1 = " " ' Festlegung der angezeigten Einheit If Zflag<>1 Then Str_WriteFloat(dosis,8,zeile1,0) ' Die Floatvariable "wert1" End If If Zflag=1 Then Str_WriteFloat(dosis,0,zeile1,0) End If LCD_CursorPos(0x00) ' Der Cursor wird an den Anfang der ersten ' Zeile gesetzt. LCD_WriteText(zeile1) ' Variable "zeile1" wird ausgegeben LCD_WriteText(einheit1) ' Rest der Zeile löschen LCD_CursorPos(0x40) ' Der Cursor wird an den Anfang der zweiten If wert2=0 Then LCD_WriteText(einheit2) ' Einheit wird ausgegeben End If If wert2<>0 Then ' Zeile gesetzt. dosis=1.0*wert2 Str_WriteFloat(dosis,0,zeile2,0) LCD_WriteText(zeile2) ' Variable "zeile1" wird ausgegeben LCD_WriteText(einheit2) ' Einheit wird ausgegeben End If End Sub |
---------------------------------------------------------------------------------------------------------