VB.net2013中如何让for....next循环一次等待1秒(或多秒）再循环一次等1秒，直到循环结束。

        Dim s As String = "123456789"

        For i = 1 To Len(s)

            TextBox1Text = TextBox1Text & Mid(s, i, 1)

            SystemThreadingThreadSleep(1000)

            ApplicationDoEvents()

        Next

用定时程序控制器实现更简单，采用表格设置无需编程，功能设置如下：

3行设置就可以完成了，很方便。第一行输出1秒，然后触发第二行延时1秒后输出一秒，然后触发第三行延时7秒，然后触发第一行循环。

循环一次的话可以：

for(i=0;i<8;i++)

{;}

要实现多次循环的话，就需要在适当的时候把i在赋值为0，这样就会在for中一直循环下去。

for(i=0;i<8;i++)

{

循环点亮led的代码

if(i<7) break; i=7的时候，程序执行第8次，这时只要在led循环后把i赋值为0，这样就可以再次进入到for循环中

i=0;

}

大概思路就这样，办法还有好多，可以自己想想 然后编程试试，多动手

package comtarenafly;

public class asdfsd {

public static void main(String[] args) {

final Thread t1 = new Thread(){

public void run(){

int i = 0;

while(i<10){

Systemoutprintln("t1:"+i++);

try {

Threadsleep(500);

} catch (InterruptedException e) {

eprintStackTrace();

}

}

}

};

final Thread t2 = new Thread(){

public void run(){

int i = 0;

try {

t1join();

} catch (InterruptedException e1) {

e1printStackTrace();

}

while(i<10){

Systemoutprintln("t2:"+i++);

try {

Threadsleep(1000);

} catch (InterruptedException e) {

eprintStackTrace();

}

}

}

};

Thread t3 = new Thread(){

public void run(){

int i = 0;

try {

t1join();

t2join();

} catch (InterruptedException e1) {

e1printStackTrace();

}

while(i<10){

Systemoutprintln("t3:"+i++);

try {

Threadsleep(100);

} catch (InterruptedException e) {

eprintStackTrace();

}

}

}

};

Thread t4 = new Thread(){

public void run(){

int i = 0;

try {

t1join();

t2join();

} catch (InterruptedException e1) {

e1printStackTrace();

}

while(i<10){

Systemoutprintln("t4:"+i++);

try {

Threadsleep(100);

} catch (InterruptedException e) {

eprintStackTrace();

}

}

}

};

t1start();

t2start();

t3start();

t4start();

}

}

t3,t4都格式都一样，我就不排了。

join方法，等待其他线程结束之后再执行，你在T2里加上t1join，就是等待t1执行完，在执行自己的run方法，然后再其他线程里加上t1join;t2join 就OK了；

亲测，给分！

害人害到底，帮你写一个吧。

ORG 00H

AJMP MAIN

ORG 30H

MAIN:

MOV R0,#5

MOV R1,#8

MOV R2,#2

MAIN0:

MOV P1,#0

ACALL  D05S

MOV P1,#0FFH

ACALL D05S

DJNZ R0,MAIN0

MOV A,#01H

MAIN1:

MOV P1,A

ACALL D05S

RL A

DJNZ R1,MAIN1

MOV R1,#8

DJNZ R2,MAIN1

AJMP MAIN

D05S:

MOV R7,#10

MOV R6,#100

MOV R5,#250

DJNZ R5,$

DJNZ R6,$-4

DJNZ R7,$-8

RET

END

以上就是关于VB.net2013中如何让for....next循环一次等待1秒(或多秒）再循环一次等1秒，直到循环结束。全部的内容，包括:VB.net2013中如何让for....next循环一次等待1秒(或多秒）再循环一次等1秒，直到循环结束。、如何控制plc控制气缸通一秒，然后断开，再通一秒，再断开七秒，再循环，求梯形图、八盏跑马灯循环点亮后 怎样让它再循环依次点亮~~~等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！