批处理勇士大闯关改中医许阳批处理的可能

zzz19760225 · 发表于 2025-2-11 07:04:10

本帖最后由 zzz19760225 于 2026-2-25 10:18 编辑

一楼主贴
123456789

http://zzz19760225.ysepan.com/

复制代码

隔一段时间建10楼一页面，其首位是具体内容，其余杂想或空置。
15楼一页？

20250627，换成perl为文字信息处理考虑，这样在以后自制和linux版国产操作系统，也会有perl吧
20250901，换成perl的Tk桌面图形模式
20251206，换成C语言SDL2图形考虑
20260113，换回perl+Tk的图形考虑（perl+Tk+ImageMagick+ffmpeg）
20260207，先完成文字界面的自转熟

$a=<STDIN>;print "$a";
a123:;print "123";goto a123;
$a==123?"456":"789";

复制代码

a123:
print "请输入：";$a=<STDIN>;
$a==456?print "789":goto a123;
显
请输入：123
请输入：456
789
Press any keys to exit

复制代码

文字游戏
1游戏开始和结束，命令行执行文件和鼠标点击可执行文件，启动开始页面，开始游戏+游戏说明+退出游戏，ctrl+d,ctrl+c，关闭游戏窗口x，游戏过程中的退出，意外故障退出。
2玩家用户帐号的建增减删看，建立在程序文章里的#数据行，增减数据行，从开始游戏进入这个选择范围，游戏过程中随时调用这个模块。
3本体结构，从开始结束和帐号，进入菜菜城的前面部分，后面是以菜菜城和其他的名义居住地为中心，向外的相对移动选择。
4其外向外是重复流水线，流水线结构选择的通用和专用组合度数量。
5向外重复流水线的可选项内容，是设置的地图世界容器，每个容器里有其自身剧情设置的选择通用+专用度。

复制代码

山海经，山河经，地星村：
四海：东海(太平洋)，南海(印度洋)，西海(大西洋)，北海(北冰洋)；
八洲：北洲(格陵兰岛)，风洲(北美洲)，木洲(南美洲)，南洲(南极洲)，金洲(大洋洲)，土洲(亚洲)，水洲(欧洲)，火洲(非洲)；
土洲(亚洲)往东7000公里=14000里，1万4千里，是东海（太平洋）；1一
东海(太平洋)往东7000公里=14000里，1万4千里，是风洲（北美洲）；2壹
风洲(北美洲)往东5000公里=10000里，1万里，是西海（大西洋）；3二
西海(大洋洲)往东5000公里=10000里，1万里，是水洲（欧洲）；4贰
水洲(欧洲)往东7000公里=14000里，1万4千里，是土洲（亚洲）；5叁
水洲(欧洲)往南5000公里=10000里，1万里，是火洲（非洲）；6肆
土洲(亚洲)往南7000公里=14000里，1万4千里，是金洲（大洋洲）；7伍
风洲(北美洲)往北5000公里=10000里，1万里，是北洲（格林兰岛）；8陆
风洲(北美洲)往南7000公里=14000里，1万4千里，是木洲（南美洲）；9柒
木洲(南美洲)往南7000公里=14000里，1万4千里，是南洲（南极洲）；10捌
火洲(非洲)往东6000公里=12000里，1万2千里，是南海（印度洋）；11三
南海(印度洋)往东6000公里=12000里，1万2千里，是金洲（大洋洲）；
土洲(亚洲)往北6000公里=12000里，1万2千里，是北海（北冰洋）；12四

复制代码

