Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <html><center>
- <?php
- include("koneksi.php");
- if(!isset($_GET['idpertanyaan'])){
- //tampilkan pertanyaan pertama
- $sqlp = "select * from diagnosa_nyamuk where mulai='Y'";
- $rs=mysql_query($sqlp);
- $data=mysql_fetch_array($rs);
- //bentuk pertanyaan
- echo "<form>";
- echo "<CENTER><H1>SISTEM PAKAR DIAGNOSA PENYAKIT </H1></CENTER>";
- echo "<CENTER><H1>YANG DISEBABKAN OLEH NYAMUK</H1></CENTER>";
- echo "<CENTER><img src='nyamuk.jpg' WIDTH='348' HEIGHT='257' BORDER=0 ALT=''></CENTER>";
- echo "<h1>DIAGNOSA</h1>";
- echo $data['solusi_dan_pertanyaan']."<br>";
- echo "<input type='radio' name='idpertanyaan' value='".$data['bila_benar']."'>Ya<br>";
- echo "<input type='radio' name='idpertanyaan' value='".$data['bila_salah']."'>Tidak<br>";
- echo "<input type='submit' value='Lanjut >> ' >";
- echo "</form>";
- echo "<p>copyright by AGGY & GUSTY</p>";
- }else{
- //tampilkan pertanyaan pertama
- $idsolusi=$_GET['idpertanyaan'];
- $sqlp = "select * from diagnosa_nyamuk where id=$idsolusi";
- $rs=mysql_query($sqlp);
- $data=mysql_fetch_array($rs);
- //bentuk pertanyaan
- echo "<form>";
- echo "<CENTER><H1>SISTEM PAKAR DIAGNOSA PENYAKIT </H1></CENTER>";
- echo "<CENTER><H1>YANG DISEBABKAN OLEH NYAMUK</H1></CENTER>";
- echo "<CENTER><img src='nyamuk.jpg' WIDTH='348' HEIGHT='257' BORDER=0 ALT=''></CENTER>";
- echo "<h1>DIAGNOSA</h1>";
- //---------------DI SINI LHO MAS --------------
- echo nl2br($data['solusi_dan_pertanyaan'])."<br>";
- if($data['selesai']!="Y"){
- echo "<input type='radio' name='idpertanyaan' value='".$data['bila_benar']."'>Ya<br>";
- echo "<input type='radio' name='idpertanyaan' value='".$data['bila_salah']."'>Tidak<br>";
- echo "<input type='submit' value='Lanjut >> ' >";
- }else{
- //jika ingin menambah pertanyaan
- }
- echo "</form>";
- }
- ?>
- <br>
- <a href="http://localhost/sistempakarkesehatan" ><h3>KEMBALI KE HOME</h3> </a> </center>
- </html>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement