convert codes....

[faizal87]

hallo...can i get some knowladge...abo ut java script convert to V.B....how??lik e 'calculation downloadable',i 've get a formula calculate but in java script....how i want convert this language to V.B

This is formula in java script:

<script language="JavaS cript">
<!--
var gaji;
var cpekerja;
var cmajikan;
var semua;
var pilih;

function kira(form) {
pilih = form.pilihan.op tions[form.pilihan.se lectedIndex].value;
gaji = form.gaji.value ;

if (pilih == '' || gaji == '' || gaji == '0' || gaji == '0.00' || gaji == '0.0') {
alert('Please select year and your annual income for that year.'); } else { if (pilih == '1') {
cpekerja=5;
cmajikan=5;
form.cpekerja.v alue=cpekerja;
form.cmajikan.v alue=cmajikan;
} else if (pilih == '3') {
cpekerja=6;
cmajikan=7;
form.cpekerja.v alue=cpekerja;
form.cmajikan.v alue=cmajikan;
} else if (pilih == '4') {
cpekerja=9;
cmajikan=11;
form.cpekerja.v alue=cpekerja;
form.cmajikan.v alue=cmajikan;
} else if (pilih == '5') {
cpekerja=10;
cmajikan=12;
form.cpekerja.v alue=cpekerja;
form.cmajikan.v alue=cmajikan;
} else if (pilih=='6') {
cpekerja=11;
cmajikan=12;
form.cpekerja.v alue=cpekerja;
form.cmajikan.v alue=cmajikan;
} if (pilih=='7') {
cpekerja=9;
cmajikan=12;
form.cpekerja.v alue=cpekerja;
form.cmajikan.v alue=cmajikan;
}
cpekerja = (cpekerja*gaji)/100;
form.total.valu e = cpekerja

cmajikan = (cmajikan*gaji)/100;
form.total.valu e = cmajikan

cpekerja = eval(cpekerja);
cmajikan = eval(cmajikan);
semua = cpekerja + cmajikan;
form.total.valu e=Math.round(se mua*100)/100;
}
}

//-->
</script>

[Killer42]

<script language="JavaScript">
    <!--
    var gaji;
    var cpekerja;
    var cmajikan;
    var semua;
    var pilih;

    function kira(form) {
        pilih = form.pilihan.options[form.pilihan.selectedIndex].value;
        gaji = form.gaji.value;

        if (pilih == '' || gaji == '' || gaji == '0' || gaji == '0.00' || gaji == '0.0') {
            alert('Please select year and your annual income for that year.'); } else { if (pilih == '1') {
                cpekerja=5;
                cmajikan=5;
                form.cpekerja.value=cpekerja;
                form.cmajikan.value=cmajikan;
            } else if (pilih == '3') {
                cpekerja=6;
                cmajikan=7;
                form.cpekerja.value=cpekerja;
                form.cmajikan.value=cmajikan;
            } else if (pilih == '4') {
                cpekerja=9;
                cmajikan=11;
                form.cpekerja.value=cpekerja;
                form.cmajikan.value=cmajikan;
            } else if (pilih == '5') {
                cpekerja=10;
                cmajikan=12;
                form.cpekerja.value=cpekerja;
                form.cmajikan.value=cmajikan;
            } else if (pilih=='6') {
                cpekerja=11;
                cmajikan=12;
                form.cpekerja.value=cpekerja;
                form.cmajikan.value=cmajikan;
            } if (pilih=='7') {
                cpekerja=9;
                cmajikan=12;
                form.cpekerja.value=cpekerja;
                form.cmajikan.value=cmajikan;
            }
            cpekerja = (cpekerja*gaji)/100;
            [b]form.total.value = cpekerja[/b]

            cmajikan = (cmajikan*gaji)/100;
            [b]form.total.value = cmajikan[/b]

            cpekerja = eval(cpekerja);
            cmajikan = eval(cmajikan);
            semua = cpekerja + cmajikan;
            [b]form.total.value=Math.round(semua*100)/100;[/b]
        }
    }
      
    //-->
    </script>

First, a question. I realise that I'm dealing with a somewhat unfamiliar language. But surely setting the same variable (or control) three times (as highlighted above) would not serve much purpose? And what is the significance of the missing semicolons on these lines?

Anyway, here's my first draft...

Public Sub kira(frm As Form)

  Dim gaji, cpekerja, cmajikan, semua, pilih


