SHARE
TWEET

Untitled

a guest Oct 2nd, 2018 116 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. DIM nama AS STRING
  2. DIM kelas AS STRING
  3. DIM jurusan AS STRING
  4. DIM asal_sekolah AS STRING
  5. DIM hobi AS STRING
  6.  
  7.  
  8.  
  9. 10 PRINT "1KA23 GUNADARMA UNIVERSITY"
  10.  
  11.  
  12. 20 PRINT ""
  13. PRINT "Menu : "
  14. PRINT "1. Input Biodata"
  15. PRINT "2. Tampilkan Biodata"
  16. PRINT "3. Kelompok"
  17. PRINT ""
  18. INPUT "Masukan Menu : [1 - 3] : ", menu_case
  19.  
  20. CLS
  21. SELECT CASE menu_case
  22.     CASE 1
  23.         PRINT "Input Biodata : "
  24.         PRINT ""
  25.         INPUT "Nama anda    : ", nama
  26.         INPUT "Kelas        : ", kelas
  27.         INPUT "Jurusan      : ", jurusan
  28.         INPUT "Asal Sekolah : ", asal_sekolah
  29.         INPUT "Hobi         : ", hobi
  30.  
  31.         CLS
  32.         PRINT "Selesai"
  33.         PRINT ""
  34.         PRINT ""
  35.         GOTO 20
  36.  
  37.     CASE 2
  38.         IF nama <> "" OR kelas <> "" OR jurusan <> "" OR asal_sekolah <> "" OR hobi <> "" GOTO 29 ELSE GOTO 10
  39.         29 PRINT "Menampilkan Biodata"
  40.         PRINT ""
  41.         PRINT "Nama anda    : ", nama
  42.         PRINT "Kelas        : ", kelas
  43.         PRINT "Jurusan      : ", jurusan
  44.         PRINT "Asal Sekolah : ", asal_sekolah
  45.         PRINT "Hobi         : ", hobi
  46.  
  47.         PRINT ""
  48.         PRINT ""
  49.         INPUT "Tekan 1 Lalu Enter Untuk Kembali Ke Menu Utama : ", return_menu
  50.         IF return_menu = 1 GOTO 10
  51.  
  52.  
  53.     CASE 3
  54.         PRINT "TUGAS ALGORITMA 1KA23"
  55.         PRINT ""
  56.         PRINT "ALDI PRANATA - 6666"
  57.         PRINT "M NAUFAL FIKRI - 6666"
  58.         PRINT "RIZKY BAKEW - 696969"
  59.         PRINT ""
  60.         INPUT "Tekan 1 Lalu Enter Untuk Kembali Ke Menu Utama : ", return_menu
  61.         IF return_menu = 1 GOTO 10
  62.  
  63.     CASE ELSE
  64.         CLS
  65.         PRINT "Menu key Hanya 1 dan 2"
  66.         PRINT ""
  67.         PRINT ""
  68.         GOTO 10
  69. END SELECT
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top