Informatika Angkatan 2

login

2010-02-04T01:50:00.000-08:00

Private Sub Button1_Click()Data1.Recordset.Index = "id_apoteker"Data1.Recordset.Seek "=", txtPasswordIf Data1.Recordset.NoMatch ThenMsgBox "Password Salah,isi Dengan Benar", vbCritical, "Kesalahan"ElseIf Data1.Recordset!id_apoteker <> txtPassword.Text ThenMsgBox "Salah", vbCritical, "kesalahan"txtPassword.SetFocusElseForm7.Show'nm_apoteker = txtUserName.TextMe.HideEnd IfEnd Sub

progres bar

2010-02-04T01:09:00.000-08:00

Private Sub Form_Load()Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()ProgressBar1.Value = ProgressBar1.Value + 5If ProgressBar1.Value = 45 Then Load Form1End IfIf ProgressBar1.Value = 100 Then Form6.Visible = False Form5.Visible = True Timer1.Enabled = FalseEnd IfEnd Sub

memunculkan id dan nama di dalam commbo

2010-02-04T01:03:00.000-08:00

Pertama...Private Sub form_activate()Data2.Recordset.MoveFirstDo While Not Data2.Recordset.EOFCombo3.AddItem Data2.Recordset!id_jenis & " " & Data2.Recordset!jns_obatData2.Recordset.MoveNextLoopEnd Sublalu di combo'y kasih listing iniPrivate Sub Combo3_Click()Text3.Text = Mid(Combo3.Text, 1, 5)Text6.Text = Mid(Combo3.Text, 6, 50)Text6.Visible = TrueEnd Sub

simpan cetak

2010-02-04T01:00:00.000-08:00

If Text10.Text = "" Then MsgBox "Maaf Data Masih Kosong", vbInformation, "Information" Text10.SetFocus ElseIf Val(Label11.Caption) < 0 Then MsgBox "Uang Bayar Kurang!!", vbInformation, "Information" Text10.Text = "" Text10.SetFocus Else 'On Error Resume Next Dim A As String Dim b As String Dim c As String Dim ac As String Dim bc As String Dim d As Currency Dim e As

contoh listing simpan cetak Transaksi

2010-01-22T23:16:00.000-08:00

Private Sub Command1_Click()Dim a As String Dim b As String Dim c As String Dim d As String Dim e As String Dim f As String Dim g As String Load Printer1 Printer1.Show Printer1.FontName = "arial" Printer1.CurrentX = 0 Printer1.CurrentY = 0 Printer1.FontSize = 11 Printer1.FontBold = False Printer1.Print Printer1.Print Tab(3); "RS Lekas Sembuh" Printer1.Print Tab(3);

Listing Simpan

2010-01-22T23:12:00.000-08:00

ketik listing di bawahPrivate Sub Commandsimpan_Click()If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Combo1.Text = "" ThenMsgBox "Data Masih Ada Yang Kosong", vbCritical, "Warning"ElseData1.Recordset.Index = "kdpasen"Data1.Recordset.Seek "=", Text1.TextIf Not Data1.Recordset.NoMatch ThenData1.Recordset.EditData1.Recordset!

Nomor Otomatis Untuk VB

2010-01-22T23:07:00.000-08:00

Ketik Listing Di BawahPrivate Sub nomor()Dim no As StringWith Data1If .Recordset.RecordCount <> 0 Then.Recordset.MoveLastno = Val(Right(.Recordset!kdpasen, 4)) + 1If Len(Trim(no)) = 1 ThenText1.Text = "P" + "000" + noEnd IfIf Len(Trim(no)) = 2 ThenText1.Text = "P" + "00" + noEnd IfIf Len(Trim(no)) = 3 ThenText1.Text = "P" + "0" + noEnd IfIf Len(Trim(no)) = 4 ThenText1.Text = "P" + noEnd

Guntingan Kertas

2009-11-09T19:37:00.000-08:00

Bayangkan kamu memiliki selembar kertas dan gunting. Kamu diminta menggunting kertas secara bebas, sesuai keinginan. Bagaimana kamu mengguntingnya?1. Menggunting kertas menjadi dua sama besar2. Membuat guntingan bersudut beberapa kali3. Membuat potongan bergerigi4. Membuat suatu lingkaran bulatJawaban spontan (yang pertama terbersit). Memutuskan hubungan mirip dengan menggunting kertas

Cara Mengubah Photo jadi Kartun