皇帝游戏和大航海游戏，1女母氏族部落人数超出太多，就分族外迁（女娲和西王母），父系氏族的炎黄等三皇五帝，2周对外分封的信息，对临近可能土地再分封的扩大，3秦统一后的对外延续，4五胡乱华等外租压迫下，崛起后的汉族对外陆海殖民，5宋明大商业的地主和资本家对外。（或者解放模式也可以，结合墨家概念平等，法家概念平等，儒家概念的大一统统一，私有化统一与公有度统一，都是可选项，但是不是游戏全部制作出来，而有那个可以制作的简单工具，玩家自己可以去逐渐增加点滴，积累成为游戏模块。或者大禹和夏启的能力工作权力极私独占奴隶制也可以，炎黄的养民）
1一天的容器模块，
2地星村外天文的模块（相对地球的日照光线形象学几何学为主），
3地星村内的年循环左升右降热量相对增减四季模块，
4整体的本体和环境，
5个体的本体和环境，
6整体与个体之间的进制联系组合关系一体化。
骑goto：
制造用文字游戏信息机器，
制=时空量化，人物增减量化，一个自动独立运行的信息机器世界，参与操作驾驶这个世界的玩家玩法
造=goto跑一遍标签阵列，完成一遍游戏后，再加入量化
用=？
浏览器下载300MB的Strawberry Perl的perl文件会断掉，迅雷拖着下载。要Strawberry Perl，方便网络下载什么的。或者不要下载吧，本身集成了，没搞懂。
安装Tk很慢，很久。
程序文件pl，要绑定perl53211.exe，不要绑定旁边的perl.exe。
ActivePerl自带Tk?
ADODB.Stream读取内存？
basic(qb语句）=qb64，freebaisc
在深度deepin linux下可以终端运行，就建立终端运行文件sh。

#!/bin/bash
chmod +x perlTkgif.pl
perl perlTkgif.pl

复制代码

鼠标双击终端文件sh，通过这个终端文件打开pl，运行pl程序。(终端可运行，也许权限那句可以不需要了=chmod。

集成块硬件图形中文，逻辑电平与图形中文电平之间的翻译，在图形中文上抽象代表出来，成为中文编程或中文DOS的假设。

一，应该是道混沌无空能量在，
二，然后是能量形态和万物，走到表明太极阴阳相对关系，之后是圆自转，重复，循环的有序，顺序，排序=产生量。表面现象之量，到其内里之王的内因因果理，化学编程的能量自转自传锁定自私基因（？）。
三，1量（使用色点阵组合代表，总之组合的数量空间很大），
四，2类（声<声波，音乐>，色<图，文>），
五，3类组合（影视，有声有色的信息人模拟人与拟人拟物）。
但是如果中文编程，并不需要前面两者，只要后面三者。

第一，组合的法（进制法重复模式），这个法的数量要出来，并且这个数量是有序简单组合重复完成的。这个数量的代表形式，代数，代量，代字或代词。
第二，数量的排序序数序号提取。
第三，数量排序序数序号提取的单元容器，其内容具体组合的是什么。就是做这三步走。
1组合（单元太极阴阳相对联系关系组合），
2排序太集集合容器（同元排序=具有相同元的组合排序，异位排序=在不同的方位上有差异的组合排序），
3单元太集集合容器的具体组合内容。

三个概念部分渐进到数字化世界，每个部分又各自有其内部分类，最后到排序序数序号代表。
一个是抽象道，在，实，
二个是识别需求产生的排序，混沌，开天辟地，无，有，冇，空，不，0等，太极太集阴阳相对，
三个是太极太集阴阳相对为根源的太单元，相对联系关系组合形成的地图或联系关系体。相对这个关系一体的组构和解构，选择所需的模拟拟人拟物内容，并且使用排序数量来代表概念空间，完成模拟模仿。这个模拟模仿扩大了人的实选择空间，可以倍增探索尝试试验名范围的人概念空间，促进人的世界扩大。
有用制造用机器，通用制造用机器。

C语言SDL2图形考虑，两个部分：
1，图形部分的石坚白，存在即有象，内象外象本象，不论心意识/唯心或唯物，其可知可见的大概内容之一，与信息流编织成旋玑图全组合地图；
2，信息流的文本容器集合，以一个十进制16数字集自拍基本出发和中心区域，基本逻辑是太极容器的内外分解阴阳相对关系的组合聚散=开关。
3，声色两信息，色分为图画里的单图形文字，单图形图画，多图形图画，影视。信息分类，执行到类信息，就自动寻找对应的功能程序执行该信息内容，并且句柄管道开关输出到同一个页面容器里。

0，1，2，3，4，5，6，7，8，9，a，[，]，[；]，[：]，[。]。
1，2，3，4，5，6，7，8，9，0，a，[，]，[；]，[：]，[。]。
1，2，3，4，5，6，7，8，9，0，回，[，]，[；]，[：]，[。]。

1信息单元组合无限地图世界，2地图里的一次编程，3一次编程基础上的二次编程（AI自动信息自转自传）。

tty的zhcon需要fbset(修改操作framebuffer)
sudo apt install fbset
sudo usermod -aG video $USER #/dev/fb0 通常属于 video 组，加入获取权限的执行。
重启以获取权限。
fbset -i # 查看详细 framebuffer 模式

mode "1440x900-60"
geometry 1440 900 1440 900 32
timings 0 0 0 0 0 0 0
rgba 8/16,8/8,8/0,0/0
endmode

复制代码

tty下中文：tty+zhcon（二合一，中文显示和中文全拼输入法）+ollama run qwen:0.5b（可以中文问答）+tty下图形编程
tty下记录script session.log 需要命令行做一个exit退出动作后（不会退出账户），才会输入到session.log文本。
tty C语言操作fb0的图形内容，先在桌面下编译好，处理了出错信息后，再转到tty下执行。
tty下输入：tty
/dev/fb0 （需要的内容）
/dev/pts/0 （图形界面，无法看到被图形界面覆盖了的输出图形，需要exit，会退出去。可能是zhcon的图形启动？）
tty，fb0，无限圈层级里，已有有限屏幕的极限位图，全组合的点阵字符集或点阵组合集。

重置密码
grub的选项栏，
按e，进入编辑内容，
在linux那一行的行尾，去掉最后两个单词quiet splas，加上systemd.unit=rescue.target
F10运行
出现运行页面，按一下按钮，出现root@帐号输入等待
输入mount -o remount,rw /
输入passwd+帐号
输入新密码，再次输入新密码
输入exec /sbin/init重新启动，进入用户和输入密码的图形页面(这一步就可以tty了)

在tty下安装图形
linux mint22.2图形界面桌面问题：
sudo dpkg --configure -a
# 5. 安装 Linux Mint 桌面
sudo apt install linuxmint-keyring
sudo apt install mint-meta-cinnamon # 或 mint-meta-mate / mint-meta-xfce

tty+C语言+framebuffer，色象代表信息，信息代表声色。
tty+gas汇编+framebuffer+(多维数组的变量，中文显示和中文输入，鼠标等单多输入端口接口，页面浏览器文本，文字，动静帧图片，声音，影视)

在C语言SDL2图形库的程序代码中，最后一行注释编译和执行命令，对应防止忘记。

只有一个机器容器，，然后逐渐的增量。不是主板，而是键盘或鼠标开关。
键盘鼠标。
键盘鼠标+屏幕。
键盘鼠标+ 屏幕+电器主板功能。
键盘鼠标+屏幕+主板+内存。
键盘鼠标+屏幕+主板+内存+外存（算盘位移记录，打孔卡，钢，粉磁盘）。
键盘鼠标+屏幕+主板+内存+外存+芯片自动加工厂。

自动信息AI，通义：C语言SDL2制作一个虚拟机，LINUXMINT22.2
通义：C语言SDL2制作一个微软DOS下的debug.exe，LINUXMINT22.2

问题：在64位字节中，使用32位程序执行，能不能使用余下的32位存东西。按照说法是不可以的，执行文件是固化的，那么换成其他解释类语言呢。

中医许阳的基本中医部分，或菜菜城里的中医堂明心堂什么的，分为1基本理论，2基本看病，3基本治病三类集合。从冇逐渐增量的理论和实践，两者名实渐增，随着学习进步。
perl文本游戏和图形后续+Emacs两条路并行。EMACS集成图形点阵（存疑？），模拟汉字DOS系统和自修改程序

zzz19760225 · 发表于 2025-2-11 07:04:26

本帖最后由 zzz19760225 于 2025-7-21 10:58 编辑

账号建立和删除，存取，（遥远的未来自动运行账号的演化侧视=获取账号自动运行的数值统计表格）。
回车自动随机用户名
菜菜城里的医店，一个郎中叫许阳。或药品店里有人叫许阳的接上。（初期是一个只会看感冒发补品的外行门外汉，需要在回忆中练习中医理论课程，才从门外汉走向理论学徒，后面再接时空外挂系统加成）
点阵阵列模块，便于替换和维修才好，但不能引起鼠标键盘的操作跳出游戏，稳定可靠，不能没有保存就莫名其妙结束了。（自动记录保存？）
游戏的背景音乐库，轻音乐背景的气氛与剧情环境联系。
批处理界面窗口大小，图片显示位置和大小，文字显示位置。GDI.exe（还是要有C语言的，方便编译，主要是保存。有网站稳定保存的话，比个人电脑要好，双保存，网盘和邮件保存）
批处理运动，日本图片对话，明星志愿和皇帝等图片游戏模式，图片可以修改为生活情境（单图片，多图片，gif动图，截取影视或视频，声音），游戏可以修改为生活内容，游戏内容与生活节奏建立侧面统计的量化联系或开关。（按照游戏的制作，是可以认识到跳出的问题不好，包括明星志愿和皇帝，都有这个跳出问题，为什么会无法消除呢，特定的几个命令字符*/|><？）
单独信息储存与一行间隔信息，变量信息的命名可不可以用中文。
变量延迟要不要配上结束段，或者用call
许阳的前传是否必要，如何理论学习上成为踏实优秀的毕业生。还是回忆的阶段，加上如何学习的内容。这些内容在菜菜城的大学堂里也有，人人可以随时去学习，反复重复去熟悉。差别是能系统深入的去学，与只能一阵发热好之，然后迅速离开的长期效果积累量变质区别。（以男女夫妻皆学习中医，互相治疗，男辅女主，女一般通常家内的生活饮食和子女孕生育调养，老人照料等，都需要。简单未病防病模式组合小病识别治理不扩大，其余的能出这个范围，得去医院看行业专业的，自身具有基础辅助配合和自家打算）
广义全面的中医，与点线面体境的中医内容，要全面掌握中医很难，但是要针对点，如一个舌诊的一个信息点，经过简单学习和练习还是可以的，这样点组成的线，单一线路，到多线路，逐渐从少向多，这样去看长远。然后是如何选择一些基本的点线，组成家医容易上手的内容，要完成未病防御和小病不扩大的及时处理（人民联防模式）。
用单独文件文本储存单个变量，比较自由度，可以方便整体游戏修改。（一个文件夹为集合，里面是各个文本，如是单元很多，需要内建量化进制的文件夹。）文件排序表
绝对真理，相对理论，绝对化相对理论，相对化相对（二次相对），实名（实为名之身，名为实之衣形式理论，量身定做的实践检验理论）。绝对，绝对相对，相对，相对相对（无有极常默的圈层级相对，广义相对阴阳太极集合圈。已有科学前沿，在名称上，或概念，都可以在传统文化上找到联系。最终是需要直线与园，一种人概念存在极限的自私家内容，去开关控制利害善恶的知识技术文化无人内容。按照私有，应该是私有化走向这个历史操作，但是实际是走极端了，反而是名私的极私，实否定整体多数私，无法完成这个历史开关控制作用。这里应该存疑，私有化改造的可能空间。另一方面，私有化流通量超过整体里的个体一半，开始公有化，会产生一种相异甚至相反的效应，有部分形式绝对化官僚极公打着公的名义，掠夺他人平均的常私，更多的相对公和无私公常公，具有滋养常私多数私的效应。这里的公私广义概念空间，其内容的量化，提炼为数量数学公式关系，反应成阶段形态的方程式才好）。
findstr行首尾正反的变量或变量内容为中心，单多相对前后左右的量化联系。
每个年代的人，是历史这个价这口天下大锅里的菜，要乘其时效变化运转的动态中，做菜和吃。
可能是人为制造差异差别区别对立，而形成的人造的中国与外国不同，至少在先天天然身体这个方面，中外差异有，但是差别不大。后天文化上，需要有每个年代的教育发动机维持推动自身年代群体，具有文化能量成为年代里的文化人。人民公有化多数人流通文化人，与私有化少数人话语权文化人，以历史相对理论和背后的实在道理概念空间为师，与历史阶段和年代的理论老师，老师类集合处理知识之下的个体宗师，大师，高手，老手，中手，低手，新手，入门，门外汉，无关人。
君相佐使，谋略+组织政策+章程排序事件，环境+本体+内部点线面体境联系关联关系，表面标本根源。通用+组用+专用，不同时空通用度类集合批处理效率数量的组合。
很可能，所谓文化基因，中心，核心的人民群众文化理论内容或元素，并不多，很多时空是不同形式重复循环规律类。无法再现无法验证的内容，可再现但无法验证内容，可再现可验证的内容。宏观科学文化+中观科学文化+微观科学文化，人体微量元素，人民群众的微量元素。
如果将世代内外优秀的动画片，影视，都可以装进菜菜城，是不是需要很多标签对接的标准路线。
抗战史上的今天，这个系列，每一句话，都可以丰富为一个小故事。要是光荣使命能延续下来，那是满满的一群服务器内容。批处理的服务器故事，这样历史都是可以从神话，到三皇五帝，到华夏开启，到周史，后面就一路下来，一句话一个故事（见龙卸甲电影），每个人有一个自己的理解，世代新生代的人有自己理解，游戏做不完啊。如果这些故事相对关系，再结合幻想的汉族九行星九村建立建设发展里，是不是可以生产历史推理幻想文学文艺，顺带为科学科技产生想法空间世界，与纯科幻类的，加上历史重复循环规律内容，具有家概念的科幻文学文艺。
gdi图形编程内容
DEV C++，选择文件=新建=项目=basic=windows application
通义AI：“c语言gdi绘制一个100像素点的图形”

#include <windows.h>
LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);
int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, PSTR szCmdLine, int iCmdShow) {
static TCHAR szAppName[] = TEXT("DrawPixelExample");
HWND hwnd;
MSG msg;
WNDCLASS wndclass;
// 注册窗口类，10个
wndclass.style = CS_HREDRAW | CS_VREDRAW; // 窗口类型：水平、垂直重绘，即改变窗口大小时自动发送WM_PAINT消息，而不必手动发送。被改变时该类所有窗口重绘
wndclass.lpfnWndProc = WndProc; //窗口处理函数---回调函数的地址
wndclass.cbClsExtra = 0; //窗口实例扩展：预留空间的附加值，此程序没用到
wndclass.cbWndExtra = 0; //窗口实例扩展：预留空间的附加值，此程序没用到
wndclass.hInstance = hInstance; //应用程序实例句柄
wndclass.hIcon = LoadIcon(NULL, IDI_APPLICATION); //装载窗口标题栏图标
wndclass.hCursor = LoadCursor(NULL, IDC_ARROW); //装载窗口鼠标
wndclass.hbrBackground = (HBRUSH)GetStockObject(WHITE_BRUSH); //背景白色
wndclass.lpszMenuName = NULL; //装载窗口菜单，此处程序没有
wndclass.lpszClassName = szAppName; // 窗口类名---程序的名字
if (!RegisterClass(&wndclass)) {
MessageBox(NULL, TEXT("This program requires Windows NT!"), szAppName, MB_ICONERROR);
return 0;
}
// 创建窗口
hwnd = CreateWindow(szAppName, TEXT("GDI Draw Example"), WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
NULL, NULL, hInstance, NULL);
ShowWindow(hwnd, iCmdShow);
UpdateWindow(hwnd);
// 消息循环
while (GetMessage(&msg, NULL, 0, 0)) {
TranslateMessage(&msg);
DispatchMessage(&msg);
}
return msg.wParam;
}
LRESULT CALLBACK WndProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam) {
HDC hdc;
PAINTSTRUCT ps;
switch (message) {
case WM_PAINT:
hdc = BeginPaint(hwnd, &ps);
// 设置画笔和画刷
HPEN hPen = CreatePen(PS_SOLID, 1, RGB(255, 0, 0)); // 红色画笔
HBRUSH hBrush = CreateSolidBrush(RGB(0, 0, 255)); // 蓝色画刷
SelectObject(hdc, hPen);
SelectObject(hdc, hBrush);
// 绘制一个100x100像素的矩形
Rectangle(hdc, 50, 50, 150, 150);
// 如果需要绘制圆形，可以使用Ellipse函数
// Ellipse(hdc, 50, 50, 150, 150);
// 清理GDI对象
DeleteObject(hPen);
DeleteObject(hBrush);
EndPaint(hwnd, &ps);
return 0;
//编译时报错，剔除；case WM_DESTROY:
//编译时报错，剔除。 PostQuitMessage(0);
return 0;
}
return DefWindowProc(hwnd, message, wParam, lParam);
}

复制代码

