Agustus 15, 2019

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
.

Juli 17, 2019

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


والله اعلم


Juli 16, 2019

Documentasi Gerhana


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





Mei 29, 2019

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.


Mei 11, 2019

Menghilangkan Password Startup

Kalau kita punya laptop yang didalamnya tersimpan file Privasi atau rahasia langkah awal adalah memberi password agar ketika laptop dinyalakan selalu meminta password
Walau cara ini bisa dibuka paksa tapi tidak semua orang tau caranya sekalipun bisa agak merepotkan
harus melakukan ini atau itu....
Tapi lain halnya kalau Komputer rumah yang membuka cuma keluarga rasanya ribet kalo di beri password Startup
Disini saya ingin berbagi untuk yang belum tau bagaimana cara menghilangkan password Startup

Caranya :
1. Buka CMD
2. Ketik "netplwiz" tanpa tanda kutip
3. Hilankan Ceklis pada "User must enter a user name and password to use this computer"
4. Apply
5. Bila minta password masukan password
6. ok.

Selesai.

April 02, 2019

Dokumentasi Ihtifalan

Foto Documentasi Admin dalam acara Ihtifalan + Isro Wal Mi'roj 17 Rajab 1440/24 April 2019
MDTA Al-jauharotunnaqiyyah.

Silahkan Buka disini

Wassalam
Ubi Sahubi