Rabu, 27 Juni 2012
cara berfikir efektif
Manusia diciptakan Tuhan sangat sempurna dengan memiliki berbagai kemampuan yang luar biasa untuk bisa berkreasi dan berinovasi. Tuhan mentakdirkan manusia untuk bisa menguasai segala sesuatu dan menyelesaikannya dengan baik dan menjadi seorang pemenang melalui berbagai cara (proses). Dan pemberian Tuhan yang paling berharga kepada manusia adalah PIKIRAN dan HATI yang sangat berguna bagi manusia untuk mencapai satu kemenangan hidup. Bak sebuah mobil yang sedang berjalan dikendalikan oleh persnelling dan setir mengantar pengendara sampai ke tempat tujuan, begitu pula kombinasi pikiran dan hati kita akan mengarahkan dan mengantarkan kita sampai di tempat tujuan yaitu KEMENANGAN.
Berikut ini adalah 7 mutiara yang berharga yang sudah diletakkan Tuhan di dalam hati setiap orang yang apabila diaktifkan dan digunakan dengan sebaik-baiknya akan membuahkan kemenangan-kemenangan :
1. KEINGINAN / DESIRE
Semangat untuk mencapai keberhasilan berasal dari keinginan dari dalam hati yang berkobar-kobar untuk mencapai suatu tujuan. Napoleon Hill menyatakan: Segala pemikiran yang benar-benar dipahami dan dipercaya oleh seseorang, pasti akan membuahkan hasil seperti yang dipikirkan. Keinginan yang berkobar-kobar itu adalah titik awal dari segala sesuatu yang akan dicapai. Persis bagaikan api yang kecil yang tak dapat menghasilkan kehangatan yang cukup, keinginan yang lemah tidak dapat membuahkan hasil yang hebat.
2. KOMITMEN
Integritas dan hikmat (kepandaian) adalah dua pilar yang akan membangun dan meneguhkan komitmen. Integritas adalah ketulusan hati dan kejujuran dan hikmat adalah pengetahuan.
3. TANGGUNG JAWAB
Manusia yang memiliki karakter yang kuat selalu bersedia menerima tanggung jawab. Mereka pengambil keputusan dan menentukan nasib mereka sendiri. Mereka siap menghadapi apapun resikonya dan tidak pernah lari dari persoalan akibat keputusan yang dibuatnya.
Sebagian besar manusia lebih menyukai keadaan yang nyaman dan hidup pasif tanpa menerima suatu tanggungjawab. Mereka dilatih untuk hidup dengan cara menanti sesuatu terjadi lebih daripada membuat sesuatu terjadi. Manusia yang bertanggung jawab adalah manusia yang berani dan kreatif dan tidak pernah merasa bosan dengan kesempatan hidup yang diberikan.
4. KERJA KERAS
Prestasi bukanlah sesuatu yang diperoleh karena kebetulan. Prestasi membutuhkan persiapan dan karakter. Kerja keras tidak bisa dipisahkan dari keberhasilan seseorang. Kerja keras adalah sahabat si pemenang tetapi musuh yang dibenci orang yang kalah / gagal. Setiap orang mengharapkan kemenangan tetapi hanya beberapa orang saja yang benar-benar berusaha dan mempersiapkan diri untuk meraih kemenangannya.
5. PERCAYA POSITIF (POSITIVE BELIEVING)
Percaya postif lebih dari pada berfikir positif. Percaya positif berarti memiliki satu alasan untuk percaya bahwa dengan berfikir positif akan menghasilkan sesuatu yang hebat. Percaya yang positif adalah sikap percaya diri yang datang karena adanya persiapan. Memiliki sikap yang positif tanpa ada usaha yang dilakukan sama bagaikan kita bermimpi tanpa menghasilkan sesuatu. Percaya yang positif adalah sikap percaya diri yang datang karena adanya persiapan. Memiliki sikap yang positif tanpa ada usaha yang dilakukan sama bagaikan kita bermimpi tanpa menghasilkan sesuatu.
6. KEKUATAN KEGIGIHAN (THE POWER OF PERSISTENCE)
Kegigihan merupakan kombinasi dari komitmen dan determinasi (kesungguhan). Kerajinan yang menunjukkan suatu komitmen untuk menyelesaikan sesuatu yang sudah dimulai. Saat kita merasa begitu penat dan ada keinginan untuk berhenti, kelihatannya itu hal yang biasa untuk kita lakukan. Tetapi seorang juara akan tetap bertahan dan berusaha. Cobalah bertanya pada seorang atlet yang sudah memenangkan satu pertandingan. Dia pasti menjawab kunci keberhasilannya adalah tetap bertahan dan terus berusaha menyelesaikan apa yang sudah dimulai sampai mencapai garis finish. Banyak kegagalan terjadi dan tidak menghasilkan nilai apapun. Kegigihan datang dari satu tujuan yang jelas. Hidup tanpa memiliki tujuan yang jelas akan mengambang dan tidak terarah. Seseorang yang tidak memiliki tujuan tidak akan memiliki ketekunan dalam menyelesaikan sesuatu.
7. KEBANGGAAN TERHADAP PRESTASI
Prestasi terbaik datang jika seorang telah berjuang sebaik-baiknya. Apa yang diperolehnya merupakan suatu kebanggaan yang tak terbayangkan. Kebanggaan terhadap prestasi yang telah kita capai tidaklah mencerminkan keakuan atau kesombongan. Tetapi lebih mencerminkan sukacita dengan rendah hati. Mutu pekerjaan dan kualitas orangnya tidak akan terpisahkan. Usaha yang dilakukan dengan setengah hati tidak berarti akan menghasilkan setengah hasil, tetapi tidak akan menghasilkan apa-apa.
Setiap pekerjaan merupakan potret diri orang yang mengerjakan, apapun pekerjaan itu, apakah itu mencuci mobil, menyapu lantai atau mengecat rumah. Kebanggaan datang dari dalam dimana pekerjaan telah dikerjakan dengan satu kesungguhan hati.
Senin, 23 April 2012
the future technology
Latest Car For Future Technology: World New Technology
Latest Car For Future Technology: World New Technology
How Nice Car For Future Technology:
This car will be mirror of future technology and world. When I see this car than I amazed. This car design is very latest and strong. This car has no engines, no drivers, no limits and no steering wheel. This car is surprise of the future. This car shapes is very different. The visibility is unpredictable, converging high fashion and high technology. The car very latest design that no engine, no steer wheel, and petroleum-free. The designers came out with really unique revolutionary ideas. It has minimum weight and perfect aerodynamics, low resistance mobility, and very efficient. After all, I like this car because it design, engine. Colors. Overall is very latest. It’s very fantastic.
Rabu, 25 Januari 2012
Senin, 26 September 2011
Rayuan Gombal ( Ala Lebay )
Cowok : Mbak jangan pegangan sama besi kereta…
Cewek : Emang kenapa..?
Cowok : Kayaknya besinya kotor tuh..pegangan sama aku aja…
Cewek : Emang kenapa..?
Cowok : Kayaknya besinya kotor tuh..pegangan sama aku aja…
X : “yank..bisa bantuin aku ga?”
Y : “bantuin apa?”
X : “ngegambar yank…mau ga??”
Y : “ngegambar apa?”
X : “bantuin aku gambar…… peta dari hati aku ke hati kamu”
Y : “bantuin apa?”
X : “ngegambar yank…mau ga??”
Y : “ngegambar apa?”
X : “bantuin aku gambar…… peta dari hati aku ke hati kamu”
Cowok: Maaf mba, jangan terlalu lama duduk dikursi itu, pindah
dideket saya aja
dideket saya aja
Cewek : Loh?? kenapa??
Cowok : Takut dikerubung semut.. soalnya mba manis..
Cowok : Mbak, orang tuanya pengrajin bantal ya..?
Cewek : Hah..!!!? bukan..Emang kenapa..?
Cowok : kok kalo deket sama mbak rasanya nyaman yach..
Cewek : Hah..!!!? bukan..Emang kenapa..?
Cowok : kok kalo deket sama mbak rasanya nyaman yach..
Cowok : Mbak jangan ngomong ya..
Cewek : Lho.. emang kenapa..?
Cowok : Karena biasanya aku malemnya enggak bisa tidur… kalo abis
denger suara dari bibir yang indah…
Cewek : Lho.. emang kenapa..?
Cowok : Karena biasanya aku malemnya enggak bisa tidur… kalo abis
denger suara dari bibir yang indah…
x : beyb… kmu punya guru fisika gak.
y : ada, emangnya knp..??
x : tanyain dong!!!
y : tanyain apaan..? PR kamu….??
x : bukannn.!!! tanyain dia kenapa si kok kutub2 hati aku selalu ngedeketin hati kmu
y : ada, emangnya knp..??
x : tanyain dong!!!
y : tanyain apaan..? PR kamu….??
x : bukannn.!!! tanyain dia kenapa si kok kutub2 hati aku selalu ngedeketin hati kmu
Cowok : Mbak bajunya enggak pernah disetrika ya..?
Cewek : Enak aja… emang kenapa..?
Cowok : biasanya kalo cewek udah cantik enggak perlu lagi nyetrika baju..
Cewek : Enak aja… emang kenapa..?
Cowok : biasanya kalo cewek udah cantik enggak perlu lagi nyetrika baju..
Cowok : “kamu itu seperti sendok…”
Cewek : “Kenapa?”
Cowok : “Karena kamu ngaduk-ngaduk perasaan aku…”
Cewek : “Kenapa?”
Cowok : “Karena kamu ngaduk-ngaduk perasaan aku…”
Cowok: “Kamu sekali-sekali nyuci piring dooonk”
Cewek: “Hah? emang kenapa ?”
Cowok: “Ini tangan kamu terlalu lembut…”
Cewek: “Hah? emang kenapa ?”
Cowok: “Ini tangan kamu terlalu lembut…”
Cowok: “Kamu pasti enggak pernah maen bola ya..”
Cewek: “Iya laaah… emang kenapa…?”
Cowok: “Soalnya kaki kamu bagus banget….”
Cewek: “Iya laaah… emang kenapa…?”
Cowok: “Soalnya kaki kamu bagus banget….”
Cowok: “Mbak punya uang koin ? Boleh minta ?”
Cewek: “Buat apa ?”
Cowok: “Aku udah janji sama ibu kalau aku akan menelepon dia bila
aku jatuh cinta”
Cewek: “Buat apa ?”
Cowok: “Aku udah janji sama ibu kalau aku akan menelepon dia bila
aku jatuh cinta”
ce: say, klo mama kamu & aku tenggelam samaan, siapa yang kamu
tolong..?
co: ya mama aku lah.. emang kamu yang lahirin aku..?
ce: ih kamu..
co: iya, tapi abis selamatin mama aku, aku akan tenggelam bersama
kamu..
tolong..?
co: ya mama aku lah.. emang kamu yang lahirin aku..?
ce: ih kamu..
co: iya, tapi abis selamatin mama aku, aku akan tenggelam bersama
kamu..
ceweq : yank…
cowoq : hmmm…
ceweq : yank…
cowoq : hmmm… napa?
ceweq : yank, aku kyknya ga enak badan d…
cowoq : ga enak badan kenapa…
ceweq : jantung ku rada sakit gt…
cowoq : sakitnya kyk gimana?
ceweq : jantung ku sakit kl jauh dari km
cowoq : hmmm…
ceweq : yank…
cowoq : hmmm… napa?
ceweq : yank, aku kyknya ga enak badan d…
cowoq : ga enak badan kenapa…
ceweq : jantung ku rada sakit gt…
cowoq : sakitnya kyk gimana?
ceweq : jantung ku sakit kl jauh dari km
I wish i were a tear.
So i could born in your eyes.
Life on your face.
And die on your lips.
So i could born in your eyes.
Life on your face.
And die on your lips.
entah knapa aku yakin banget bokap kamu pasti punya pabrik kapas…
makanya aku selalu merasa hangat kalo di deket kamu…
kmaren aku udah ke dokter mata sesuai permintaan kamu…
dokter kaget karna ternyata di mata aku selalu ada kamu…
makanya aku selalu merasa hangat kalo di deket kamu…
kmaren aku udah ke dokter mata sesuai permintaan kamu…
dokter kaget karna ternyata di mata aku selalu ada kamu…
cewe: nanti klo aku uda dket, aku miskol deh..
cowo: ga usah, i can sense when u r around..
cowo: ga usah, i can sense when u r around..
x : hmm maaf yaa belakangan ini tanganku agak kasar…
y : ahh gapapa kok, emangnya knp??
x : soalnya aku tiap hari jadi kuli
y : yang bener kmu?? dimana?
x : di hati kamu, aku selalu buatin istana cinta buat kita berdua
y : ahh gapapa kok, emangnya knp??
x : soalnya aku tiap hari jadi kuli
y : yang bener kmu?? dimana?
x : di hati kamu, aku selalu buatin istana cinta buat kita berdua
x : saayyaaangggg, papah kamu astronot ya..?
y : enggak kok..
x : kalo gitu pasti kakek kamu dong
y : enggak juga kok…
x : tru yang astronot siapa..?
y : enggak ada…
x : tapi kok ada berjuta2 bintang si di mata kmu…
y : enggak kok..
x : kalo gitu pasti kakek kamu dong
y : enggak juga kok…
x : tru yang astronot siapa..?
y : enggak ada…
x : tapi kok ada berjuta2 bintang si di mata kmu…
y : cintaku… cita2 kamu apaan si..??
x : aku kalo udah gede mau jadi dokter bedah
y : lho..? emangnya knapa??
x : biar aku bisa belah dada kamu, terus aku nulisin nama aku di
hati kamu.
x : aku kalo udah gede mau jadi dokter bedah
y : lho..? emangnya knapa??
x : biar aku bisa belah dada kamu, terus aku nulisin nama aku di
hati kamu.
x : sayank… aku boleh liat punggung kamu gak??
y : emangnya ada apaan??
x : aku mau liat sayapnya seorang bidadari cantik kayak kamu
beyb…
x : aku mau liat sayapnya seorang bidadari cantik kayak kamu
beyb…
x : sayang pasti di rumah kamu banyak lebah yaa
y : ahh sok tau kamu ni…
x : pasti iyalah, kan ada madunya yang cantik bgt… yaitu kmu
y : ahh sok tau kamu ni…
x : pasti iyalah, kan ada madunya yang cantik bgt… yaitu kmu
x : sayanggg… aku minta kunci gembok dong…!!!
y : buat apaan si emangnya.??
x : buat buka hati aku, terus aku masukin cinta kamu…. habis itu
aku kunci rapet2 biar kamu selalu ada di hati aku…
y : buat apaan si emangnya.??
x : buat buka hati aku, terus aku masukin cinta kamu…. habis itu
aku kunci rapet2 biar kamu selalu ada di hati aku…
Lumayan kan gan...
buat ngocok perut....
buat ngocok perut....
Kamis, 22 September 2011
5 cara Yang senang untuk belajar hack Facebook.
Pertama-tama saya ingin memberitahu Anda hacking yang merupakan kesenian. Saya mengajar Anda seni ini sehingga Anda dapat membuat diri Anda lebih aman. Aku tidak ingin kau menggunakan teknik saya untuk merugikan orang lain karena hacker tidak pernah merugikan orang lain, kerupuk lakukan. Dan kita tidak Hacker cracker.
Ada 5 langkah mudah untuk belajar Hacking: -
1. Ambil Tindakan keselamatan semua untuk menyembunyikan diri dari target.
Ada banyak teknik untuk menyembunyikan diri dari komputer target. Saya sarankan Anda untuk menggunakan teknik sebanyak yang Anda bisa.
Saya menyebutkan trik penting yang di bawah ini: -
Gunakan Software Sembunyikan Ip: - Software ini akan membantu Anda untuk menyembunyikan alamat IP Anda.
Gunakan Firewall: - Firewall mengamankan komputer Anda serta membatasi informasi pribadi dari pergi ke luar.
Gunakan Proxy server: - Kapanpun Anda ingin berselancar komputer target Anda menggunakan server proxy.
Gunakan nama pengguna dan password orang lain: - Cobalah untuk menghindari penggunaan nama pengguna Anda sendiri dan password untuk koneksi internet. Pelajari teknik untuk mendapatkan nama pengguna dan password lain.
2. Cari tahu IP Address Komputer Target.
apa alamat Ip: - bentuk penuh Ini adalah Internet Protocol Alamat. Protokol berarti pembicaraan komputer cara untuk arti setiap protokol lain dan Internet, cara yang berbicara dua untuk setiap komputer di internet. Jadi arti lengkap alamat Ip adalah alamat dari sebuah komputer yang ingin untuk berbicara dengan komputer lain di internet.
Ada dua hal penting tentang alamat ip: -
itu adalah unik untuk setiap komputer.
diperlukan setiap kali kita terhubung ke internet.
Penggunaan alamat IP dalam Hacking: - alamat Ip adalah salah satu bagian terpenting dari hacking. Untuk mempelajari pentingnya dalam hacking pertama-tama kita perlu tahu apa yang hacking. Semua saya dapat katakan di sini adalah bahwa jika kita tidak tahu alamat ip komputer target kita tidak bisa mampu bergerak satu langkah maju dalam mendapatkan akses ke komputer target.
Cara untuk mengetahui alamat IP: -
Ping
tracert
permintaan dns
3.Gather informasi tentang komputer target seperti sistem operasi, waktu, tanggal, dll.
"Apa itu perlu?
Untuk dapat mengetahui kelemahan komputer target.
Untuk mengeksploitasi kelemahan tersebut.
Pelajari lebih lanjut bagaimana kita dapat memanfaatkan itu.
Bagaimana untuk mengumpulkan informasi?
Telnet
Dns Query
Pelabuhan Pindai
tracert
4.Use mesin pencari (menurut informasi yang diperoleh dari langkah di atas) untuk mendapatkan alat yang akan membantu kita untuk hack komputer target.
Search engine seperti google adalah teman yang sangat dekat hacker. Jika kita melakukan semua hal yang disebutkan di atas kita tahu persis di mana kerentanan terletak pada komputer target. Untuk menggunakan kerentanan yang kita mencari alat-alat yang tersedia di google.com. Setelah men-download alat khusus kita perlu Alamat IP komputer target (kita sudah tahu) untuk mendapatkan akses di komputer lain.
Pelajari untuk menggunakan kerentanan yang
5. Tinggalkan satu atau dua file pada komputer target sehingga untuk mendapatkan akses yang mudah di masa depan.
Untuk mendapatkan akses lagi dan lagi hacker biasanya meninggalkan file di komputer target. Untuk Clow Bersih misalnya mereka untuk mendapatkan akses lagi dan lagi.
Ada 5 langkah mudah untuk belajar Hacking: -
1. Ambil Tindakan keselamatan semua untuk menyembunyikan diri dari target.
Ada banyak teknik untuk menyembunyikan diri dari komputer target. Saya sarankan Anda untuk menggunakan teknik sebanyak yang Anda bisa.
Saya menyebutkan trik penting yang di bawah ini: -
Gunakan Software Sembunyikan Ip: - Software ini akan membantu Anda untuk menyembunyikan alamat IP Anda.
Gunakan Firewall: - Firewall mengamankan komputer Anda serta membatasi informasi pribadi dari pergi ke luar.
Gunakan Proxy server: - Kapanpun Anda ingin berselancar komputer target Anda menggunakan server proxy.
Gunakan nama pengguna dan password orang lain: - Cobalah untuk menghindari penggunaan nama pengguna Anda sendiri dan password untuk koneksi internet. Pelajari teknik untuk mendapatkan nama pengguna dan password lain.
2. Cari tahu IP Address Komputer Target.
apa alamat Ip: - bentuk penuh Ini adalah Internet Protocol Alamat. Protokol berarti pembicaraan komputer cara untuk arti setiap protokol lain dan Internet, cara yang berbicara dua untuk setiap komputer di internet. Jadi arti lengkap alamat Ip adalah alamat dari sebuah komputer yang ingin untuk berbicara dengan komputer lain di internet.
Ada dua hal penting tentang alamat ip: -
itu adalah unik untuk setiap komputer.
diperlukan setiap kali kita terhubung ke internet.
Penggunaan alamat IP dalam Hacking: - alamat Ip adalah salah satu bagian terpenting dari hacking. Untuk mempelajari pentingnya dalam hacking pertama-tama kita perlu tahu apa yang hacking. Semua saya dapat katakan di sini adalah bahwa jika kita tidak tahu alamat ip komputer target kita tidak bisa mampu bergerak satu langkah maju dalam mendapatkan akses ke komputer target.
Cara untuk mengetahui alamat IP: -
Ping
tracert
permintaan dns
3.Gather informasi tentang komputer target seperti sistem operasi, waktu, tanggal, dll.
"Apa itu perlu?
Untuk dapat mengetahui kelemahan komputer target.
Untuk mengeksploitasi kelemahan tersebut.
Pelajari lebih lanjut bagaimana kita dapat memanfaatkan itu.
Bagaimana untuk mengumpulkan informasi?
Telnet
Dns Query
Pelabuhan Pindai
tracert
4.Use mesin pencari (menurut informasi yang diperoleh dari langkah di atas) untuk mendapatkan alat yang akan membantu kita untuk hack komputer target.
Search engine seperti google adalah teman yang sangat dekat hacker. Jika kita melakukan semua hal yang disebutkan di atas kita tahu persis di mana kerentanan terletak pada komputer target. Untuk menggunakan kerentanan yang kita mencari alat-alat yang tersedia di google.com. Setelah men-download alat khusus kita perlu Alamat IP komputer target (kita sudah tahu) untuk mendapatkan akses di komputer lain.
Pelajari untuk menggunakan kerentanan yang
5. Tinggalkan satu atau dua file pada komputer target sehingga untuk mendapatkan akses yang mudah di masa depan.
Untuk mendapatkan akses lagi dan lagi hacker biasanya meninggalkan file di komputer target. Untuk Clow Bersih misalnya mereka untuk mendapatkan akses lagi dan lagi.
VB6 Msflexgrid dapat mengirimkan ke EXCEL Loe
Kali ini kita akan membuat program kecil bagaimana VB6 Msflexgrid dapat mengirim data ke program di Microsoft Offrice MsExcel. Langkah pertama yang harus kita lakukan adalah. Buat proyek baru, maka kontrol dan kontrol CommandButton Msflexgrid dari komponen pilih Microsoft FlexGrid 6.0 Kontrol. serta untuk menambahkan sebuah kontrol CommandButton untuk melakukan langkah yang sama. Kemudian kita menambahkan referensi ke Microsoft Excel Obyek Referensi yaitu 11.0.
Caranya adalah, pada menu Proyek utama, submenu di bagian bawah ada sub menu bernama referensi, fungsi menu untuk menambahkan referensi lain yang dibutuhkan oleh program yang kita buat. Dan apa yang kita butuhkan sekarang adalah referensi dari MsExcel. Apakah menelusuri, kemudian pilih Microsoft Excel Obyek 11,0.Sampai disini kita telah menyimpan proyek berarti bahwa referensi ini, dan kemudian kita dapat menggunakan.Tambahkan kode program berikut:
Private Sub Command2_Click ()Dim i As Integeri = 1Dengan MSFlexGrid1FixedRows =. 1FixedCols =. 0. Baris = iCols =. 3TextMatrix (i - 1, 0). = "Kol 1"TextMatrix (i - 1, 1). = "Kol 2"TextMatrix (i - 1, 2). = "Kol 3"
Untuk i = 2 Untuk 10. Baris = iTextMatrix (i - 1, 0). = "Val" & iTextMatrix (i - 1, 1). = ITextMatrix (i - 1, 2). = (I * 10)Next iAkhir DenganEnd Sub
Jadi sekarang kami telah membuat 3 kolom dan baris pertama sebagai header. jadi sekarang kita harus mengirim data.ketik perintah berikut pada kontrol tombol perintah:
Private Sub Command1_Click ()Dim XcLApp Sebagai ObyekDim XcLWB Sebagai ObyekDim XcLWS Sebagai Obyek
Dim i As Integer
Set XcLApp = CreateObject ("Excel.Application")Set XcLWB = XcLApp.Workbooks.Add 'pembukaan baru kerja excel buku'Set XcLWS = XcLWB.Worksheets.Add
Dengan MSFlexGrid1Untuk i = 1 Untuk Baris -. 1XcLWS.Range (Addres_Excel (i, 1)). Nilai = TextMatrix (i, 0). "Tambahkan teks dari col1 'XcLWS.Range (Addres_Excel (i, 2)). Nilai = TextMatrix (i, 1). "Tambahkan teks dari col2 'XcLWS.Range (Addres_Excel (i, 3)). Nilai = TextMatrix (i, 2). "Tambahkan teks dari col3 'Next iAkhir DenganXcLApp.Visible = TrueEnd Sub
VB6 Msflexgrid DENGAN EXCEL
Jadi sekarang kami telah membuat 3 kolom dan baris pertama sebagai header. jadi sekarang kita harus mengirim data.Ketik perintah berikut pada kontrol tombol perintah:Jadi apa yang kita lakukan adalah kita telah menciptakan sebuah aplikasi excel baru. membuat workbook dan worksheet. kemudian menggunakan data dari msflexgrid kontrol dan mengirimkannya ke alamat worksheet. dari 1 sampai 3 untuk kolom dan baris. trik ini Addres_Excel fungsi (). apa yang dia lakukan adalah untuk mengirim info seperti baris 1 dan col 1 dan transfer ke 'A1'. Sebagai contoh jika kita mengirim 1 untuk kolom 1 akan dibagi dengan 26 dan mod akan menunjukkan apa surat itu. 1 mod 26 akan kembali 0. 0 + simbol ascii untuk "A" akan menjadi "A".jadi di sini adalah fungsi
Fungsi publik Addres_Excel (ByVal lng_row As Long, ByVal As Long lng_col) As StringDim modval As Long 'digunakan untuk mendapatkan pengingat'Strval Dim As String 'mendapatkan huruf transferd'modval = (lng_col - 1) Mod 26strval = Chr $ (Asc ("A") + modval)modval = ((lng_col - 1) \ 26) - 1Jika modval> = 0 Then strval = Chr $ (Asc ("A") + modval) & strval 'jika kita memiliki lebih kemudian kita menambahkan huruf'Addres_Excel = strval & lng_rowEnd Function
Sampai disini kita sudah selesai membuat program aplikasi mengirimkan data ke program dari VB6 Msflexgrid MsExcel dari Microsoft Office.
Caranya adalah, pada menu Proyek utama, submenu di bagian bawah ada sub menu bernama referensi, fungsi menu untuk menambahkan referensi lain yang dibutuhkan oleh program yang kita buat. Dan apa yang kita butuhkan sekarang adalah referensi dari MsExcel. Apakah menelusuri, kemudian pilih Microsoft Excel Obyek 11,0.Sampai disini kita telah menyimpan proyek berarti bahwa referensi ini, dan kemudian kita dapat menggunakan.Tambahkan kode program berikut:
Private Sub Command2_Click ()Dim i As Integeri = 1Dengan MSFlexGrid1FixedRows =. 1FixedCols =. 0. Baris = iCols =. 3TextMatrix (i - 1, 0). = "Kol 1"TextMatrix (i - 1, 1). = "Kol 2"TextMatrix (i - 1, 2). = "Kol 3"
Untuk i = 2 Untuk 10. Baris = iTextMatrix (i - 1, 0). = "Val" & iTextMatrix (i - 1, 1). = ITextMatrix (i - 1, 2). = (I * 10)Next iAkhir DenganEnd Sub
Jadi sekarang kami telah membuat 3 kolom dan baris pertama sebagai header. jadi sekarang kita harus mengirim data.ketik perintah berikut pada kontrol tombol perintah:
Private Sub Command1_Click ()Dim XcLApp Sebagai ObyekDim XcLWB Sebagai ObyekDim XcLWS Sebagai Obyek
Dim i As Integer
Set XcLApp = CreateObject ("Excel.Application")Set XcLWB = XcLApp.Workbooks.Add 'pembukaan baru kerja excel buku'Set XcLWS = XcLWB.Worksheets.Add
Dengan MSFlexGrid1Untuk i = 1 Untuk Baris -. 1XcLWS.Range (Addres_Excel (i, 1)). Nilai = TextMatrix (i, 0). "Tambahkan teks dari col1 'XcLWS.Range (Addres_Excel (i, 2)). Nilai = TextMatrix (i, 1). "Tambahkan teks dari col2 'XcLWS.Range (Addres_Excel (i, 3)). Nilai = TextMatrix (i, 2). "Tambahkan teks dari col3 'Next iAkhir DenganXcLApp.Visible = TrueEnd Sub
VB6 Msflexgrid DENGAN EXCEL
Jadi sekarang kami telah membuat 3 kolom dan baris pertama sebagai header. jadi sekarang kita harus mengirim data.Ketik perintah berikut pada kontrol tombol perintah:Jadi apa yang kita lakukan adalah kita telah menciptakan sebuah aplikasi excel baru. membuat workbook dan worksheet. kemudian menggunakan data dari msflexgrid kontrol dan mengirimkannya ke alamat worksheet. dari 1 sampai 3 untuk kolom dan baris. trik ini Addres_Excel fungsi (). apa yang dia lakukan adalah untuk mengirim info seperti baris 1 dan col 1 dan transfer ke 'A1'. Sebagai contoh jika kita mengirim 1 untuk kolom 1 akan dibagi dengan 26 dan mod akan menunjukkan apa surat itu. 1 mod 26 akan kembali 0. 0 + simbol ascii untuk "A" akan menjadi "A".jadi di sini adalah fungsi
Fungsi publik Addres_Excel (ByVal lng_row As Long, ByVal As Long lng_col) As StringDim modval As Long 'digunakan untuk mendapatkan pengingat'Strval Dim As String 'mendapatkan huruf transferd'modval = (lng_col - 1) Mod 26strval = Chr $ (Asc ("A") + modval)modval = ((lng_col - 1) \ 26) - 1Jika modval> = 0 Then strval = Chr $ (Asc ("A") + modval) & strval 'jika kita memiliki lebih kemudian kita menambahkan huruf'Addres_Excel = strval & lng_rowEnd Function
Sampai disini kita sudah selesai membuat program aplikasi mengirimkan data ke program dari VB6 Msflexgrid MsExcel dari Microsoft Office.
Subjek:Matematika/Materi:Persamaan dan Pertidaksamaan Linear 1 Variabel
Persamaan linear satu variabel adalah persamaan yang terdiri dari satu variabel dan pangkat terbesar dari variabel tersebut adalah satu.
Contoh:

Jika variabel γ diganti dengan angka 7, maka hasilnya salah. Sebaliknya, jika variabel γ diganti dengan angka 8, maka hasilnya benar.
Contoh:
Kedua kalimat di atas disebut persamaan.
Persamaan adalah kalimat terbuka yang menyatakan hubungan = (sama dengan).
Pertidaksamaan linear satu variabel menggunakan tanda <, >, ≤, dan ≥.
Keterangan:
Kalimat terbuka
Kalimat terbuka adalah suatu kalimat yang belum dikatakan benar atau salah.Contoh:
Jika variabel γ diganti dengan angka 7, maka hasilnya salah. Sebaliknya, jika variabel γ diganti dengan angka 8, maka hasilnya benar.
Persamaan Linear Satu Variabel
Telah dijelaskan bahwa persamaan linear satu variabel adalah persamaan yang terdiri dari satu variabel dan pangkat terbesar dari variabel tersebut adalah satu.Contoh:
Kedua kalimat di atas disebut persamaan.
Persamaan adalah kalimat terbuka yang menyatakan hubungan = (sama dengan).
Penyelesaian persamaan linear satu variabel
Contoh:- Tentukan persamaan dari
.
2x - 1 = 5
2x - 1 + 1 = 5 + 1
2x = 6
x = 6 : 2
x = 3- Tentukan persamaan dari
.
2λ + 5 = 5λ - 10
2λ + 5 - 5 = 5λ - 10 - 5
2λ = 5λ - 15
15 = 5λ - 2λ
15 = 3λ
λ = 15 : 3
λ = 5Pertidaksamaan Linear Satu Variabel
Pertidaksamaan linear satu variabel adalah pertidaksamaan yang memuat satu variabel dan pangkat terbesarnya adalah satu.Pertidaksamaan linear satu variabel menggunakan tanda <, >, ≤, dan ≥.
Keterangan:
- < kurang dari
- > lebih dari
- ≤ kurang dari sama dengan
- ≥ lebih dari sama dengan
- Tentukan penyelesaian dari pertidaksamaan dari
.
5x + 2 > 8
5x + 2 - 2 > 8 - 2
5x > 6
x > 6 : 5
x > 
Langganan:
Komentar (Atom)