编译出错部分，手术割掉，居然运行成功了（360报错为木马，添加信任）。一个界面，空白底上一个红边的蓝色方形。
需要像素显示的内容，都是存在内存里。这样这个假设的屏幕=图形显示，都是操作在内存上，关闭也不需要硬盘储存。
启动机器的大开关=什么句柄指向；注册一类的，类似HTA和VB的参数一堆，中开关；后面是小开关的数据车床切换各种刀头。加工的材料为信息数据文件文本。这样将几个分类开来，弄成三板斧的样子，便于简化印象认识理解。
环境和本体基本文章格式，第一板斧是大开关，开启与关闭的电源能源能量输入；第二板斧是各个中开关，将电源能量输送到整体机器的结构部分部件上，以及服务整体和部件的关联辅助开关；第三板斧是结构流程里的小开关，是使用这些部件，组合操作刀头与材料的化合反应，或者是指鹿为马的if，如果存在1，又存在2，则选择3。第三板斧是重复的定量动作，重复循环，将流水线直线的所有点大概都过一遍，如摘菜洗菜，基本都要过一下手。这个流水线直线，就是一个线程序（假设世界是一根线，无限长的线，每一个世界存在分散切割的单元，都装入线上的一个点容器里，这样的排序选择。解散直线，成为一个天地太极大容器里的混沌，对人的所谓排序，理解为混乱，这种混沌或人概念混乱，随着无有排序的需求，从需求问题理论，到逐渐实践组织效率比较中，走向重复的排序选择）。
感觉中医缺少一个编程研究或普及（不仅仅是中医被数字化，是中医本身的编程宏观中观微观三观扩展，是一个文化文明体系。不过目前也无法进行该内容的普及，需要有一个文化的历史课本和教材。在私有化掠夺教育资源核权力中，连已有的都可能被他们掠夺走，还贪中医更进一步，难啊。没有劳动所有权经济和经济收入上的聚散集中权力，是无法全面展开的吧，而是相对张力渗透，慢慢偷空发展。先立后破，先发展起来，无法被消灭，然后对应有问题的这个棋局或关卡破掉），中医的量化部分，会非常那啥。
游戏或操作功能打开，就是一个页面，介绍操作。开始这个页面是空白的，没什么内容，但是要留着。并且这个页面随时可以调出来，关闭。一个组合键调出，类似DOS图形页面下的组合键提示。熟手老手会忽视无视，新手生手会不时需要，该怎么做选择呢。
一个页面+一个输入提示，游戏中随时打开和关闭这个界面。

use utf8;
use open ':std', ':encoding(gbk)';
print "请输入:";my $输入内容 = <STDIN>;
print "$输入内容\n";
<STDIN>;
显
请输入:123
123

复制代码

zzz19760225 · 发表于 2025-2-11 07:04:32

本帖最后由 zzz19760225 于 2025-2-16 16:35 编辑

1随机数和随机用户名，2游戏时间，3标签单元阵列的跳出测试，4choice快速操作，5游戏信息数据形式储存取
随机昵称，可以用时间为编码名称，后期可以修改名字，或将名字改为时间，或两者组合。
echo:%date% %time% %nc%
2025/02/11 周二 7:58:37.27 123
有空格间隔的作名字，需要加引号“”。昵称和时间组合，这样相同名字也可区别，顺带if直接回车或空格，就是时间编码名为主（简便选择的趋向考虑，新生刚来学堂，所问必然五花八门，这些门路都是通往学习的兴趣乐于线路，搭上路子。也有说了就忘了的，谁记得自己入学第一天是什么，或一生谁记得自己高兴的很多时候是什么样子。不论如何，至少这是一个增量空间）。
年龄：
医术知识理论等级：
医术数量实践等级：
类集合流派单元点线面：
事：（事广义，包括生活，工作，组织，其中身体内容的睡醒衣食住行乐）
德：
相对比较的游戏内圈层级人物，从不知，未知，到已知，学习可知，实践能知，知量积累，知量结合实践知道之后的熟，孰能生巧量变质，重复循环升级，走过自身门外汉，入门，新手，进入状态的中手，量积累熟悉熟练老手，高手，大师，宗师，立功立德立言三立（劳动贡献为先，长期长远劳动贡献为德量。不劳动积累进步，德就停留，反向向恶增量，则相对减少德量。德不是生存必须，但是向善会积累德值，德值服务个体个人和家的心身真善美内容，心情的向善情适宜舒服。反向的向恶也有纵欲发挥破坏的自我舒服，在向恶类同的群体里会引发交流乐于。向善可以扩大群体数量，向恶也可以扩大群体数量，向善的扩大利己利人交换，相对主动自愿多些。向恶在出向恶群体之后，再扩大需要利益利害的压迫控制垄断，形成被动势力。向善结合唯物，建立在长远物质生产技术劳动丰富数量上，可以改变历史已有结构。向恶达到历史阶段极限，不能向外获取利益之后，会内部加强强化掠夺，不断逼迫压缩其余人的私利益空间。私有化向外战争是必然，为什么中国的私有化不向外扩张呢，很奇怪的。地理的距离消耗能量，达到了极限，所以得不偿失自动阻止。那么为什么不发展技术扩大这种流通，突破极限呢？）。
游戏需要增加两个时间，一个是实际时间，另一个是相对实际时间的时空穿越时间。穿越里的游戏保存
单游戏人物，储存一个数值，还是多个数值？保存的是刷新值。需要多个人物的多个时空保存（先问题存疑）。
点对点，变量对应储存到文本，最简便准确。是不是要很多文本点
一个用户名对应一行数据数值，行增减。
多行的列增减
标签式标签段增减
批处理的建立再替换原文本，三剑客直接写文本。
如果批量文本点变量储存，这些变量再集中为一个集合文本的行间隔数值单元。（根据游戏需求进行结构增减的点文本变化反应）
1.1.txt
1.2.txt
过程集合文本只是反应实在点文本（会不会有集中读取拥挤问题，不会重复的进程读取路线，圆辐射线存取）
只能是建立文件再替换原文件，一般大佬都是这样做，就基本决定其可用范围，门外汉再去挖也挖不出什么。游戏存取替换，一般操作开始，结束，中途储存，自动储存。自动储存最多，其余的量并不多。
账号批量进出，一个账号一个文件夹，文件夹里对应点文本。

昵称：%nc% 气血：%rhp%/%rhpsx% 法力：%rmp%/%rmpsx% 攻击：%rgj% 防御：%rfy%
等级：%lv% 经验：%exp%/%sjexp% 银两：%yl% 点数：%ds% 饱食度：%bsd%/%bsdsx%
武器：%wqmc% 攻击+%wqgj% 服装：%fzmc% 防御+%fzfy% 商城：S 充值：P
腰带：%ydmc% 气血上限+%ydqx% 饰品：%mzmc% 魔法上限+%mzmf%
:svjl
echo
cls
echo.
echo 真的要保存记录？
echo.
echo 1.保存记录
echo.
echo 2.返回
set /p zhen=
if %zhen%==1 goto savejl
goto jyc
:savejl
echo
cls&setlocal enabledelayedexpansion
del 勇士大闯关存档
md 勇士大闯关存档>nul 2>nul
for %%a in (lv rhp rmp rmpsx rhpsx bsd bsdsx rgj rfy yl ds exp sjexp wqmc wqgj fzmc fzfy ydmc ydqx mzmc mzmf mfhf sjexpdz hh jcy xhy jnl1 jnl2 jnl3 qnfyj bosszgr xixue) do (
echo v!%%a!v>>勇士大闯关存档\%%a.txt
)
cls
echo.
echo 保存记录成功！
pause
goto jyc
:rejl
echo
cls
echo.
echo 真的要读取记录？
echo.
echo 1.读取记录
echo.
echo 2.返回
set /p zhen=
if %zhen%==1 goto readjl
:readjl
if not exist "勇士大闯关存档" goto nojl
cls&setlocal enabledelayedexpansion
for %%b in (lv rhp rmp rmpsx rhpsx bsd bsdsx rgj rfy yl ds exp sjexp wqmc wqgj fzmc fzfy ydmc ydqx mzmc mzmf mfhf sjexpdz hh jcy xhy jnl1 jnl2 jnl3 qnfyj bosszgr xixue) do (
set /p %%b2=<勇士大闯关存档\%%b.txt
set /a %%b=!%%b2:~1,-1!
)
cls
echo.
echo 读取记录成功！
pause
goto jyc
:nojl
echo
cls
echo.
echo 没有保存记录！
pause
goto jyc

复制代码

goto标签游戏单元，可选内容与相反内容的处理。输入123之外的内容，如何不出问题。（用choice直接输入做选择，减少按回车键这一步。choice或其他能不能实现核对符合就执行的，输入内容没有符合的就不执行。核对表里不能有太多重复，否则在前面就执行，后面重复的地方就无法达到。怎么不按回车键，又输入很多内容核对，核对到有相同的就执行，并且扩大到一定数量，至少要够用。一百个就可以了吧）

@echo off
:0
set /p a=:
goto:%a%
:1
echo:123
goto:0
:3
echo:789
goto:0
:2
echo:456
goto:0

复制代码

@echo off
:0
set /p a=:
set b=1,2,3
for %%i in (%b%) do (
if /i %a%==%%i goto:%a%
)
echo:冇
goto:0
:1
echo,123
goto:0
:2
echo,456
goto:0
:3
echo:789
goto:0

复制代码

如果有一个内部收集标签数字，集中到for变量里面，是不是可以自动化？
英文标签后面跟rem介绍中文，:bcwj rem=保存文件
标签的头与尾，:名........goto:0或exit/b
主程序循环段不跳出，各个标签段不跳出，最后组合起来。自动组合的搜索合并，人只要建立主程序自动段，后面主要是制作，增减标签段单元。
findstr搜索：冒号后面的内容，排序为间隔单元，作为for行处理材料。或对接choice。
findstr搜索：冒号后面的内容（那么跟后面的rem中文解释介绍，就不能有了？）
根本就不需要findstr搜索，这步考虑是功能重复了，多余了，原本的直接一步就可以。搜索内容findstr "^:" %0，用for和set/p横线显示，作为提醒提示。

@echo off
:0
for /f %%i in ('findstr "^:" %0') do (
set/p=%%i<nul
)
echo;
set /p a=:
call :%a%
goto:0
:1
echo:123
goto:0
:3
echo:456
goto:0
:4
echo:789
exit /b

复制代码

得

:0:1:3:4
:0
FINDSTR: 无法打开 :0
:1
123
FINDSTR: 无法打开 :1
:2
系统找不到指定的批处理标签 - 2
FINDSTR: 无法打开 :1
:3
456
FINDSTR: 无法打开 :3
:4
789
FINDSTR: 无法打开 :3
:5
系统找不到指定的批处理标签 - 5
FINDSTR: 无法打开 :3
:

复制代码

在：0开始循环之前，将搜索行内容，倒进一个变量，然后那个变量放在：0循环结构里重复使用，不需要每次搜索一次，只是程序启动时搜索一次。
在具体的程序里，是内部结构选择标签，不是人手工操作一个个选择，所以这个findstr搜索是不需要的。
按照77的两个都是相对稳定态，前者是管道开关选择，后者是间接调用选择，应该选择前者管道开关相对快的说法，实际节奏批处理的操作，是不用考虑这个速度差的。
中心主标签与众类集合分标签，主标签为一个变量容器，装载的不是一个固定标签，是相对标签。开始画面为一个标签，其次用户选择页面为相对次一级标签，用户选择完成进入菜菜城次次标签，这三个标签，当用户操作处于菜菜城，那么用户选择标签就是内容，处于主变量标签容器里。当用户操作处于用户选择页面标签，则主变量容器里的内容是开始页面标签。（需不需要这样呢？）不一定需要相对标签位置关系，但是针对武器店，药店的类集合，其内单元武器和药品的相对跳转，是否有通用的什么内容。
主类集合标签：0，分类集合标签：1，分类集合下属标签：1.2，独立标签：0.3。应该四类规律制作标签可以了吧，类似树tree模式
标签的集合表示形式（类似所谓的荷兰什么命名法，具有自身识别度的选择），：0，：1，：1.2-10。否定命名法，还是没有命名的好，这样出现变化修改，可以不需要考虑关联变化修改。
开始菜单标签，与储存取删除文件的标签之间循环练习。
在等待输入里，按键；分号或|英文竖线跳出，后面跟pause是可以暂停一步的。
523066680不需要choice和回车的批处理，通用度增加，减少DOS，XP与WIN7才有choice的矛盾。
通用度，稳定度，便利度。
没搞懂怎么标签化直接跳转
choice只是xp缺失，那么也不是不可以算通用的，通用度高一些命令，下载第三方choice补充XP的问题。

@echo off
:0
for %%i in (1,2,3) do (
choice /C %%i /M ""
)
goto:0
:1
echo:123
goto:0
:2
echo:456
goto:0
:3
echo:789
goto:0

复制代码

得

[1]?1
[2]?2
[3]?3
[1]?

复制代码

for的行依次输出，而不是集合选择。但是证明了，变量做choice参数是可以的。

zzz19760225 · 发表于 2025-2-11 07:04:37

本帖最后由 zzz19760225 于 2026-3-16 18:51 编辑

1234567890

zzz19760225 · 发表于 2025-2-11 07:04:41

本帖最后由 zzz19760225 于 2025-8-13 17:46 编辑

每个编程语言，都是一个信息组织机器，制造用机器=制造用器。学习操作perl信息组织机器

perl下载论坛第三方“[在线下载]第三方命令行工具”，输入perl会显示可选文件，选择下载解压，会得到一个文件夹。
建立1.PL文件，文件右键设置默认执行程序，设为第三方文件夹里的perl.exe。
这时双击1.pl文件，就会自动perl执行了。
win系统，在文件夹的路径行点击，输入cmd，就进入这个文件夹路径的cmd界面。

建立散列集合

%散列1
my %散列2

复制代码

删除散列集合

清除散列集合

建立增加散列单元名键=字值

更新名键=字值

删除名键=字值

显示名键=字值

排列名键=字值

内外处理：

散列转文本

文本转散列

1测试变量延迟的标签段运行是否正常；阔以
2标签段里的内容，如何提取出来跳转后依然能使用；阔以
3标签段的信息数据阵列，被findstr获取和sed修改。（sed获取呢？）
4文本行单元的多位随机进制，其无限位数的自由度选择形式，如for /l。
5标签和标签段内容在一行，findstr读取，再用call执行。（那么还要标签干什么呢，直接各行是命令内容，读取使用，还是标签段首尾识别）

散列和文本，建立空散列和空文本。
建立散列空单元键（名），删除散列空单元键（名），储存到文本，取文本。（undef）
单输入值(字)到空名键，多输入覆盖已有值，清除值为空(undef)，储存到文本，从文本取。
先重复这些基本单操作，goto指令，后考虑批量处理。

单元组合穷尽地图的聚散（函数关系加工增量和加工完成的地图存量），函数方程式的函数方程式，虚空接物完成二次处理的假设。

zzz19760225 · 发表于 2025-2-11 07:04:46

本帖最后由 zzz19760225 于 2025-5-30 08:32 编辑

1234567890

程序文本内点阵
<!DOCTYPE html>
<html>
<head>
<HTA:APPLICATION
SCROLL="yes"
SINGLEINSTANCE="yes"
>
<title>段落样式示例</title>
<style>
p {
font-size:100%; /* 字体大小 */
line-height: 90%; /* 行间距 */
color:; /* 文本颜色 */
}
</style>
</head>
<body>
<p>
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
</p>
</body>
</html>

复制代码

可惜iframe框架窗口里，不好调整引入的文本字符大小，间距。这样对程序文本进行处理，比单独的文本要增加难度了。搜索比较选择，处理尾字符串=<br>的行，行内<br>之外的内容修改。
用iframe的id，好像不行。

<html>
<head>
<HTA:APPLICATION
SCROLL="yes"
SINGLEINSTANCE="yes"
>
<style>
#myFrame {
width: 5px;
height: 1px;
border: 1px solid black;
}
</style>
</head>
<body>
<iframe id="myFrame" src="1.txt" ></iframe>
</body>
</html>

复制代码

可以调节iframe的大小，但是里面显示1.txt的字符大小不变。
1.txt

▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇

复制代码

阔以，用hta里的vbs，是可以缩小1.txt文本字符的。（还有个换行问题吧）

<html><head>
<HTA:APPLICATION
SCROLL="yes"
SINGLEINSTANCE="yes">
<style>
textarea {
font-size:70%; /* 调整字体大小 */
line-height:90%;
width: 100%;
height: 50%;
resize: none;
}
</style>
<script language="VBScript">
Sub Window_OnLoad()
Dim objFSO, objFile, strContents
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("1.txt") Then
Set objFile = objFSO.OpenTextFile("1.txt", 1)
strContents = objFile.ReadAll
objFile.Close
' 将文本内容按行分割并添加到textarea中
arrLines = Split(strContents, vbCrLf)
For Each strLine In arrLines
txtContent.Value = txtContent.Value & strLine & vbCrLf
Next
Else
MsgBox "1.txt 文件不存在！", vbExclamation, "错误"
End If
Set objFSO = Nothing
End Sub
</script>
</head><body>
<textarea id="txtContent" readonly></textarea>
</body></html>

复制代码

暂时可用

<html>
<head>
<HTA:APPLICATION
SCROLL="yes"
SINGLEINSTANCE="yes">
<style>
textarea {
font-size:70%; /* 调整字体大小 */
line-height:90%;
width: 100%;
height: 50%;
resize: none;
}
</style>
<script language="VBScript">
Sub Window_OnLoad()
LoadFileContents()
End Sub
Sub LoadFileContents()
ClearPage()
Dim objFSO, objFile, strContents
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("1.txt") Then
Set objFile = objFSO.OpenTextFile("1.txt", 1)
strContents = objFile.ReadAll
objFile.Close
' 将文本内容按行分割并添加到textarea中
arrLines = Split(strContents, vbCrLf)
For Each strLine In arrLines
txtContent.Value = txtContent.Value & strLine & vbCrLf
Next
Else
MsgBox "1.txt 文件不存在！", vbExclamation, "错误"
End If
Set objFSO = Nothing
End Sub
Sub ClearPage()
txtContent.Value = ""
End Sub
</script>
</head>
<body>
<textarea id="txtContent" readonly></textarea>
</body>
</html>

复制代码

刷新时，先清除页面。

zzz19760225 · 发表于 2025-2-11 07:04:50

本帖最后由 zzz19760225 于 2025-7-6 16:38 编辑

1234567890
将学习，简化看作是混熟，就好一些了。
intel4004，2300个开关的芯片，

汇编语言
电子工业出版社，吕升旭编著，(郑阿奇主编)，2011年5月第一次印刷，35元，开本：787X1092，印张：20.75，字数：53.12万字 (531.2千字)
一，内容简介，前言，
二，首篇：汇编语言运算基础，
三，2，3，4，5，6，7，8，9，10篇
四，附录。

机械工业出版社，郑晓薇编著，(2013年12月2版)2018年7月重印，39元，开本：185X260，印张：18，
一，简介，前言，教学建议，
二，首篇：1基础知识，
三，2，3，4，5，6，7，8，9，10篇，
四，附录。

清华大学出版社，王爽著，(2003年9月)2005年4月重印，28元，开本：185X260，印张：20.5，字数：49万字 (490千字)
一，内容简介，前言（教学思想，本书结构，教学重点和内容特点），
二，首篇：基础知识，
三，2，3，4，5，6，7，8，9，10，11，12，13，14，15，16，17篇，
四，附注。

IBM-PC汇编语言程序设计(第二版)，
清华大学出版社，沈美明，温冬婵编著，(2001年8月2版)2006年11月重印，34.8元，开本：185X260，印张：31.25，字数：71.1万字 (711千字)
一，内容简介，前言，
二，首篇：基础知识，
三，2，3，4，5，6，7，8，9，10，11篇，
四，附录。

开本
是指一本图书幅面的大小。是以整张纸裁开的张数作标准来表明书的幅面大小的。
把一整张纸切成幅面相等的 16 小页，叫 16 开，切成 32 小页叫 32 开，其余类推。由于整张原纸的规格有不同规格，所以，切成的小页大小也不同。
开本尺寸
标准正度纸的尺寸为787×1092(mm)。大度纸的尺寸为889×1194mm。
*成品尺寸=纸张尺寸－修边尺寸

印张
说明印这本图书需多少纸张。
因为一张纸可以两面印，所以两个印张才算一个全张。一令纸是五百张，一千印张就是一令纸。
印张计算
（1）印张的计算方法：面数除以开数；
（2）总面数的概念，凡是用纸与正文相同、可与正文部分合在一起印刷的前言、目录、索引、附录、后记等，其所占面数都要计入总面数；
（3）若印张数计算中出现小数，在印数比较少（如仅千册时），一般要根据“使不足一个印张的零页呈双数（占四个页码）状态”的原则而向上进位，以便于印刷、装订。
16开进到0.25、0.5、0.75；32开进到0.125、0.25、0.375、0.5、0.625等。
但是，在印数大到纸张费用已经占书刊成本的50%左右时，就不宜采用这种方法，因为这时可指望节省的印订费用已经不足弥补纸张费用的增长。

所谓的汉字DOS应该是对应嵌入式这个实践内容更多的概念空间。汇编也是通用的。
课本一般是1前言，2首篇，3其余篇（中心篇，重点篇，骨干篇，收尾篇）。

以文本处理为载体的模拟假设汇编实验平台？
汇编理论(没有包括的环境技术知识，字典词典技术说明书手册)，dosbox的debug.exe，masm，emu8086，中文版visual masm2.00，电路模拟模仿（数字电路书籍），实际物件参与（市场采购员资料角度，还有钱，想办法怎么用学到的内容去换来钱，接上），维修，零件部件替换，零件部件获取或自制（这是不可能自制的），结构重组，按照需求建立结构的重组，个人个体对汉字DOS概念空间的需求结构重组。
1停留在原地重复深刻，2达到目的就快速跨过去，不断跨越循环混熟，3流程里的产品和服务重点与流程结构组织的理论实践扎实（时间还够吗）。

