随便看看 - 代码贴

[VB.net]ui新bp

Option Explicit
Const C_WorkProgress = 4
Class UI_Class
    Public Form, Tip, config, AppName, Starting, Angel
    Private Menu, hMenu1(1), hMenu2(0), timing
    Private Tooptip
    Private DisablePowerSave
    Private Sub Create()
        Dim i, v, s, j, arr
        Set Menu = Control.Menu()
        Set Form = Api.NewForm()
        Set Tooptip = Control.Tooptip()
......................

阅读全部 | 王宇577 贴于 2022年5月16日 15:05 hide bbsi

[VB.net]ui新bp1

Option Explicit
Const C_WorkProgress = 4
Class UI_Class
    Public Form, Tip, config, AppName, Starting, Angel
    Private Menu, hMenu1(1), hMenu2(0), timing
    Private Tooptip
    Private DisablePowerSave
    Private Sub Create()
        Dim i, v, s, j, arr
        Set Menu = Control.Menu()
        Set Form = Api.NewForm()
        Set Tooptip = Control.Tooptip()
......................

阅读全部 | 王宇577 贴于 2022年5月16日 15:01 hide bbsi

[VB.net]ui新bp

Option Explicit
Const C_WorkProgress = 4
Class UI_Class
    Public Form, Tip, config, AppName, Starting, Angel
    Private Menu, hMenu1(1), hMenu2(0), timing
    Private Tooptip
    Private DisablePowerSave
    Private Sub Create()
        Dim i, v, s, j, arr
        Set Menu = Control.Menu()
        Set Form = Api.NewForm()
        Set Tooptip = Control.Tooptip()
......................

阅读全部 | 王宇577 贴于 2022年5月16日 15:01 hide bbsi

[VB.net]ui新bp

Option Explicit
Const C_WorkProgress = 4
Class UI_Class
    Public Form, Tip, config, AppName, Starting, Angel
    Private Menu, hMenu1(1), hMenu2(0), timing
    Private Tooptip
    Private DisablePowerSave
    Private Sub Create()
        Dim i, v, s, j, arr
        Set Menu = Control.Menu()
        Set Form = Api.NewForm()
        Set Tooptip = Control.Tooptip()
......................

阅读全部 | 王宇577 贴于 2022年5月16日 15:00 hide bbsi

[VB.net]ui新bp

Option Explicit
Const C_WorkProgress = 4
Class UI_Class
    Public Form, Tip, config, AppName, Starting, Angel
    Private Menu, hMenu1(1), hMenu2(0), timing
    Private Tooptip
    Private DisablePowerSave
    Private Sub Create()
        Dim i, v, s, j, arr
        Set Menu = Control.Menu()
        Set Form = Api.NewForm()
        Set Tooptip = Control.Tooptip()
......................

阅读全部 | 王宇577 贴于 2022年5月16日 14:51 hide bbsi

[JavaScript]安安哒的贴于 2022-05-14 16:01:22

var circles = [];
var rate = 3200;
function setup(){
createCanvas(800,800);
stroke("#000000");
noFill();
colorMode(HSB, 360, 100, 100, 100);
for (var i = -40; i < 960; i += 40){
for (var j = -40; j < 960; j += 40){
var positionCi = createVector(j, i);
circles.push(positionCi);
}
......................

阅读全部 | 安安哒的贴于 2022年5月14日 16:01 hide bbsi

[C语言]dengchangqin 贴于 2022-05-13 14:11:39

Erasing at 0x7e60000 -- 100% complete.
Time:1013455 us, speed:38282 KB/s
OK
[UFU runcmd] ubi part userdata
UBI: parsing mtd_dev string 'mtd=13'
UBI: attaching mtd2 to ubi0
UBI: scanning is finished
UBI: empty MTD device detected

阅读全部 | dengchangqin 贴于 2022年5月13日 14:11 hide bbsi

[Python]h332232368 贴于 2022-05-13 10:49:03

# 绘制填充图形
import turtle
turtle.speed(10)
turtle.pensize(3)
turtle.penup()
turtle.goto(-200,-50)
turtle.pendown()
turtle.begin_fill()
turtle.color("red")
turtle.circle(40,steps=3)
turtle.end_fill()

......................

阅读全部 | h332232368 贴于 2022年5月13日 10:49 hide bbsi

[Python]小米辣贴于 2022-05-11 13:48:39

#输入
p=float(input(“单价”))
n=int(input(“数量”))
s=p*n
print（“...”,s）

阅读全部 | 小米辣贴于 2022年5月11日 13:48 hide bbsi

[C语言]小米辣贴于 2022-05-10 21:34:54

#输入
p=float(input("单价："))
n=int(input("数量："))

s=p*n

print("...：," s)

阅读全部 | 小米辣贴于 2022年5月10日 21:34 hide bbsi