dim t
dim minn
dim x
dim maxn
dim guess
dim ground
rem =====窗体start=====
w=windowwidth/8
h=windowheight/11
msgbox("窗体宽度" & windowwidth & crlf & "窗体高度" & windowheight & crlf & "w值" & w & crlf & "h值" & h )
Dim color(3)
color(0) = cgold
color(1) = cgold
color(2) = cgreen
setactivitybackground("TL_BR",0 , "color")
addlabel("lbl1", 1, 1, windowwidth, h, "")
settext("lbl1", "猜数字-创新玩法-欺骗模式")
settextsize("lbl1", 20)
settextcolor("lbl1", cgreen)
addlabel("lbl2", 1, h, windowwidth , h, "")
settext("lbl2", "猜的次数:0")
settextsize("lbl2", 20)
settextcolor("lbl2", cblue)
addlabel("lbl3", 1,2*h , windowwidth , h, "")
settextsize("lbl3", 20)
settextcolor("lbl3", cblue)
addlabel("lbl4", 1, 3*h, 3*w, h, "")
settext("lbl4", "数字范围:")
settextsize("lbl4", 20)
settextcolor("lbl4", cblue)
addlabel("lblmin", 3*w, 3*h, w, h, "")
settext("lblmin", "0")
settextsize("lblmin", 20)
settextcolor("lblmin", cblue)
addlabel("lblmax", 5*w, 3*h, w, h, "")
settext("lblmax", "100")
settextsize("lblmax", 20)
settextcolor("lblmax", cblue)
addlabel("lbl5", 4*w, 3*h, w, h, "")
settext("lbl5", "~")
settextsize("lbl5", 20)
settextcolor("lbl5", cblue)
AddEditText('edi1',3*w,4*h,3*w,h,'')
addlabel("lbl6", 1, 4*h, 3*w, h, "")
settext("lbl6", "在此输入>>>")
settextsize("lbl6", 20)
settextcolor("lbl6", cblack)
AddButton('btn1',0,5*h,1.6*w,2*h,'')
SetText('btn1','1')
AddButton('btn2',1.6*w,5*h,1.6*w,2*h,'')
SetText('btn2','2')
AddButton('btn3',3.2*w,5*h,1.6*w,2*h,'')
SetText('btn3','3')
AddButton('btn4',4.8*w,5*h,1.6*w,2*h,'')
SetText('btn4','4')
AddButton('btn5',6.4*w,5*h,1.6*w,2*h,'')
SetText('btn5','5')
AddButton('btn6',0,7*h,1.6*w,2*h,'')
SetText('btn6','6')
AddButton('btn7',1.6*w,7*h,1.6*w,2*h,'')
SetText('btn7','7')
AddButton('btn8',3.2*w,7*h,1.6*w,2*h,'')
SetText('btn8','8')
AddButton('btn9',4.8*w,7*h,1.6*w,2*h,'')
SetText('btn9','9')
AddButton('btn0',6.4*w,7*h,1.6*w,2*h,'')
SetText('btn0','0')
AddButton('btny',0,9.1*h,4*w,1.8*h,'')
SetText('btny','确认数字')
AddButton('btnr',4*w,9.1*h,4*w,1.8*h,'')
SetText('btnr','游戏规则')
rem =====窗体end=====
rem =====主过程start=====
filereadlist(filedirrootexternal & "/caishuzi", "csz5.txt", "jl")
settext("lbl3", "最高记录:" & jl(1))
rem 获取随机数列及更新随机数列
inputbox("请输入一个数字(1~3)" & crlf & "每获取一次随机数列下一次它都会改变。", "获取随机数列", "确定", "", "")
x=getinput
dim numbers(7)
if x = 1 then
filereadlist(filedirrootexternal & "/caishuzi", "csz1.txt", "rndx")
for y = 0 to 6
numbers(y)=rndx(y)+7
if numbers(y)>=100 then
numbers(y)=numbers(y)-100
end if
if numbers(y)=0 then
numbers(y)=1
end if
next
filewritelist(filedirrootexternal & "/caishuzi", "csz1.txt", "numbers")
elseif x = 2 then
filereadlist(filedirrootexternal & "/caishuzi", "csz2.txt", "rndx")
for y = 0 to 6
numbers(y)=rndx(y)+7
if numbers(y)>=100 then
numbers(y)=numbers(y)-100
end if
if numbers(y)=0 then
numbers(y)=1
end if
next
filewritelist(filedirrootexternal & "/caishuzi", "csz2.txt", "numbers")
elseif x = 3 then
filereadlist(filedirrootexternal & "/caishuzi", "csz3.txt", "rndx")
for y = 0 to 6
numbers(y)=rndx(y)+7
if numbers(y)>=100 then
numbers(y)=numbers(y)-100
end if
if numbers(y)=0 then
numbers(y)=1
end if
next
filewritelist(filedirrootexternal & "/caishuzi", "csz3.txt", "numbers")
else
filereadlist(filedirrootexternal & "/caishuzi", "csz4.txt", "rndx")
for y = 0 to 6
numbers(y)=rndx(y)+7
if numbers(y)>=100 then
numbers(y)=numbers(y)-100
end if
if numbers(y)=0 then
numbers(y)=1
end if
next
filewritelist(filedirrootexternal & "/caishuzi", "csz4.txt", "numbers")
end if
rem 随机数列获取及更新完毕
x=rndx(0)
ground=0
t=0
txt=""
rem =====主过程end=====
rem ====================
REM =====过程=====
Sub button_click(who)
select who
case "btn1"
txt=txt & "1"
case "btn2"
txt=txt & "2"
case "btn3"
txt=txt & "3"
case "btn4"
txt=txt & "4"
case "btn5"
txt=txt & "5"
case "btn6"
txt=txt & "6"
case "btn7"
txt=txt & "7"
case "btn8"
txt=txt & "8"
case "btn9"
txt=txt & "9"
case "btn0"
txt=txt & "0"

