Salve a tutti!
Sto cercando di mettere in atto l'algoritmo per il calcolo del codice fiscale e sono arrivato all'ultima parte, ovvero quella del calcolo della lettera di controllo. Io l'avevo pensata così: dopo aver diviso i 15 caratteri trovati per il codice fiscale in quelli di posizione pari e in quelli di posizione dispari, inserirli in due combobox diverse. Prendiamo poi come esempio la combobox dei caratteri pari: voglio confrontare ogni elemento di questa combobox con ogni elemento di una combobox avente al suo interno tutto l'alfabeto. Non appena trovo il corrispondente della seconda combobox al primo elemento della prima e aver preso il suo indice, passo al secondo e così via. Solo che io non so come fare questo confronto..
In altre parole, se per esempio la combobox11 ha come item: H D B G voglio prendere la H, andare a cercarla nella combobox7 fin quando non trovo che corrisponde, e prendere il suo index, che dovrebbe essere 7, poi passo alla D e così via.
Vi mostro anche la parte di codice:
Dim alfabeto As String
Dim cifre_p As Integer
Dim cifre_d = New String() {1, 0, 5, 7, 9, 13, 15, 17, 19, 21, 2, 4, 18, 20, 11, 3, 6, 8, 12, 14, 16, 10, 22, 25, 24, 23}
alfabeto = ""
For Each c In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
alfabeto = c
ComboBox7.Items.Add(alfabeto)
ComboBox9.Items.Add(alfabeto)
Next
For j As Integer = 0 To 25
cifre_p = j
ComboBox8.Items.Add(cifre_p)
Next
ComboBox10.Items.AddRange(cifre_d)
Dim div_string As String
Dim store_pari As String
Dim store_dispari As String
Dim index2 As String
div_string = Label10.Text
For k = 2 To div_string.Length Step +2
store_pari = Mid(div_string, k, 1)
ComboBox11.Items.Add(store_pari)
Next
For j = 1 To div_string.Length Step +2
store_dispari = Mid(div_string, j, 1)
ComboBox12.Items.Add(store_dispari)
Next
Sto cercando di mettere in atto l'algoritmo per il calcolo del codice fiscale e sono arrivato all'ultima parte, ovvero quella del calcolo della lettera di controllo. Io l'avevo pensata così: dopo aver diviso i 15 caratteri trovati per il codice fiscale in quelli di posizione pari e in quelli di posizione dispari, inserirli in due combobox diverse. Prendiamo poi come esempio la combobox dei caratteri pari: voglio confrontare ogni elemento di questa combobox con ogni elemento di una combobox avente al suo interno tutto l'alfabeto. Non appena trovo il corrispondente della seconda combobox al primo elemento della prima e aver preso il suo indice, passo al secondo e così via. Solo che io non so come fare questo confronto..
In altre parole, se per esempio la combobox11 ha come item: H D B G voglio prendere la H, andare a cercarla nella combobox7 fin quando non trovo che corrisponde, e prendere il suo index, che dovrebbe essere 7, poi passo alla D e così via.
Vi mostro anche la parte di codice:
Dim alfabeto As String
Dim cifre_p As Integer
Dim cifre_d = New String() {1, 0, 5, 7, 9, 13, 15, 17, 19, 21, 2, 4, 18, 20, 11, 3, 6, 8, 12, 14, 16, 10, 22, 25, 24, 23}
alfabeto = ""
For Each c In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
alfabeto = c
ComboBox7.Items.Add(alfabeto)
ComboBox9.Items.Add(alfabeto)
Next
For j As Integer = 0 To 25
cifre_p = j
ComboBox8.Items.Add(cifre_p)
Next
ComboBox10.Items.AddRange(cifre_d)
Dim div_string As String
Dim store_pari As String
Dim store_dispari As String
Dim index2 As String
div_string = Label10.Text
For k = 2 To div_string.Length Step +2
store_pari = Mid(div_string, k, 1)
ComboBox11.Items.Add(store_pari)
Next
For j = 1 To div_string.Length Step +2
store_dispari = Mid(div_string, j, 1)
ComboBox12.Items.Add(store_dispari)
Next