Porting C to VB

[Marco Giunio Silano]

Non chiedetemi perché, ma devo importare esattamente questo

int A(DWORD a, BYTE b)
{
	switch (a)
	{
	case 0:
	case 1:
	case 2:
	case 3:
	case 4:
	case 5:	
	{
		//code
		break;
	}
	default:
	{
		if (b != 0)
			return (-1);
		break;
	}
	
	return (0);
}

in VB...
stamane sono stanco, ma come faccio?

saluti saluti...

EDIT
i case hanno un'esecuzione di codice

[Della17]

Private/Public Function A (ByVal/ByRef a As ... , ByVal/ByRef b As Byte) As Integer

Select Case a 
         Case 0
           'Niente
         Case 1
           'Niente
         Case 2
           'Niente
         Case 3
           'Niente
         Case 4
           'Niente
         Case 5
           Break

         Case Else
              If b <> 0 Then
                 A = -1
              End If
End Select

A = 0

End Function

Ho tradotto alla lettera più o meno ci dovremmo essere!

[Marco Giunio Silano]

Originariamente inviato da Della17

Private/Public Function A (ByVal/ByRef a As ... , ByVal/ByRef b As Byte) As Integer

Select Case a 
         Case 0
           'Niente
         Case 1
           'Niente
         Case 2
           'Niente
         Case 3
           'Niente
         Case 4
           'Niente
         Case 5
           Break

         Case Else
              If b <> 0 Then
                 A = -1
              End If
End Select

A = 0

End Function

Ho tradotto alla lettera più o meno ci dovremmo essere!

Scusa, ho editato dopo, a me serve che nel caso la variabile a valga 0 o 1 o 2 o 3 o 4 o 5 esegua del codice, in tutti gli altri casi dell'altro codice.
Potrei provare debaggando vb, ma non un compilatore sotto le mani e devo dare il codice senza farlo girare (pensa che culo), quindi mi chiedo: se a=0, esegue il codice di a=5?
Grazie.

[Marco Giunio Silano]

ok, mi sparo un po' di if or anche se non mi piace, questo lo compila?

If ((a = 0) or (a = 1) or (a = 2) or (a = 3) or (a = 4) or (a = 5)) Then
	''code
Else
	''code
End If

[Della17]

potresti fare usare una if oppure una serie di or nella condizione del case...se no semplicmente questo codice che fai prima

If a >= 0 and a <= 5 Then
  'Istruzioni
Else
  'Istruzioni
End If

che fai prima ed è piu pulito che la serie di OR

[Marco Giunio Silano]

Originariamente inviato da Della17

potresti fare usare una if oppure una serie di or nella condizione del case...se no semplicmente questo codice che fai prima

If a >= 0 and a <= 5 Then
  'Istruzioni
Else
  'Istruzioni
End If

che fai prima ed è piu pulito che la serie di OR

Tu hai ragione, ma 0,1,2.. (per semplificare ho scritto dei numeri) sono in realtà delle costanti a 32bit con valore da me non cotrollato. Per quello volevo usare uno switch e sono cotretto ad implementare un'orrenda serie di or...

[PFed]

Select Case A 
         Case 0,1,2,3,4
           'Codice da eseguire nei casi A valga 0 o 1 o 2 o 3 o 4
         Case 5
           'Codice da eseguire nei casi A valga 5
         Case Else
           'Codice da eseguire in tutti gli altri casi
End Select

[Della17]

Originariamente inviato da Marco Giunio Silano

Tu hai ragione, ma 0,1,2.. (per semplificare ho scritto dei numeri) sono in realtà delle costanti a 32bit con valore da me non cotrollato. Per quello volevo usare uno switch e sono cotretto ad implementare un'orrenda serie di or...

Ah okkey, allora prova a fare come ti ha scritto sopra PFed

[Marco Giunio Silano]

Originariamente inviato da PFed

Select Case A 
         Case 0,1,2,3,4
           'Codice da eseguire nei casi A valga 0 o 1 o 2 o 3 o 4
         Case 5
           'Codice da eseguire nei casi A valga 5
         Case Else
           'Codice da eseguire in tutti gli altri casi
End Select

ecco questo è pulito!

[Marco Giunio Silano]

Originariamente inviato da Della17

Ah okkey, allora prova a fare come ti ha scritto sopra PFed

grassie

[Marco Giunio Silano]

Visto che siete volenterosi, e questa?

BYTE elencoCoint[][] = 
{
	"primo",
	"secondo",
	"terzo",
	"quarto",
};

[Della17]

Per usare gli array in vb ci sono vari modi, uno simile al tuo esempio in C è

Dim mioArray As Variant
oppure (dovrebbe andare con tutti e due)
Dim mioArray

mioArray = Array(-> elenco valori separati da virgola)

'Per accederci scriverai ad esempio mioArray(1)

se no altro metodo

Dim mioArray() As TuoTipo 
'Qui dovrai utilizzare la funzione ReDim per ridimensionare, quando avrai bisogno, alla grandezza desiderata

Dim mioArray(n To m) As TuoTipo
Dim mioArray(n) As TuoTipo 

'Riempi sempre con mioArray(n) = valore

con OptionBase 1/0 setti se far partire indice inferiore da 0 o da 1

[Marco Giunio Silano]

Originariamente inviato da Della17

Per usare gli array in vb ci sono vari modi, uno simile al tuo esempio in C è

Dim mioArray As Variant
oppure (dovrebbe andare con tutti e due)
Dim mioArray

mioArray = Array(-> elenco valori separati da virgola)

'Per accederci scriverai ad esempio mioArray(1)

se no altro metodo

Dim mioArray() As TuoTipo 
'Qui dovrai utilizzare la funzione ReDim per ridimensionare, quando avrai bisogno, alla grandezza desiderata

Dim mioArray(n To m) As TuoTipo
Dim mioArray(n) As TuoTipo 

'Riempi sempre con mioArray(n) = valore

con OptionBase 1/0 setti se far partire indice inferiore da 0 o da 1

wow ma non c'è modo di inizializzarlo nel momento della dichiarazione?
Il tuo primo esempio: dichiaro il buffer, ma lo inizializzo in esecuzione codice. Non che sia male, ma preferisco avere tutte le cose (ove possibile) nello stesso punto, per evitare fra qualche tempo la famosa frase "ma dov'è che lo inizializzavo?"
Grazie.

[Della17]

Originariamente inviato da Marco Giunio Silano

wow ma non c'è modo di inizializzarlo nel momento della dichiarazione?
Il tuo primo esempio: dichiaro il buffer, ma lo inizializzo in esecuzione codice. Non che sia male, ma preferisco avere tutte le cose (ove possibile) nello stesso punto, per evitare fra qualche tempo la famosa frase "ma dov'è che lo inizializzavo?"
Grazie.

Ho un brutta notizia per te In Visual Basic 6.0 non si può inizializzare una variabile quando la dichiari

Sei obbligato a farlo dopo a livello di codice!

Se stai invece sviluppando in vb.net penso, e spero , abbiano aggiunto questa possibilità!

[PFed]

E' possibile in VB.NET, ma non in VB6!

Occhio ad utilizzare l'option base, sempre meglio lavorare con il valore di default!

Infine evita di utilizzare il Variant (se non strettamente necessario, e anche in questo caso valuta la possibilità di aver fatto qualche zozzata e che sia possibile ripulirla).

Nel caso postato io userei semplicemente le String

[Marco Giunio Silano]

Originariamente inviato da Della17

Ho un brutta notizia per te In Visual Basic 6.0 non si può inizializzare una variabile quando la dichiari

ma i linguaggi "nati dopo" perdono i pezzi per strada?

Originariamente inviato da Della17

Sei obbligato a farlo dopo a livello di codice!

Così farò

Originariamente inviato da Della17

Se stai invece sviluppando in vb.net penso, e spero , abbiano aggiunto questa possibilità!

meglio complicarsi poco la vita

Grazie, sei un amore.

[Della17]

Originariamente inviato da PFed

E' possibile in VB.NET, ma non in VB6!

Infine evita di utilizzare il Variant ...

Vero, dimenticanza, nel caso uno è possibile utilizzarlo con tutti i tipi di dato.

[Della17]

Originariamente inviato da Marco Giunio Silano

Grazie, sei un amore.

Amico vade retro

[Marco Giunio Silano]

Originariamente inviato da PFed

E' possibile in VB.NET, ma non in VB6!

Occhio ad utilizzare l'option base, sempre meglio lavorare con il valore di default!

Infine evita di utilizzare il Variant (se non strettamente necessario, e anche in questo caso valuta la possibilità di aver fatto qualche zozzata e che sia possibile ripulirla).

Nel caso postato io userei semplicemente le String

Ok, anche se è abitudine ragionare con gli index 0, lascerò che partano da 1.
Dim buffer As String, questo intendi?

[PFed]

Originariamente inviato da Marco Giunio Silano

Ok, anche se è abitudine ragionare con gli index 0, lascerò che partano da 1.
Dim buffer As String, questo intendi?

Option Base 0 è il default.
Option Base 1 lo sconsiglio per vari motivi.

Dim buffer() As String - questo intendo!