@ralla66
Bastelpause
Pause.jpg
>D 40
sw=0
cstr=""
cstrV=""
cstroo=""
cstrA=""
Wert=0
Wert2=0
Byte1=0
Byte1H=""
Byte2=0
Byte2H=""
Volt=51.50
Timer=0
>B
=>sensor53 r
>S
; Anfrage Typ
Timer+=1
if Timer>50
then
cstrA="800C0103028200"
sml(1 3 cstrA)
endif
if Timer>51
cstrA="800C0103028600"
sml(1 3 cstrA)
endif
if Timer>52
then
cstrA="800C010302B100"
sml(1 3 cstrA)
endif
if Timer>53
then
cstrA="800C010302B200"
sml(1 3 cstrA)
endif
if Timer>54
then
cstrA="800C010302B300"
sml(1 3 cstrA)
endif
if Timer>55
then
cstrA="800C010302B000"
sml(1 3 cstrA)
endif
if Timer>56
then
cstrA="800C0103026100"
sml(1 3 cstrA)
endif
if Timer>57
then
cstrA="800C0103026000"
sml(1 3 cstrA)
endif
if Timer>58
then
cstrA="800C0103026100"
sml(1 3 cstrA)
endif
if Timer>59
then
cstrA=""
endif
if Timer>60
then
Timer==0
endif
if Timer>61
then
Timer=0
endif
; Switch on / off
;if chg[sw]>0
if upsecs%30==0
and
sw>0
then
;on
cstroo="800C010403000001"
sml(1 3 cstroo)
print ----- 1 -----
endif
;if chg[sw]<1
if upsecs%30==0
and
sw<1
;off
then
cstroo="800C010403000000"
sml(1 3 cstroo)
print ----- 0 -----
endif
; Volt senden 51,50 Volt
if upsecs%28==0
then
cstrV="800C01040420001E14"
sml(1 3 cstrV)
endif
; Berechnung Sende Byte ( 2 Byte )
; gesendet wird Ampere
if chg[Wert]>0
then
Wert2=Wert*2
Byte1=Wert2/256
endif
;Byte 1 ist kleiner 0
if Byte1<1
then
Byte1=0
Byte1H=hn(Byte1)
Byte2=Wert2
Byte2H=hn(Byte2)
endif
;Byte 1 ist 1
if Byte1>1
and
Byte1<2
then
Byte1=1
Byte1H=hn(Byte1)
Byte2=Wert2-256
Byte2H=hn(Byte2)
endif
;Byte 1 ist 2
if Byte1>2
and
Byte1<3
then
Byte1=2
Byte1H=hn(Byte1)
Byte2=Wert2-512
Byte2H=hn(Byte2)
endif
;Byte 1 ist 3
if Byte1>3
and
Byte1<4
then
Byte1=3
Byte1H=hn(Byte1)
Byte2=Wert2-768
Byte2H=hn(Byte2)
endif
;Byte 1 ist 4
if Byte1>4
and
Byte1<5
then
Byte1=4
Byte1H=hn(Byte1)
Byte2=Wert2-1024
Byte2H=hn(Byte2)
endif
if upsecs%30==0
then
cstr="800C0104043000"+Byte2H+Byte1H
sml(1 3 cstr)
print cstr ist %cstr%
print Wert ist %Wert%
endif
>M 1
; Mean Well 750-48
; params -> 04 = baudrate 250kb + number of receive buffers * 100
+1,3,C,0,3204,CAN,1,5
;Eingangsfilter
1,000C000304B000uuUU@100,B0 CC Constant Current,A,B0,0
1,000C000304B100uuUU@100,B1 CV Constant Voltage,V,B1,0
1,000C000304B200uuUU@100,B2 FV Floating Voltage,V,B2,0
1,000C000304B300uuUU@100,B3 TC Taper Current,A,B3,0
1,000C0003046100uuUU@10,61 Read Current Out,A,COut,0
1,000C0003046000uuUU@10,60 Read Voltage Out,V,VOut,0
;1,000C0003088200xxxxxxUUuu@,Model Typ,,bez,0
;1,000C0003088600UUuuUUuu@,Serial Number,,serial,0
;1,000C000308xxxx@,Alle ID,,Alle,0
>W
bu(sw "LR ist ein send Off" "LR ist Aus send On")
nm(0 700 20 Wert "Zähler Wert (W): " 80 1)
cstrA Anfrage{m} %cstrA%
cstr Ampere{m} %cstr%
cst Volt{m} %cstrV%
cstroo Ein_Aus{m} %cstroo%
Wert ist {m} %Wert% W
Wert2 ist {m} %Wert2% W
Byte1 ist {m} %Byte1%
Byte1 Hex ist {m} %Byte1H%
Byte2 ist {m} %Byte2%
Byte2 Hex ist {m} %Byte2H%
Timer ist {m} %Timer%
#
bin Weg für heut --------------------------------------------------------------------------->