Dengan tersedianya berbagai perangkat TI baik yang berwujud fisik tersedia di kelas maupun yang wujud software berupa Sistem Informasi, maka pada awal semester Genap TA 2009/2010 akan diselenggarakan Pelatihan Pembelajaran berbasis TI. Pelatihan ini merupakan kerjasama antara LP2S dengan BIFAS dan BISKOM.

Pelatihan serupa juga pernah diselenggarakan oleh BIFAS, biro SDM dengan LP2S, tahun 2009.

Pada pelatihan kali ini, akan diselenggarakan Setiap Hari Jum’at dan Sabtu, selama bulan Maret, April dan Mei. Selengkapnya dapat dilihat pada tabel dibawah.

Sementara pembagian kelompok pelatihan dijadwalkan sbb:

Minggu GANJIL untuk Kelompok DASAR,

Minggu GENAP untuk Kelompok MENENGAH dan LANJUT

Jadwal dapat berubah sesuai kondisi.

Bagi dosen yang akan mengikuti pelatihan dimohon mendaftarkan ke ITTC melalui Telpon 563515 – ext: 1631 (Mas Fajar/Mbak Rikha), 1641 (Mas Heri).

Ketentuan sbb:

1. Setiap dosen bisa mengikuti Materi Pembuatan media Presentasi, Pembuatan File PDF, dan Pembuatan Blog atau situs personal.
2. Setiap dosen diberi kesempatan satu kali pada setiap materi.
3. Setiap kelas minimal 10 peserta dan maksimal 20 peserta.
4. Pendaftaran memilih langsung tanggal yang tersedia.
5. Materi Presentasi memilih sendiri kelas MS Office 2003 atau MS Office 2007.
6. Disarankan mengajark teman atau secara group agar kuota terpenuhi dan pelatihan dapat segera diselenggarakan.

Peserta akan mendapatkan: Modul, dan Sertifikat.

Pelatihan BLOG Dosen UAD untuk mendukung perkuliahan. Mempublikasikan materi kuliah dan berbagai link sebagai pelengkap referensi merupakan salah satu cara yang mudah dalam membantu mahasiswa memahami matakuliah yang diajarkan lebih jauh.

Mempublikasikan berbahagai hal yang bermanfaat bagi orang lain merupakan langkah yang mudah untuk mengumpulkan amal kebaikan. Blog dapat juga untuk membangun Investasi Amal Jariyah dan Ilmu yang bermanfaat.

Mari Bapak / Ibu ambil kesempatan yang terbatas ini. Pelatihan BLOG untuk DOSEN UAD:

Pilih jadwal pelaksanaan:

1. Sabtu, 22 Januari 2011 (sudah terlaksana),
2. Rabu, 26 Januari 2011
3. Sabtu, 29 Januari 2011
4. Rabu, 2 Pebruari 2011
5. Sabtu, 5 Pebruari 2011

Jam: 08-11 wib
Tempat: Lab ITTC, Lantai 4 gedung ITC UAD.

————————–
Pendaftaran dapat melalui email dikirimkan ke ittc@uad.ac.id atau
telpon ke 1641 (Heri) / 1631 (Rekha).
Dalam pendaftaran mengirimkan data sbb:

1. Nama
2. Prodi
3. No HP
4. Email
5. Jadwal tanggal yang dipilih.

Pendaftaran harus sudah dilakukan maksimal 1 hari sebelum jadwal pelatihan.

Jika sudah mendaftarkan jadwal dan berubah mohon konfirmasi perubahan
ke 0274-563515 ext: 1641 (heri).

Yang tertarik ikut dimohon menyiapkan bahan latihan sebagai berikut:
1. CV dalam file
2. File Foto pribadi yang layak dipublis dalam file
3. Artikel-artikel (3-4) yang akan dipublis dalam file