O汇编语言

从已有软件到试验硬件，从试验硬件，实验硬件，产品硬件到结构需求软件。（钱在哪里呢？或者说生活资料的物质内容在哪里，将产品摆在地摊上卖，同时看书，间或当时可行的单元实验，结构组织互相网络联系。1号运输员，2号摊点，3号中心）

框架老师，备课背课。先类似谋略分解问题需求为量化的简单重复，备课将一本书分解为认识理解熟悉熟练的的什么概念，而不管里面什么内容。在初期框架处理后，再吃里面的内容，不管回到框架。这样会不会太那啥了，就是处理运算形式，具体的机器结构，机器如何运转，准备需求内容，实现需求内容。或者两者都可以，通过作息表，按照想法进行排一天，愿意学，的排序方法，就多排一些。直接对问题紧追猛打不死不休，结构组织每日步步为营。注意力管理，在欲望，需求，问题消失前，需要完成这个结构，如看新闻的几秒兴趣意识的有效时效。所以步步为营不适合我，应该放弃。但是可以在兴趣之外，建立一种跨天的年结构步步为营，置于四季规律中，在百年和两百年的大周期里步步为营是可以的。有空就抽时间素描一样添几笔，描绘百年或两百年的内容，有问题的内容去掉或标示，突出下一阶段的颜色。个体个人自我管理内容，多人组合的管理小组，多人管理小组的所有权经营。将管理简化为混熟，经常查看翻看，在看的清楚明白基础上，不论能力大小的利害善恶好坏简单化选择。总之比被蒙骗和糊涂的搞不清楚自己利益要好。
在其中，混熟，经常顺便翻看，看看法看到清楚明白。
这样人民干部的问题也解决了，脱离群众的就可以去掉了。会不会太那啥了。那么接触的是自己一亲近性格群体呢，如何量化呢。基本上那种病毒时候，报不上数的，就是可以下掉了。就是手下多少人，多数人什么情况。但是这也证明不了什么，有的奸是很聪明的，能力不比多数人差，甚至是优秀的能力。道路方法，利益方向，聚散方式。聚散的深入群众如何量化，要是有一种可以量化的称杆扁担，可以知其群众关系，就可以进行一种底色处理了。问群众这面镜子，反过来了解干部多少。也不行，如果干部只是官僚式针对宣传呢，应付这种内容。问题的根源应该不是干部身上，而是群众这个根源上，抓住群众的核心结构规律，去观看干部，而不是以干部为眼睛去看群众，这是主次矛盾统一问题，是是主，这个主是否具有历史通用度，是就是统一了，是之是，两次相对肯定，就是统一主次矛盾了。

以行，实验，实践，实现为主的做到内容为明珠，引导学习的学不知和练习次数。学东西的时候，不是学已知，是学不知的，如果每次每天没有学到新内容，那么就是学习失败。这里有学习的心态问题，认为学习的内容是什么，而实际其内容是不知的。在学到新内容时，以为就是这些，实际没有联系到身上，不能在时效内做到，就是练习不足不够不合格，就是做不到。学，新东西，习，做到。

一，材料，二，机器，三，机器使用，四，使用机器的做法1基本单2多3单元集合相对组合，五，重复，六，工作流程的安排调度。七，独立练习事。（宏汇编，808688指令集）
二进制=机器操作和加工材料，机器，机器使用命令和寻址搜索查找联系，1程序结构，2程序分支，3程序子程序，循环，输入输出中断调度，
基础二进制，八进制，十六进制，为主的二进制知识，
8086/88系统，机器知识，

（寄存器处理，内存处理，外存处理，键盘处理，屏幕处理）

个十百万亿进制字符
个进制，任意一个字符重复。
十进制，需要确定进制的内容结构形式组织机器，然后使用这个组织机器。
一，二，三，四，五，六，七，八，九，十，
百万亿，点阵实现字符之后跟进，15点阵一个数量集合，16X16点阵可放十来个数字，是可以算机器进制的，人眼需要字体放大或再信息处理阅读。

个，二，四，八，十六，三十二，六十四进制汉字
个，同上。
二，阴阳
四，东南西北
八，乾坤兑坎震离巽？
十六，零一二三四五六七八九十壹贰叁肆伍陆
三十二，
六十四，

明天20250419，选择一本汇编语言的第一章第一题，做20遍。（为什么不今天做呢？）
电子工业汇编语言，1，试完成下列数制间的转换。
(1)十进制数转换为二进制。65，89，139，257，388，86
(2)无符号二进制数转换为十进制数。01010010，11010010，00101110，11101100，10011010，00011011
(3)十进制数转换为十六进制数。23，689，356，456，879，484
(4)八进制数转换为十六进制数。475，652，752，346，44，12
用随机数生成题目
01010010，11010010，00101110，11101100，10011010，00011011
1,2,4,8,16,32,64,128,
按照位权数排序，对照有1的权数相加。
01001010=0,2,0,0,16,0,64,0=2+16+64=82
01001011=0,2,0,0,16,0,64,128=2+16+64+128=80+130=210
128,64,32,16,8,4,2,1
00101110=00,32,0,8,4,2,0=32+8+4+2=46
11101100=128,64,32,0,8,4,00=128+64+32+8+4=128+68+40=128+108=236
10011010=128,00,16,8,0,2,0=128+16+8+2=128+26=154
00011011=000,16,8,0,2,1=16+8+2+1=17+10=27
生产8位二进制，6组
10011010=128,00,16,8,0,2,0=128+16+8+2=130+24=154
01001111=0,64,00,8,4,2,1=64+8+4+2+1=69+10=79
01100111=0,64,32,00,4,2,1=64+32+4+2+1=100+3=103
10011000=128,00,16,8,000=128+16+8=144+8=152
00100110=00,32,00,4,2,0=32+4+2=38
00101111=00,32,0,8,4,2,1=32+8+4+2+1=40+7=47
第二遍就烦了

游戏的信息生活空间量化，量化空间与代表的数字化组织。生活化学化合物流，主次。衣食住行乐
民以食为天的饮食物流，（输入收入钱币）买菜米，烧饭菜，吃饭菜，大小便。
温度，精神情绪，衣，身体卫生，洗。洗手，洗足，洗脸，洗头，洗身。买内外衣，洗内外衣，晒内外衣，收内外衣，换内外衣。
住空间的饮食厨，洗澡卫生（净），睡觉卧。整理的屋子和三个常用厨净卧。整屋，理厨，理净，理卧。扫地，拖地。集中垃圾，倒垃圾。
行为广义是水电煤网，狭义是交通工具费用的脚，自行车，电瓶车摩托车，汽车，火车，飞机，船。
乐有两种，一种是将人生做成乐于的内容，乐在其中的参与运动，另一种是专门的乐于内容，个人兴趣爱好和娱乐产品服务。

个体微观经济学，生活环境，人身本体，本体输入输出流通流量量化的臓腑容易。五运六气，天文运转，地星村太极自转，人体太极自转的量化。
元素单元，单元组合聚散，统计量化输入输出流量收入支出。
100，200，2000个生活游戏单元。全部，通用，组用，专用，常用。

中医基层十人小组组长领导，网络信息支援组劳动，生活自动化产品和服务，个人众人钱币集中资本交换生产资料点单双少多整，劳动者劳动股份所有权的公有化企业小中大。

zzz19760225 · 发表于 2025-2-11 07:04:54

本帖最后由 zzz19760225 于 2025-7-11 13:16 编辑

1234567890
无病（真至圣贤），不病（治未病，时空病预防为主），有病（大小病，以偏治偏，恢复平衡），冇病（恢复本体平衡，环境维持本体平衡）。
中医理论，看治。简单初步病，食疗=药，按疗=针穴。小病（食疗，按疗），大病（针灸，药），现代医学化学工业和机器，实验的看治，针对化合抵消，割除，消炎，急救。
黄帝内经的分类背记，1站在环境本体之外俯视的总论类，原理类太极体，平常正常整常。2阴阳相对平衡类，生病原理（不包括外伤？）。3看病类，看病的内外看形态。4治病类。
抽象五行为变量单元的组合结构部分，八纲论治。输入源望闻问切四诊和按诊五诊，内因化为演示外因外形。输出二变量治疗，一剂或一波表面直接，二剂或第二波真假二次细分组合形态的后备部队，补充追击或阻击填补。
看输入（八纲论治组织机器）输出治，八纲论治组织机器的六臓（赃=家）六腑=心腹十二，管理十二经脉门路。内五行对应外针灸药五行。身体组织机器的制造用

阴表寒虚V1
阴表寒实V2
阴表热虚？
阴表热实V3
阴里寒虚（阴里寒虚）4
阴里寒实V5
阴里热虚？
阴里热实？
阳表寒虚V6
阳表寒实V7
阳表热虚V8
阳表热实V9
阳里寒虚（阳虚内寒）10
阳里寒实V11

阳里热虚（阳虚内热）12：

畏寒肢冷‌：四肢不温，易感寒冷，尤其在寒冷环境下症状加重。 ‌
‌口干咽燥‌：因阳气不足导致虚阳浮越，可能出现口干、咽部干燥。 ‌
‌潮热盗汗‌：午后或夜间出现发热，伴随出汗。 ‌
‌腰膝酸软‌：腰部和膝盖部位酸软无力，可能伴随头晕耳鸣。 ‌
‌舌淡苔白‌：舌苔薄白或微黄，脉象沉细数。

阳里热实（阳明里热实）13：

高热‌：身热汗出，不恶寒反恶热；
里实‌：腹胀满痛、拒按，大便秘结或潮热；
热扰心神‌：谵语、烦躁懊恼；
津液损伤‌：口干渴、小便短赤。

有13个百度可以搜索到的16证，先针对这13证混熟。

zzz19760225 · 发表于 2025-2-11 07:04:58

本帖最后由 zzz19760225 于 2025-7-11 12:59 编辑

1234567890

百进制数字组合字
应该是集中左右和上下组合字，其余的字过滤掉。在左右和上下的字群集合里，再对左右上下的部首单元，进行批量处理，寻找通用度高的部首偏旁为参考。类似十六进制0和15个字符，0和9个数字组成100，需要20个部首偏旁，10与10组成100个单元。而这个组合里，汉字是一体视觉的，虽然其字符的集合处理依然是量化数量数字。
规律组合聚散，部首偏旁，笔画的零部件。

zzz19760225 · 发表于 2025-2-11 07:05:03

