» 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

Solární panely v silnici vypadaly jako dobrý nápad. V praxi se ale neosvědčily

Solární panely v silnici vypadaly jako dobrý nápad. V praxi se ale neosvědčily

** Nápad použít na silnice místo asfaltu solární panely vypadal slibně ** Praktické testy však odhalily celou řadu nevýhod ** Nejhorší je směšná účinnost ve srovnání s fotovoltaickou elektrárnou

Karel Kilián | 62

Astronomové objevili daleko za Plutem objekt s extrémní dráhou. Může ukazovat na existenci planety Devět

Astronomové objevili daleko za Plutem objekt s extrémní dráhou. Může ukazovat na existenci planety Devět

** Astronomové objevili daleko za Neptunem těleso 2015 TG387 ** Okolo Slunce se pohybuje po extrémně protáhlé dráze ** Jeho dráha může ukazovat na existenci planety Devět

Petr Kubala | 10


Aktuální číslo časopisu Computer

Jak vytvořit a spravovat vlastní web

Velký test herních klávesnic a DVB-T2 tunerů

Vše o formátu RAW

Vybíráme nejlepší základní desku