Page 61 - Modul web baru
P. 61

www.flipbuilder.com                                    www.flipbuilder.com                                56  www.flipbuilder.com







                              <td><input type="checkbox" name="kursus" value="inggris">Bahasa
                        Inggris<br>
                                <input type="checkbox" name="kursus" value="komputer">Komputer</td>
                            </tr>
 www.flipbuilder.com                                    www.flipbuilder.com                                    www.flipbuilder.com
                          </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.


 www.flipbuilder.com                                    www.flipbuilder.com                                    www.flipbuilder.com
















 www.flipbuilder.com                                    www.flipbuilder.com                                    www.flipbuilder.com













                     Praktikum 2 (validasi data)
                     ❑  Bukalah kembali file form.html.
 www.flipbuilder.com                                    www.flipbuilder.com                                    www.flipbuilder.com
                     ❑  Tambahkan script berikut pada bagian head :
                        <script language="VBscript">
                        <!--
                        sub Bsubmit_OnClick

                            dim TheForm

                            Set Theform= document.form_kursus

                                Msgbox " Input anda salah"
                            Else
                                   if IsNumerik(TheForm.nama.value) then
                                TheForm.submit

 www.flipbuilder.com                                    www.flipbuilder.com                                    www.flipbuilder.com
                            End If
                        End Sub
                        -->



                     Modul Pemrograman Web SMKN 2 Mojokerto






 www.flipbuilder.com                                    www.flipbuilder.com                                    www.flipbuilder.com
   56   57   58   59   60   61   62   63   64   65   66