arieagung2

Untitled

Jan 20th, 2017
689
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. sub main
  2.    
  3.     dim password1 as string
  4.     dim nama as string
  5.     dim email as string
  6.     dim password as string
  7.     dim pendaftaran as string
  8.     dim email2 as string
  9.     dim password2 as string
  10.  
  11.     print ” SELAMAT DATANG ”
  12.     sleep 1000
  13.     print ” silakan daftar sebelum masuk ”
  14.     sleep 1000
  15.  
  16.     input ” nama “,nama
  17.     sleep 1000
  18.    
  19.     input ” email “,email
  20.     sleep 1000
  21.    
  22.     input ” password “,password
  23.     sleep 1000
  24.    
  25.     input ” confirm password “,password1
  26.     sleep 1000
  27.  
  28.    
  29.    
  30.     if (password1 <> password)then
  31.         print ” password anda tidak sama chek password sebelumnya ”
  32.         sleep 1500
  33.         input ” confirm password”,password1
  34.     end if
  35.  
  36.     if (password1 <> password)then
  37.         print ” password anda tidak sama chek password sebelumnya ”
  38.         sleep 1500
  39.         input ” confirm password “,password1
  40.     end if
  41.  
  42.     if (password1 <> password)then
  43.         print “silahkan coba beberapa saat lagi”
  44.         sleep 1500
  45.     end if
  46.    
  47.     if ( password1 = password)then
  48.         sleep 5000
  49.         print ” terima kasih ”
  50.         sleep 1000
  51.         print ” pendaftaran anda berhasil ”
  52.        
  53.         REM perintah yang tadinya diluar blok IF dipindahkan ke dalam semua
  54.         REM karena semua perintah ini hanya dijalankan kalau password1 = password
  55.        
  56.         sleep 5000
  57.        
  58.         print ” nama :+ nama
  59.         print ” email :+ email
  60.         print ” password :+ password
  61.  
  62.         sleep 5000
  63.  
  64.         print ” silahkan login ”
  65.  
  66.         sleep 10000
  67.        
  68.         input ” email “, email2
  69.         input ” password “,password2
  70.  
  71.         sleep 5000
  72.  
  73.         REM proses pengecekan loginnya harus berganda
  74.         REM pertama mengecek apakah email2 dan email sama
  75.         REM kedua mengecek apakah password2 dan password sama
  76.         REM untuk pengecekan ganda seperti itu kita pakai perintah OR (atau) dan AND (dan)
  77.         REM perintah tsb belum masuk di materi karena untuk adanya di materi tingkat berikutnya
  78.         REM tapi untuk contoh akan saya praktekan di sini
  79.         REM perintah IF di bawah ini artinya
  80.         REM kalau email2 beda dengan email ATAU password2 beda dengan password
  81.         REM maka munculkan pesan dan suruh user login kembali
  82.        
  83.         if (email2 <> email OR password2 <> password) then
  84.             print “email dan password anda tidak sesuai chek kembali email anda”
  85.             input ” email “,email2
  86.             input ” password “,password2
  87.         end if
  88.  
  89.         if (email2 <> email OR password2 <> password) then
  90.             print “email dan password anda tidak sesuai chek kembali email anda”
  91.             input ” email “,email2
  92.             input ” password “,password2
  93.         end if
  94.        
  95.         if (email2 <> email OR password2 <> password) then
  96.             print “email dan password anda tidak sesuai chek kembali email anda”
  97.             input ” email “,email2
  98.             input ” password “,password2
  99.         end if
  100.        
  101.         if (email2 <> email OR password2 <> password) then
  102.             print “Anda sudah 3x salah login.”
  103.         end if
  104.        
  105.         REM perintah IF di bawah ini artinya
  106.         REM kalau email2 sama dengan email DAN password2 sama dengan password
  107.         REM maka munculkan pesan berhasil login,
  108.         REM jadi tidak bisa salah satu sama, harus dua-duanya sama (email dan password)
  109.        
  110.         if (email2 = email AND password2 = password) then
  111.             print ” LOGIN BERHASIL ”
  112.             print ” SELAMAT YAH … ”
  113.         end if
  114.        
  115.     end if
  116.  
  117.    
  118. 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.

×