Vampire05 Regular Member
Joined: 06/12/2020 Location: GermanyPosts: 88 |
Posted: 05:41pm 09 Jan 2022 |
Copy link to clipboard |
Print this post |
|
Sorry for the late response! Here is the code:
CLS
Dim integer dat Dim integer dat2 Dim integer buf(320) Dim integer buf2(320) SetPin 31, ain SetPin 32, ain SetPin 34, ain
SetPin gp0, dout SetPin gp1, dout SetPin gp2, din
SetPin gp18, din, pulldown Text 100, 5, "Universal Plotter", lt
Line 30,50,30,222,2,RGB(yellow) Line 30,220,320,220,2,RGB(yellow) Text 27,225, "0" Text 70,225, "50" Text 120,225, "100" Text 170,225, "150" Text 220,225, "200" Text 270,225, "250"
Text 30,215, "0" ,rm Text 30,165, "50",rm Text 30,115, "100",rm Text 30,65, "150",rm
Do Line 32, 165, 320, 165, 1, RGB(grey) Line 32, 115, 320, 115, 1, RGB(grey) Line 32, 65, 320, 65, 1, RGB(grey)
temp1
If Pin(gp18) = 1 Then shift_draw_buf Else clear_aquire_buf EndIf
p= Cint((Pin(32)*10000)/9)-370 If p <0 Then p=0 Pause p
Loop
Sub temp1() Pin(gp1) = 1 Pause 200 Pin(gp1) = 0
Pin(gp0)=1: Pin(gp0)=0 temp_raw = 0 For i=12 To 1 Step -1 Pin(gp0)=1
b=1 For j=2 To i b = b*2 Next j so=Pin(gp2) temp_raw = temp_raw + (b*so) Pin(gp0)=0 Next i Print " TEMP: ", temp_raw, temp_raw*0.25 Pin(gp0) = 1 Print Pin(gp2) Pin(gp0) = 0
Pin(gp1)=1 End Sub
Sub clear_aquire_buf For i=32 To 320 Pixel i, buf(i), RGB(black) Pixel i,buf2(i), RGB(black) buf(i) = 230 - Cint(Pin(31)*50) buf2(i) =230 - Cint(Pin(34)*50) Pixel i, buf(i), RGB(green) Pixel i, buf2(i), RGB(magenta) Next i End Sub
Sub shift_draw_buf dat = 230 - Cint(Pin(31)*50) dat2 = 230 -Cint(Pin(34)*50) For i=32 To 320 Pixel i, buf(i-1), RGB(black) Pixel i, buf2(i-1),RGB(black) buf(i-1) = buf(i) buf2(i-1)= buf2(i) Pixel i, buf(i),RGB(green) Pixel i, buf2(i),RGB(magenta) Next i buf(320)=dat buf2(320)=dat2 End Sub
It is very dirty at the moment! I have now added a second channel and support for type-k themperature sensors (max6675). the next thing i want to add is the current sensor ina219 and support for uart. Then i am able to plot / visualize different Data like voltage, current, power, temperature and UART Data. All on two channels! After that i will add printer support for cheap chinese Thermal printer to print the plots :-) |