convert codes....

[faizal87]

hallo...can i get some knowladge...about java script convert to V.B....how??like '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="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;
form.total.value = cpekerja

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

cpekerja = eval(cpekerja);
cmajikan = eval(cmajikan);
semua = cpekerja + cmajikan;
form.total.value=Math.round(semua*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;
            form.total.value = cpekerja
 
            cmajikan = (cmajikan*gaji)/100;
            form.total.value = cmajikan
 
            cpekerja = eval(cpekerja);
            cmajikan = eval(cmajikan);
            semua = cpekerja + cmajikan;
            form.total.value=Math.round(semua*100)/100;
        }
    }
 
    //-->
    </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 .Text rather than .value
   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 .Text rather than .value
   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;
...
  cmajikan = (cmajikan*gaji)/100;
 

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