2009-11-09T19:07:00.001-08:00

Cara Mengubah Photo jadi KartunWaah… udah lama nih gak posting.. Agak sibuk nih para juragan.. sorry ya.. Langsung aja yaa.. sekarang kita coba buat kartun sebenernya cuman dasarnya aja sih.. yang tingkat lanjutnya mungkin nanti deh..kita mulai..pertama buka file gambar yang mo dibikin kartun, misalkan foto kita atau foto sodara atau foto sapa kek.. yang penting background harus clear atau bisa

Virus Linux

2009-11-08T20:15:00.000-08:00

Jika berpikir bahwa di linux tidak ada virus, maka kamu salah. Karena sebenarnya di linux ada virusnya juga seperti windows. Kalau di windows virusnya saat ini sudah lebih dari 2.200.000 (Kaspersky Lab), kalau linux virusnya juga lumayan sih.Saat ini bersmber dari Kompas Tekno saat ini tercatat ada :Trojan : 2 JenisVirus : 22 SpesiesWorm : 11 EkorCukup banyak kan? Tapi kalau kamu mendapatkan

Membuat Efek Manga pake Photoshop

2009-11-08T19:34:00.000-08:00

Membuat Efek Manga pake PhotoshopTutorial efek manga ini saya buat karena banyak yang request juga.. Manga identik dengan JEPANG, Mata gede, bibir dan hidung kecil, kartun, dll. Gimana cara bikin efek manga ? keliatannya susah.. tapi kalo udah dicoba cara bikinnya ternyata gampang.. Tool yang banyak digunakan untuk membuat efek manga ini adalah Liquify. saya lupa tool liquify ini mulai ada di

Monomaxos 4.0 English Edition

2009-11-08T19:00:00.000-08:00

Monomaxos 4.0 English Edition ReleasedBased on Ubuntu 9.04 (Jaunty Jackalope) Dimitris Papadatos proudly announced on November 3rd that the fourth edition of Monomaxos Greek operating system was now also available for English users! Being based on Ubuntu 9.04 (Jaunty Jackalope), Monomaxos 4.0 comes as a 1.7 GB Live DVD and it offers out of the box support for HD (High-Definition) video files

Troubleshooting Linux: VMWare 1.0.4

2009-10-28T19:48:00.000-07:00

Virtualisasi server memudahkan kita dalam melakukan pembelajaran dan melakukan percobaan-percobaan OS dan konfigurasinya. Salah satu produk virtualisasi yang handal, mudah dipakai dan gratis adalah VMware Server dari VMware. Akan tetapi ketika upgrade ke VMware Server versi 1.0.4, saya menemukan masalah ketika membuat virtual machine baru untuk Linux.Ketika mencoba melakukan proses instalasi

SMK Informatika UTAMA

2009-10-27T18:46:00.001-07:00

Cikal bakal dimulai adalah dengan berdirinya Sekolah Menengah Pertama (SMP) Utama yang telah berdiri lebih dahulu sejak Juli 2003. Atas dasar keperihatinan pada tingginya angka putus sekolah yang dialami oleh keluarga dhu’afa serta supaya benang merah proses pendidikan yang ditanamkan di SMP Utama tidak putus, maka PT PLN (Persero) P3B dan Lembaga Amil Zakat (LAZ) PT PLN P3B serta Yasmin dan

2009-10-25T22:18:00.000-07:00

Membuat Efek Bola Kristal dengan MudahBuat dokumen baruKalo nanti niatnya buat wallpaper, ganti aja width nya jadi 1024 px , height nya jadi 768 px.Warnai dengan warna Hitam ..Buka file foto atau gambarIdih.. narsis.. hehehe.. gak apa-apa, kata temen saya ” lebih baik narsis daripada minder ” :p.. Kalo menurut saya, orang yang narsis itu orang yang rajin. Rajin menampakan diri.. :pCrop foto

2009-10-21T02:28:00.001-07:00

Membuat Gulungan Pada Foto ( Peeling )Diposting tepat pada Tanggal unik : 090909 (09 Sept 2009)Sebelumnya saya ingetin dulu buat yang baru belajar photoshop atau baru mengenal Adobe photoshop, silahkan baca-baca dulu teori dasar photoshop, jadi nanti gak ada pertanyaan yang sangat dasar sekali seperti ”gimana cara seleksinya ? gimana cara hapus nya?” dll. Oke? Deal ya.. hehehe..Sebenernya udah