Starlot

Starlot是S31f6h819i9所制作的一个刷恒星控制台软件。
该软件使用了Small Basic（编程语言）编写。只需输入最大值最小值就可以生成随机数。

下载：这里（密码：t1kz）

使用
--

   这个工具虽然界面简单，但是非常实用。

TextWindow.Title="刷恒星器"<br>    quot = File.ReadContents("D:\1x.txt")<br>    TextWindow.WriteLine("请输入最大RA")<br>    a = TextWindow.ReadNumber()<br>    TextWindow.WriteLine("请输入最小RA")<br>    b = TextWindow.ReadNumber()<br>    TextWindow.WriteLine("请输入最大Dec")<br>    c = TextWindow.ReadNumber()<br>    TextWindow.WriteLine("请输入最小Dec")<br>    d = TextWindow.ReadNumber()<br>    TextWindow.WriteLine("请输入最大距离")<br>    i = TextWindow.ReadNumber()<br>    TextWindow.WriteLine("请输入最小距离")<br>    j = TextWindow.ReadNumber()<br>    TextWindow.WriteLine("请输入最大亮度")<br>    e = TextWindow.ReadNumber()<br>    TextWindow.WriteLine("请输入最小亮度")<br>    f = TextWindow.ReadNumber()<br>    TextWindow.WriteLine("请输入是否有光谱型，有是1，没有是0")<br>    TextWindow.WriteLine("O")<br>    so = TextWindow.ReadNumber()<br>    TextWindow.WriteLine("B")<br>    bo = TextWindow.ReadNumber()<br>    TextWindow.WriteLine("A")<br>    ao = TextWindow.ReadNumber()<br>    TextWindow.WriteLine("F")<br>    fo = TextWindow.ReadNumber()<br>    TextWindow.WriteLine("G")<br>    go = TextWindow.ReadNumber()<br>    TextWindow.WriteLine("K")<br>    ko = TextWindow.ReadNumber()<br>    TextWindow.WriteLine("M")<br>    mo = TextWindow.ReadNumber()<br>    TextWindow.WriteLine("WN")<br>    wno = TextWindow.ReadNumber()<br>    TextWindow.WriteLine("N")<br>    no = TextWindow.ReadNumber()<br>    TextWindow.WriteLine("请输入最小半径")<br>    g = TextWindow.ReadNumber()<br>    TextWindow.WriteLine("请输入最大半径")<br>    h = TextWindow.ReadNumber()<br>    TextWindow.WriteLine("请输入恒星的前缀名")<br>    k = TextWindow.Read()<br>    TextWindow.WriteLine("请输入恒星的数量")<br>    LL = TextWindow.ReadNumber()<br>    Nodde:<br>    If File.InsertLine("D:\starlot.txt",1,"#made by starlot-s31f6h819i9") = "FAILED" Then<br>      TextWindow.WriteLine("请在D盘创建starlot.txt！")<br>      Goto Nodde<br>    Else <br>      TextWindow.WriteLine("Starlot正在创建恒星中...")<br>      xx = 0<br>      zz = 0<br>      Newone:<br>      zz = zz + 1<br>      File.WriteLine("D:/starlot.txt",9 \* xx + 2,"#made by starlot-s31f6h819i9")<br>      File.WriteLine("D:/starlot.txt",9 \* xx + 2,quot + k + " " + zz + quot)<br>      File.WriteLine("D:/starlot.txt",9 \* xx + 3,"{")<br>      File.WriteLine("D:/starlot.txt",9 \* xx + 4,"Radius " + ( Math.GetRandomNumber ( 100 \* h - 100 \* g ) / 100 + g ))<br>      File.WriteLine("D:/starlot.txt",9 \* xx + 5,"AbsMag " + (Math.GetRandomNumber ( 100 \* f - 100 \* e) / 100 - f ))<br>      File.WriteLine("D:/starlot.txt",9 \* xx + 6,"RA " + (Math.GetRandomNumber ( 100 \* a - 100 \* b ) / 100 + b ))<br>      File.WriteLine("D:/starlot.txt",9 \* xx + 7,"Dec " + (Math.GetRandomNumber ( 100 \* c - 100 \* d ) / 100 + d ))<br>      File.WriteLine("D:/starlot.txt",9 \* xx + 8,"Distance " + (Math.GetRandomNumber ( 100 \* i - 100 \* j ) / 100 + j ))<br>      Miao:<br>      qqda = Math.GetRandomNumber(10)<br>      qqdo = Math.GetRandomNumber(5)<br>      If qqdo = 1 Then <br>        qqdo = "IV"<br>      EndIf<br>      If qqdo = 2 Then<br>        qqdo = "V"<br>      EndIf<br>      If qqdo = 3 Then<br>        qqdo = "V"<br>      EndIf<br>      If qqdo = 4 Then<br>        qqdo = "V"<br>      EndIf<br>      If qqdo = 5 Then<br>        qqdo = "VI"<br>      EndIf<br>      If qqda = 1 Then<br>        If so = 0 Then <br>          Goto Miao<br>        Else<br>          If so > 0 Then <br>            qq = "O" + ( Math.GetRandomNumber(5) + 2 ) + qqdo <br>          EndIf<br>        EndIf<br>      EndIf<br>      If qqda = 2 Then<br>        If bo = 0 Then<br>          Goto Miao <br>        Else <br>          If bo > 0 Then<br>            qq = "B" + ( Math.GetRandomNumber(5) + 2 ) + qqdo<br>          EndIf<br>        EndIf<br>      EndIf<br>      If qqda = 3 Then<br>        If ao = 0 Then <br>          Goto Miao<br>        Else<br>          If ao > 0 Then <br>            qq = "A" + ( Math.GetRandomNumber(5) + 2 ) + qqdo <br>          EndIf<br>        EndIf<br>      EndIf<br>      If qqda = 4 Then<br>        If fo = 0 Then <br>          Goto Miao<br>        Else<br>          If fo > 0 Then <br>            qq = "F" + ( Math.GetRandomNumber(5) + 2 ) + qqdo <br>          EndIf<br>        EndIf<br>      EndIf<br>      If qqda = 5 Then<br>        If go = 0 Then <br>          Goto Miao<br>        Else<br>          If go > 0 Then <br>            qq = "G" + ( Math.GetRandomNumber(5) + 2 ) + qqdo <br>          EndIf<br>        EndIf<br>      EndIf<br>      If qqda = 6 Then<br>        If go = 0 Then <br>          Goto Miao<br>        Else<br>          If go > 0 Then <br>            qq = "G" + ( Math.GetRandomNumber(5) + 2 ) + qqdo <br>          EndIf<br>        EndIf<br>      EndIf<br>        If qqda = 7 Then<br>        If ko = 0 Then <br>          Goto Miao<br>        Else<br>          If ko > 0 Then <br>            qq = "K" + ( Math.GetRandomNumber(5) + 2 ) + qqdo <br>          EndIf<br>        EndIf<br>      EndIf<br>        If qqda = 8 Then<br>        If mo = 0 Then <br>          Goto Miao<br>        Else<br>          If mo > 0 Then <br>            qq = "M" + ( Math.GetRandomNumber(5) + 2 ) + qqdo <br>          EndIf<br>        EndIf<br>      EndIf<br>      If qqda = 9 Then<br>        If wno = 0 Then <br>          Goto Miao<br>        Else<br>          If wno > 0 Then <br>            qq = "WN" + ( Math.GetRandomNumber(5) + 2 ) + qqdo <br>          EndIf<br>        EndIf<br>      EndIf<br>      If qqda = 10 Then<br>        If no = 0 Then <br>          Goto Miao<br>        Else<br>          If no > 0 Then <br>            qq = "N" + ( Math.GetRandomNumber(5) + 2 ) + qqdo <br>          EndIf<br>        EndIf<br>      EndIf<br>      File.WriteLine("D:/starlot.txt",9 \* xx + 9,"SpectralType " + quot + qq + quot)<br>      File.WriteLine("D:/starlot.txt",9 \* xx + 10,"} ")<br>      xx = xx + 1<br>      If zz = LL Then<br>        TextWindow.Write("已完成" + "!")<br>        Else<br>          Goto Newone<br>        EndIf<br>    EndIf

```