本帖最后由 zzz19760225 于 2025-3-31 17:14 编辑

1234567890

一，汉化其他编程语言：
中蟒=Python语言，
易乐谷=LOGO语言，
丙正正=C++，
EMS=Visia Compiler。
二，自主研发了汉语内核，
易语言=汉语可被直接编译为机器码，易脚本，世宝脚本是自主开发的脚本语言。
O语言，组合语言，
习语言是C语言的汉化，支持汉语编写。
三类，以汉语为基础，搭建式或区别于传统编程的工具。
搭建之星，
网站搭建者，
华罗庚（MISD），
雅奇990等。

秋海棠红的Visual MASM(32位汇编IDE)汉化版
勇芳的VisualFreeBasic
perl5论坛第三方(脚本宿主完全版)三剑客处理文本纯文字游戏和字符为点阵单元
(易语言)汉字为变量
WIN平台软件，LINUX平台软件

标签，跳转，随机数，变量，缓存，粘贴板的乒乓球来回传递处理（句柄设备容器？），直接修改保存文件文本。

1语文字符集组合穷尽地图选择关系，编译编辑的规律。
2数学从无至有的量化概念，集中到函数这个节点。
3武术的身体在于运动，张力动作不容易练坏身体的站动作。
4中医入不了把脉的门，就以舌头为主，圆运动的古中医学先后两本。
5饮食没有现成的，从民俗历史记录寻找，立足在四季循环的二十四节气饮食，对接中医的身体需求考虑，算一个随意随机的散科目（如果从所谓的五运六气去看，是一个大规模的圆自转里圈层级小自转圆，是有其规律的，只是要找出来不容易）。

zzz19760225 · 发表于 2025-8-26 16:03:32

本帖最后由 zzz19760225 于 2025-8-26 16:06 编辑

1234567890
通义：perl制作一个游戏，中医看病，坐诊看不同的病人，不同的病情，给出对应的治疗内容，得出一些结果。

use strict;
use warnings;
use utf8;
use open ':std',':encoding(gbk)';
binmode STDOUT,":encoding(UTF-8)";
use Encode qw(decode encode);
use Term::ANSIColor; # 用于彩色输出，提升体验（可选，需安装：cpan Term::ANSIColor）
# --- 游戏数据定义 ---
# 病人信息模板
my @patients = (
{ name => "王大娘", age => 50, occupation => "农妇", description => "面色萎黄，精神不振" },
{ name => "李书生", age => 28, occupation => "书生", description => "面色潮红，略显焦虑" },
{ name => "张老板", age => 45, occupation => "商人", description => "体型微胖，说话中气足" },
{ name => "小童", age => 8, occupation => "孩童", description => "活泼好动，偶有咳嗽" },
);
# 病情与辨证数据 (简化版)
# 结构: { symptom => "症状描述",
# diagnosis => "证型",
# correct_treatment => "正确治疗关键词",
# wrong_treatment_penalty => "错误治疗惩罚描述",
# correct_feedback => "正确反馈",
# wrong_feedback => "错误反馈（通用）" }
my @illnesses = (
{
symptom => "头晕乏力，食少便溏，舌淡苔白，脉细弱",
diagnosis => "脾气虚",
correct_treatment => "四君子汤",
wrong_treatment_penalty => "寒凉药伤脾阳",
correct_feedback => "药后精神渐复，食欲好转。数剂后诸症悉平。",
wrong_feedback => "服药后反觉腹痛腹泻，四肢发凉。"
},
{
symptom => "头痛眩晕，急躁易怒，舌红苔黄，脉弦数",
diagnosis => "肝阳上亢",
correct_treatment => "天麻钩藤饮",
wrong_treatment_penalty => "温补药助火上炎",
correct_feedback => "服药后头痛减轻，情绪渐稳。",
wrong_feedback => "服药后头痛欲裂，面红耳赤更甚。"
},
{
symptom => "咳嗽痰黄，咽喉肿痛，发热微恶风，舌红苔薄黄",
diagnosis => "风热感冒",
correct_treatment => "银翘散",
wrong_treatment_penalty => "辛温药助热",
correct_feedback => "服药后汗出热退，咳嗽痰减。",
wrong_feedback => "服药后身热不解，咳嗽加剧。"
},
{
symptom => "心悸失眠，多梦健忘，面色无华，舌淡，脉细弱",
diagnosis => "心血亏虚",
correct_treatment => "归脾汤",
wrong_treatment_penalty => "理气药耗伤心血",
wrong_feedback => "服药后心慌更甚，夜不能寐。"
},
);
# 中药方剂库 (简化)
my %formulas = (
"四君子汤" => "人参、白术、茯苓、甘草 - 功效：益气健脾",
"天麻钩藤饮" => "天麻、钩藤、石决明、栀子、黄芩 - 功效：平肝熄风，清热活血",
"银翘散" => "金银花、连翘、桔梗、薄荷、牛蒡子、竹叶、荆芥、淡豆豉、甘草 - 功效：辛凉透表，清热解毒",
"归脾汤" => "白术、茯神、黄芪、龙眼肉、酸枣仁、人参、木香、甘草、当归、远志 - 功效：益气补血，健脾养心",
"六味地黄丸" => "熟地黄、山茱萸、山药、泽泻、茯苓、牡丹皮 - 功效：滋阴补肾",
"逍遥散" => "柴胡、当归、白芍、白术、茯苓、甘草、薄荷、生姜 - 功效：疏肝解郁，健脾养血"
);
# --- 游戏状态 ---
my $reputation = 50; # 声望值 (0-100)
my $gold = 20; # 诊金 (游戏货币)
my $day = 1; # 游戏天数
# --- 辅助函数 ---
sub clear_screen {
system($^O eq 'MSWin32' ? 'cls' : 'clear');
}
sub colored_print {
my ($color, $text) = @_;
if (eval { require Term::ANSIColor; 1 }) {
print Term::ANSIColor::colored($text, $color), "\n";
} else {
print "$text\n";
}
}
sub wait_for_enter {
print colored("按回车键继续...", "yellow on_black");
<STDIN>;
}
# --- 游戏主循环 ---
clear_screen();
colored_print("green", "==================================");
colored_print("green", " 欢迎来到《岐黄仁心》 ");
colored_print("green", " 体验中医辨证论治的智慧！ ");
colored_print("green", "==================================");
wait_for_enter();
while (1) {
clear_screen();
colored_print("blue", "【医馆坐诊】第 $day 天");
colored_print("yellow", "声望: $reputation 诊金: $gold 文");
# 随机选择一个病人和病情
my $patient_idx = int(rand(@patients));
my $illness_idx = int(rand(@illnesses));
my $patient = $patients[$patient_idx];
my $illness = $illnesses[$illness_idx];
print "\n";
colored_print("magenta", "病人：$patient->{name} ($patient->{age}岁, $patient->{occupation})");
colored_print("cyan", "主诉：$illness->{symptom}");
print " $patient->{description}\n";
# 诊断环节
print "\n";
colored_print("white", "【四诊合参】");
print "请根据以上信息，判断此病人的中医证型: ";
my $diagnosis_guess = decode('utf8', <STDIN>);
chomp($diagnosis_guess);
$diagnosis_guess = encode('utf8', $diagnosis_guess); # 确保比较时编码一致
# 治疗环节
print "\n";
colored_print("white", "【开具处方】");
print "请输入您认为合适的中药方剂名称 (例如: 四君子汤, 银翘散): ";
my $treatment = decode('utf8', <STDIN>);
chomp($treatment);
$treatment = encode('utf8', $treatment);
# 查看方剂信息 (可选)
if (exists $formulas{$treatment}) {
print "\n";
colored_print("green", "【方剂参考】$formulas{$treatment}");
wait_for_enter();
}
# 判断结果
print "\n";
colored_print("white", "【治疗结果】");
my $is_correct = (lc($treatment) eq lc($illness->{correct_treatment}));
if ($is_correct) {
print "✓ $patient->{name} 服用 $treatment 后，";
print encode('utf8', decode('utf8', $illness->{correct_feedback})); # 处理中文
$reputation += 5;
$gold += 10;
colored_print("green", "\n✓ 诊断准确，治疗得当！声望+5，诊金+10文。");
} else {
print "✗ $patient->{name} 服用 $treatment 后，";
print encode('utf8', decode('utf8', $illness->{wrong_feedback}));
# 检查是否用了完全错误的药
if ($treatment =~ /四君子汤|归脾汤|六味地黄丸/ && $illness->{wrong_treatment_penalty} eq "寒凉药伤脾阳") {
print " (可能因 $illness->{wrong_treatment_penalty})";
} elsif ($treatment =~ /天麻钩藤饮|银翘散/ && $illness->{wrong_treatment_penalty} eq "温补药助火上炎") {
print " (可能因 $illness->{wrong_treatment_penalty})";
}
$reputation -= 3;
$reputation = 0 if $reputation < 0; # 声望不低于0
colored_print("red", "\n✗ 用药失当，病情可能加重！声望-3。");
}
# 结束当天
$day++;
wait_for_enter();
# 游戏结束条件 (可选)
if ($reputation >= 100) {
clear_screen();
colored_print("bright_green", "★★★★★ 恭喜！ ★★★★★");
colored_print("bright_green", "您的医术精湛，声望卓著，");
colored_print("bright_green", "已成为誉满天下的【一代名医】！");
last;
} elsif ($reputation <= 0) {
clear_screen();
colored_print("red", "◎◎◎ 惋惜！ ◎◎◎");
colored_print("red", "因多次误诊，医馆声誉扫地，");
colored_print("red", "被迫关门歇业...");
last;
}
# 询问是否继续
print "\n";
print "是否继续坐诊？(y/n, 默认 y): ";
my $choice = <STDIN>;
chomp($choice);
last if lc($choice) eq 'n';
}
colored_print("blue", "\n感谢游玩《岐黄仁心》！\n");

复制代码

显示

