Rabu, 17 April 2013

Membuat Program Deret Angka pada Visual Basic

Rabu, April 17, 2013    No comments

Selamat sore sobat, apa kabar ne sobat...? pastinya Puji Tuhan Baek ya... amin :) ok... lanjut sobat, setelah kemaren saya sudah menjelaskan apa itu visual basic dan sidah memberikan beberapa contoh programnya, termasuk saya sudah share bagaimana cara membuat "program Font System", sekarang saya akan menjelaskan bagaimana membuat "Program Deret Angka".

Perhatikan Step by Step berikut :
1. Buka Aplikasi Visual Basic.
VB Portable
2. klik New - Standart Exe - Open




Open Project
 3. Buat Form seperti gambar dibawah ini :

deret angka
Catatan : Form diatas hanya menggunakan 1 buah Command button
 

 4. kemudian Get Code, Copas Script berikut :

 Private Sub Command1_Click()
For i = 1 To 11
Print i
Next i
For i = 12 To 22
Print i;
Next i
End Sub

Private Sub Form_Load()

End Sub
5. Tekan F5, lalu lihat Hasilnya :




 Catatan : untuk Property [name : tidak ada diubah]
               untuk Property [Caption : disesuaikan] > Perhatikan Rumus.

Nah... Sekian postingan kali ini sobat Mengenai Program Deret, jika ada pertanyaan atau komentar atau saran, langsung saja dikotak komentar yang sudah disediakan.
semoga tutorial diatas, bermanfaat bagi kita semua *amin.

Silahkan membaca Tutorial selanjutnya mengenai "Program Gaji"
Salam Sukses....!




 

Read More

Membuat Program Font System pada Visual Basic

Rabu, April 17, 2013    No comments

Selamat sore sobat, sudah beberapa hari ini saya gak ada lagi memposting tentang tutorial Visual basic, pastinya karena lagi sibuk ne sobat,.
ok... lanjut sobat, setelah kemaren saya sudah menjelaskan apa itu visual basic dan sidah memberikan beberapa contoh programnya, sekarang saya akan share bagaimana cara membuat "Program Font System".

Perhatikan Step by Step berikut :
1. Buka Aplikasi Visual Basic.
VB Portable
2. klik New - Standart Exe - Open
Open Project
3. Setelah Muncul tampilan Layar Kerja Microsoft Visual Basic 6.0, desainlah menjadi seperti gambar dibawah ini :
tampilan awal
Catatan : Gunakan icon-icon yang dibutuhkan saja, misalnya :
label
combo box





5. Setelah selesai dibuat form nya, langsung saja copas script berikut :
Private Sub Combo1_Change()
Label2.Font = Combo1
End Sub

Private Sub Form_Load()
Combo1.Clear
For i = 0 To Screen.FontCount - 1
Combo1.AddItem (Screen.Fonts(1))
Next i

End Sub
 6. tekan F5 untuk melihat hasilnya, kira-kira seperti ini :

 Catatan : untuk Property [name : tidak ada diubah]
               untuk Property [Caption : disesuaikan] > Perhatikan Rumus.

Nah... terminal" diatas sobat merupakan contoh Font system, sekian postingan kali ini sobat, jika ada pertanyaan atau komentar atau saran, langsung saja dikotak komentar yang sudah disediakan.
semoga tutorial diatas, bermanfaat bagi kita semua *amin.

Silahkan membaca Tutorial selanjutnya mengenai "Program Deret Angka"

Read More

Minggu, 14 April 2013

Contoh Analisis Trend

Minggu, April 14, 2013    No comments

Selamat sore sobat, untuk melengkapi postingan saya sebelumnya mengenai Analisis trend, dimana sebelumnya saya sudah menjelaskan apa itu analisis trend dan saya juga sudah memberikan sebuah contoh untuk analisis trend, maka kali ini saya akan mengajak sobat semua untuk melihat hasilnya…!
Kira-kira gimana ya…? Cocok gak dengan jawaban sobat semua…?
Dengan menggunakan rumus : Angka Indeks =(Tahun Pembanding)/(Tahun Dasar)  x  100%
Maka mari kita lihat tabel dibawah ini :

PT. SUKSES SELALU
Neraca Perbandingan
Tahun 2003 s/d Tahun 2006

Diminta :        
1.      Lakukan Analisis dari Tahun 2004, 2005 dan 2006 :
Pos dalam Neraca
Tahun
Trend
2003
2004
2005
2006
2004
2005
2006
Aktiva Lancar
Kas
100
140
150
80
140
150
80
Piutang
540
680
500
540
 125.9