——————————————————————–
Outcome dari pelatihan ini yaitu:
a. Dosen UAD dikenal masyarakat dari karya dan pemikirannya melalui internet
b. Dosen mampu mengirimkan artikel/opini ke blog
c. Dosen mampu mengelola blog sendiri
d. Menambah daftar pengunjung ke domain uad.ac.id
e. Meningkatkan popularitas uad.ac.id melalui internet
f. Meningkatkan citra Positif UAD melalui tulisan di Internet
g. Meningkatkan rangking webometric
h. Dosen Memiliki media pendukung perkuliahan
i. Media investasi amal kebaikan

Yang akan diperoleh setelah pelatihan:
a. Memiliki alamat Blog UAD: http://blog.uad.ac.id/nama_dosen
b. Alamat blog dosen tercatat dalam search engine
c. Sertifkat Pelatihan
d. Ilmu yang bermanfaat

Sebagai referensi silakan melihat Blog Dosen yang sudah ada:

Ibu Annie Purwani: http://blog.uad.ac.id/anniepurwani/
Bp Aris Thobirin: http://blog.uad.ac.id/aris_thobirin
Bp Hasanuddin: http://hasan.staff.uad.ac.id/
Bp Imam Azhari: http://blog.uad.ac.id/azhari/
Bp Imam Riadi: http://riadi.staff.uad.ac.id/
Bp Ishafit: http://hafit.staff.uad.ac.id/
Bp Kartika Firdausyi: http://blog.uad.ac.id/kartikaf/
Bp Muchlas: http://muchlas.ee.uad.ac.id/
Bp Mursyid : http://blog.uad.ac.id/ttx/
Bp Mushlihudin: http://mdin.staff.uad.ac.id/
Bp Suprihatin: http://blog.uad.ac.id/suprihatin/
Bp Tawar: http://blog.uad.ac.id/tawar/
Bp Tole Sutikno: http://blog.uad.ac.id/tole/
Bp Ardiansyah: http://ardi.staff.uad.ac.id

Ditunggu kehadiran Bapak-Ibu Dosen di Lab ITTC.

Kompresi file sangat diperlukan kalau mau kiri file yang besar ukurannya. Aplikasi 7-Zip memiliki rasio kompresi yang tinggi dapat digunakan untuk kebutuhan tersebut. Aplikasi ini menundukung untuk kompresi file bentuk / format: 7z, ZIP, CAB, RAR, ARJ, LZH, CHM, GZIP, BZIP2, Z, TAR, CPIO, ISO, MSI, WIM, NSIS, RPM dan DEB.

Silakan dicoba dan dipakai. Meskipun gratis tetapi memiliki manfaat yang sangat banyak langsung download ke sini ya.

Tutorial ini untuk mengubah angka ke teks (kalimat) dalam bahasa Inggris.

Tata cara membuat fungsi di excel dapat dibaca di blog mushlihudin.

Script Program selengkapnya sebagia berikut:

Function toword(ByVal Ninput)

Dim Temp
 Dim Cnum, Cents
 Dim DecimalPlace, Count
 Dim onecurrency, morecurrency

‘ Your Country  currency or other unity you need
 ‘ if without currency or unity fill variabels bellow in blank’
 ‘ =====================================================================
 ‘ onecurrency = “Rupiah” ‘Indonesian’
 ‘ morecurrency = “Rupiahs”
 ‘ onecurrency = “Dollar” ‘Dollar
 ‘ morecurrency = “Dollars”
 onecurrency = “Kilogram” ‘weight
 morecurrency = “Kilograms”
 ‘ =====================================================================

ReDim Place(9) As String

Place(2) = ” Thousand ”

Place(3) = ” Million ”

Place(4) = ” Billion ”

Place(5) = ” Trillion ”

‘ Convert Ninput to a string, trimming extra spaces.

Ninput = Trim(Str(Ninput))

‘ Find decimal place.

DecimalPlace = InStr(Ninput, “.”)

‘ If we find decimal place…