源码发一下

还有个安装的。

msgbox("请先在SD卡根目录下创建一个文件夹caishuzi")
progressshow("正在安装......")
dim numbers(7)
numbers(0) = 13
numbers(1) = 52
numbers(2) = 73
numbers(3) = 97
numbers(4) = 75
numbers(5) = 71
numbers(6) = 38
filewritelist(filedirrootexternal & "/caishuzi", "csz1.txt", "numbers")
numbers(0) = 92
numbers(1) = 19
numbers(2) = 8
numbers(3) = 30
numbers(4) = 58
numbers(5) = 87
numbers(6) = 96
filewritelist(filedirrootexternal & "/caishuzi", "csz2.txt", "numbers")
numbers(0) = 85
numbers(1) = 93
numbers(2) = 60
numbers(3) = 9
numbers(4) = 98
numbers(5) = 76
numbers(6) = 56
filewritelist(filedirrootexternal & "/caishuzi", "csz3.txt", "numbers")
numbers(0) = 86
numbers(1) = 95
numbers(2) = 65
numbers(3) = 74
numbers(4) = 49
numbers(5) = 14
numbers(6) = 27
filewritelist(filedirrootexternal & "/caishuzi", "csz4.txt", "numbers")
dim txt(7)
txt = filereadstring(filedirrootexternal & "/caishuzi", "csz5.txt")
if txt(0)="" then
numbers(0) = "None"
rem 猜数字-传统玩法-单人:最高纪录
numbers(1) = "None"
numbers(2) = "None"
numbers(3) = "None"
numbers(4) = "None"
numbers(5) = "None"
numbers(6) = "None"
filewritelist(filedirrootexternal & "/caishuzi", "csz5.txt", "numbers")
end if
progresshide
txt = filereadstring(filedirrootexternal & "/caishuzi", "csz5.txt")
msgbox(txt,"如果你看到下面有字那么就说明安装成功")


没人鸟我QAQ

安卓是能用basic编的？好强大，我要换手机
想当年，用j2me照着教程变了个java的，坑爹死了

神啊，求安卓VB,语法什么的和vb6.0一样不？

楼主!厉害!不过这太复杂了! 有没有用这个软件编写高二数学必修三那些简单程序的教程!我们最近正在学! 电脑上会点皮毛!手机上用这软件和电脑不一样啊! 求使用方法啊!楼主!

@剑li_1

楼主，麻烦你把这个软件发给我。[email protected]
这个需要什么安卓模拟器么？

安卓的VB不会用啊真心蛋疼

楼主，研究出怎么复制文件木有……和删除文件……

