Visual Basic

Hello all.

I am using the FMOD libraries to perform a spectrum analyzer, the results of the call to the library store in the array 'Spectrum ()' type 'Single', later these are passed to the array 'InSpect ()' type 'Integer '

The problem I have in the conversion of 'Single to Integer' gives overflow error, once I examine the data in the array 'InSpect ()' I have nothing are empty, while in the array 'Spectrum ()' are all the data, I have not yet found such an error or failure.

Let's see if you can help me, Thanks.

The code is following (summarized):

Dim Spectrum(1023) As Single
Dim InSpect(1023) As Integer
​Dim i as Long
Dim DetSpectro As Long


  Call FMOD_System_GetSpectrum(system, Spectrum(0), 512, count, FMOD_DSP_FFT_WINDOW_TRIANGLE)
  DetSpectro = system
  CopyMemory = Spectrum(0), ByVal DetSpectro , 1024 * 4   'convert long into integer.
   
    For i = 1 To 1023 Step 1
          InSpect(i) = Spectrum(i)     'convert Single to Integer    overflow error
    Next

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
        dataFile = "C:\Users\achikanya\Desktop\xray database.accdb"
        connString = provider & dataFile
        myConnection.ConnectionString = connString
        myConnection.Open()
        Dim str As String
        str = "Insert into Patient Details([National ID],[First Name],[Last Name],[Phone number],[Email],[Procedure],[Gender],[Address],[Date]) Values (?????????))"
        Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)
        cmd.Parameters.Add(New OleDbParameter("National ID", CType(TextBox1.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("First Name", CType(TextBox2.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Last Name", CType(TextBox3.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Phone number", CType(TextBox4.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("(Email", CType(TextBox5.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Procedure", CType(TextBox6.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Gender", CType(TextBox7.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Address", CType(TextBox8.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Date", CType(TextBox9.Text, String)))

Dim enrollnumber As String
        
        If CZKEM1.ReadAllUserID(CInt(MachineNumber)) Then
      
            GetUserTmpExStr MachineNumber, dwenrollnumber, dwFingerIndex, iFlag, tmpData, tmpLength
 
            dwEnrollNumber1 = dwEnrollNmber
 
            dwEnrollNumber1 = EnrollNmber
   
     'Wend
     
    End If
         Text4.Text = UserID
         Text1.Text = EnrollNmber
    Else
        'MsgBox "Verify Fail"
    End If

no logro ..ayuda.

    Imports System.Data.SqlClient

    Public Class Form1
    Dim dsShiftLog As DataSet = New DataSet("ShiftLog")

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Shift_PrintersTableAdapter.Fill(Me.LazerMaintenanceDataSet.Shift_Printers)
        Me.Shift_LogTableAdapter.Fill(Me.LazerMaintenanceDataSet.Shift_Log)

        Backup_data(tbShift_Key.Text)

   End sub

Private Sub Backup_data(ShiftKey As Integer)

        Dim table1 As DataTable = New DataTable("shiftlog")
        Dim strSql As String = "SELECT * FROM Shift_Log WHERE Shift_Log.Shift_Key = '" & ShiftKey & "';"
        'Dim dtb As New DataTable
        Using SqlConn As New SqlConnection(My.Settings.LazerMaintenanceConnectionString)
            SqlConn.Open()
            Using da As New SqlDataAdapter(strSql, SqlConn)
                da.Fill(table1)
            End Using
            SqlConn.Close()
        End Using

        Dim table2 As DataTable = New DataTable("shiftprinters")
        strSql = "SELECT * FROM Shift_Printers WHERE Shift_Printers.Shift_Key = '" & ShiftKey & "';"
        'Dim dtb As New DataTable
        Using SqlConn As New SqlConnection(My.Settings.LazerMaintenanceConnectionString)
            SqlConn.Open()
            Using da2 As New SqlDataAdapter(strSql, SqlConn)
                da2.Fill(table2)
            End Using
            SqlConn.Close()
        End Using

        dsShiftLog.Tables.Add(table1)
        dsShiftLog.Tables.Add(table2)


    End Sub

Hello, I still use VB.Net once. I have a college project assignment to make cryptography. but I have experienced an error in the program. Please help me.

***program code that displays an error


    'Pembentukan Kunci
    Public Sub GetIDEAKey(ByVal pstrKey As String)
        Dim strKunci As String = ""
        Dim nRound = 1, nKey As Integer = 0
        'Dim K(9, 6) As String
        'Dim KD(9, 6) As String
        Dim i As Integer
        Dim j As Integer


        'Biner kunci - 128 bit
        strKunci = StringtoBinary(pstrKey)



        '---- Pembentukan Key Enkripsi ----
   
        For i = 1 To 7
            'Kelompokkan ke 8 buah subkey (pjg 16 bit)
            For j = 1 To 128 Step 16

                'Tambah nKey
                nKey = nKey + 1
                If nKey = 7 Then
                    'Tambah Round
                    nRound = nRound + 1

                    'Reset nilai nKey
                    nKey = 1
                End If

                If (nRound & nKey) < 95 Then
                    'Kunci per round
                    KE(nRound - 1, nKey - 1) = strKunci.Substring(j - 1, j - 1 +16)***  
                End If
            Next

            'Untuk putaran terakhir tidak usah rotasi kiri
            If i <> 7 Then
                strKunci = FRotateLeftShift(strKunci, 25)
            End If
        Next