Quantcast
Channel: Visual Basic Tips and Tricks
Viewing all articles
Browse latest Browse all 2212

Confrontare ogni elemento di una combobox con quello di un'altra

$
0
0
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


Viewing all articles
Browse latest Browse all 2212

Trending Articles


HOY PANGIT, MAGBAYAD KA!


Henry el monstruo feliz para colorear e imprimir


Dama y vagabundo para pintar


Girasoles para colorear


Good Morning Quotes


RE: Mutton Pies (jameskoiman)


Hagibis (1946) by Francisco V. Coching


Ka riam ka beit bad ka por riam


Vimeo Create - Video Maker & Editor 1.6.0 by Vimeo Inc


Vimeo 3.42.1 by Vimeo Inc