图片裁剪分辨率过低怎么解决

GT白嫖怪

不要再艾特我了

  

子程序名	返回值类型	公开	备 注
修改图片分辨率			转成1080分辨率
参数名	类 型	参考	可空	数组	备 注
fin	文本型

变量名	类 型	静态	数组	备 注
data	字节集
高度	整数型
宽度	整数型
偏差	整数型
比例	双精度小数型

data ＝ 读入文件 (fin)
高度 ＝ 图片_取高度 (data)
宽度 ＝ 图片_取宽度 (data)
如果真 (高度 ＞ 宽度)
比例 ＝ 高度 ÷ 宽度
偏差 ＝ 1280 － 高度
高度 ＝ 到整数 (1280 × 比例)
' 调试输出 (高度, 宽度)
data ＝ 图片_缩放 (data, 1280, 高度, 真)
写到文件 (fin, data)
返回 ()

如果真 (高度 ＜ 宽度)
比例 ＝ 宽度 ÷ 高度
偏差 ＝ 720 － 宽度
高度 ＝ 到整数 (720 × 比例)
' 调试输出 (高度, 宽度)
data ＝ 图片_缩放 (data, 高度, 720, 真)
写到文件 (fin, data)
返回 ()

.版本 2<br /> <br /> .子程序 修改图片分辨率, , , 转成1080分辨率<br /> .参数 fin, 文本型<br /> .局部变量 data, 字节集<br /> .局部变量 高度, 整数型<br /> .局部变量 宽度, 整数型<br /> .局部变量 偏差, 整数型<br /> .局部变量 比例, 双精度小数型<br /> <br /> data ＝ 读入文件 (fin)<br /> 高度 ＝ 图片_取高度 (data)<br /> 宽度 ＝ 图片_取宽度 (data)<br /> <br /> .如果真 (高度 ＞ 宽度)<br />     比例 ＝ 高度 ÷ 宽度<br />     偏差 ＝ 1280 － 高度<br />     高度 ＝ 到整数 (1280 × 比例)<br />     ' 调试输出 (高度, 宽度)<br />     data ＝ 图片_缩放 (data, 1280, 高度, 真)<br />     写到文件 (fin, data)<br />     返回 ()<br /> .如果真结束<br /> <br /> .如果真 (高度 ＜ 宽度)<br />     比例 ＝ 宽度 ÷ 高度<br />     偏差 ＝ 720 － 宽度<br />     高度 ＝ 到整数 (720 × 比例)<br />     ' 调试输出 (高度, 宽度)<br />     data ＝ 图片_缩放 (data, 高度, 720, 真)<br />     写到文件 (fin, data)<br />     返回 ()<br /> <br /> .如果真结束

发你一段我前几天写的代码把

GT白嫖怪

不要再艾特我了 发表于 2023-7-14 18:12
[e=0].版本 2

.子程序 修改图片分辨率, , , 转成1080分辨率

来个栗子吗？大佬