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

Rank: 5Rank: 5

帖子
657 
积分
777 
技术
34  
捐助
0  
注册时间
2023-2-9 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2023-6-4 17:30 | 只看该作者

[原创] vbs画色图

本帖最后由 jyswjjgdwtdtj 于 2023-6-5 20:33 编辑

重点：vector.add的类型一定是要long！每个变量都要clng！
  1. set vector=createobject("wia.vector")

  2. for i=&h00 to &hff

  3. for j=&h00 to &hff

  4. vector.add 65280+i+256*256*j

  5. next

  6. next

  7. vector.ImageFile(256,256).savefile "1.jpg"
复制代码
  1. set vector=createobject("wia.vector")

  2. c1=array(&hca,&h0c,&h9f)

  3. c2=array(&hff,&hd3,&h0c)

  4. r=c1(0)-c2(0)

  5. g=c1(1)-c2(1)

  6. b=c1(2)-c2(2)

  7. t=&hff

  8. for i=&h00 to t

  9. num=clng(c1(2)-i/(t+1)*b)+&h100*clng(c1(1)-i/(t+1)*g)+&h10000*clng(c1(0)-i/(t+1)*r)

  10. for aaaa=&h00 to &hff

  11. vector.add num

  12. next

  13. next

  14. vector.ImageFile(256,t+1).savefile "1.jpg"
复制代码
  1. '嘿嘿 用一次函数和用错误排除浪费了性能 但是简单啊:lol 

  2. set vector=createobject("wia.vector")

  3. c1=array(&hff,&h62,&h6e)

  4. c2=array(&hff,&hbe,&h71)

  5. r=c1(0)-c2(0)

  6. g=c1(1)-c2(1)

  7. b=c1(2)-c2(2)

  8. t=&hff

  9. l=&hff

  10. dim p()

  11. redim p(t,l)

  12. k=t/l'k为斜率

  13. function f(x,t)

  14. f=k*x+t

  15. end function

  16. call a

  17. function a

  18. on error resume next

  19. for i=-t to t't为截距

  20. num=clng(c1(2)-i/(t+1)*b)+&h100*clng(c1(1)-i/(t+1)*g)+&h10000*clng(c1(0)-i/(t+1)*r)

  21. for j=0 to l

  22. p(j,f(j,i))=num

  23. next

  24. next

  25. end function

  26. for i=0 to t

  27. for j=0 to l

  28. vector.add p(i,j)

  29. next

  30. next

  31. vector.ImageFile(l+1,t+1).savefile "1.jpg"
复制代码
收藏 分享
你好

LTSC1809

Rank: 3Rank: 3

帖子
214 
积分
258 
技术
2  
捐助
0  
注册时间
2023-2-26 
2楼
发表于 2023-6-4 19:05 | 只看该作者
回复 1# jyswjjgdwtdtj 还要归功于微软的WSH，自带这么多对象
一个六年级小学生，请多指教

TOP

jyswjjgdwtdtj

Rank: 5Rank: 5

帖子
657 
积分
777 
技术
34  
捐助
0  
注册时间
2023-2-9 
3楼
发表于 2023-6-4 19:20 | 只看该作者
回复 2# LTSC1809


    这不是wsh哦  这是com组件
你好

TOP

Five66

Rank: 5Rank: 5

帖子
809 
积分
1118 
技术
108  
捐助
0  
注册时间
2021-8-26 
4楼
发表于 2023-6-6 21:25 | 只看该作者
看不懂为啥类型一定要 long

TOP

jyswjjgdwtdtj

Rank: 5Rank: 5

帖子
657 
积分
777 
技术
34  
捐助
0  
注册时间
2023-2-9 
5楼
发表于 2023-6-6 21:47 | 只看该作者
回复 4# Five66


    可能是类型转换的时候int会变成负数吧
你好

TOP

segree

Rank: 1

帖子
12 
积分
24 
技术
0  
捐助
0  
注册时间
2022-6-6 
6楼
发表于 2023-7-16 18:01 | 只看该作者 
  1. dim ar,Range,Img

  2.  ar=Array(&HFFFFFFFF, &HFFFFFFFF, &HFF000000, &HFF000000, &HFF000000, &HFF000000, &HFFFFFFFF, &HFFFFFFFF, &HFFFFFFFF, &HFF000000, &HFF000000, &HFFFFFFFF, &HFFFFFFFF, &HFF000000, &HFF000000, &HFFFFFFFF, &HFF000000, &HFF000000, &HFFFFFFFF, &HFFFFFFFF, &HFFFFFFFF, &HFFFFFFFF, &HFF000000, &HFF000000, &HFF000000, &HFF000000, &HFFFFFFFF, &HFFFFFFFF, &HFFFFFFFF, &HFFFFFFFF, &HFF000000, &HFF000000, &HFFFFFFFF, &HFF000000, &HFF000000, &HFFFFFFFF, &HFFFFFFFF, &HFF000000, &HFF000000, &HFF000000, &HFFFFFFFF, &HFFFFFFFF, &HFF000000, &HFF000000, &HFF000000, &HFFFFFFFF, &HFF000000, &HFF000000, &HFFFFFFFF, &HFFFFFFFF, &HFFFFFFFF, &HFFFFFFFF, &HFFFFFFFF, &HFFFFFFFF, &HFF000000, &HFF000000, &HFFFFFFFF, &HFF000000, &HFFFFFFFF, &HFFFFFFFF, &HFFFFFFFF, &HFFFFFFFF, &HFF000000, &HFF000000, &HFFFFFFFF, &HFF000000, &HFF000000, &HFFFFFFFF, &HFFFFFFFF, &HFF000000, &HFF000000, &HFFFFFFFF, &HFFFFFFFF, &HFFFFFFFF, &HFF000000, &HFF000000, &HFF000000, &HFF000000, &HFFFFFFFF, &HFFFFFFFF)

  3. Set Range = CreateObject("WIA.Vector")

  4. Set Img = CreateObject("WIA.ImageFile")

  5.   For i = 1 To 80*30

  6. 

  7.     Range.Add ar(i)

  8.      

  9.   Next

  10. 

  11. Img.ImageFile(80,30).SaveFile "1." & Img.FileExtension
复制代码
WIA.Vector菜鸟一枚，不懂用这来画个简单图，求高手指教。

TOP

返回列表