Tips Visual Studio 2010

1. Membuat Label Transparant
Klik Label --> Properties --> BackColor ketik Code Copy Paste Code ini : 16777215

2. Untuk menggabung String (Concatenante-Excel) jgn pakai ini + tp gunakan ini & krn klo menggunakan ples dlm kondisi tertentu mengalami Error ini berdasarkan pengalaman sendri dan mbah Google juga

Halaman ini masih di Update terus.

Baca Selanjutnya->

Aplikasi Falak

Alhamdulillah Puji Syukur kehadirat Allah SWT. yang selalu memberi Penambahan Ilmu dan Pemahaman Semoga diberi Inayah juga untuk mengamalkannya  Amin......................
Dibawah ini adalah Aplikasi Falak yang di buat Admin
Bagi yang ingin melihat sperti apa Aplikasi ini silahkan unduh tapi maaf ini cuma bisa di install pada PC/Laptop untuk Android Admin belum bisa karna banyak faktor diantaranya Hp masih Jadul...heeeeeee.....
Aplikasi ini bisa mengitung untuk seluruh lokasi tinggal masukan saja Garis Bujur ,Lintang dll.

Mohon koreksinya bila ada kesalahan/bug melalui Inbox Facebook pada akun : Ubi Sahubi

Trima kasih.

1. Ijtima V 0.3

2. Konversi V 1.0

Ini Video Buat Anunya...hee...

Baca Selanjutnya->

Fungsi-fungsi VB6

Sebagai Pemula tentu bingung tetapi bila sudah mengerti rumus-rumus Excel maka akan membantu untuk memahami VB6 itulah pengalaman Admin ketika belajar Vba

Dibawah ini adalah catatan fungsi Excel di terapkan pada Vb6

√(data) 

ditulis pada Excel adalah SQRT(data) pada VB6 adalah SQR(data)

atan

ditulis pada Excel adalah atan pada VB6 adalah atn

Gabungan IF dan and

ditulis pada Excel adalah :

if(and(aku>11 and kamu<12) ;ganteng;Jelek)

pada VB6 adalah :

If ((aku > 11) and (kamu <12)) then 

cakep

else

jelek

End If

atau boleh spert

If Range("B2") = 5 And Range("C2") < 10 Then

MsgBox "Ayam"

Else

MsgBox "Bebek"

End If

Array
Array adalah mengambil data sesuai urutan dan permintaan fungsi mirip Choose

NamaPasaran = Array("Kliwon", "Legi", "Pahing", "Pon", "Wage", "Kliwon")

Kliwon di hitung sebagai 0

Legi di hitung sebagai 1 dst.

Bila menggunakan Choose Kliwon di hitung sebagai 1

Persen
Untuk mempersenkan hasil atau agar hasil berbenuk persen misal 0.0052% maka formula VB6 seperti dibawah ini
prsen = Round(FI / 14500 * 100, 5) & "%"
Keterangan.
FI           adalah jumlah data yg ingin di persenkan
14500    adalah batas maximal persen
100        adalah ingin di buat 100%
5            adalah jumblah tampilan angka di belakang koma jadi nanti hasinya 0.00012%
%          adalah simbol pesen yg nanti tampil

Halaman ini insya Allah akan terus di update sebagai catatan Admin

.

Baca Selanjutnya->

17 Juli 2019

Gerhana Bulan
Terjadi Gerhana Bulan Sebagian pada Bulan Dzil Qo'dah 1440
Rabu Pon, 17  Juli 2019
Alhamdulillah dapat diamati dari Lokasi Kota Cilegon-Banten dan hasil sesuai dgn hisab Tahqiqi
Berikut Data Hisab dan Documentasi

a). Methode Tahqiqi

1. Irsyadul Murid-Global

Gerhana                               Sebagian                              

Awal Syibih                         1° 45' 14,42''

Awal Haqiqy                        3° 03' 00,58''

Wasat                                   4° 31' 40,80''

