sub main

    print ” SELAMAT DATANG ”
    sleep 1000
    print ” silakan daftar sebelum masuk ”
    sleep 1000

    REM bagian deklarasi variable lazimnya ditempatkan
    REM di bagian paling atas

    dim password1 as string
    dim nama as string
    dim email as string
    dim password as string
    dim pendaftaran as string
    dim email2 as string
    dim password2 as string

    REM perintah ini mungkin maksudnya password1 harus = password ya?
    REM variable password saat ini masih kosong
    REM variable password1 pun sama masih kosong
    REM jadi perintah ini bisa dihilangkan.

    password1 = password

    input ” nama “,nama
    sleep 1000
    input ” email “,email
    sleep 1000
    input ” password “,password
    sleep 1000
    input ” confirm password “,password1
    sleep 1000

    REM proses pengecekan ini sudah betul
    REM nanti bisa dioptimalkan lagi kalau sudah sampai ke materi terakhir
    REM yang membahas tentang looping

    if (password1 <> password)then
        print ” password anda tidak sama chek password sebelumnya ”
        sleep 1500
        input ” confirm password”,password1
    end if

    if (password1 <> password)then
        print ” password anda tidak sama chek password sebelumnya ”
        sleep 1500
        input ” confirm password “,password1
    end if

    if (password1 <> password)then
        print “silahkan coba beberapa saat lagi”
        sleep 1500
    end if


    if ( password1 = password)then
        sleep 5000
        print ” terima kasih ”
        sleep 1000
        print ” pendaftaran anda berhasil ”
    end if

    REM perintah di bawah ini inginnya dijalankan kalau proses pendaftaran sukses ya?
    REM karena dari itu semuanya harus dimasukan ke dalam blok IF password1 = password
    REM kalau ditempatkan di luar seperti ini nanti walaupun proses pendaftarannya salah
    REM semua perintah di bawah akan tetap dijalankan
    sleep 5000


    print ” nama : ” + nama
    print ” email : ” + email
    print ” password : ” + password

    sleep 5000

    print ” silahkan login ”

    sleep 10000

    REM ****ini sangat penting****
    REM perintah berikut ini bisa menyebabkan aplikasi tidak berjalan seperti yang diinginkan
    REM ini jenis error yang namanya logical error (error logika)
    REM error ini adalah error yang paling sering dialami oleh semua programmer
    REM dan sangat sulit untuk dideteksi
    REM karena secara syntax benar, jadi komputer tdk akan memunculkan pesan apa-apa

    email2 = email
    password2 = password

    REM dua perintah di atas akan membuat perintah dalam blok IF ini tdk akan pernah dijalankan
    REM karena isi email2 akan selalu sama dengan isi variable email akibat dari perintah di atas
    if (email2 <> email)then
      input ” email “,email2
    end if

    REM dua perintah ini pun sama
    REM isi password2 akan selalu sama dengan password akibat dari perintah di atas.
    REM jadi dua perintah di atas sebaiknya dihilangkan
    if ( password2 <> password)then
      input ” password “,password2
    end if

    REM proses pengecekan memakai IF di atas belum diperlukan
    REM karena user belum melakukan input untuk login

    sleep 5000

    REM bagian pengecekan email dan passwordnya sudah hampir benar
    REM akan saya modif sedikit supaya lebih optimal dan jadi seperti yang diinginkan
    if (email2 <> email)then
        print “email dan password anda tidak sesuai chek kembali email anda”
        input ” email “,email2
        input ” password “,password2
    end if

    if (email2 <> email)then
        print “email dan password anda tidak sesuai chek kembali email anda”
        input ” email “,email2
        input ” password “,password2
    end if

    if (email2=email)then
        print ” LOGIN BERHASIL ”
        print ” SELAMAT YAH … ”
    end if

    if (password2 <> password)then
        print “email dan password anda tidak sesuai chek kembali email anda”
        input ” email “,email2
        input ” password “,password2
    end if

    if (password2 <> password)then
        print “email dan password anda tidak sesuai chek kembali email anda”
        input ” email “,email2
        input ” password “,password2
    end if

    if (password2 = password)then
        print ” LOGIN BERHASIL ”
        print ” SELAMAT YAH … ”
    end if
end sub