arieagung2

Untitled

Jan 20th, 2017
664
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. sub main
  2.  
  3.     print ” SELAMAT DATANG ”
  4.     sleep 1000
  5.     print ” silakan daftar sebelum masuk ”
  6.     sleep 1000
  7.  
  8.     REM bagian deklarasi variable lazimnya ditempatkan
  9.     REM di bagian paling atas
  10.    
  11.     dim password1 as string
  12.     dim nama as string
  13.     dim email as string
  14.     dim password as string
  15.     dim pendaftaran as string
  16.     dim email2 as string
  17.     dim password2 as string
  18.  
  19.     REM perintah ini mungkin maksudnya password1 harus = password ya?
  20.     REM variable password saat ini masih kosong
  21.     REM variable password1 pun sama masih kosong
  22.     REM jadi perintah ini bisa dihilangkan.
  23.    
  24.     password1 = password
  25.  
  26.     input ” nama “,nama
  27.     sleep 1000
  28.     input ” email “,email
  29.     sleep 1000
  30.     input ” password “,password
  31.     sleep 1000
  32.     input ” confirm password “,password1
  33.     sleep 1000
  34.  
  35.     REM proses pengecekan ini sudah betul
  36.     REM nanti bisa dioptimalkan lagi kalau sudah sampai ke materi terakhir
  37.     REM yang membahas tentang looping
  38.    
  39.     if (password1 <> password)then
  40.         print ” password anda tidak sama chek password sebelumnya ”
  41.         sleep 1500
  42.         input ” confirm password”,password1
  43.     end if
  44.  
  45.     if (password1 <> password)then
  46.         print ” password anda tidak sama chek password sebelumnya ”
  47.         sleep 1500
  48.         input ” confirm password “,password1
  49.     end if
  50.  
  51.     if (password1 <> password)then
  52.         print “silahkan coba beberapa saat lagi”
  53.         sleep 1500
  54.     end if
  55.    
  56.  
  57.     if ( password1 = password)then
  58.         sleep 5000
  59.         print ” terima kasih ”
  60.         sleep 1000
  61.         print ” pendaftaran anda berhasil ”
  62.     end if
  63.  
  64.     REM perintah di bawah ini inginnya dijalankan kalau proses pendaftaran sukses ya?
  65.     REM karena dari itu semuanya harus dimasukan ke dalam blok IF password1 = password
  66.     REM kalau ditempatkan di luar seperti ini nanti walaupun proses pendaftarannya salah
  67.     REM semua perintah di bawah akan tetap dijalankan
  68.     sleep 5000
  69.  
  70.    
  71.     print ” nama :+ nama
  72.     print ” email :+ email
  73.     print ” password :+ password
  74.  
  75.     sleep 5000
  76.  
  77.     print ” silahkan login ”
  78.  
  79.     sleep 10000
  80.  
  81.     REM ****ini sangat penting****
  82.     REM perintah berikut ini bisa menyebabkan aplikasi tidak berjalan seperti yang diinginkan
  83.     REM ini jenis error yang namanya logical error (error logika)
  84.     REM error ini adalah error yang paling sering dialami oleh semua programmer
  85.     REM dan sangat sulit untuk dideteksi
  86.     REM karena secara syntax benar, jadi komputer tdk akan memunculkan pesan apa-apa
  87.    
  88.     email2 = email
  89.     password2 = password
  90.  
  91.     REM dua perintah di atas akan membuat perintah dalam blok IF ini tdk akan pernah dijalankan
  92.     REM karena isi email2 akan selalu sama dengan isi variable email akibat dari perintah di atas
  93.     if (email2 <> email)then
  94.       input ” email “,email2
  95.     end if
  96.    
  97.     REM dua perintah ini pun sama
  98.     REM isi password2 akan selalu sama dengan password akibat dari perintah di atas.
  99.     REM jadi dua perintah di atas sebaiknya dihilangkan
  100.     if ( password2 <> password)then
  101.       input ” password “,password2
  102.     end if
  103.  
  104.     REM proses pengecekan memakai IF di atas belum diperlukan
  105.     REM karena user belum melakukan input untuk login
  106.    
  107.     sleep 5000
  108.  
  109.     REM bagian pengecekan email dan passwordnya sudah hampir benar
  110.     REM akan saya modif sedikit supaya lebih optimal dan jadi seperti yang diinginkan
  111.     if (email2 <> email)then
  112.         print “email dan password anda tidak sesuai chek kembali email anda”
  113.         input ” email “,email2
  114.         input ” password “,password2
  115.     end if
  116.  
  117.     if (email2 <> email)then
  118.         print “email dan password anda tidak sesuai chek kembali email anda”
  119.         input ” email “,email2
  120.         input ” password “,password2
  121.     end if
  122.  
  123.     if (email2=email)then
  124.         print ” LOGIN BERHASIL ”
  125.         print ” SELAMAT YAH … ”
  126.     end if
  127.  
  128.     if (password2 <> password)then
  129.         print “email dan password anda tidak sesuai chek kembali email anda”
  130.         input ” email “,email2
  131.         input ” password “,password2
  132.     end if
  133.  
  134.     if (password2 <> password)then
  135.         print “email dan password anda tidak sesuai chek kembali email anda”
  136.         input ” email “,email2
  137.         input ” password “,password2
  138.     end if
  139.  
  140.     if (password2 = password)then
  141.         print ” LOGIN BERHASIL ”
  142.         print ” SELAMAT YAH … ”
  143.     end if
  144. end sub
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×