Assalamualaikum Wr.Wb.
Dah pada bisa bikin aplikasi sederhana belum,walaupun sederhana tetapi bisa untuk menambah pembelajaran Agan2 semua hehehe......Oke deh langsung menuju ke bawah
1.Kalkulator sederhana
Ini gan caranya:
-buka notepad
-copy script diawah ini (tanpa sama dengan(=).)
======================================
@echo off
title Kalkulator by : wahyu
:ulang
echo Mari berhitung Dengan wahyusatrio10.blogspot.com...!!
set /p A=Masukkan Angka Pertama =
set /p B=Masukkan Angka Kedua =
set /p o=Pilih pengoperasian anda (*, +, -, /) =
set /a "jumlah" = A%o%B
echo Jumlah = %jumlah%
pause>null
goto ulang
======================================
- Simpan dengan format .bat (contoh:kalkulator.bat)
2.Membuka cd/dvd secara otomatis
-buka notepad
-pastekan script
Set oWMP = CreateObject(“WMPlayer.OCX.7″)
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
-Simpan dengan format .vbs
3.Notepad otomatis mengetik sendiri
-Buka notepad
-pastekan ini
Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Tulisan ini akan menulis sendiri di notepad anda”
loop
Dah pada bisa bikin aplikasi sederhana belum,walaupun sederhana tetapi bisa untuk menambah pembelajaran Agan2 semua hehehe......Oke deh langsung menuju ke bawah
1.Kalkulator sederhana
Ini gan caranya:
-buka notepad
-copy script diawah ini (tanpa sama dengan(=).)
======================================
@echo off
title Kalkulator by : wahyu
:ulang
echo Mari berhitung Dengan wahyusatrio10.blogspot.com...!!
set /p A=Masukkan Angka Pertama =
set /p B=Masukkan Angka Kedua =
set /p o=Pilih pengoperasian anda (*, +, -, /) =
set /a "jumlah" = A%o%B
echo Jumlah = %jumlah%
pause>null
goto ulang
======================================
- Simpan dengan format .bat (contoh:kalkulator.bat)
2.Membuka cd/dvd secara otomatis
-buka notepad
-pastekan script
Set oWMP = CreateObject(“WMPlayer.OCX.7″)
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
-Simpan dengan format .vbs
3.Notepad otomatis mengetik sendiri
-Buka notepad
-pastekan ini
Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Tulisan ini akan menulis sendiri di notepad anda”
loop
-Simpan dengan format .vbs
Sekian Dari Saya
Wassalamualaikum Wr.Wb.


0 Komentar untuk "Cara membuat aplikasi sederhana dengan notepad | Wahyu Blog"