2019-02-25 魔镜配置与VB之路

1、日历的配置

由于需要折腾中文，参考一篇文章将language设置为"zh_cn"，但是这样后一直不行，后来改了过来，将日历采用https://raw.githubusercontent.com/infinet/lunar-calender/master/chinese_lunar_prev_year_next_year.ics

日历设置中文

2、新闻的配置

同样将语言改为en 设置url
http://www.ftchinese.com/rss/news
短讯

3、remote 的设置

同样 折腾了无数遍，一开始上次的教程没有问题，这里重新设置一个就出现问题了，就是不出现，这里最终我将问题依然锁定在了localhost上面，
修改成对应的IP就可以了，
依然按照 https://github.com/Jopyth/MMM-Remote-Control
，基于remote-control的 repository 自动更新

cd /modules
git clone https://github.com/eouia/MMM-Remote-Control-Repository
npm install 
cd ..
npm start 

更新module

4、安装 rtsp视频流 ip摄像头 此处有问题。。。保留。。。

# 查看是否有播放器
which omxplayer
apt-get install omxplayer
#安装 ffmpeg
wget https://github.com/ccrisan/motioneye/wiki/precompiled/ffmpeg_3.1.1-1_armhf.deb
dpkg -i ffmpeg_3.1.1-1_armhf.deb

安装完毕 还是不行 这里 测试VLC 打开串口流
sudo apt-get install vlc
https://blog.csdn.net/taoerit/article/details/51920018

VLC

但是 放到魔镜中流出错。

5、VB 继续

• 函数 获取文本单词个数
  添加一个 textbox设置multilineTrue，添加二个radio button 一个label

'函数计算单词数量
Private Function NumWord(ByVal text As String) As Integer
    If text.Trim.Length = 0 Then
        Return 0

    End If
    Dim strWords() As String = text.Split(" "c)

    Return strWords.Length
End Function
'函数 计算字符数
Function NumChar(ByRef text As String) As Integer
    Return text.Length
End Function
' sub方法 没有返回值 对 radio 进行定义
Private Sub UpdateDisplay()
    If rad单词.Checked Then
        Label1.Text = NumWord(TextBox1.Text) & "个单词"
    ElseIf rad字符.Checked Then
        Label1.Text = NumChar(TextBox1.Text) & "个字符"
    End If
End Sub
'双击 radio的两个按钮 里面分别调用 updatedisplay 
Private Sub rad字符_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rad字符.CheckedChanged
    UpdateDisplay()
End Sub

Private Sub rad单词_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rad单词.CheckedChanged
    UpdateDisplay()
End Sub

设计图

• toolstrip的使用
  添加toolbar，属性 items ，添加 button ，
  选择image，这个目录在
  C:\Program Files (x86)\Microsoft Visual Studio 10.0\Common7\VS2010ImageLibrary\2052
  我的是需要到这个里面看看 解压才出现。
  添加第二个按钮
  点击添加 ，设置items，添加一个按钮，text中字体红色，

• 添加 statusstrip

  
  
  设计图
  
  

  代码

'双击 clear button 
TextBox1.Text = " " '清空内容
'双击 red button 
Textbox1.ForeColor = Color.Red '修改颜色
'修改窗体事件 打开的时候显示任务栏的 准备好 
status1.Text = " 准备好"
'双击 编辑textbox 
status1.Text = "编辑中。。。"

窗体事件修改

代码

• 多个窗体的内容编辑
  添加toolstrip 直接点击上面生成两个的右侧按钮，生成另外一个button ，双击 编辑代码

Dim objAbout As New AboutBox1 '定义 关于框
objAbout.ShowDialog(Me)    '显示关于框

about窗体的编辑

about窗体编辑内容

• openfile 的使用
  添加 openfileDialog
  双击按钮 定义全局 objfile

关于对话框

演示

备注

secureCRT乱码
https://blog.csdn.net/zhengqijun_/article/details/70197567

4/_AC4SF8XyZzS34FTT7tZSGBLwsjWiho5vXPLOEiTJbSUcpz06jvH87s