数码之家

标题: 老男人的太阳能发电折腾之路。 [打印本页]

作者: memphis220 时间: 2024-3-23 15:01
标题: 老男人的太阳能发电折腾之路。
7块太阳能板子，手痒，先后买了3组电池，总是不完美。带点N100小主机什么的，还将就。
PDF附件是原理图
[attach]2067632[/attach]

作者: 东北男人 时间: 2024-3-23 20:06
折腾精神就是创造源泉

作者: m3132427 时间: 2024-3-23 20:12
不错就是太阳能板小了点

作者: yeund 时间: 2024-3-23 21:29
生命在于折腾。

作者: 6262262200 时间: 2024-3-23 21:47
板子有点少，再多点可挣几两银子花花！

作者: add 时间: 2024-3-24 10:12
生命在于折腾

作者: hidled 时间: 2024-3-24 12:59
还不如搞一块500W的板子啊

作者: lcy960 时间: 2024-3-24 14:35
搞这个系统的钱够买多少电费了？

作者: xianglang 时间: 2024-3-24 14:51
阴雨天很蛋疼啊，我的18V50W的，阴天时短路电流只得几毫安到几十毫安。大太阳照射时，近2安的短路电流，12V10A的锂电池从11V起充很快能充满。

作者: kgmx 时间: 2024-3-24 19:19
手艺不错，自己动手有乐趣

作者: china8359 时间: 2024-3-24 20:01
感谢分享！学习了

作者: 深藏功与名 时间: 2024-3-24 21:23
这几块小板居然弄3个控制器

作者: xuguangqi08 时间: 2024-3-24 22:51
我也喜欢折腾，有院子就好了！

作者: carfield 时间: 2024-3-24 23:08
我也是利用了几片免费的太阳能板子，加上一个淘汰的汽车启动电瓶，组了一个12V系统，给充电宝、户外电源等便携设备充电，乐趣在于折腾

作者: memphis220 时间: 2024-3-25 08:28
不是板子小了，地主做什么方便。另外开始只想简单的玩一下。

作者: memphis220 时间: 2024-3-25 08:31

6262262200 发表于 2024-3-23 21:47
板子有点少，再多点可挣几两银子花花！

如果有挣银子的想法，那肯定是输了。家庭太阳能，个人认为是用不回本。玩玩就可以啦。

作者: memphis220 时间: 2024-3-25 08:35

xianglang 发表于 2024-3-24 14:51
阴雨天很蛋疼啊，我的18V50W的，阴天时短路电流只得几毫安到几十毫安。大太阳照射时，近2安的短路电流，12V ...

同感啊，有太阳时充电太快，阴天几乎没电。

作者: memphis220 时间: 2024-3-25 08:39

carfield 发表于 2024-3-24 23:08
我也是利用了几片免费的太阳能板子，加上一个淘汰的汽车启动电瓶，组了一个12V系统，给充电宝、户外电源等 ...

同志啊，免费的东西总是一个坑，好比一只免费的二极管，最终做了一台电脑的套路。

作者: hylg 时间: 2024-3-25 10:48
上大板，上大电池，上MPPT控制器，

作者: hylg 时间: 2024-3-25 10:50
大板子可以直接垂直挂在防盗网上。不用担心效率，只需要考虑电往哪用。

作者: 中国花果山 时间: 2024-3-25 10:53
折腾总比闲着蛋痛好。

作者: memphis220 时间: 2024-3-25 11:42
其实主要目的是：随时随地打开手机APP，通过物联网模块把N100小电脑打开，添加点迅雷任务啥的。用USB继电器开关模块打开移动磁盘盒，把下载的成果整理整理。做到踏雪无痕嘛：隐藏自己，做好清理。N100迷你电脑真不愧是摸鱼神器。

作者: memphis220 时间: 2024-3-25 11:55
usb继电器模块淘宝链接是：https://item.taobao.com/item.htm ... .0.0.3cd52e8dHhb9df。
控制它用VB6写的程序，放一个串口部件，加5个按钮搞定。源代码如下：
Private Sub Command1_Click()
  Dim cmd(3) As Byte
Me.MSComm1.OutBufferCount = 0
cmd(0) = &HA0
cmd(1) = &H1
cmd(2) = &H0
cmd(3) = &HA1
Me.MSComm1.Output = cmd

End Sub

Private Sub Command2_Click()
  Dim cmd(3) As Byte
Me.MSComm1.OutBufferCount = 0
cmd(0) = &HA0
cmd(1) = &H1
cmd(2) = &H1
cmd(3) = &HA2
Me.MSComm1.Output = cmd

End Sub

Private Sub Command3_Click()
  Dim cmd(3) As Byte
Me.MSComm1.OutBufferCount = 0
cmd(0) = &HA0
cmd(1) = &H2
cmd(2) = &H1
cmd(3) = &HA3
Me.MSComm1.Output = cmd

End Sub

Private Sub Command4_Click()
  Dim cmd(3) As Byte
Me.MSComm1.OutBufferCount = 0
cmd(0) = &HA0
cmd(1) = &H2
cmd(2) = &H0
cmd(3) = &HA2
Me.MSComm1.Output = cmd

End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Form_Load()
Dim iNi As String, a As String, CmdLine As String
On Error GoTo Err
iNi = App.Path & "\port.ini"
Open iNi For Input As #1
      Line Input #1, a
Close #1
With Me.MSComm1
   .CommPort = CByte(a)
   If .PortOpen Then
      .PortOpen = False
   End If
   .Settings = "9600,n,8,1"
   .Handshaking = MSCommLib.HandshakeConstants.comNone
   .PortOpen = True
End With
CmdLine = UCase(Command())

If CmdLine <> "" Then
   Select Case CmdLine
      Case "/OFF:1"
      Call Command1_Click
      Case "/ON:1"
      Call Command2_Click
      Case "/OFF:2"
      Call Command4_Click
      Case "/ON:2"
      Call Command3_Click
   End Select
   End
   End If

Exit Sub
Err:
Me.Command1.Enabled = False
Me.Command2.Enabled = False
Me.Command3.Enabled = False
Me.Command4.Enabled = False
MsgBox "打开串口失败", vbOKOnly, "警告"
Resume Next
End Sub
懒人的批处理调用如下：usb开关.exe /on:1 打开第一路开关，usb开关.exe /off:1  关闭第一路开关

欢迎光临数码之家 (https://www.mydigit.cn/)