If DecimalPlace > 0 Then

‘ Convert cents

Temp = Left(Mid(Ninput, DecimalPlace + 1) & “00″, 2)

Cents = ConvertTens(Temp)

‘ Strip off cents from remainder to convert.

Ninput = Trim(Left(Ninput, DecimalPlace – 1))

End If

Count = 1

Do While Ninput <> “”

Temp = ConvertHundreds(Right(Ninput, 3))

If Temp <> “” Then Cnum = Temp & Place(Count) & Cnum

If Len(Ninput) > 3 Then

‘ Remove last 3 converted digits from Ninput.

Ninput = Left(Ninput, Len(Ninput) – 3)

Else

Ninput = “”

End If

Count = Count + 1

Loop

‘ Check number input.

Select Case Cnum

Case “”

Cnum = “No ”

Case “One”

Cnum = “One” & ” ” & onecurrency

Case Else

Cnum = Cnum & ” ” & morecurrency

End Select

‘ check cents

Select Case Cents

Case “”

Cents = “”

Case “One”

Cents = ” And One Cent”

Case Else

Cents = ” And ” & Cents & ” Cents”

End Select

toword = Cnum & Cents

End Function

Private Function ConvertHundreds(ByVal MyNumber)

Dim Result As String

‘ Exit if there is nothing to convert.

If Val(MyNumber) = 0 Then Exit Function

‘ Append leading zeros to number.

MyNumber = Right(”000″ & MyNumber, 3)

‘ Do we have a hundreds place digit to convert?

If Left(MyNumber, 1) <> “0″ Then

Result = ConvertDigit(Left(MyNumber, 1)) & ” Hundred ”

End If

‘ Do we have a tens place digit to convert?

If Mid(MyNumber, 2, 1) <> “0″ Then

Result = Result & ConvertTens(Mid(MyNumber, 2))

Else

‘ If not, then convert the ones place digit.

Result = Result & ConvertDigit(Mid(MyNumber, 3))

End If

ConvertHundreds = Trim(Result)

End Function

Private Function ConvertTens(ByVal MyTens)

Dim Result As String

‘ Is value between 10 and 19?

If Val(Left(MyTens, 1)) = 1 Then

Select Case Val(MyTens)

Case 10: Result = “Ten”

Case 11: Result = “Eleven”

Case 12: Result = “Twelve”

Case 13: Result = “Thirteen”

Case 14: Result = “Fourteen”

Case 15: Result = “Fifteen”

Case 16: Result = “Sixteen”

Case 17: Result = “Seventeen”

Case 18: Result = “Eighteen”

Case 19: Result = “Nineteen”

Case Else

End Select

Else

‘ .. otherwise it’s between 20 and 99.

Select Case Val(Left(MyTens, 1))

Case 2: Result = “Twenty ”

Case 3: Result = “Thirty ”

Case 4: Result = “Forty ”

Case 5: Result = “Fifty ”

Case 6: Result = “Sixty ”

Case 7: Result = “Seventy ”

Case 8: Result = “Eighty ”

Case 9: Result = “Ninety ”

Case Else

End Select

‘ Convert ones place digit.

Result = Result & ConvertDigit(Right(MyTens, 1))

End If

ConvertTens = Result

End Function

Private Function ConvertDigit(ByVal MyDigit)

Select Case Val(MyDigit)

Case 1: ConvertDigit = “One”

Case 2: ConvertDigit = “Two”

Case 3: ConvertDigit = “Three”

Case 4: ConvertDigit = “Four”

Case 5: ConvertDigit = “Five”

Case 6: ConvertDigit = “Six”

Case 7: ConvertDigit = “Seven”

Case 8: ConvertDigit = “Eight”

Case 9: ConvertDigit = “Nine”

Case Else: ConvertDigit = “”

End Select

End Function

Cara pakai misal: Cel A1 berisi 5000, di sel B1 berisi ‘=toword(A1)’.