92.60
100
Persediaan
420
560
800
1000
133.3
190.47
238.09
Total Aktiva Lancar
1060
1380
1450
1620
130.18
136.79
152.83
Aktiva Tetap
1940
2020
2200
2580
104.12
113.40
132.98
Total Aktiva Tetap
1940
2020
2200
2580
104.12
113.40
132.98
Total Aktiva
3000
3400
3650
4200
113.33
121.66
140
Passiva
Utang Jangka Pendek
500
530
570
600
106
114
136
Utang Jangka Panjang
250
250
250
250
100
100
100
Total Hutang
750
780
820
850
104
109.33
113.33
Ekuitas
Modal
2000
2250
2250
2250
112.5
112.5
112.5
L/D
250
370
580
1100
148
232
440
Total Ekuitas
2250
2620
2830
3350
116.44
125.77
148.88
Total Passiva
3000
3400
3650
4200
113.33
121.66
140


2.      Buatlah Analsis Trend nya :
Berikut ini analisa pada neraca perbandingan PT. Sukses Maju :

    Uang Kas yang ada pada tahun  2004 naik sebesar 40% dari Uang Kas pada tahun 2003, Uang Kas yang ada pada tahun  2005 naik sebesar 50% dari Uang Kas pada tahun 2003, Uang Kas yang ada pada tahun  2006 turun sebesar 20% dari Uang Kas pada tahun 2003.

    Piutang yang ada pada tahun  2004 naik sebesar 25,9% dari Piutang  pada tahun 2003, Piutang  yang ada pada tahun  2005 turun sebesar 6.40% dari Piutang pada tahun 2003, Piutang yang ada pada tahun  2006 tidak mengalami perubahan dari Piutang pada tahun 2003.

    Persediaan yang ada pada tahun  2004 naik sebesar 33,3% dari Persediaan  pada tahun 2003, Persediaan yang ada pada tahun  2005 naik sebesar 90,47% dari persediaan pada tahun 2003, Persediaan yang ada pada tahun  2006 naik sebesar 138,09% dari Uang Kas pada tahun 2003.

    Total Aktiva lancer yang ada pada tahun  2004 naik sebesar 30,18% dari Total Aktiva lancer pada tahun 2003, Total Aktiva lancer yang ada pada tahun  2005 naik sebesar 36,79% dari Total Aktiva lancer pada tahun 2003, Total Aktiva lancer yang ada pada tahun  2006 naik sebesar 52,83% dari Total Aktiva lancer pada tahun 2003.

    Aktiva tetap yang ada pada tahun  2004 naik sebesar 4,12% dari Aktiva tetap pada tahun 2003, Aktiva tetap yang ada pada tahun  2005 naik sebesar 13,40% dari Aktiva tetap pada tahun 2003, Aktiva tetap yang ada pada tahun  2006 naik sebesar 32,98% dari Aktiva tetap pada tahun 2003.

    Total Aktiva tetap yang ada pada tahun  2004 naik sebesar 4,12% dari total Aktiva tetap pada tahun 2003, total Aktiva tetap yang ada pada tahun  2005 naik sebesar 13,40% dari total Aktiva tetap pada tahun 2003, total Aktiva tetap yang ada pada tahun  2006 naik sebesar 32,98% dari total Aktiva tetap pada tahun 2003.

    Total Aktiva yang ada pada tahun  2004 naik sebesar 13,33% dari Total Aktiva pada tahun 2003, Total Aktiva yang ada pada tahun  2005 naik sebesar 21,66% dari Total Aktiva pada tahun 2003, Total Aktiva yang ada pada tahun  2006 naik sebesar 40% dari Total Aktiva pada tahun 2003.

    Utang Jangka Pendek yang ada pada tahun  2004 naik sebesar 6% dari Utang Jangka Pendek pada tahun 2003, Utang Jangka Pendek yang ada pada tahun  2005 naik sebesar 14% dari Utang Jangka Pendek pada tahun 2003, Utang Jangka Pendek yang ada pada tahun  2006 naik sebesar 36% dari Utang Jangka Pendek pada tahun 2003.



 Sekian Penjelasan saya kali ini, Jangan Lupa kalau ada pertanyaan silahkan berkomentar ya sobat... :)
terimakasih....! [ hehehhehee :) ] 


  Salam Sukses....!




 

Read More
Langganan: Postingan (Atom)