Basic开发笔记：Basic语言介绍、环境搭建、基本语法示例与程序实例

最新推荐文章于 2024-05-18 10:00:12 发布
最新推荐文章于 2024-05-18 10:00:12 发布
阅读量6.4w 收藏 87
点赞数 20
文章标签： basic VB Basic示例 Basic编程
版权声明：本文为博主原创文章，遵循 CC 4.0 BY 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq21497936/article/details/106850097
版权

若该文为原创文章，未经允许不得转载
原博主博客地址：https://blog.csdn.net/qq21497936
原博主博客导航：https://blog.csdn.net/qq21497936/article/details/102478062
本文章博客地址：https://blog.csdn.net/qq21497936/article/details/106850097
各位读者，知识无穷而人力有穷，要么改需求，要么找专业人士，要么自己研究

红胖子(红模仿)的博文大全：开发技术集合（包含Qt实用技术、树莓派、三维、OpenCV、OpenGL、ffmpeg、OSG、单片机、软硬结合等等）持续更新中…（点击传送门）

其他（编程相关）


前言

  红胖子来也！！！
  Basic语言是很老的语言了，比VB（Visual Basic还老）。


BASIC

  BASIC（Beginners’ All-purpose Symbolic Instruction Code，又译培基），意思就是“初学者通用符号指令代码”，是一种设计给初学者使用的程序设计语言。
  在这里插入图片描述
  BASIC是一种直译式的编程语言，在完成编写后不须经由编译及连结等手续即可执行，但如果需要单独执行时仍然需要将其建立成执行档。
  BASIC是由达特茅斯学院院长、匈牙利人约翰·凯梅尼（John G. Kemeny）与数学系教师托马斯·卡茨（Thomas E. Kurtz）共同研制出来的。1964年BASIC语言正式发布。第一个BASIC程序在1964年5月1日早上4时，由BASIC编译程序进行编译后成功运行。1975年，比尔·盖茨把它移植到PC上。


编译环境搭建

安装编译器

  安装FreeBasic，主要用他来编译，如下图：
   在这里插入图片描述
  安装完后，打开命令行：
  在这里插入图片描述
  跳转到开发目录即可，

安装编辑环境

  安装PowerBasic，主要用他的编辑器
  在这里插入图片描述
  打开编辑器：
  在这里插入图片描述

下载地址

  CSDN下载地址：https://download.csdn.net/download/qq21497936/12538533
  软件打包下载地址：QQ群1047134658（点击“文件”搜索“Basic”，群内与博文同步更新所有可开源的源码模板）

编译器编译时错误解决

  编译时报错，如下图：
  在这里插入图片描述
  主要是因为使用了未定义的变量，其实是语言规则不同，因为使用qb语言，所以需要加上参数“-lang qb”，即可，如下图：
  在这里插入图片描述

运行环境

  直接打开dos，跳转到目录，fbc命令会生成对应的exe直接运行即可。


基本语句

打印（PRINT）语句

示例1

PRINT "12345"
PRINT "Hello world"

在这里插入图片描述
在这里插入图片描述

示例2

PRINT "12345";"54321"
PRINT "Hello world"

在这里插入图片描述
在这里插入图片描述

示例3

PRINT "12345" "54321"
PRINT "Hello world"

在这里插入图片描述
在这里插入图片描述

TAB（TAB）语句

  PRINT语句中使用TAB语句就类似于使用TAB键。
  TAB(1)和TAB(2)没有起到作用

示例1

PRINT "123456789ANCDEF"
PRINT 1;TAB(1);2
PRINT 1;TAB(2);3
PRINT 1;TAB(3);4
PRINT 1;TAB(4);5
PRINT 1;TAB(5);6
PRINT TAB(3);"Y";TAB(9);"Z"
END

在这里插入图片描述
在这里插入图片描述

置数（DATA）语句

  配合读数语句使用，称读数据（READ/DATA）语句。
  请参照“读取READ语句”

