🚀 go-pugleaf

Prova cos� (oppure adattalo)
'Inserisci una variabile pubblica al form o al modulo
'inserisci nel form un secondo pulsante di stop e nell'evento command2_click
'inserisci la routine qui sotto, quindi modifica la routine principale come
indicato e prova....
'Questo dovrebbe consentirti di usire dalla subroutine senza scaricare i
controlli

Public BloccaMiaApplicazione as Boolean
    BloccaMiaApplicazione  = true
Private sub command2_click
end sub


 Private sub command1_click
 BloccaMiaApplicazione  = False
 Mscomm1.portopen= True
 For I= 720 to 11490
 Mscomm1.Output = chr$ (156) & "a"
 Do
 diagramma  = doevents ( )
 Loop until Mscomm1.Inputbuffercount = 2
 A = Asc(Mscomm1.input)
 B = 6350 - A* 15
 Pset (I , B)

doevents
If  BloccaMiaApplicazione = True then
    exit sub
 end if

 Next
 Mscomm1.Portopen = False
Form1.Printform
 End sub


"F. Grasselli" <francesco.grasselli@tin.it> ha scritto nel messaggio
news:ofFY8.69665$Jj7.1829560@news1.tin.it...
> In sintesi la subroutine del command1_click � la seguente:
>
> Private sub command1_click
> Mscomm1.portopen= True
> For I= 720 to 11490
> Mscomm1.Output = chr$ (156) & "a"
> Do
> diagramma  = doevents ( )
> Loop until Mscomm1.Inputbuffercount = 2
> A = Asc(Mscomm1.input)
> B = 6350 - A* 15
> Pset (I , B)
> Next
> Mscomm1.Portopen = False
> Form1.Printform
> End sub
>
> In sostanza ciclo dei dati provenienti dalla porta seriale ricavando
> un diagramma.
> Quando fermo la routine non vorrei perdere il diagramma gi�
> disegnato sul form.
> ciao.
> "Pippo in Lutto" <pippoInlutto@libero.it> ha scritto nel messaggio
> news:usyY8.81242$vm5.2950901@news2.tin.it...
> > Fammi vedere il contenuto della sub routine del comand1_click
>
>
>