Em todos os sets que eu seleciono - sempre recebo a leitura do set que eu editei manualmente com o seguinte script. TRANSDUCER:SET 1 TRANSDUCER:SET:RANGES:SELECT 1 TRANSDUCER:SET:RANGES:START? O valor de retorno deveria ser o valor de Start do Range 1 do Set 1, mas quando edito o Set 2 eu recebo o valor de Start do Range 1 do Set 2.
A seleção de uma série abre o modo de edição do transdutor, o que produz
valores equivocados. Você deve sair do modo de edição com um comando salvar.
Abaixo você encontrará um programa que mostra como ler as frequências de uma série:
Private Sub Connect_Click()
Rem Dimensions
Dim Buffer1 As String * 2000
Dim Buffer2 As String * 2000
Dim Handle As Integer
Me.MousePointer = vbHourglass: DoEvents 'altera o cursor para ampulheta
Rem Selecionar o receptor
ibdev 0, 18, 0, 12, 1, 0, Handle '<<<<<
Rem Selecionar o set 1 do transdutor
ibwrt Handle, "TRANSDUCER:SET 1" '<<<<<
Rem Selecionar a série 1
ibwrt Handle, "TRANSDUCER:SET:RANGES:SELECT 1" '<<<<<
Rem Selecionando uma série você também seleciona o modo de edição,
Rem salve o set para sair do modo de edição
ibwrt Handle, "TRANSDUCER:SET:SAVE" '<<<<<
Rem leia a frequência de início
ibwrt Handle, "TRANSDUCER:SET:RANGES:START?" '<<<<<
ibrd Handle, Buffer1 '<<<<<
Rem Selecionar o set 2 do transdutor
ibwrt Handle, "TRANSDUCER:SET 2" '<<<<<
Rem Selecionar a série 1
ibwrt Handle, "TRANSDUCER:SET:RANGES:SELECT 1" '<<<<<
Rem Selecionando uma série você também seleciona o modo de edição,
Rem salve o set para sair do modo de edição
ibwrt Handle, "TRANSDUCER:SET:SAVE" '<<<<<
Rem leia a frequência de início
ibwrt Handle, "TRANSDUCER:SET:RANGES:START?" '<<<<<
ibrd Handle, Buffer2 '<<<<<
'XXXXXXXXXXXXXXXXXXXXXX
ibloc Handle '<<<<<
InstAnswer0(0).Caption = Buffer1 'escreve a resposta no formulário
InstAnswer1(1).Caption = Buffer2 'escreve a resposta no formulário
Me.MousePointer = vbDefault: DoEvents 'volte o cursor para o normal
End Sub
