分类： 博客

本站的总分类。

终于“入坑”了，迎接物联网的开始。

我下定决心要捉住物联网浪潮的尾巴，却发现没有起始资金的话什么都无法开始。现在新的知识的形态决定了不要只是纸上谈兵，怎样都得实际行动。

于是我背着家庭背着妻子狠狠砸钱入手了Raspberry Pi 3 B+ 与MakerUNO 两种全然不同体系的单片机与其周边装置。

Raspberry PI 3 B+ 与其周边装置

继续阅读“终于“入坑”了，迎接物联网的开始。”

我要捉住物联网浪潮的尾巴！

随着游戏网吧行业的落幕，尤其是我手上最后一家与我有合约的网吧于2017年11月29日凄凉落幕，我每个月能接到可维修的电脑的业务也越来越差。我意识到个人电脑行业几乎是黄昏行业，也发现众多的电脑销售店一家接着一家不是转行就是倒闭，存活的电脑销售店都缩小规模继续挣扎求存。

我艹！我发觉我完蛋了！属于我的时代结束了！由于我的基因都雕刻了大量的电脑知识，我要转行做别的比如食堂、买衣服的都不行！

现在是手机的时代，也发现很多智能电器面世，整个世界开始进入物联网的时代。

好吧！我决定了，我要捉住物联网浪潮的尾巴，我不要被抛在时代的后面！！！

试试编写提示符程式

用Visual BASIC 2015.Net随意编写一段小程式代码，然后看看网站能不能正确显示代码。

Imports System

Module Module1

    Sub Main()
        Dim Decided As Boolean
        Dim Gender As String = String.Empty
        Dim Difficult As String = String.Empty

        Console.Clear()
        ' 自助投胎系统
        Console.WriteLine("Reincarnation Self Service System")
        Console.WriteLine("---------------------------------")
        Console.WriteLine()
        ' 请选择你的性别
        Console.WriteLine("Please choose your Gender")
        ' 男性
        Console.WriteLine("1) Male")
        ' 女性
        Console.WriteLine("2) Female (50 Coin)")
        ' 你的选择
        Console.Write("Your choose? ")
        Decided = False
        Do While Not Decided
            If Console.KeyAvailable Then
                Select Case Console.ReadKey(True).Key
                    ' 按下 1 号键的时候
                    Case ConsoleKey.D1, ConsoleKey.NumPad1
                        Gender = "Male"
                        Decided = True
                    ' 按下 2 号键的时候
                    Case ConsoleKey.D2, ConsoleKey.NumPad2
                        Gender = "Female"
                        Decided = True
                End Select
            End If
        Loop
        Console.WriteLine(Gender)
        Console.WriteLine()
        ' 请选择你的生存难度
        Console.WriteLine("Please choose your living difficult Level")
        ' 容易
        Console.WriteLine("1) Easy (100,000 Coin)")
        ' 中等
        Console.WriteLine("2) Moderate (5,000 Coin)")
        ' 困难
        Console.WriteLine("3) Hard (200 Coin)")
        ' 深渊
        Console.WriteLine("4) Abyss (Free)")
        Console.Write("Your choose? ")
        Decided = False
        Do While Not Decided
            If Console.KeyAvailable Then
                Select Case Console.ReadKey(True).Key
                    ' 按下 1 号键的时候
                    Case ConsoleKey.D1, ConsoleKey.NumPad1
                        Difficult = "Easy"
                        Decided = True
                    ' 按下 2 号键的时候
                    Case ConsoleKey.D2, ConsoleKey.NumPad2
                        Difficult = "Medium"
                        Decided = True
                    ' 按下 3 号键的时候
                    Case ConsoleKey.D3, ConsoleKey.NumPad3
                        Difficult = "Hard"
                        Decided = True
                    ' 按下 4 号键的时候
                    Case ConsoleKey.D4, ConsoleKey.NumPad4
                        Difficult = "Abyss"
                        Decided = True
                End Select
            End If
        Loop
        Console.WriteLine(Difficult)
        Console.WriteLine()
        ' 你选择{1}程度做为{0}出世
        Console.WriteLine("You choose birth as {0} with living {1} level.", Gender, Difficult)
        ' 按任意键继续
        Console.Write("Press any key to continue...")
        Console.ReadKey(True)
    End Sub

End Module

不知道你们能不能看到上彩色的代码？

准备兼职卖茶叶了

哼哼哼！这回我的家庭财政预算案严重赤字，还欠了AEON一笔贷款，不得不想办法赚钱填补财政上的无底洞。

基本上我每个月的薪金都被每三个月的汽车维护费、每周涨价的汽油、每个月带怀孕的妻子去医院复诊的医药费、每个月的人寿保险费、高昂的通讯费吞噬了，若不采取行动赚取更多的金钱，破产指日可待。

到了这个地步，我敢说除了毒品我不卖之外，若有钚-238、氦-3之类的货源交给我卖，我绝对会卖给你看。

好了，这一回我帮认识多年的中国籍网友Rainbow贩售茶叶，把茶叶卖到马来西亚。请在本页的导航目录“我的库存”看看我要帮忙贩售的茶叶的真面目。