» Poradna » Programy

Visual Basic: Proč se seká?

 |   | 

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

 |   | 

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
 |   | 

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
 |   | 

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
 |   | 

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

Google ADT-2: Miniaturní krabička s Android TV 8.0, kterou si nikdy nekoupíte

Google ADT-2: Miniaturní krabička s Android TV 8.0, kterou si nikdy nekoupíte

** Dlouho se nevědělo, co to přesně má být ** Pak se s krabičkou Google pochlubil na I/O ** Do „Chromecastu“ vtěsnal celý Android TV

Jakub Čížek | 24

Šmírovačka kamerami Googlu: Koukněte se, co nového zachytily na Street View

Šmírovačka kamerami Googlu: Koukněte se, co nového zachytily na Street View

Google stále fotí celý svět do své služby Street View. A novodobou zábavou je hledat v mapách Googlu vtipné záběry. Podívejte se na výběr nejlepších!

redakce | 44

Budoucnost elektroniky: čeští vědci stojí za revolučním čipem, který nemá ve světě obdoby

Budoucnost elektroniky: čeští vědci stojí za revolučním čipem, který nemá ve světě obdoby

** Čeští vědci pod vedením Tomáše Jungwirtha vyvíjí nový typ revolučního paměťového čipu ** Zatímco v současnosti elektronika pracuje s elektrony, v budoucnu to budou spiny elektronů ** Čipy budou moci být klidně i 1 000x rychlejší a úspornější

Karel Javůrek | 32

Alan Turing: Genius, který matematicky stvořil počítač

Alan Turing: Genius, který matematicky stvořil počítač

Řešením matematického problému se dostal k modelu teoretického stroje, který nese jeho jméno a je základem logiky univerzálních počítačů.

Pavel Tronner | 56


Aktuální číslo časopisu Computer

Velký test 18 bezdrátových sluchátek

Vše o přechodu na DVB-T2

Procesory AMD opět porážejí Intel

7 NVMe M.2 SSD v přímém souboji