[32m==================================[0m
[32m 欢迎来到《岐黄仁心》 [0m
[32m 体验中医辨证论治的智慧！ [0m
[32m==================================[0m
[33;40m按回车键继续...[0m

复制代码

后面没有参考选项123类，不方便。而且有TK一类彩色图形内容。

zzz19760225 · 发表于 2025-8-26 16:03:41

本帖最后由 zzz19760225 于 2025-10-26 17:49 编辑

1234567890
Tk命令语句
------------
use Tk;
--------------------------------------------------------
my $mw = MainWindow->new;    # 创建主窗口
my $主窗口 = MainWindow->new; # 创建主窗口
--------------------------------------------------------
$mw->title("我的 Tk 页面");          # 设置窗口标题
$主窗口->title("我的 Tk 页面");       # 设置窗口标题
--------------------------------------------------------------------
$mw->geometry("300x200");    # 设置窗口大小 (宽度x高度)
$主窗口->geometry("300x200"); # 设置窗口大小 (宽度x高度)
---------------------------------------------------------------------------------------------------------
$mw->Button(-text => "按钮")->pack();                # 在主窗口上创建一个按钮
my $button = $mw->Button(                               # 在主窗口上创建一个按钮
-text => "点击我！",                                        # 按钮上显示的文本
-command => sub {                                        # 开始启动的命令行返回信息
                              print "按钮被点击了！\n";       # 当按钮被点击时执行的代码
                              }
)->pack(-pady => 50);                                        # 将按钮放置在窗口中，并添加一些垂直间距
--------------------------------------------------------------------------------------------------------

MainLoop;                                                          # 启动 Tk 事件循环
-----------------------------------------------------------------------------------

-fill => 'x',             在水平方向上拉伸，宽度会扩展，直到填满父容器左右边缘之间的空间。

-width  => 500,    高度

-height => 400,    宽度

-bg    => 'black',    或 -background: 设置小部件的背景颜色

-font => 'Arial 14', 设置小部件中文本的字体。例如 'Arial 14' 表示使用 Arial 字体，大小为 14 点

-expand => 1,       在进行窗口缩放时是否扩展小部件。这个选项通常与布局管理器一起使用，如 pack, grid, 或 place

-tags => 'ball',       主要用于画布(Canvas)小部件，用来给画布上的项目(item)指定一个或多个标签(tag)，以便后续可以通过这些标签来引用这些项目

-relief => 'groove', 指定小部件边框的样式。可能的值包括 flat, raised, sunken, groove, ridge

-anchor => 'center',  控制内容在小部件中的对齐方式。可选值有 n, ne, e, se, s, sw, w, nw, 和 center

-pady => 30,          垂直方向上的填充，即在组件的顶部和底部留出的空间量

-justify => 'left',    当文本有多行时，设置文本的对齐方式。可能的值有 left, right, 和 center

-wrap => 'word',    在文本小部件中控制换行的方式。'word' 表示尽可能在单词边界处换行

-wraplength => 350,对于某些小部件（如 Label），设置当文本达到特定长度时自动换行。单位通常是屏幕距离（例如像素）

-bd => 2,             边框宽度

-padx 和 -pady (外部填充) 以及 -ipadx/-ipady (内部填充)

-sticky: 让小部件粘附到网格单元的边缘。常用 'n', 's', 'e', 'w', 'nw', 'se' 等，'ew' (水平拉伸) 或 'ns' (垂直拉伸)

------------------------------------
一个空白页面
use Tk;
my $mw = MainWindow->new;
MainLoop;
------------------------------------

页面显示文字
my $a1=$a0->Label( #字条标签
1,
2,
3,
)->pack(                   #pack=包装
01,
02,
03,
);

------------------------------------

页面显示按钮
my $b1=$a0->Button(
-1,
-2,
-3,
)->pack(
-01,
-02,
-03,
);

-------------------------------------

$frame->gridColumnConfigure(2, -minsize => 20); # 在 grid 中创建一个不可见的占位符 # 或使用一个 null 组件

-------------------------------------------------------------------------------------------------------------------------

-command => sub { $mw->iconify; } # 最小化，没退出
-command => sub { $mw->withdraw; }  # 只隐藏窗口，程序仍在运行

sub{exit;}退出 Perl 解释器
$mw->destroy;销毁主窗口
$mw->protocol('WM_DELETE_WINDOW', sub { $mw->destroy;}); 这样点击窗口关闭按钮时也能正常退出

数量命令与相对比例度量命令，随着页面容器变化而同比例变化的，页面容器固定数量值不变的。
a0123为主窗口类，b0123为字条字符串显示，c0123为按钮操作。d?声音，e?图片
----------------------------
use Tk::Text;

use utf8;
use open ':std',':encoding(gbk)';
binmode STDOUT,":encoding(UTF-8)";

use Tk;
use Tk::Text;

my $mw = MainWindow->new;
$mw->title("游戏说明");
$mw->geometry("500x500");
$mw->resizable(1, 1);  # 可调整窗口大小

# 创建 Text 控件，不使用 Scrolled（避免滚动条）
my $text = $mw->Text(
-wrap    => 'word',       # 自动换行
-font    => 'SimSun 12',
-width    => 60,             # 宽度（字符数）
-height    => 20,             # 高度（行数），根据内容调整
-bg       => 'lightgray',    # 背景色（可选）
-padx    => 10,
-pady    => 10,
-relief    => 'flat',       # 边框样式
)->pack(
-expand => 1,
-fill => 'both',
-padx => 10,
-pady => 10
);

# 三段游戏说明
my $游戏说明1 = " ╲ ╱\n"
            . " ╔━╗ ╲ ╱ ╔━━━━━━━━━━━━╗\n"
            . " ┃小┃╔━━━╗┃勇士大闯关是升级打怪的游┃\n"
            . " ┃机┃┃● ● ┃┃戏，ChEric隆重出品    ┃\n"
            . " ┃器┃┃ ☉ ┃┃                      ┃\n"
            . " ┃人╠╣ ┌┐ ┃╚━━━━━━━━━━━━╝\n"
            . " ╚━╝╚━━━╝\n\n";

my $游戏说明2 = " ╲ ╱\n"
            . " ╔━╗ ╲ ╱ ╔━━━━━━━━━━━━╗\n"
            . " ┃小┃╔━━━╗┃按开始游戏开始,本版本无 ┃\n"
            . " ┃机┃┃● ● ┃┃挂，输入勇士名称回车确定┃\n"
            . " ┃器┃┃ ☉ ┃┃，武器店是买武器       ┃\n"
            . " ┃人╠╣ ┌┐ ┃╚━━━━━━━━━━━━╝\n"
            . " ╚━╝╚━━━╝\n\n";

my $游戏说明3 = " ╲ ╱\n"
            . " ╔━╗ ╲ ╱ ╔━━━━━━━━━━━━╗\n"
            . " ┃小┃╔━━━╗┃装备店是买装备的地方，闲┃\n"
            . " ┃机┃┃● ● ┃┃话少说，已打败boss为目标┃\n"
            . " ┃器┃┃ ☉ ┃┃升级指导人是升级的地方！┃\n"
            . " ┃人╠╣ ┌┐ ┃╚━━━━━━━━━━━━╝\n"
            . " ╚━╝╚━━━╝\n";

# 插入所有文本
$text->insert('end', $游戏说明1 . $游戏说明2 . $游戏说明3);

# 禁止编辑（只读）
$text->configure(-state => 'disabled');

MainLoop;
-----------------------------------------------

my $d1;                               # 当前显示的页面集合Frame的代表容器容量变量

sub d1_1 {                         #d1.1不行，不给用，要d1_1，因为小点.是重要大人物，需要避讳，防止错用冒名顶替等混乱。
$d1->destroy if $d1;    #如果变量 $d1 有值（即之前已经创建了一个 Tk 控件），就调用它的 destroy 方法，将其从界面中删除。先清空cls
1;
2;
3;
}

---------------------------------------------
use Tk;
use Tk::After;
use Tk::Animation;

my $a3 = $mw->Animation('-format' => 'gif', -file => "2.gif");# 加载动画GIF
my $a3_1 = $mw->Label(-image => $a3)->pack();# 创建标签用于显示图像，并添加到主窗口
$a3->start_animation;# 开始动画

----------------------------------------------------------------------------------------------------------------------------

# 设置整个窗口的默认字体（可选）
$mw->optionAdd('*font' => 'fangsong');

# ★ 关键：创建一个支持中文的字体
# Deepin 常见的中文字体有: WenQuanYi Micro Hei, Noto Sans CJK SC, Droid Sans Fallback
$mw->fontCreate('fangsong',
-family => 'WenQuanYi Micro Hei',
-size => 14,
);

----------------------------------------------------------------
sub a123 {    }    #单元子程序内容
a123();                   #调用单元子程序
----------------------------------------------------------------
$mw->resizable($horizontal, $vertical); # resizable() 的作用：用于控制主窗口是否可以被用户手动调整大小（拖动边框）。
$horizontal                                                    # 是否允许水平拉伸（宽度） 1 = 是, 0 = 否
$vertical                                                             # 是否允许垂直拉伸（高度） 1 = 是, 0 = 否
$mw->resizable(0, 0);
$mw->resizable(0, 1);
$mw->resizable(1, 0);
$mw->resizable(1, 1);
---------------------------------------------------------------------------
cls == $scr->clrscr(); # 清屏

-------------------------------------
# 使用 grid 布局主窗口，比例分割页面
$mw->gridRowconfigure(0, -weight => 7);  # 第0行（顶部）: 权重 7 → 70%
$mw->gridRowconfigure(1, -weight => 2);  # 第1行（中间）: 权重 2 → 20%
$mw->gridRowconfigure(2, -weight => 1);  # 第2行（底部）: 权重 1 → 10%
$mw->gridColumnconfigure(0, -weight => 1); # 第0列占满宽度

---------------------------------------------------------------------------------------------------
点像素
my $img = $mw->Photo(                            # 创建一个 200x200 的 Photo 图像（用于像素显示）
-width  => 200,
-height => 200,
-palette => '256/256/256'                      # 真彩色
);
$mw->Label(-image => $img)->pack();  # 将图像放在 Label 上显示
$img->put("#FF0000", -to => (50, 60)); # 设置某个像素的颜色 (x=50, y=60) 为红色
--------------------------------------------------------------------------------------------

{                }
if{             }
for{          }
sub{       }

将框架装进子程序的：
sub create_main_window {
$main = MainWindow->new(-title => 'BMP动画浏览器');
$main->geometry('800x800');
show_page($current_page);
MainLoop;
}
# 启动程序
create_main_window();

zzz19760225 · 发表于 2025-8-26 16:08:04

本帖最后由 zzz19760225 于 2025-10-25 15:22 编辑

12345678903
三个按钮（开始游戏，介绍游戏，结束游戏）

use utf8;
use open ':std',':encoding(gbk)';
binmode STDOUT,":encoding(UTF-8)";
use Tk;
my $a0 = MainWindow->new;
my $b1 = $a0->Button(
-text => "开始游戏",
)->pack();
my $b2=$a0->Button(
-text => "介绍游戏",
)->pack();
my $b3=$a0->Button(
-text => "结束游戏",
-command =>sub{$a0->destroy;},
)->pack();
MainLoop;

复制代码

正确的代码结构顺序，Perl 脚本应遵循：

use ...
主窗口创建
变量定义
子程序（函数）定义
GUI 元素创建与事件绑定
初始状态设置
MainLoop

#!/usr/bin/perl
use strict;
use warnings;
use Tk;
my $mw = MainWindow->new;
my $img = $mw->Photo(-width => 200,-height => 150,-palette => 'truecolor');
$mw->Label(-image => $img)->pack();
$img->put("#000000", -to => (10, 20, 5, 11)); # 整个图像区域
$img->put("#FF0000", -to => (50,60)); # 设置某个像素的颜色 (x=50, y=60) 为红色
MainLoop;

复制代码

重复输出

use strict;
use warnings;
use Tk;
use utf8; # 估计召唤
use Encode qw(decode encode); # 估计召唤
binmode STDOUT, ':utf8'; # 估计召唤
binmode STDERR, ':utf8'; # 估计召唤
my $mw = MainWindow->new;
my $id = $mw->repeat(500, \&a123);# 设置每 500 毫秒执行一次 a123 子程序
sub a123 {print "456\n"; }
MainLoop;

复制代码

停止 repeat
$mw->afterCancel($id)

my $count = 0;
my $id = $mw->repeat(500, sub {
$count++;
print "456 (times: $count)\n";
if ($count >= 5) {
$mw->afterCancel($id); # 停止重复
}
});

复制代码

鼠标左键点击图画，图画可以移动。
<Button-1>鼠标左键（一般通用）
<Button-2>鼠标中键（win与linux有区别）
<Button-3>鼠标右键

use Tk;
my $mw = MainWindow->new;
my $canvas = $mw->Canvas(width => 500, height => 500)->pack();
# 创建几个多边形，并给每个都加上相同的标签
$canvas->createPolygon(10, 20, 50, 60,70,20, -tags => ['complex_shape1'], -fill => '#ff0000');
$canvas->createPolygon(50, 60, 80, 90, 50, 70, -tags => ['complex_shape2'], -fill => '#ffff00');
$canvas->createPolygon(150, 100, 100, 150, 150, 200, -tags => ['complex_shape3'], -fill => '#ff00ff');
# 添加鼠标点击事件：点击后所有 complex_shape 向右下移动
$canvas->bind('complex_shape1', '<Button-1>', sub {
$canvas->move('complex_shape1', 10, 10);
});
$canvas->bind('complex_shape2', '<Button-1>', sub {
$canvas->move('complex_shape2', 20, 10);
});
$canvas->bind('complex_shape3', '<Button-1>', sub {
$canvas->move('complex_shape3', 30, 10);
});
MainLoop;

复制代码

Tk 的 canvas文本特定词为按钮（C语言的文字按钮那个头疼的事）

#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use utf8; # 估计召唤
use Encode qw(decode encode); # 估计召唤
binmode STDOUT, ':utf8'; # 估计召唤
binmode STDERR, ':utf8'; # 估计召唤
my $mw = MainWindow->new();
$mw->title("Canvas 可点击词（支持下划线）");
my $canvas = $mw->Canvas(
-width => 600,
-height => 300,
-bg => 'white'
)->pack(-expand => 1, -fill => 'both');
my %clickable_words = (
Perl => '#3498db',
Tk => '#e74c3c',
);
my $x = 50;
my $y = 50;
my $line_height = 25;
my $font = ['Helvetica', 12];
my @lines = (
"欢迎学习 Perl 和 Tk 编程！",
"Perl 是一种强大的脚本语言。",
"Tk 是 Perl 的图形界面工具包。",
);
foreach my $line_text (@lines) {
my $current_x = $x;
for my $word (split /\s+/, $line_text) {
my $clean_word = $word;
my $has_punct = '';
$clean_word =~ s/([,\.!\?;]+)$// && ($has_punct = $1);
my $is_clickable = exists $clickable_words{$clean_word};
# 创建文本（不要用 -underline）
my $text_id = $canvas->createText($current_x, $y,
-text => $clean_word,
-font => $font,
-fill => $is_clickable ? $clickable_words{$clean_word} : 'black',
-anchor => 'nw',
);
if ($is_clickable) {
# 绑定事件
$canvas->bind($text_id, '<Enter>', sub {
$canvas->configure(-cursor => 'hand2');
# 添加下划线
$canvas->itemconfigure($text_id, -underline => 1);
});
$canvas->bind($text_id, '<Leave>', sub {
$canvas->configure(-cursor => 'arrow');
# 移除下划线
$canvas->itemconfigure($text_id, -underline => 0);
});
$canvas->bind($text_id, '<Button-1>', sub {
$mw->messageBox(
-title => "点击",
-message => "你点击了: '$clean_word'",
-icon => 'info',
-type => 'ok',
);
});
}
my $text_width = $canvas->fontMeasure($font, $clean_word);
$current_x += $text_width + 2;
if ($has_punct) {
$canvas->createText($current_x, $y,
-text => $has_punct,
-font => $font,
-fill => 'black',
-anchor => 'nw'
);
$current_x += $canvas->fontMeasure($font, $has_punct) + 4;
} else {
$current_x += 4;
}
}
$y += $line_height;
}
MainLoop;

复制代码

# 定义特定文字链接样式，链接+蓝色+下划线
$text->tagConfigure('link', -foreground => 'blue', -underline => 1);
$text->tagBind('link', '<Enter>', sub { $text->configure(-cursor => 'arrow'); });
$text->tagBind('link', '<Leave>', sub { $text->configure(-cursor => 'xterm'); });

复制代码

文字循环跳转

#!/usr/bin/perl
use utf8; # 源码为 UTF-8
use strict;
use warnings;
use open ':std', ':encoding(UTF-8)'; # 默认输入输出为 UTF-8
use Tk;
# 主窗口
my $mw = MainWindow->new;
$mw->title("Tk 文本跳转示例");
$mw->geometry("500x400");
# 创建框架和滚动条
my $frame = $mw->Frame->pack(-fill => 'both', -expand => 1);
# 文本控件
my $text = $frame->Text(
-wrap => 'word',
-font => '{Arial} 12',
-width => 60,
-height => 20,
)->pack(-side => 'left', -fill => 'both', -expand => 1);
# 垂直滚动条
my $vscroll = $frame->Scrollbar(
-orient => 'vertical',
-command => sub { $text->yview(@_) }
)->pack(-side => 'right', -fill => 'y');
# 关联滚动条
$text->configure(-yscrollcommand => sub { $vscroll->set(@_) });
# 定义标签样式：可点击链接
$text->tagConfigure('link',
-foreground => 'blue',
-underline => 1,
-lmargin1 => '5m', # 左边距
-lmargin2 => '5m', # 换行后左边距
);
$text->tagBind('link', '<Enter>', sub { $text->configure(-cursor => 'hand2'); });
$text->tagBind('link', '<Leave>', sub { $text->configure(-cursor => 'xterm'); });
$text->tagBind('link', '<Button-1>', \&on_link_click);
# 启动时加载主页
load_home();
MainLoop;
# ============ 子程序 ============
# 加载主页
sub load_home {
$text->delete('1.0', 'end');
$text->insert('end', "欢迎！这是一个示例，其中 ");
insert_link("123");
$text->insert('end', " 是可点击的。");
}
# 插入可点击链接
sub insert_link {
my $word = shift;
my $start = $text->index('end -1c'); # 当前末尾位置
$text->insert('end', $word);
my $end = $text->index('end -1c');
$text->tagAdd('link', $start, $end);
# 存储链接对应的跳转目标（用哈希或直接闭包）
$text->tag('bind', 'link', "<1>", sub { load_file($word); })
unless $text->tagNames($start) =~ /\blink_attached\b/;
$text->tagAdd('link_attached', $start, $end); # 防止重复绑定
}
# 点击链接时加载文件
sub on_link_click {
my $target = shift;
# 从当前光标位置提取文本
my $index = $text->index('current');
my $char = $text->get($index);
# 向前找最近的 link 标签
for my $i (0..10) {
my $pos = $text->index("$index - ${i}c");
my @tags = $text->tagNames($pos);
if (grep { $_ eq 'link' } @tags) {
# 获取该位置的字符（假设是 3 位数字）
my $word = $text->get($pos, "$pos + 3c");
$word =~ s/\s+.*//; # 去空格
$word =~ s/\D//g; # 只留数字
if ($word =~ /^(123|456)$/) {
load_file($word);
return;
}
}
}
}
# 加载指定文件内容
sub load_file {
my $filename = "$_[0].txt";
$text->delete('1.0', 'end');
if (! -e $filename) {
$text->insert('end', "错误：文件 $filename 不存在！\n");
$text->insert('end', "请确保文件与脚本在同一目录。\n");
return;
}
open my $fh, '<:encoding(UTF-8)', $filename or do {
$text->insert('end', "无法打开文件: $!\n");
return;
};
local $/;
my $content = <$fh>;
close $fh;
# 分割内容，插入文本和链接
my @parts = split /(\b123\b|\b456\b)/, $content;
for my $part (@parts) {
if ($part =~ /^(123|456)$/) {
insert_link($part);
} else {
$text->insert('end', $part);
}
}
}

复制代码

zzz19760225 · 发表于 2025-8-26 16:12:42

本帖最后由 zzz19760225 于 2025-9-8 09:17 编辑

12345678904
masm32结构功能语句
win7
环境约定内容，这是什么什么的事，要跑哪些地方，走什么关系，找什么人，打什么旗号，具体做哪几件事，每件事如何做，到什么程度就算结束。
--------------------------

0
.386
................

1
.data
................

2
.code
................

3
start:
................
end start

---------------------------

zzz19760225 · 发表于 2025-8-26 16:14:55

本帖最后由 zzz19760225 于 2025-12-3 10:47 编辑

12345678905

🔌 二、Perl 音频模块（有限支持）
以下是一些 CPAN 上的 Perl 模块，但多数已过时或平台受限。

1. Audio::Simple（简单播放，Linux 为主）
基于 OSS 或 ALSA，适合 .wav 文件。

use Audio::Simple;

my $audio = Audio::Simple->new();
$audio->play_wav('sound.wav');
2. Audio::Wav（读取 WAV 文件，不直接播放）
用于解析 WAV 文件头或提取数据，需配合其他方式播放。

use Audio::Wav;
my $wav = Audio::Wav->read("file.wav");
3. Win32::Sound（仅 Windows）
调用 Windows API 播放 WAV 文件。

use Win32::Sound;
Win32::Sound:

lay('sound.wav', SND_SYNC);
4. Mac::Speech（仅 macOS）
控制 Mac 的语音合成功能。

use Mac::Speech;
speak "Hello, world!";
5. PerlMIDI / Audio::Seq（高级音频编程）
用于 MIDI、音频序列处理，不适合简单播放。

如果国宝会说话，第三季，兰亭序集神龙本，王凯。

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

批处理勇士大闯关改中医许阳批处理的可能

八纲论治批处理文本

浏览过的版块

		自动登录	找回密码
密码			注册