Conversion de C en Visual Basic

Question

Bonjour à tous, Y aurait-il une bonne âme pour me traduire ce morceau de code en Visual Basic ? Je connais à peine le C et je n'arrive pas à convertir ce morceau de code. Merci. #include #define Act_TanH(sum, bias) ( tanh(sum + bias) ) #define Act_IdentityPlusBias(sum, bias) (sum + bias) #define NULL (void *)0 for(member = 0; member < 15; member++) { Input[member]->act = in[member]; } for (member = 0; member < 10; member++) { unit = Hidden1[member]; sum = 0.0; for (source = 0; source < unit->NoOfSources; source++) { sum += unit->sources[source]->act * unit->weights[source]; } unit->act = Act_TanH(sum, unit->Bias); }; for (member = 0; member < 1; member++) { unit = Output1[member]; sum = 0.0; for (source = 0; source < unit->NoOfSources; source++) { sum += unit->sources[source]->act * unit->weights[source]; } unit->act = Act_IdentityPlusBias(sum, unit->Bias); }; for(member = 0; member < 1; member++) { out[member] = Units[Output[member]].act; }

NHenry · Answer

Bonjour

Version de VB ? (6, A, .NET 1/2/3/3.5) ?

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

vince152 · Answer

Version Visual Basic Express 2008 ou toute autre version de VB plus ancienne facilement comprehensible

Merci.

NHenry · Answer

Bonjour

Je ne vois pas la déclaration de la fonction (il devrait y avoir au moins un "main()") ?

for member as integer=0 to 14
  'Mot clé réservé (in)
  'Input et in sont déclarés où ? et sont de quels type ?
  Input(member).act=in(member) 
next member

for member as integer=0 to 9
  'Déclaration de unit et Hidden1 ?
  unit=Hidden1(member)
  sum=0 'Déclaré en flottant il me semble
  for source as integer=0 to unit.NoOfSources-1
    sum+=unit.sources(source).act*unit.weights(source)
  next source
  
  unit.act=Math.ATan(sum + unit->Bias) 'Pas sur de mon code ici, mais _
    regarde dans l'espace de nom System.Math
Next member

member=0 'La boucle indique que member ne peux valoir que 0
'Déclaration de Output1 ?
unit=Output1(member)

sum=0 'Déclaré en flottant il me semble
for source as integer=0 to unit.NoOfSources-1
  sum+=unit.sources(source).act*unit.weights(source)
next source

unit.act=sum + unit.Bias

'! Units<>unit
out(member)=Units(Output(member)).act, ----
(Coloration syntaxique automatique par Kenji)

voilà pour la traduction brut, mais si tu était un peu plus exhaustif, ce serais plus clair, car là, ton code est peu compréhensible (d'où des erreurs de traduction possible).

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

vince152 · Answer

Merci NHenry pour ton aide. Effectivement j'ai donné s'une partie du code pour ne pas alourdir le message. Je te donne le code dans son intégralité afin de compléter les incertitudes, car pour l'instant je ne suis pas en mesure de l'incorporer dans mon programme plus général. Et merci encore. #include #define Act_TanH(sum, bias) ( tanh(sum + bias) ) #define Act_IdentityPlusBias(sum, bias) (sum + bias) #define NULL (void *)0 typedef struct UT { float act; /* Activation */ float Bias; /* Bias of the Unit */ int NoOfSources; /* Number of predecessor units */ struct UT **sources; /* predecessor units */ float *weights; /* weights from predecessor units */ } UnitType, *pUnit; /* Forward Declaration for all unit types */ static UnitType Units[27]; /* Sources definition section */ static pUnit Sources[] = { Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 16, Units + 17, Units + 18, Units + 19, Units + 20, Units + 21, Units + 22, Units + 23, Units + 24, Units + 25, }; /* Weigths definition section */ static float Weights[] = { -0.332290, 0.554470, -0.875510, -0.273540, 0.990710, 0.297570, 0.083810, 0.545190, -0.896580, -0.857590, -0.781420, -0.258840, -0.546540, 0.310210, 0.549410, 0.040750, 0.763940, -0.894040, 0.501990, 0.154380, 0.481320, 0.240510, -0.172110, -0.267720, -0.497810, -0.787430, -1.048330, -0.779220, 0.915350, -1.020140, -0.019660, 0.466300, -0.322790, -0.081260, 0.430610, -0.806390, 0.004170, -0.436010, 0.776940, -0.190650, -0.705230, 0.772220, 0.056340, -0.299310, 1.356110, 0.708780, 0.398440, -0.519550, 0.195130, -0.536890, 0.992870, -0.703820, 0.602140, -0.747570, -0.567610, 0.113070, -0.734590, 0.211250, 1.062180, 0.350860, -0.200320, -0.065640, -0.140820, -0.712130, -1.046490, 0.550180, 0.569510, 0.833170, 0.396470, -0.043510, -0.202580, 0.363380, 0.731050, 0.258480, -0.865880, 0.587600, 1.097790, 0.606540, 0.890090, 0.616390, 0.304030, -0.312200, -0.584840, 0.343410, 0.299260, 0.735180, -0.476550, 0.147080, -0.517080, -0.735970, 0.092680, 0.466640, -0.329300, 0.519270, 0.504970, -0.234600, -0.502410, -0.670230, -0.442380, -0.153870, -0.557630, 0.344810, 0.829750, 0.224160, -0.358660, 0.523970, 0.085070, 0.552030, -0.570720, -0.195960, -0.910280, -0.751670, -0.286480, 0.703240, 0.063440, -0.141150, 1.206460, -0.105370, 0.124590, -0.821890, 0.163360, -0.650790, -0.846370, 0.997950, -0.412870, 0.437270, 0.461860, 0.964790, 0.430120, -0.863620, -0.722020, -0.209900, 0.295800, -0.885960, -0.720910, -0.058880, 0.338230, 0.842270, 0.108260, 0.429220, -0.098260, -0.042030, 0.440400, -0.011870, -0.537080, -0.545270, -0.189260, 0.235460, 0.605480, 0.739500, -0.768730, 0.529100, 0.352700, 0.156150, 0.000570, 1.113760, -0.045490, -0.337270, -0.288530, -0.422530, }; /* unit definition section (see also UnitType) */ static UnitType Units[27] = { { 0.0, 0.0, 0, NULL , NULL }, { /* unit 1 (noName) */ 0.0, -0.847670, 0, &Sources[0] , &Weights[0] , }, { /* unit 2 (noName) */ 0.0, 0.132400, 0, &Sources[0] , &Weights[0] , }, { /* unit 3 (noName) */ 0.0, -0.034350, 0, &Sources[0] , &Weights[0] , }, { /* unit 4 (noName) */ 0.0, -0.366220, 0, &Sources[0] , &Weights[0] , }, { /* unit 5 (noName) */ 0.0, 0.236210, 0, &Sources[0] , &Weights[0] , }, { /* unit 6 (noName) */ 0.0, 0.599250, 0, &Sources[0] , &Weights[0] , }, { /* unit 7 (noName) */ 0.0, -0.252300, 0, &Sources[0] , &Weights[0] , }, { /* unit 8 (noName) */ 0.0, 0.991430, 0, &Sources[0] , &Weights[0] , }, { /* unit 9 (noName) */ 0.0, 0.169170, 0, &Sources[0] , &Weights[0] , }, { /* unit 10 (noName) */ 0.0, -0.869230, 0, &Sources[0] , &Weights[0] , }, { /* unit 11 (noName) */ 0.0, 0.406980, 0, &Sources[0] , &Weights[0] , }, { /* unit 12 (noName) */ 0.0, -0.478470, 0, &Sources[0] , &Weights[0] , }, { /* unit 13 (noName) */ 0.0, 0.296370, 0, &Sources[0] , &Weights[0] , }, { /* unit 14 (noName) */ 0.0, 0.044360, 0, &Sources[0] , &Weights[0] , }, { /* unit 15 (noName) */ 0.0, 0.738710, 0, &Sources[0] , &Weights[0] , }, { /* unit 16 (noName) */ 0.0, -0.180330, 15, &Sources[0] , &Weights[0] , }, { /* unit 17 (noName) */ 0.0, -1.028760, 15, &Sources[15] , &Weights[15] , }, { /* unit 18 (noName) */ 0.0, -0.975530, 15, &Sources[30] , &Weights[30] , }, { /* unit 19 (noName) */ 0.0, -0.807920, 15, &Sources[45] , &Weights[45] , }, { /* unit 20 (noName) */ 0.0, -0.659970, 15, &Sources[60] , &Weights[60] , }, { /* unit 21 (noName) */ 0.0, 0.022540, 15, &Sources[75] , &Weights[75] , }, { /* unit 22 (noName) */ 0.0, 0.117570, 15, &Sources[90] , &Weights[90] , }, { /* unit 23 (noName) */ 0.0, -0.072860, 15, &Sources[105] , &Weights[105] , }, { /* unit 24 (noName) */ 0.0, 0.340170, 15, &Sources[120] , &Weights[120] , }, { /* unit 25 (noName) */ 0.0, 0.960340, 15, &Sources[135] , &Weights[135] , }, { /* unit 26 (noName) */ 0.0, -0.269590, 10, &Sources[150] , &Weights[150] , } }; int thales(float *in, float *out, int init) { int member, source; float sum; enum{OK, Error, Not_Valid}; pUnit unit; /* layer definition section (names & member units) */ static pUnit Input[15] = {Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, Units + 11, Units + 12, Units + 13, Units + 14, Units + 15}; /* members */ static pUnit Hidden1[10] = {Units + 16, Units + 17, Units + 18, Units + 19, Units + 20, Units + 21, Units + 22, Units + 23, Units + 24, Units + 25}; /* members */ static pUnit Output1[1] = {Units + 26}; /* members */ static int Output[1] = {26}; for(member = 0; member < 15; member++) { Input[member]->act = in[member]; } for (member = 0; member < 10; member++) { unit = Hidden1[member]; sum = 0.0; for (source = 0; source < unit->NoOfSources; source++) { sum += unit->sources[source]->act * unit->weights[source]; } unit->act = Act_TanH(sum, unit->Bias); }; for (member = 0; member < 1; member++) { unit = Output1[member]; sum = 0.0; for (source = 0; source < unit->NoOfSources; source++) { sum += unit->sources[source]->act * unit->weights[source]; } unit->act = Act_IdentityPlusBias(sum, unit->Bias); }; for(member = 0; member < 1; member++) { out[member] = Units[Output[member]].act; } return(OK); }

NHenry · Answer

Bonjour

Public class UnitType
  act as single
  Bias as single
  NoOfSources as integer
  sources as UnitType(,)
  weights as single()
  
  public sub SetValues(byval pAct as single,byval pBias as single, byval _
    pNoOfSource as integer, byval pSources as UnitType(,), byval pWeights as _
    single())
    'A faire assignation, de simples =
  End sub
End Structure

'Quelle différence entre pUnit et UnitType ?

private Units(26) as new UnitType

private Sources as UnitType()=new UnitType(){Units(0), ...} 'Là c'est sûr il _
  faut utiliser une classe, revoir pour éviter cette gestion

private Weights() as single=new single(){-0.332290, 0.554470, -0.875510, _
  -0.273540, 0.990710, ...}

public sub Init() 'Indispensable pour le code des lignes 71 à 206
  Units(0).SetValues(0, 0, 0, new UnitType(,){{}} , new single(){})
  Units(1).SetValues(0, -0.847670, 0, new UnitType(,){Sources(0)},Weights) _
    'ATTENTION : Pour le 4ième paramètres, je ne suis pas sur que ça marche
  'Le dernier est passé par valeur, donc le tableau aura des valeur propres à _
    lui et non commune avec Weights() définit avant la Sub
  ...
End sub

public function Thales(byref pIn as single,byref pOut as single, byval pInit as _
  integer)
  dim lMember, lSource as Integer
  dim lSum as single
  enum{OK, Error, Not_Valid}; 'LIGNE NON TRADUITE, revoir son utilisation
  dim lUnit as UnitType=new UnitType()
  
  'Layer definition section (names & member units)
  static lInput(14) as UnitType=new UnitType(){Units(1),Units(2), ...}'Members
  
  static lHidden(9) as UnitType=new UnitType(){Units(16),Units(17),...}'Members
  
  static lOutput(0) as UnitType=new UnitType(){Units(26)}'Ne fait pas de _
    référence vers Units(26)
  
  static lOutput1(0) as integer=26
  
  'Pour le reste, voir ma réponse précédente.
  
  return(OK); 'Revoir l'énumération
}

