Program AutoCAD – Pelajaran Teknik Gambar
SISTEM INFORMASI BERBASIS TEKNOLOGI INFORMASI
Perancangan sistem informasi berbasis teknologi informasi harulah bertolak dari tersedianya sumber daya manusia dan sikap serta perilaku manusia itu sendiri untuk memanfaatkan data yang telah diolah dalam suatu sistem menjadi informasi dalam pengambilan keputusan.
Sejalan dengan pemikiran itu, maka sistem informasi manajemen adalah suatu sistem yang dirancang secara terintergrasi untuk menyajikan informasi guna mendukung area kunci dalam fungsi dan struktur dengan menggunakan perangkat keras (hardware) dan perangkat lu-nak (software) komputer, prosedur pedoman, model manajemen dan keputusan dan sebuah “data base”.
Sejalan dengan pemikiran yang diutarakan diatas, maka perancangan sistem informasi manajemen dengan pendekatan sistem dapat digambarkan dan djelaskan sebagai berikut :
Teknologi informasi, sebagai teknologi pengadaan, pengolahan, penyimpanan dan penyebaran berbagai jenis informasi dengan memanfaatkan komputer dan telekomunikasi, yang lahir karena ada-nya dorongan-dorongan kuat untuk menciptakan teknologi baru yang dapat mengatasi kelambatan manusia mengolah informasi.
Teknologi web, merupakan sistem informasi dan komunikasi hypertext, yang sangat populer dipakai di jaringan internet, dengan komunikasi data yang sesuai dengan model client / server. Web client (browser) dapat menakses multiprotokol dan informasi hypermedia dengan menggunakan alamat-alamat.
Atau dengan kalimat lain bahwa teknologi web berarti kumpulan semua sumber atau informasi yang dihubungkan dengan hyperlinks yang dapat diakses, ditransfer atau dieksekusi secara remote dari mana saja dalam internet melalui server HTTP (hypertext transfer protocol) oleh klien HTTP menggunakan HTTP sebagai protocol utama.
Aplikasi internet (INTERNATIONAL NETWORK), merupakan suatu jaringan komunikasi tanpa batas yang melibatkan jutaan komputer pribadi yang tersebar di seluruh dunia. Dengan menggunakan protokol Transmission Control Protocol / Internet Protocol (TCP /IP dan didukung media komunikasi.
Aplikasi jenis layanan jaringan internet adalah E-Mail ; Chatting (internet relay chat) ; USENET ; Newsgroup ; FTP (file transfer protocol) ; Telnet ; BBS (bulletin board service) ; WWW (layanan multimedia) ; Internet telephony ; Internet Fax
Sistem informasi manajemen , suatu sistem yang dirancang secara menyeluruh dengan menggabungkan subsistem yang penerapannya layak dan efektif untuk memecahkan hal-hal yang terkait dalam perfekstif, posisi dan performance secara terpadu dengan “data base berbasis Web dan non web”
Terima kasih: Busana Muslim, Dutapulsa, Batik Unik, Dunia Mode
.
point inside area to be calculated
(defun c:ga (/ a ar pt sc pt1)
(setq pt1 (getpoint “Select point inside area to be calculated: “))
(command “-boundary” pt1 “”)
(setq A (ssget “L”))
(setq unts (getvar “lunits”))
(setvar “lunits” 2)
(command “area” “e” a )
(setq ar (getvar “area”))
(setvar “lunits” unts)
(setq pt (getpoint “select location for area note: “))
(command “text” pt”"”" ar)
)
merubah teks menjadi huruf besar atau huruf kecil
(defun case(str / A F AN DI)
(setq rr *error* *error* merr)
(setq v1 (ssget ‘((0 . “TEXT”))) A 0)
(if v1 (while (< A (sslength v1))
(setq F (assoc 1 (setq DI (entget (ssname v1 A)))))
(setq AN (cons 1(strcase(cdr F)str)))
(entmod (subst AN F DI))
(setq A (1+ A))
) )(setq *error* rr) A)
(defun c:cast()(case T))
(defun c:case()(case nil))
Membut kotak dengan memasukkan ukurannya
;Membut kotak dengan memasukkan ukurannya
(defun c:bx(/ af an di)
(setq af(getp “\n Base point: “)
an(getreal “Horizontal: “))
(command “line” “non” af “non”(list(+(car af)an)(cadr af)) “”)
(setq di(getreal(strcat”\n Vertical : “)))
(if(not di)(setq di an))
(command”line” “” “non”(list(+(car af)an)(+(cadr af)di))
“non”(list(car af)(+(cadr af)di)) “non”af “”"line”
“non”(list(+(car af)(/ an 2))(-(cadr af)(/ di 10)))
“non”(list(+(car af)(/ an 2))(+(cadr af)(* di 1.1))) “”"line”
“non”(list(+(car af)(* an 1.1))(+(cadr af)(/ di 2)))
“non”(list(-(car af)(/ an 10))(+(cadr af)(/ di 2))) “”)
(princ))
Jadi tanggal sekarang
;Jadi tanggal sekarang
;Edit text menjadi tanggal sekarang
(defun c:dy(/ af an d i) (setq af (RTOS(GETVAR”CDATE”)2 4)) (setq an(cons 1(strcat(SUBSTR af 10 2)”:”(SUBSTR af 12 2) ” # “(SUBSTR af 7 2)”-”(SUBSTR af 5 2)”-”(SUBSTR af 1 4) ” # “(GETVAR”DWGPREFIX”) “\ ” (GETVAR”DWGNAME”)))) (setq d(assoc 1(setq i(entget(car(entsel “select text: “)))))) (entmod (subst an d i)) an )
Membuat kotak dengan memasukkan ukurannya
;Membut kotak dengan memasukkan ukurannya (defun c:bx(/ af an di) (setq af(getp “\n Base point: “) an(getreal “Horizontal: “)) (command “line” “non” af “non”(list(+(car af)an)(cadr af)) “”) (setq di(getreal(strcat”\n Vertical < “(rtos an 2 0)” > : “))) (if(not di)(setq di an)) (command”line” “” “non”(list(+(car af)an)(+(cadr af)di)) “non”(list(car af)(+(cadr af)di)) “non”af “”"line” “non”(list(+(car af)(/ an 2))(-(cadr af)(/ di 10))) “non”(list(+(car af)(/ an 2))(+(cadr af)(* di 1.1))) “”"line” “non”(list(+(car af)(* an 1.1))(+(cadr af)(/ di 2))) “non”(list(-(car af)(/ an 10))(+(cadr af)(/ di 2))) “”) (princ))
Merubah sudut text berdasarkan satu garis yang dipilih
;Merubah sudut text berdasarkan satu garis yang dipilih
;Dari end point terdekat kearah endpoint terjauh
(DEFUN C:99(/ rr v2 se a f an d i k u su ma) (setq rr *error* *error* merr) (setq v1(ssget ‘((0 . “TEXT”))) V2 0 se(nsel” Select line : “)) (setq a (cdr (assoc 10 (entget (car se)))) an (distance (car (cdr se)) a) f (cdr (assoc 11 (entget (car se)))) d (distance (car (cdr se)) f) ) (if (< an d )(setq i a k f)(setq i f k a)) (setq u (cons 50(ANGLE i k))) (while (< v2 (sslength v1)) (setq su (assoc 50 (setq ma(entget (ssname v1 v2))))) (entmod (subst u su ma)) (setq v2 (1+ v2)) ) (setq *error* rr)(princ))
Yang butuh silakan copy. Untuk yang lain pesan saja. jika ada waktu tak bikinkan. Bayarnya terserah kamu. gratis juga boleh.


Yang Suka Batik, Gabung di sini.
Gamis Modern
Busana anak
Busana pria
Busana Kerja
Busana Muslim
Sarimbit
Seragam Kerja

Komentar Terbaru: