JASA PEMBUATAN MEDIA PEMBELAJARAN

          Hai sahabat Blognya Anak IT, Setelah Sekian Lama Gue baru Mempublikasikan Hal yang terbaru. Kali ini saya tidak menyampaikan materi, Tetapi disini saya menawarkan Bahwa saya sebagai Admin Menerima Jasa Pembuatan Media Pembelajaran. Biasanya Hal ini sangat dibutuhkan Oleh Anak Kuliahan untuk meyelesaikan Tugasnya dari dosen pembimbing.

         Pembuatan Media Pembelajaran ini Terdapat 2 Aplikasi Yang saya Gunakan, Yaitu Macromedia Flash 8 dan Microsoft Visual Basic 6.0. Pemilihan Aplikasi dan Materi ditentukan Oleh Agan Sendiri. Jika Agan  Ingin Penyampaian Materi terdapat suara, maka suara itu dibuat oleh Agan sendiri. Jika Agan ingin membuat Sebuah perkenalan melalui perantara Video, maka Agan dapat membuatnya sendiri.

      Berikut beberapa Screenshot dari beberapa Media Pembelajaran yang telah Admin Buat, baik menggunakan Macromedia Flash 8 maupun Microsoft Visual Basic 6.0

Macromedia Flash 8

         Diatas Merupakan Halaman Untuk Memasukan Username dan Password. Jika Username dan Password dimasukan benar, maka akan berganti halaman selanjutnya

           Diatas Merupakan Halaman Menu Utama. Agan Hanya Perlu Mengklik Button yang anda Inginkan.

          Diatas Merupakan Bagian Materi. Pada Gambar diatas terdapat Tulisan materi dan Video. Tulisan Materi tersebut Diiringi dengan Sebuah Suara Beserta Video seperti Yang Agan liat diatas.

          Dan diatas Merupakan Halaman Untuk Keluar Dari Aplikasi.
       

          Itulah Scrennshot dari Media Pembelajaran yang telah Admin Buat. Untuk Penggunaan Aplikasi Visual Basic Admin belum menyempurnakannya, Tetapi apabila Sudah Finish maka Admin akan Memposting Scrennya Juga. Jika Agan Berminat Untuk Membuat Media Pembelajaran seperti diatas, maka Agan langsung Kontak Admin Saja. Disini Admin Berbuat Jujur, Tidak ada kata Menipu. Karena Sebuah Kepercayaan itu susah Untuk didapat.

             Ingat, Jika Anda Berminat Kontak saja Email Admin.

Sampai Ketemu Lagi!!!!

Read More

MEMBUAT SOFTWARE SEDERHANA DI VB 6.0,

      HAI, Kita berjumpa lagi nih Di topik yang baru. Sebelumnya kita pernah membahas bagaimana CARA MEMBUAT MESIN HITUNG DI VB 6.0

       Kali ini kita membahas cara membuat Software Kasir Sederhana dengan Visual Basic 6.0. kita mulai aja tutorialnya.

1. Buka lah Visual Basic 6.0 nya
2. Editlah form tersebut seperti gambar berikut

    "Jumlah, harga, Discount, dan Total bayar adalah Label (label yang terpisah)
     Kotak putih adalah text box (Text box yang terpisah). dan Proses adalah commandButton"
3. Klik kanan Di bagian Proses lalu pilih View Code
4. Masukan View Codenya sebagai berikut
    Private Sub Command1_Click()
    Dim A, B, C As Integer
    A = Val(Text1.Text)
    B = Val(Text2.Text)
    C = Val(Text3.Text)
    Text4.Text = (A * B) * C
    End Sub
5. Tekan F5 untuk menjalankannya dan hasilnya seperti ini

Selesai!!!!
SEMOGA BERHASIL!!!
JANGAN LUPA DI RATE YA!!!!
                            SAMPAI BERTEMU LAGI DI TOPIK YANG BARU !!!
                                               SALAM IT!!!!

Read More

CARA MEMBUAT MESIN HITUNG DI VB 6.0,

            Perkenalkan nama saya Hidayatullah. Akhir-akhir ini saya belajar membuat software menggunakan Visual Basic 6.0. Kali ini saya Mengepos Cara Membuat Kalkulator Menggunakan Visual Basic 6.0.

Program computer yang sudah sering kita dengar adalah membuat kalkulator (mesin hitung elektronik). Berikut adalah tutorial untuk membuat aplikasi kalkulator sederhana dengan VB 6.0 :

Jalankan Aplikasi VB 6.0

 Desain Form1 seperti berikut ini 

 Atur properti komponen form1 seperti dalam tabel dibawah ini :

No.	Kontrol	Properties
1.	Commandbutton1	Name : cmd_1 Caption : 1
2.	Commandbutton2	Name : cmd_2 Caption : 2
3.	Commandbutton3	Name : cmd_3 Caption : 3
4.	Commandbutton4	Name : cmd_4 Caption : 4
5.	Commandbutton5	Name : cmd_5 Caption : 5
6.	Commandbutton6	Name : cmd_6 Caption : 6
7.	Commandbutton7	Name : cmd_7 Caption : 7
8.	Commandbutton8	Name : cmd_8 Caption : 8
9.	Commandbutton9	Name : cmd_9 Caption : 9
10.	Commandbutton10	Name : cmd_0 Caption : 0
11.	Commandbutton11	Name : cmd_hasil Caption : =
12.	Commandbutton12	Name : cmd_tambah Caption : +
13.	Commandbutton13	Name : cmd_kurang Caption : -
14.	Commandbutton14	Name : cmd_kali Caption : x
15.	Commandbutton15	Name : cmd_bagi Caption : /
16.	Textbox	Name : txtNumber Text :
17.	Label 1	Name : Label1 Caption : Timoresse Kalkulator

Masukan script kode program berikut ini :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

Dim mfirst As Single Dim msecond As Single Dim manswer As Single Dim mbutton As Integer Private Sub cmd_0_Click() txtNumber = txtNumber + "0" End Sub Private Sub cmd_1_Click() txtNumber = txtNumber + "1" End Sub Private Sub cmd_2_Click() txtNumber = txtNumber + "2" End Sub Private Sub cmd_3_Click() txtNumber = txtNumber + "3" End Sub Private Sub cmd_4_Click() txtNumber = txtNumber + "4" End Sub Private Sub cmd_5_Click() txtNumber = txtNumber + "5" End Sub Private Sub cmd_6_Click() txtNumber = txtNumber + "6" End Sub Private Sub cmd_7_Click() txtNumber = txtNumber + "7" End Sub Private Sub cmd_8_Click() txtNumber = txtNumber + "8" End Sub Private Sub cmd_9_Click() txtNumber = txtNumber + "9" End Sub Private Sub cmd_bagi_Click() mbutton = 4 mfirst = Val(txtNumber) txtNumber = "" End Sub Private Sub cmd_hasil_Click() msecond = Val(txtNumber) Select Case mbutton Case Is = 1 manswer = mfirst + msecond Case Is = 2 manswer = mfirst - msecond Case Is = 3 manswer = mfirst * msecond Case Is = 4 manswer = mfirst / msecond End Select txtNumber = manswer End Sub Private Sub cmd_kali_Click() mbutton = 3 mfirst = Val(txtNumber) txtNumber = "" End Sub Private Sub cmd_kurang_Click() mbutton = 2 mfirst = Val(txtNumber) txtNumber = "" End Sub Private Sub cmd_tambah_Click() mbutton = 1 mfirst = Val(txtNumber) txtNumber = "" End Sub

Sekarang tekan F5 untuk menjalankan program.. silahkan coba program anda.

Terima Kasih,

Semoga bermanfaat,
JANGAN LUPA DI RATE YA!!!!

Read More