'Je ne garanti pas un fonctionnement immédiat, il faudra vraissemblablement _
  adapter., ----
(Coloration syntaxique automatique par Kenji)

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

vince152 · Answer

Ouh là ! Ca se corse. Je sui un débutant. J'ai essayé de coder la dernière partie comme ci-après. Est-ce que mon code correspond à la dernière partie aux noms de variables près ? Parce que je n'arrrive toujopurs pas à recalculer exactement les sorties du modèle.

For

 i% = 1 
To ninput%unit(i%) = unit(i%) + bias(i%)

Next i%

For i% = ninput% + 1 
To nhidden% + ninput%sum = 0

For j% = 1 
To ninput%sum += +w(i%, j%) * unit(j%)

Next j%unit(i%) = Math.Tanh(sum + bias(i%))

Next i%

For i% = nhidden% + ninput% + 1 
To nhidden% + ninput% + noutput%sum = 0

For j% = ninput% + 1 
To nhidden% + ninput%sum += +w(i%, j%) * unit(j%)

Next j%unit(i%) = (sum) + bias(i%)

Next i%

NHenry · Answer

Bonjour

Evite les % et autres $ ou # pour spécifier un type, il faut le dé&clarer correctement (met Option Explicit et Option Strict à On).
Astuce personnelle : mets une majuscule dans tes noms de variable (VB n'étant pas sensible à la casse), cela te permettra de voir rapidement si tu as déclaré ta variable avant et si tu n'as pas fais de faute de frappe.
Je reprend ton code :
Dim nInput as integer
dim nHidden as integer
dim nOutput as integer
Dim sum,w(,),bias() as double 'ou Single
'Et les autres déclarations nécessaires

For i as integer = 1 To ninput
  unit(i) = unit(i) + bias(i)
Next i

For i as integer = ninput + 1 To nhidden + ninput
  sum = 0
  For j as integer = 1 To ninput
    sum += w(i, j) * unit(j)
  Next j
  unit(i) = Math.Tanh(sum + bias(i))
Next i

For i as integer = nhidden + ninput + 1 To nhidden + ninput + noutput
  sum = 0
  For j as integer = ninput + 1 To nhidden + ninput
    sum += w(i, j) * unit(j)
  Next j
  unit(i) = (sum) + bias(i)
Next i, ----
(Coloration syntaxique automatique par Kenji)

Ne connaissant pas l'algorithme mathématique utilisé, je ne puis faire de correction sur la logique.
J'ai quand même constaté que tu utilises Unit(#) en tant que valeur alors qu'il s'agit d'une classe (comportant des attributs), donc je suppose que tu dois avoir un pb quelque part.

Si tu as une idée du comment ça doit faire les calcul (algorithme ou algorigramme), je pourrais être plus précis.

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

vince152 · Answer

Les w sont les weight; les sum sont les sum, bias sont bias. Je m'interroge sur la propriété .act et sur la fonction in.

Ai-je bien transcris la propriété .Act comme il faut ainsi que la fonction in ?

Pour info , il s'agit d'uin reseau de neurones .  15 entrées , 10 neurones cachés, une sortie (26) . Mais je sais pas si ca va t'aider. Ce que je cherche à faire c'est à recalculer le modele en fonction des entrées (15). Mais je ne suis pas sur des fonctions mathématiques utilisées. C'est pourquoi je m'interroge sur .act et in : que foni-ils sur les données : une sommation avec le biais pour les 15 entrées=> 15 entrées activées , une  application de la fonction tanh(sum,bias) sur les entrées activées pour les neurones cachés, une sommation avec le biais pour la sortie ?

Je sui toujours bloqué.

NHenry · Answer

Bonjour

Pour info, je n'ai jamais codé de réseau neuronaux, je n'ai pas encore chercher à comprendre comment ça marche. Je ne te serais par conséquent pas d'un grande aide concernant la logique utilisée. dsl.

Je te conseillerais peut être de poser un autre message, en pointant vers celui-ci pour que les autres voient le chemin parcouru, parce que là je serais incapable de t'aider d'avantage, la retranscription du code étant ma seule vue du problème, je ne pourrais pas t'aider plus que sur des problèmes syntaxique.

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

nabilenit · Answer

Thanks

Conversion de C en Visual Basic

10 réponses

Votre réponse

Discussions similaires