REM Specify the menus.
rem 注释，添加菜单
Dim menuitems(0)
array(menuitems,"Zero","One","Two")
for i = 0 to arraylen(menuitems()) - 1
addmenuitem(menuitems(i))
next
REM An array for general use
rem 注释，一般用数组
Dim data(0)
REM Scale controls to screen size. The script assumes 320 x 480
rem 注释，规模控制屏幕的大小。该脚本假定为320 x 480
rem Note that fonts are scaled according to density by Android
rem 注释，请注意，字体缩放，根据其密度由Android
d = getlayoutvalues
strsplit(data, d, ",")
d = data(0) / 320
REM let the activity window paint empty to look like somethings happened immediately
rem 注释，把活动窗口涂成空的，使其看上去就像是立即发生的事情
rem otherwise you carry on seeing the IDE window
rem 注释，否则，你看到IDE窗口进行
calldoevents
REM Add the views
rem 注释，添加控件
addbutton("btn1", 5*d, 5*d, 65*d, 65*d, "")
settext("btn1", "Get")
addtogglebutton("tgl1", 250*d, 5*d, 65*d, 65*d, "")
settexton("tgl1", "Yes")
settextoff("tgl1", "No")
addlabel("lbl1", 80*d, 5*d, 130*d, 30*d, "")
settext("lbl1", "<- press both ->")
settextsize("lbl1", 18)
addcheckbox("chk1", 5*d, 80*d, 170*d,40*d, "")
settext("chk1", "Check(!) this out")
addradiobutton("rad1", 180*d, 80*d, 65*d, 40*d, "")
settext("rad1", "On")
addradiobutton("rad2", 250*d, 80*d, 65*d, 40*d, "")
settext("rad2", "Off")
addedittext("edt1", 5*d, 135*d, 205*d, 55*d, "")
settext("edt1", "Some text" & crlf & "some more" & crlf & "even more" & crlf & "and more")
createtypeface("serif", 1)
settypeface("edt1")
settextsize("edt1", 24)
addlabel("lbl2", 220*d, 135*d, 100*d, 30*d, "")
settext("lbl2", "Scroll the text")
addimage("img1", 5*d, 205*d, 305*d, 200*d, "")
addpanel("pnl1", 5*d, 80*d, 305*d, 300*d, "")
setcolor("pnl1", 10*d, csilver)
addbutton("btn2", 5*d, 5*d, 65*d, 65*d, "pnl1")
settext("btn2", "Hide")
setvisible("pnl1", false)
Dim data(3)
data(0) = cred
data(1) = cgreen
data(2) = cblue
setactivitybackground("TL_BR", 10*d, "data")
setbackground("lbl1", "RIGHT_LEFT", 10*d, "data")
settextcolor("lbl1", cyellow)
REM TabHost
addtabhost("tbh1", 75*d, 5*d, 200*d, 250*d, "pnl1")
setcolor("tbh1", 5*d, cred)
addtab("One", "tab1", "tbh1")
setcolor("tab1", 10*d, cblack)
addspinner("spin1", 10*d, 10*d, 150*d, 40*d, "tab1")
setprompt("spin1", "A Spinner")
array(data, "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday")
addall("spin1", "data")
addlistview("lvw1", 10*d, 55*d, 150*d, 100*d, "tab1")
setcolor("lvw1", 5*d, cblue)
setscrollcolor("lvw1", cblue)
addall("lvw1", "data")
addtab("Two", "tab2", "tbh1")
setcolor("tab2", 10*d, cgray)
addseekbar("skb1", 10*d, 20*d, 150*d, 35*d, "tab2")
addbutton("tbtn1", 50*d, 80*d, 65*d, 65*d, "tab2")
settext("tbtn1", "Reset")
setvalue("skb1", getmax("skb1")/2)
addtab("Three", "tab3", "tbh1")
setcolor("tab3", 10*d, cwhite)
addscrollview("svw1", 10*d, 10*d, 160*d, 150*d, "tab3")
setcolor("svw1", 10*d, cgreen)
getpanel("svw1", "svpnl")
setheight("svpnl", 300*d)
addbutton("tbtn2", 40*d, 80*d, 85*d, 65*d, "svpnl")
settext("tbtn2", "Bottom")
addlabel("tlbl2", 50*d, 280*d, 1000*d, 30*d, "svpnl")
settext("tlbl2", "ScrollView")
REM Graphics
rem 注释，图像
canvasinit("img1")
drawcolor(cYellow)
col = argb(128, 255, 0, 0)
drawcircle(35*d, 35*d, 35*d, col, true, 2*d)
col = argb(128, 0, 255, 0)
drawline(35*d, 35*d, 35*d, 135*d, col, 4*d)
for i = 0 to 80*d
drawpoint(i, 100*d, cblue)
next
rem the points array can have a rank of 1 or 2
rem 注释，点阵列可以有1或2级
dim points(4,2)
points(0,0) = 40*d
points(0,1) = 40*d
points(1,0) = 80*d
points(1,1) = 80*d
points(2,0) = 40*d
points(2,1) = 160*d
points(3,0) = 40*d
points(3,1) = 40*d
drawpath("points", cpurple, false, 3)
rem the points array can have a rank of 1 or 2
rem 注释，点阵列可以有1或2级
dim rect(4)
rect(0) = 135*d
rect(1) = 15*d
rect(2) = 200*d
rect(3) = 135*d
drawrect("rect", cbrown, false, 4*d)
drawrectrotated("rect", cgold, false, 4*d, 45)
drawtext("Some text", 155*d, 100*d, 20, cblack, "RIGHT")
drawtextrotated("Some text", 155*d, 100*d, 20, cblack, "RIGHT", 180)
canvasinit("pnl1")
drawtext("Some text", 155*d, 280*d, 20, cblack, "RIGHT")
drawtextrotated("Some text", 155*d, 280*d, 20, cblack, "RIGHT", 180)
REM File operations
rem 注释，文件操作


上面是我自己翻译的示例。
运行错误其中一点是没有sub过程

话说怎么删除/修改控件啊？ 添加控件后，就不能修改了，
真心伤不起

传说:安卓有短信卧底病毒,不知道是真是假

Basic4Android 楼主怎么不想说的样子?

我可没有看见什么删除