HOE HET WAS MET 2 ANALOOG-IN	 	NA VERANDERING SCHAKELING VOOR 4 ANALOOG-IN 

Wijzigbron:				    |	Wijzigbron:
	If Bronselectie = 6 Then	    |			If Bronselectie = 8 Then
	   Bronselectie = 0		    |			   Bronselectie = 0
	Elseif Bronselectie = 255 Then	    |			Elseif Bronselectie = 255 Then
	   Bronselectie = 5		    |			   Bronselectie = 7
	End If				    |			End If
					    |
	Locate 1 , 9			    |		Locate 1 , 9
	Select Case Bronselectie	    |		Select Case Bronselectie
	  Case 0 : Lcd Coax ; "1"	    |		  Case 0 : Lcd Coax ; "1"
	  Case 1 : Lcd Coax : "2"	    |		  Case 1 : Lcd Coax ; "2"
	  Case 2 : Lcd Opt ; "1"	    |		  Case 2 : Lcd Opt ; "1"
	  Case 3 : Lcd Opt ; "2"	    |		  Case 3 : Lcd Opt ; "2"	'tot hier bit2=0
	  Case 4 : Lcd Analog ; "1"	    |		  Case 4 : Lcd Analog ; "1"
	  Case 5 : Lcd Analog ; "2"	    |		  Case 5 : Lcd Analog ; "2"	'bij Analog bit2=1
	End Select			    |		  Case 6 : Lcd Analog ; "3"
					    |		  Case 7 : Lcd Analog ; "4"
	T = Bronselectie		    |		End Select
	If Bronselectie = 5 Then Decr T     |
	Portb.4 = T.0			    |		T = Bronselectie
	Portb.2 = T.1			    |		Portb.4 = T.0
	Portb.1 = T.2			    |		Portb.2 = T.1
	If Bronselectie = 4 Then	    |		Portb.1 = T.2	'doet ook A/D
	  Reset Portb.0			    |
	Elseif Bronselectie = 5 Then	    |		Waitms 500
	  Set Portb.0			    |	Return
	End If				    |

	Waitms 500
Return