老男人的太阳能发电折腾之路。

memphis220

7块太阳能板子，手痒，先后买了3组电池，总是不完美。带点N100小主机什么的，还将就。
PDF附件是原理图

memphis220

不是板子小了，地主做什么方便。另外开始只想简单的玩一下。

memphis220

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

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

memphis220

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

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

memphis220

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

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

memphis220

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

memphis220

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  关闭第一路开关