Visual Basic

1	10197700	DA0518	2	DA0532	1	DA0539	1	DA0546	2	DA0557	2	DA0550	0
2	10197701	DA0005	2	DA0532	1	DA0539	1	DA0040	2	DA0113	2	DA0550	0
3	10197702	DA0005	3	DA0075	1	DA0059	1	DA0040	2	DA0107	2	DA0091	0
4	10197703	DA0005	4	DA0077	1	DA0061	1	DA0040	2	DA0109	2	DA0093	0

10197700	
DA0518	2
DA0532	1
DA0539	1
DA0546	2
DA0557	2
10197701	
DA0005	2
DA0532	1
DA0539	1
DA0040	2
DA0113	2
10197702	
DA0005	3
DA0075	1
DA0059	1
DA0040	2
DA0107	2

//This code is working but i want is vice versa of the sample output plus current year...
Public Sub incrPR()
        Dim curValue As Integer
        Dim result As String
        Dim s As String = "PR"
        Dim yr As String = Now.Year.ToString()
        Using con As SqlConnection = New SqlConnection(ConString)
            con.Open()
            Dim cmd = New SqlCommand("Select MAX(SpecialOrderNo) FROM SpecialOrder", con)
            result = cmd.ExecuteScalar().ToString()
            cmd.Parameters.Clear()
            If String.IsNullOrEmpty(result) Then
                result = "PR000"
            End If
            result = result.Substring(3)
            Int32.TryParse(result, curValue)
            curValue = curValue + 1
            result = s + curValue.ToString("D3")
            txtno.Text = result
        End Using
    End Sub

//Sample output: PR001, PR002

//Question: How to Increment Number with current year and Characters? 
//Expected sample output: 001-2018-PR

//Thank you

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.