About: dbkwik:resource/UA8PSGSSieJ73Wt1R3e6yw==   Sponge Permalink

An Entity of Type : owl:Thing, within Data Space : 134.155.108.49:8890 associated with source dataset(s)

AttributesValues
rdfs:label
  • 实践 - 编写一个 Celestia 工具
rdfs:comment
  • 先下载一个 Visual Basic（不要下精简版，否则功能不全，本来没有精简版的，精简版实际上是在原来的 Visual Basic 删除文件），安装好了之后，打开它，会出现新建工程窗口，双击“标准 EXE”。 点击左边控件栏里的按钮图标，然后在窗体上一直按左键（不要松开），再拖动，新建一个按钮。 双击窗体，按 Ctrl+A，再按BackSpace，再输入： Private Sub Form_Load() Command1.Caption = "生成赤经赤纬" '设置按钮标题 End Sub 返回到窗体，双击按钮。 输入： Private Sub Command1_Click() End Sub 再点击文件(F)——生成工程1.exe(K)...，即可编译程序，变成 EXE 可执行文件。
dcterms:subject
abstract
  • 先下载一个 Visual Basic（不要下精简版，否则功能不全，本来没有精简版的，精简版实际上是在原来的 Visual Basic 删除文件），安装好了之后，打开它，会出现新建工程窗口，双击“标准 EXE”。 点击左边控件栏里的按钮图标，然后在窗体上一直按左键（不要松开），再拖动，新建一个按钮。 双击窗体，按 Ctrl+A，再按BackSpace，再输入： Private Sub Form_Load() Command1.Caption = "生成赤经赤纬" '设置按钮标题 End Sub 返回到窗体，双击按钮。 输入： Private Sub Command1_Click() Dim RA(3) As Single, Dec(3) As Single, rab As Integer, decb As Integer '定义RA、Dec的变量 RA(1) = （填写赤经的h） RA(2) = （填写赤经的m） RA(3) = （填写赤经的s） Dec(1) = （填写赤纬的d） Dec(2) = （填写赤纬的m） Dec(3) = （填写赤纬的s） rab = (RA(1) * 3600 + RA(2) * 60 + RA(3)) / 3600 * 15 '赤经计算 decb = (Dec(1) * 3600 + Dec(2) * 60 + Dec(3)) / 3600 '赤纬计算 MsgBox "RA " + Str(rab) + Chr(13) + Chr(10) + "Dec " + Str(decb) '弹出消息框 End Sub 再点击文件(F)——生成工程1.exe(K)...，即可编译程序，变成 EXE 可执行文件。
Alternative Linked Data Views: ODE     Raw Data in: CXML | CSV | RDF ( N-Triples N3/Turtle JSON XML ) | OData ( Atom JSON ) | Microdata ( JSON HTML) | JSON-LD    About   
This material is Open Knowledge   W3C Semantic Web Technology [RDF Data] Valid XHTML + RDFa
OpenLink Virtuoso version 07.20.3217, on Linux (x86_64-pc-linux-gnu), Standard Edition
Data on this page belongs to its respective rights holders.
Virtuoso Faceted Browser Copyright © 2009-2012 OpenLink Software