Page 58 - Modu Web Kelas XI
P. 58

53



                                <input type="checkbox" name="kursus" value="komputer">Komputer</td>
                            </tr>
                          </table>
                          <p><input type="submit" value="Submit" name="Bsubmit"><input type="reset"
                        value="Reset" name="Breset"></p>
                        </form>
                        </body>
                        </html>

                     ❑  Simpan dengan nama form.html
                     ❑  Lihat hasilnya dengan browser.


































                     Praktikum 2 (validasi data)
                     ❑  Bukalah kembali file form.html.
                     ❑  Tambahkan script berikut pada bagian head :
                        <script language="VBscript">
                        <!--
                        sub Bsubmit_OnClick
                            dim TheForm
                            Set Theform= document.form_kursus
                            if IsNumerik(TheForm.nama.value) then
                                Msgbox " Input anda salah"
                            Else
                                TheForm.submit
                            End If
                        End Sub
                        -->
                        </script>
                     ❑  Jalankan dengan browser.



                     Modul Pemrograman Web SMKN 2 Mojokerto
   53   54   55   56   57   58   59   60   61   62   63