' Sorry, I don't know how to translate this line...
'  pilih = frm.pilihan.options[form.pilihan.selectedIndex].value;

' This depends on the type of control. If it's a textbox for example, you'd want [b].Text[/b] rather than [b].value[/b]
   gaji = frm.gaji.value

  If pilih = "" or gaji = "" or gaji = "0" or gaji = "0.00' or gaji = "0.0" Then
    MessageBox "Please select year and your annual income for that year."
    Exit Sub
  End If

  Select case pilih
    Case "1"
     cpekerja = 5
     cmajikan = 5
     frm.cpekerja = cpekerja
     frm.cmajikan = cmajikan
' How come there's no 2?
    Case "3"
     cpekerja = 6
     cmajikan = 7
     frm.cpekerja = cpekerja
     frm.cmajikan = cmajikan
    Case "4"
     cpekerja = 9
     cmajikan = 11
     frm.cpekerja = cpekerja
     frm.cmajikan = cmajikan
    Case "5"
     cpekerja = 10
     cmajikan = 12
     frm.cpekerja = cpekerja
     frm.cmajikan = cmajikan
    Case "6"
     cpekerja = 11
     cmajikan = 12
     frm.cpekerja = cpekerja
     frm.cmajikan = cmajikan
    Case "7"
     cpekerja = 9
     cmajikan = 12
     frm.cpekerja = cpekerja
     frm.cmajikan = cmajikan
  End Select


  cpekerja = (cpekerja*gaji)/100;
  frm.total = cpekerja

  cmajikan = (cmajikan*gaji)/100;
  frm.total = cmajikan

'  cpekerja = eval(cpekerja);   What does this do?
'  cmajikan = eval(cmajikan);   What does this do?
  semua = cpekerja + cmajikan;
  frm.total=(semua*100)/100
End Sub

[sashi]

First, a question. I realise that I'm dealing with a somewhat unfamiliar language. But surely setting the same variable (or control) three times (as highlighted above) would not serve much purpose? And what is the significance of the missing semicolons on these lines?

Anyway, here's my first draft...

Public Sub kira(frm As Form)

  Dim gaji, cpekerja, cmajikan, semua, pilih


' Sorry, I don't know how to translate this line...
'  pilih = frm.pilihan.options[form.pilihan.selectedIndex].value;

' This depends on the type of control. If it's a textbox for example, you'd want [b].Text[/b] rather than [b].value[/b]
   gaji = frm.gaji.value

  If pilih = "" or gaji = "" or gaji = "0" or gaji = "0.00' or gaji = "0.0" Then
    MessageBox "Please select year and your annual income for that year."
    Exit Sub
  End If

  Select case pilih
    Case "1"
     cpekerja = 5
     cmajikan = 5
     frm.cpekerja = cpekerja
     frm.cmajikan = cmajikan
' How come there's no 2?
    Case "3"
     cpekerja = 6
     cmajikan = 7
     frm.cpekerja = cpekerja
     frm.cmajikan = cmajikan
    Case "4"
     cpekerja = 9
     cmajikan = 11
     frm.cpekerja = cpekerja
     frm.cmajikan = cmajikan
    Case "5"
     cpekerja = 10
     cmajikan = 12
     frm.cpekerja = cpekerja
     frm.cmajikan = cmajikan
    Case "6"
     cpekerja = 11
     cmajikan = 12
     frm.cpekerja = cpekerja
     frm.cmajikan = cmajikan
    Case "7"
     cpekerja = 9
     cmajikan = 12
     frm.cpekerja = cpekerja
     frm.cmajikan = cmajikan
  End Select


  cpekerja = (cpekerja*gaji)/100;
  frm.total = cpekerja

  cmajikan = (cmajikan*gaji)/100;
  frm.total = cmajikan

'  cpekerja = eval(cpekerja);   What does this do?
'  cmajikan = eval(cmajikan);   What does this do?
  semua = cpekerja + cmajikan;
  frm.total=(semua*100)/100
End Sub

Hi Killer,

It's Bahasa Melayu (Malay Language), i think he is a Malaysian. :)

[Killer42]

It's Bahasa Melayu (Malay Language), i think he is a Malaysian. :)

Thanks sashi. But I was referring to the javascript.

[Killer42]

...

...
  cpekerja = (cpekerja*gaji)/100[U];[/U]
...
  cmajikan = (cmajikan*gaji)/100[U];[/U]

Sorry, I forgot to remove the semicolons from these two lines. VB probably won't like them.