» Poradna » Programy

Visual Basic: Proč se seká?

Odpovědět  |  Zobrazit bez stromu  |  Upozornit redakci  |  nových odpovědí: 7/7
 |   |   |  [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


Přechod z Windows na macOS: Co vás čeká a nemine

Přechod z Windows na macOS: Co vás čeká a nemine

** 5 kroků, které vás čekají, když se rozhodnete přejít z Windows na počítač značky Apple se systémem macOS ** macOS umí přenést data z počítače s Windows ** Při přechodu si budete zvykat na nové funkce a chování systému

17.  1.  2018 | Stanislav Janů | 147

Nejnovější americká výsadková loď USS Portland dostane laserovou zbraň

Nejnovější americká výsadková loď USS Portland dostane laserovou zbraň

** Právě v tomto období vstupuje do služby výsadková loď, která nese označení USS Portland (LPD-27) ** Specialisté na ní brzy přenesou laserový zbraňový systém XN-1 LaWS ** Ten dříve fungoval na výsadkové lodi třídy Austin/Trenton USS Ponce

17.  1.  2018 | Stanislav Mihulka | 5


Aktuální číslo časopisu Computer

Zachraňte nefunkční Windows

Jak nakupovat a prodávat kryptoměny

Otestovali jsme konvertibilní notebooky

Velký test 14 herních myší