Akhir Sybih                         7° 18' 07,18''

Akhir Haqiqy                       6° 00' 21,02''

2. Addurul Aniq-Lokal

Awal Panumbra                  1° 44' 01,49''

Awal Umbra                       3° 01' 55,22''

Tengah Gerhana                 4° 30' 52,12''

Akhir Umbra                      5° 59' 49,03''

Akhir Panumbra                 7° 17' 42,75''

3. Tsamrotul Fikar-Lokal

Awal Persial                       3° 06' 13,69''

Akhir Persial                      6° 00' 50,31''

Puncak                                4° 33' 32,00''

Durasi                                 2° 54' 36,62''

4. Ephemeris-Lokal

Durasi                                2° 59' 17,00''

Lebar Gerhana (LG)          65,84%

Lebar Gerhana (LG')         07,900 Jari

Awal Gerhana                    3° 01' 45,43''

Puncak Gerhana                4° 31' 23,93''

Akhir Gerhana                   6° 01' 02,43''

b) Methode Taqribi-Lokal

Fathullatif Rohim
Mulai Jam                         2 °9 ' 56"
Pertengahan Jam              3 °44'56"

Berakhir Jam                    5 °19 ' 56" 

c) Documentasi

Jam 3.1 tidak dapat mengamati Gerhana Karna langit mendung

Jam 3.9 Diambil dgn Hp 1000 Lokasi Cilegon

Dengan Pandangan Mata dibuat dgn Paint --jam 3.9 L/Cilegon

Dengan Pandangan Mata dibuat dgn Paint --jam 3.34 L/Cilegon

Jam 3.41 Diambil dgn Hp 1000 Lokasi Cilegon

Jam 4.10 Diambil dgn Hp 1000 Lokasi Cilegon

Jam 3.38 Diambil dgn Hp 1000 Lokasi Cilegon

Saat Puncak Gerhana di ambil dgn Teleskop Lokasi Lirboyo

Pucak Gerhana-Lokasi Lirboyo

والله اعلم

Baca Selanjutnya->

Documentasi Gerhana

DOCUMENTASI GERHANA BULAN
Dibawah ini Catatan hisab dan penampakan Gerhana secara live yg di ambil saat berlangsung terjadi Gerhana

08 Agustus 2017

28 Juli 2018

17 Juli 2019

Baca Selanjutnya->

Conversi

Untuk menkonversi misal dari hari ke jam atau menit dan seterusnya.....
Maka formatnya adalah :
=Confert(e5;"day";"jam")

e5 adalah input atau jumblah hari yang di inginkan
day adalah mengartikan e5 itu sebagai hari
jam adalah hari tersebut ingin di alihkan ke nilai jam maka formatnya menjadi :
=Confert(e5;"day";"hr")
hr = jam

Kenapa hr di artikan sebagai jam ? jawabannya karna format yang tersedia pada excel seperti itu..
untuk melihat format jam dan lainnaya coba ketikan :
=CONVERT(E5;"day";")

maka akan keluar pilihan
yr = Year (Tahun)
mn = Minute (menit)
sec = second (detik)

e5 pada gambar diatas adalah input artinya boleh di ganti dengan angka yang diinginkan.
e7 pada gambar adalah cells untuk menghitung yang diinginkan

Formula =Confert(e5;"day";"hr") bila di enter maka jadi seperti ini :

Pengertiannya :
Apa bila "4 hari" di konversikan ke nilai jam berapa jamkah ..?
Jawab
96 jam
Lalu Apa bila 4 hari di konversikan ke nilai menit berapa menitkah...?
Ubahlah kode "hr" dengan "mn" menjadi =Confert(e5;"day";"mn")

Coba di enter maka menjadi :

Jadi Apa bila 4 hari di konversikan ke nilai menit berapa menitkah...?
jawab
5760 menit
Semoga bisa di fahami dan dikembangkan...

Selesai.

Baca Selanjutnya->