Искуственный интеллект

Option Explicit
 
Dim TA As String
Dim f1 As String, f2 As String
Dim i As Long
 
Private Sub txtT_Change()
    Open "ARW.txt" For Input As #1
    TA = txtT.Text
    Do
        Line Input #1, f1
        Line Input #1, f2
        If TA = f1 Then
            lokK.Caption = f2
            Exit Do
        End If
    Loop Until EOF(1)
    Close #1
End Sub

Private Declare Function mciSendString _
    Lib "winmm.dll" Alias "mciSendStringA" (ByVal Command As String, _
    ByVal ReturnString As String, _
    ByVal ReturnLength As Integer, ByVal Callback As Integer) As Integer
    Dim Path As String
    Dim rs As String
    Dim cb As Integer
    Dim Status As Integer
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
 
Private Sub cmdRecordStop_Click()
rs = Space(256)
cb% = 0
Alignment% = 4
bits% = 16                 '16bit wave file
channels% = 2             '1=mono 2=stero
samples& = 44100           '44.1kHz sample rate
 
 
If cmdRecordStop.Caption = "Записать" Then
    cmdRecordStop.Caption = "Остановить"
    Command2.Enabled = False
        Call mciSendString("Open New Type waveaudio Alias recsound", rs, 256, cb)
        Call mciSendString("set recsound time format ms", 0&, 0, 0)
        Call mciSendString("set recsound alignment " & Str(Alignment) & " bitspersample " & Str(bits) & " samplespersec " & Str(samples) & " channels " + Str(channels) & " bytespersec " & Str(samples * Alignment), 0&, 0, 0)
        Call mciSendString("record recsound",  0&, 0, 0)
Else
    cmdRecordStop.Caption = "Записать"
    Command2.Enabled = True
        Call mciSendString("Stop recsound", 0&, 0, 0)
        Call mciSendString("save recsound " & Path, 0&, 0, 0)
        Call mciSendString("Close recsound", 0&, 0, 0)
End If
End Sub
 
Private Sub Command1_Click()
    Call mciExecute("stop " & "C:\1.wav")
End Sub
 
Private Sub Command2_Click()
    Call mciExecute("play " & "C:\1.wav")
End Sub
 
Private Sub Form_Load()
    Path = "C:\1.wav"
    cmdRecordStop.Caption = "Записать"
    Command2.Caption = "Прослушать"
    Command2.Enabled = False
End Sub