» Poradna » Programy

Visual Basic: Proč se seká?

 |   |   |  [62.240.169.---]

Mám jednoduchý prográmek:Private Sub Command1_Click()
OPENCOM ("COM4,9600,N,8,1")
For Text22 = 1 To 10000
RTS 1
DELAY 1
RTS 0
DELAY 200
Text1 = Text22
Text1.Refresh
Next Text22
CLOSECOM
End Sub
OPENCOM otevře COM, DTR 1 rozsvítí diodu, DELAY udělá zpoždění, DTR 0 diodu zhasne. Text22 (pořadí probíhajícího cyklu) se zobrazuje v Text1. Prográmek nechám běžet a na PC dělám něco jiného. Prográmek se tak trochu sekne - dioda bliká dál, ale přestane se obnovovat text22, nezobrazuje se aktuální cyklus, který probíhá. Čím to je? Poradíte prosím?
 

Odpovědi na otázku

 |   |   |  [62.240.168.---]

VB neumim(ber to tedy z rezervou), ale tipoval bych že musíš udělat nějaké vlákno a v něm blikat.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Omlouvám se, nerozumím, jaké vlákno?

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

VB si s vlakny moc nerozumi...

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |   |  [195.46.70.---]

daj do toho cyklu prikaz: DoEvents

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Moc děkuju, už se neseká! Mám ještě jeden problém, běhá mně to ve smyčce (for n = 1 to 2000), co tam mám dát, aby se to dalo přerušit (např. ESCAPEm)?

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |   |  [195.46.70.---]

skus nahradit ten for cyklus timerom... do tela vykonavania toho timera das telo z tej slucky,
nastavis mu nech sa spusta povedzme kazdu pol sekundu zec timer.interval.... a potom ten timer mozes
ovladat aj pomocou buttonov cez timer.enabled

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |   |  [195.168.38.---]

nadefinuj si nejaku public boolean premennu
napr.
Public bStopni As Boolean

do eventu formy keypress si zadaj ze ak je stlacena klavesa ESC tak nastavi bStopni na TRUE

do For..Next si daj
IF bStopni = True Then
bStopni = False
Exit For
End If

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Visual Basic, Basic, Delay, Jednoduchý prográmek, Zpoždění, Cyklus



Určitě si přečtěte


Aktuální číslo časopisu Computer

Test 6 odolných telefonů a 22 powerbank

Srovnání technologií QLED a OLED

Měřte své sportovní výkony

Sady pro chytrou domácnost