读取（READ）语句

  READ是读取data存储的数据，并不是我们习惯所认为的从屏幕上输入，同时变量要先定义才能使用。

示例1：读取数字

  （字符串必须是$符号结尾）

DATA "12aaa345","11bbb11"
PRINT "READ ONE, SHOULD BE 12aaa345"
READ S
PRINT S
PRINT "READ ONE, SHOULD BE 11bbb11"
READ S
PRINT S
END

在这里插入图片描述
在这里插入图片描述

示例2：读取字符串

DATA "12aaa345","11bbb11"
PRINT "READ ONE, SHOULD BE 12aaa345"
READ S$
PRINT S$
PRINT "READ ONE, SHOULD BE 11bbb11"
READ S$
PRINT S$
END

在这里插入图片描述
在这里插入图片描述

示例2：先读取后置入数字

PRINT "READ ONE, SHOULD BE 12345"
READ S
PRINT S
PRINT "READ ONE, SHOULD BE 11111"
READ S
PRINT S
SLEEP
DATA "12345","1111"
END

在这里插入图片描述
在这里插入图片描述

示例3：读取数字

DIM D1 AS INTEGER
DATA 20,10
PRINT "READ ONE, SHOULD BE 20"
READ D1
PRINT D1
PRINT "READ ONE, SHOULD BE 10"
READ D1
PRINT D1
SLEEP
END

在这里插入图片描述
在这里插入图片描述

示例4：读取数字时，同时使用“：”进行其他操作

DATA 10,100,1000
READ T1,T2:T3=T1+T2
PRINT T1
PRINT T2
PRINT T3
READ T3
PRINT T3
END

在这里插入图片描述
在这里插入图片描述

示例5：读取字符串

DATA "aaa"
READ A$
PRINT A$
END

在这里插入图片描述
在这里插入图片描述

赋值（LET）语句

  （注意：字符串默认结尾为$，否则认为是整数）

示例1

LET A$="12345"
PRINT A$
LET A=10
PRINT A
PRINT A*10
END

在这里插入图片描述
在这里插入图片描述

键盘输入（INPUT）语句

  （注意，经测试，变量定义为A$，有金钱符号结尾，才被认为是字符串，否则认为是数字，而且输入错误，数字则默认为0）

示例1

PRINT "PLEASE INPUT A NUM:"
INPUT A
PRINT "YOU INPUT NUM:";A
END

在这里插入图片描述

示例2

PRINT "PLEASE INPUT A NUM:"
INPUT A$
PRINT "YOU INPUT NUM:";A$
END

在这里插入图片描述

恢复数据区（RESTORE）语句

示例1

DATA 1,2,3,4
READ A,B
PRINT A
PRINT B
RESTORE
READ A,B
PRINT A
PRINT B
END

在这里插入图片描述
在这里插入图片描述

无条件转移（GOTO）语句

  之前的程序，每一行之前没有数字标签，使用GOTO则需要加上去；
  GOTO与GOSUB的区别请查看 “GOSUB语句”的示例3；

示例1

DATA 1,2,3,4
READ A,B
100
PRINT A
PRINT B
SLEEP
PRINT "GOTO AGAIN"
GOTO 100
END

在这里插入图片描述
在这里插入图片描述

条件转移（IF ~ THEN或IF ~ GOTO）语句

示例1

DATA 1,2,10
READ A,B,C
100
PRINT A*B: A=A*B
IF A<C THEN GOTO 100
PRINT A;">";C
END

在这里插入图片描述
在这里插入图片描述

注释（REM）语句

示例1

DATA 1,2,10
READ A,B,C
100
REM "123456"
PRINT A*B: A=A*B
IF A<C THEN GOTO 100
PRINT A;">";C
END

在这里插入图片描述

循环终了（NEXT）语句

  与循环说明语句合成循环（FOR~NEXT）语句。
  请参照“循环说明（FOR）语句”

循环说明（FOR）语句

示例1

