streng,我的世界中如何使用命令方块？

谢谢邀请

文章插图
文章插图
给予命令方块指令:
1.8版本以上
/give 玩家名称 command_block
1.7版本以下
/give 玩家名称 137
命令方块分为脉冲(外观默认) ，重复，保持开启(外观紫色) ，连锁(外观绿色)可以在控制台调模式streng 。
基础的指令有:
/summon
召唤一个实体
/tp (X) (y) (Z)
瞬间传送(需填写坐标)
/give xxxxxxxxxxxxxx xxxx
给予玩家名称物品名称数量
/weather xxx
设置天气天气
/time set数字
控制时间(数字越大，调成了时间就会越晚)
/gamemode 单词或数字
更改模式
PS:那些是指令的冰山一角，用上红石配合指令更佳java版1.13后更改模式的数字被换成了单词
这段VB代码是什么意思？Private Function CChinese(ByVal StrEng As String) As String
If Not IsNumeric(StrEng) Or StrEng Like “* 。*” Or StrEng Like “*-*” Then
‘如果变量StrEng不是数字或者形如* 。
*(如1 。2)或者形如*-*(如1-2)
If Trim(StrEng)“” Then MsgBox(“无效的数字”)
‘如果变量StrEng去除两端空格后不为空，则弹出对话框说明是无效的数字
CChinese = “” : Exit Function
‘函数返回空字串并结束函数
End If
Dim intLen As Integer, intCounter As Integer
Dim strCh As String, strTempCh As String
Dim strSeqCh1 As String, strSeqCh2 As String
Dim strEng2Ch As String
‘以上四行申明变量，不详细解释了
strEng2Ch = “零壹贰叁肆伍陆柒捌玖”
strSeqCh1 = ” 拾佰仟拾佰仟拾佰仟拾佰仟”
strSeqCh2 = ” 万亿兆”
‘以上三行初始化变量，不详细解释了
StrEng = CStr(CDec(StrEng))
‘将变量StrEng转化为Decimal类型, 然后再转化为字符串类型(Decimal 值类型适用于要求使用大量有效的整数及小数位数并且没有舍入错误的财务计算)
intLen = Len(StrEng)
‘获得变量StrEng字符串的长度,并储存在intLen中
For intCounter = 1 To intLen
‘计数器, 从1到intLen循环,不详细解释
strTempCh = Mid(strEng2Ch, Val(Mid(StrEng, intCounter, 1)) + 1, 1)
‘Val(Mid(StrEng, intCounter, 1))返回变量StrEng中的和计数器对应的当前字符,并将该字符转化为数字类型;
‘将如自变量StrEng为123,则第一轮循环则返回1,第二轮循环返回2,第三轮循环返回3,注释中我们暂计为x
‘然后Mid(strEng2Ch, Val(Mid(StrEng, intCounter, 1)) + 1, 1)返回”零壹贰叁肆伍陆柒捌玖”中第x+1个,实际效果是将数字转化为大写形式
‘如第一轮循环,则将1转化为壹,第二轮循环将2转化为贰
‘***********************************************************************************************************************
‘函数解释:Mid(str,a,b),其中str为字符串类型,a,b为整型;则该函数返回str中,从第a个字符开始的b个字符。
如Mid(“abcdef”,3,2),则返回cd
‘***********************************************************************************************************************
If strTempCh = “零” And intLen1 Then
‘入过strTempCh为”零”并且变量长度不等于1
If Mid(StrEng, intCounter + 1, 1) = “0” Or (intLen – intCounter + 1) Mod 4 = 1 Then
‘如果变量StrEng的下一个字符为零或者 (剩余字符串长度+1)除4余1,也就是剩余字符串长度恰为4的倍数
strTempCh = “”
‘strTempCh置为空
End If
Else
‘否则
strTempCh = strTempCh & Trim(Mid(strSeqCh1, intLen – intCounter + 1, 1))
‘将strTempCh与” 拾佰仟拾佰仟拾佰仟拾佰仟”中的相应字符连接
【streng,我的世界中如何使用命令方块？】‘还用123来打比方,第一轮循环到此处时strTempCh为”壹”;intLen – intCounter + 1 = 3,则Trim(Mid(strSeqCh1, intLen – intCounter + 1, 1))为”佰”
End If
If (intLen – intCounter + 1) Mod 4 = 1 Then
‘如果(剩余字符串长度+1)除4余1,也就是剩余字符串长度恰为4的倍数
strTempCh = strTempCh & Mid(strSeqCh2, (intLen – intCounter + 1) \ 4 + 1, 1)
‘将strTempCh与” 万亿兆”中的相应字符连接
‘用12345来打比方, 第一轮循环到此处时strTempCh为”壹”,intLen – intCounter + 1 = 5,5\4+1 = 2,则Mid(strSeqCh2, (intLen – intCounter + 1) \ 4 + 1, 1)为”万”
If intCounter > 3 Then
‘如果计数器大于三
If Mid(StrEng, intCounter – 3, 4) = “0000” Then strTempCh = Left(strTempCh, Len(strTempCh) – 1)
‘如果变量StrEng中连续四个为0,则去掉strTempCh的最后一个字符
End If
End If
strCh = strCh & Trim(strTempCh)
‘将strTempCh储存到strCh中
Next
CChinese = strCh
‘返回strCh
End Function 。
把你觉得有疑问的标出来，不然太多，有些简单就没有必要说得。

streng,我的世界中如何使用命令方块？

推荐阅读

胎儿窘迫是什么原因造成的

鱼可以放冰箱冷冻多久

妇科医生教你如何保持阴部清洁

购房者买二手房要交哪八种费用

天津大学生医保异地报销天津大学生暑假异地就医后怎么报销

大白菜粉条做法大白菜粉条的做法

女性例假什么该吃什么不该吃？

丈夫出轨的常见原因 5招轻松化解婚姻危机

吃山楂有减肥效果吗山楂真的能消除脂肪吗？

寒赤剑是什么电视剧

晒干生蚝怎么做好吃晒生蚝干的正确方法

怎么能申请到高额度信用卡

2023下半年绍兴教资面试成绩什么时候能查？

无氧运动增强体质有哪些方法？

不戴口罩的安全距离

孕妇上火心烦怎么调理

三十岁以后怀孕有多危险？

阳台种菜好处有哪些

城市噪音越来越严重城市噪音太严重

早晨鼻子流血怎么办呢