arieagung2

Untitled

Jan 20th, 2017
638
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.     sleep 5000
  105.  
  106.     REM bagian pengecekan email dan passwordnya sudah hampir benar
  107.     REM akan saya modif sedikit supaya lebih optimal dan jadi seperti yang diinginkan
  108.     if (email2 <> email)then
  109.         print “email dan password anda tidak sesuai chek kembali email anda”
  110.         input ” email “,email2
  111.         input ” password “,password2
  112.     end if
  113.  
  114.     if (email2 <> email)then
  115.         print “email dan password anda tidak sesuai chek kembali email anda”
  116.         input ” email “,email2
  117.         input ” password “,password2
  118.     end if
  119.  
  120.     if (email2=email)then
  121.         print ” LOGIN BERHASIL ”
  122.         print ” SELAMAT YAH … ”
  123.     end if
  124.  
  125.     if (password2 <> password)then
  126.         print “email dan password anda tidak sesuai chek kembali email anda”
  127.         input ” email “,email2
  128.         input ” password “,password2
  129.     end if
  130.  
  131.     if (password2 <> password)then
  132.         print “email dan password anda tidak sesuai chek kembali email anda”
  133.         input ” email “,email2
  134.         input ” password “,password2
  135.     end if
  136.  
  137.     if (password2 = password)then
  138.         print ” LOGIN BERHASIL ”
  139.         print ” SELAMAT YAH … ”
  140.     end if
  141. 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.

×