INPUT N
FOR I=0 TO N
    A=A+I
    PRINT "+";I;"=";A
NEXT I
PRINT A
END

在这里插入图片描述

在这里插入图片描述

示例2（2020年6月24日补充）：写在同一行的情况

1000 W=2
1001 IF(W=2) THEN FOR M=0 TO 5: PRINT M: NEXT M
1002 END

在这里插入图片描述
在这里插入图片描述

暂停（STOP）语句

  stop是直接退出程序了。

示例1

PRINT "12345" "54321"
STOP
PRINT "Hello world"

在这里插入图片描述
在这里插入图片描述

转子（GOSUB）语句

示例1

DATA 1,2,3,4
READ A,B
100
PRINT A
PRINT B
SLEEP
PRINT "GOTO AGAIN"
GOSUB 100
END

在这里插入图片描述
在这里插入图片描述

示例2(2020年6月24日补充）

1000 GOTO 2000:GOSUB 4000:GOSUB 6000
1001 END
2000 PRINT "2000" :RETURN
4000 PRINT "4000" :RETURN
6000 PRINT "6000" :RETURN

在这里插入图片描述
在这里插入图片描述

示例3(2020年6月24日补充）：GOTO与GOSUB的区别，结合RETURN语句

100 FOR N=1 TO 4
120 PRINT "N=";N
REM GOSUB会返回调用处
121 IF(N=2) THEN GOSUB 150
REM GOTO会直接跳过去忽略RETURN
122 IF(N=3) THEN GOTO 150
140 NEXT N
150 PRINT "HELLO,WORLD!!!"
160 RETURN
170 PRINT "170 PRINT"
180 PRINT "180 PRINT"

在这里插入图片描述
在这里插入图片描述

返回（RETURN）语句

  配合转子语句使用，调用子程序。

数组说明（DIM）语句

  定义数组，定义的数组下标从1开始。

示例1

DIM A(6)
DATA 1,2,3,4,5,6
READ A(1),A(2),A(3),A(4),A(5),A(6)
PRINT "A(0),A(1),A(2),A(3),A(4),A(5),A(6)"
PRINT A(0),A(1),A(2),A(3),A(4),A(5),A(6)
PRINT "A(1),A(2),A(3),A(4),A(5),A(6)"
PRINT A(1),A(2),A(3),A(4),A(5),A(6)
PRINT "A(0);A(1);A(2);A(3);A(4);A(5);A(6)"
PRINT A(0);A(1);A(2);A(3);A(4);A(5);A(6)
PRINT "A(1);A(2);A(3);A(4);A(5);A(6)"
PRINT A(1);A(2);A(3);A(4);A(5);A(6)
END

在这里插入图片描述
在这里插入图片描述

结束（END）语句

  结束程序。


程序实例

预读入加法程序

DATA 10,20
READ A,B
PRINT A;"+";B;"=";A+B

在这里插入图片描述
在这里插入图片描述

定义数组并赋值

DATA 10,20,30,40
DIM D$(4)
READ D$(1),D$(2),D$(3),D$(4)
PRINT D$(1),D$(2),D$(3),D$(4)
END

在这里插入图片描述
在这里插入图片描述

定义数组并循环赋值

  （注意：数组定义，数组下标序号从1开始，目前普遍从0开始）

DATA 6
DATA 0.01,0.01,0.01,0.02,0.02,0.2,0.03,0.03,0.03,0.04,0.04,0.04,0.05,0.05,0.05,6.1,6.2,6.3
READ M0
DIM T0(M0+1),D0(M0),J0(M0)
FOR M=1 TO M0
    READ T0(M),D0(M),J0(M)
NEXT M

FOR M=1 TO M0
    PRINT "M=";M;",";T0(M);",";D0(M);",";J0(M)
NEXT M
END

在这里插入图片描述
在这里插入图片描述

求绝对值

100 J=-100
101 K=100
102 J2=-100.1
103 K2=100.1
104 PRINT ABS(J)
105 PRINT ABS(K)
106 PRINT ABS(J2)
107 PRINT ABS(K2)

在这里插入图片描述
在这里插入图片描述


原博主博客地址：https://blog.csdn.net/qq21497936
原博主博客导航：https://blog.csdn.net/qq21497936/article/details/102478062
本文章博客地址：https://blog.csdn.net/qq21497936/article/details/106850097

长沙红胖子Qt（长沙创微智科）
关注
  • 20
    点赞
  • 踩
  • 87
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 5
    评论
专栏目录
Visual Basic 编程例子源代码
08-02
Visual Basic 编程例子源代码，一共有上百个
BASIC语言教程
08-08
曾几何时，BASIC语言是初学者必学的入门语言，从中华学习机到奔腾四芯片的PC上都有它的身影。APPLEII BASIC是初学者最简单易学的面向过程语言。全部输入字母会自动转为大写。APPLEII的BASIC解释器是当年年轻的盖茨写的，可以说是乔布斯与盖茨的第一次合作。BASIC实现起来可以下载一个APPWIN模拟器，完美重现APPLEII的雄风。
探索FreeBASIC：一个强大的多平台BASIC编译器
最新发布
gitblog_00041的博客
05-18 467
探索FreeBASIC：一个强大的多平台BASIC编译器 项目地址:https://gitcode.com/freebasic/fbc 一、项目简介 FreeBASIC是一个开放源码的BASIC编译器，由FreeBASIC开发团队精心打造。它不仅提供了命令行工具fbc，还附带了运行时库和第三方库的头文件。这个项目旨在提供一个跨平台的编程环境，支持从32位到64位的各种架构，并与GNU binuti...
G-BASIC语言手册
10-09
想要在小霸王学习机上做G-BASIC的游戏开发，但是已经无法找到当年的原版说明书了。经过一番搜索，找到一些英文和日文的资料，翻译整理之后，写出此文档。希望对有相同需要的网友有所帮助。
Basic3.31编程语言
09-07
DOS时代下运行的Basic编程语言，经典值得收藏。
basic语言源码（用于学习）
12-11
vc6工程， c语言 非常短小精悍的basic语言解释器， GUN license 可以用来学习
BASIC语言、FreeBasic语言
nameofcsdn的博客
11-28 4064
目录 一，BASIC语言 二，BASIC的缺点 一，BASIC语言 BASIC(Beginners' All-purpose Symbolic Instruction Code)是初学者通用符号指令代码的缩写，不是单词basic，不过含义还是有些接近的。 BASIC语言是我学的第一门编程语言，因为这是高中数学必修三的第一章： 高中数学主要学了程序框图、顺序结构、条件结构、循环结构（直到型和当型）。 比如当型循环，以WEND结束，BASIC没有分号，也不是像python主要靠缩进，w..
Visual Basic 历史版本大回顾
唐古拉山的专栏
03-01 2396
Visual Basic从1991年诞生以来，现在已经13年了。BASIC是微软的起家产品，微软当然不忘了这位功臣。随着每一次微软技术的浪潮，Visual Basic都会随之获得新生。可以预见，将来无论微软又发明了什么技术或平台，Visual Basic一定会首先以新的姿态登上去的。如果你想紧跟微软，永远在最新的技术上最快速地开发，你就应该选择Visual Basic。1991-西雅图夜空的雷
VBScript教程_编程入门自学教程_菜鸟教程-免费教程分享
IT搬运工
06-06 456
VBScript是Visual Basic Script的简称，即 Visual Basic脚本语言，有时也被缩写为VBS。它是一种微软环境下的轻量级的解释型语言，它使用COM组件、WMI、WSH、ADSI访问系统中的元素，对系统进行管理。同时它又是asp动态网页默认的编程语言，配合asp内建对象和ADO对象，用户很快就能掌握访问数据库的asp动态网页开发技术。VBScript入门教程。
basic语言教学软件
01-09
basic语言教学软件，用dosbox重新打包，win8，win10也能跑
是不是所有的文法都可以化为LL(1)文法？
winglessbird的博客
11-18 1万+
这个问题也是我想问的... 然后就搜到了这样的一个回答 提出一个问题：是不是所有的文法都可以化为LL(1)文法？ 这个问题提得很好，说明该同学确实认真学习了本章内容，对没有讲到的问题进行了深入的思考。   应当指出，并非一切非LL(1)文法都能利用提取左因子的方法将它改造为LL(1)文法。例如，对于文法 S→AU|BR   A→aAU|b
Turbo C 2.0,Turbo C 3.0, QBasic 4.5开发环境
02-29
本工具包集成了TC 2.0,TC 3.0,QBasic 4.5版本的开发环境，由于TC 2.0,TC 3.0,QBasic 4.5是16位Dox程序，在较高版本的32位Windows以及所有的64位Windows中无法运行，鉴于当今硬件的发展以及windows 64版本日渐成为主流，有特殊目的需要用到这三款开发环境而无法启动时常头痛不已，现将其提供给众网友共享。 程序使用DoxBox来实现在Windows 32位和64位系统上的完整Dos环境模拟，包括图形系统也俱全，本人分别建立三个开发工具相应的配置参数并简要开发了三个引导程序以便直接双击就能启动，整个工具包中的所能组件均为免安装版本，解压后直接使用根目录下的相应程序即可，现将主要技术实现点简述如下： 1.DosBox使用的是0.72版本，截止程序打包之时最新为0.74，目前暂未发现问题，并未更新到最新版，有需要可自行处理 2.使用DosBox虚拟的Dos环境默认启动盘为Z盘，在配置文件中自动将根目录下的disk_c文件夹映射为C盘，开发环境运行时相当于在C盘中 3.DosBox对Dox系统的模拟很完善，使用TC2.0/3.0时可完美使用图形库，配置参数将显示模式配置为VGA，开发时须注意模式和路径，例如，图形程序中初始化图形环境的代码可能如下： int gdriver=VGA, gmode=VGAHI; initgraph(&gdriver, &gmode, "C:\\TC20\\BGI"); 4.DosBox模拟了Dos中按Alt + Enter在全屏和窗口模式两种状态下切换的功能，不过与Dos略有区别，Dos的全屏会拉伸显示内容，而DosBox则保持开发窗口像素大小不变，其余部分则显示黑色，配置中手动设置全屏时分辨率也达不到效果，暂且这样，并未深入研究 5.根目录下的引导程序为C++开发，代码中主要是设置了工作目录并使用特定参数启动DosBox并载入开发环境执行程序，如果对DosBox比较熟悉，也可以直接通过DosBox完成，此时可以不用引导程序，引导程序的主要源代码摘录如下 ，以供参考： ::ShellExecute(nullptr, _T("open"), _T("dosbox.exe"), _T("-conf qb45.conf -noconsole"), _T("dosbox"), SW_SHOW); //::ShellExecute(nullptr, _T("open"), _T("dosbox.exe"), _T("-conf tc20.conf -noconsole"), _T("dosbox"), SW_SHOW); //::ShellExecute(nullptr, _T("open"), _T("dosbox.exe"), _T("-conf tc30.conf -noconsole"), _T("dosbox"), SW_SHOW); 6.本工具包中的文件及文件夹路径请不要随意修改，以免出错 文件夹说明： QBasic45.exe 对外提供的QBasic 4.5开发环境的启动程序 TurboC20.exe 对外提供的Turbo 2.0开发环境的启动程序 TurboC30.exe 对外提供的Turbo 3.0开发环境的启动程序 dosbox 虚拟DOS环境的软件DosBox 0.72 documents 整理本工具包过程中顺便附带收集到的部分参考资料和示例源码 disk_c 虚拟的 DOS 环境的 C:\ └QB45 QBasic 4.5 开发环境程序目录 └TC20 Turbo C 2.0 开发环境程序目录 └TC30 Turbo C 3.0 开发环境程序目录
基础电子中的8051系列单片机BASIC语言开发环境简介
11-06
通过这些基本的编程元素和示例，开发者可以快速上手8051单片机的BASIC语言开发，理解如何利用BASCOM-8051环境进行硬件交互和通信功能的实现。这种开发环境降低了学习单片机编程的门槛，使得更多的人能够参与到嵌入式...
Go_BasicConcepts：专门介绍程序语言GO基本概念的代码组
02-14
本代码组"Go_BasicConcepts"是针对Go语言的基本概念进行深入讲解的资源集合，旨在帮助初学者理解和掌握Go语言的核心特性。 1. **语法简洁**：Go语言的语法设计简洁明了，易于学习。它摒弃了C++和Java等语言中的复杂...
basic-lang:基本的
05-24
【压缩包子文件的文件名称列表】: "basic-lang-master" 可能包含了一个关于BASIC语言的学习资源或者代码示例库，"master"分支通常代表了项目的主版本或最新的开发版本。 **BASIC编程语言详解：** BASIC语言起源于...
您好B4A：使用Visual Basic语法开发本机Android应用
04-11
在这个主题中，我们将探讨一个名为Basic4Android（B4A）的开发工具，它允许开发者使用熟悉的Visual Basic语法来创建原生Android应用程序。B4A是为那些熟悉VB语言但希望进入移动应用开发领域的程序员设计的，它提供了...
visualbasic2008应用程序开发实例精讲
05-30
《Visual Basic 2008 应用程序开发实例精讲》是一本专注于利用Microsoft的Visual Basic 2008编程环境进行应用开发的实践指南。这本书的核心目标是通过丰富的实例来帮助读者深入理解VB2008的特性和功能，从而提升其...
Visual Basic快速入门
热门推荐
乐百川
01-05 10万+
Basic语言的全名是Beginner’s All-purpose Symbolic Instruction Code（初学者通用的符号指令代码)，是几十年前流行过的一门语言。我高中时候一门数学选修课中使用的也是Basic语言。我还记得当时我为了使用Basic语言，还从网上下了一个简陋的QBasic工具。当时第一次接触编程的我对编程语言充满了兴趣。当然在现在，Basic语言已经基本没什么用了。现在
Qbasic 程序设计入门 第一章 BASIC语言概述
weixin_40220242的博客
10-07 549
basic语言概述
autocad vba vb.net 开发基础与实例教程 源代码
07-06
### 回答1： AutoCAD VBA和VB.net是一种用于AutoCAD软件的开发工具，它们可以帮助用户通过编程来扩展AutoCAD的功能。AutoCAD VBA使用的是Visual Basic for Applications，而VB.net使用的是Visual Basic编程语言。 开发基础方面，对于AutoCAD VBA和VB.net开发，首先需要了解基本的编程概念和语法。需要学习如何定义变量、使用条件和循环语句、处理用户输入和输出等。还需要了解AutoCAD的对象模型，包括图纸、图层、实体等对象以及它们的属性和方法。理解这些基本知识后，可以开始编写简单的程序来实现一些基本的功能。 实例教程方面，有一些网上资源和书籍提供了很多实例教程和源代码。这些教程可以帮助用户学习如何使用AutoCAD VBA和VB.net来解决实际的问题。例如，可以学习如何根据用户输入创建特定类型的实体，如何修改实体的属性，如何自动标注图纸等等。通过这些实例教程，用户可以逐步掌握开发AutoCAD的技巧和技术。 源代码方面，可以在网上搜索一些开源项目或者示例代码，这些代码可以用作学习和实践的参考。通过阅读和理解源代码，可以学习到更多编程技巧和规范。同时，也可以利用这些源代码作为基础，进行修改和扩展，以满足自己的需求。 总之，AutoCAD VBA和VB.net开发基础与实例教程以及源代码可以帮助用户学习如何使用编程语言来扩展AutoCAD的功能。通过学习基础知识、实践例子和参考源代码，用户可以逐步提升自己的编程能力，并且能够应用到实际的工程项目中。 ### 回答2： "AutoCAD VBA和VB.NET开发基础与实例教程"是一本介绍如何使用VBA和VB.NET编程语言在AutoCAD软件中进行开发的教程。该书包含了许多实例和源代码，供读者学习和实践。 在该教程中，作者首先介绍了AutoCAD的基本知识，包括AutoCAD的界面、命令和常用工具等。然后，作者详细介绍了VBA和VB.NET编程语言的基础知识，包括变量、数据类型、循环和条件语句等。读者可以通过理解这些基础知识，为后续的开发工作做好准备。 接下来，该教程通过一些实例，展示了如何使用VBA和VB.NET编程语言进行AutoCAD开发。这些实例包括创建和修改图纸、添加和编辑对象、执行命令等。每个实例都提供了详细的源代码和解释，读者可以通过按照教程一步一步地操作，逐渐掌握AutoCAD开发的技巧和方法。 在学习完该教程后，读者将能够独立进行AutoCAD的开发工作，并应用自己的编程知识解决实际问题。同时，该教程也为读者进一步深入学习和扩展AutoCAD开发提供了基础。 总之，“AutoCAD VBA和VB.NET开发基础与实例教程”是一本实用的教程，通过详细的实例和源代码，帮助读者掌握在AutoCAD中使用VBA和VB.NET进行开发的基本技能。无论是初学者还是有一定编程基础的读者，都能从中受益。 ### 回答3： Autocad VBA和VB.NET都是用于开发Autocad定制程序的编程语言。它们可以实现自动化绘图、数据处理和图形操作等功能。下面是一个基础的Autocad VBA和VB.NET开发教程和源代码示例。 首先，通过以下几个步骤配置Autocad VBA开发环境： 1. 打开Autocad软件。 2. 执行“vbaide”命令，打开VBA集成开发环境。 3. 在VBA集成开发环境中，创建一个新的模块。 4. 在模块中编写代码。 以下是一个简单的Autocad VBA示例，用于在绘图中绘制一条直线： Sub DrawLine() Dim startPoint As Variant Dim endPoint As Variant startPoint = InputBox("Please enter the start point coordinates:") endPoint = InputBox("Please enter the end point coordinates:") ThisDrawing.ModelSpace.AddLine startPoint, endPoint End Sub 上述代码使用了InputBox函数来获取用户输入的起点和终点坐标，并使用AddLine方法在绘图中添加一条直线。 如果你想使用VB.NET来进行Autocad开发，可以使用Autocad.Net API。以下是一个简单的VB.NET示例，用于在绘图中绘制一条直线： Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.Geometry Public Class MyCommands <CommandMethod("DrawLine")> Public Sub DrawLine() Dim doc As Document = Application.DocumentManager.MdiActiveDocument Dim db As Database = doc.Database Using trans As Transaction = db.TransactionManager.StartTransaction() Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForRead) Dim btr As BlockTableRecord = trans.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite) Dim startPoint As New Point3d(0, 0, 0) Dim endPoint As New Point3d(100, 100, 0) Dim line As New Line(startPoint, endPoint) btr.AppendEntity(line) trans.AddNewlyCreatedDBObject(line, True) trans.Commit() End Using End Sub End Class 上述代码使用了Autocad.Net API中的相关类和方法来实现在绘图中绘制一条直线的功能。通过定义一个Command方法，并使用CommandMethod特性进行标记，可以在Autocad软件中执行该命令。 以上是一个简单的Autocad VBA和VB.NET开发基础与实例教程的源代码示例。通过学习这些示例，你可以了解如何使用Autocad VBA和VB.NET进行开发，并根据自己的需求进行扩展和修改。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 5
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

长沙红胖子Qt（长沙创微智科）

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值