Tuesday 22 May 2018
Sunday 20 May 2018
Wednesday 2 September 2015
Download Injek Indosat 1 September
Update kembali Inject Indosat dan Telkomsel terbaru 31 Agustus 2015, New
Inject Telkomsel 1 2 September 2015, Setelah sebelumnya saya telah
mengupdate akun ssh 31 Agustus 2015, kali ini saya ingin memberikan
update Inject buat 1 2 3 September dengan Provider Telkomsel dan
Indosat. Inject ini bernama Raditya Injector yang di buat oleh mas
raditya. ada macam-macam pilihan Host pada Inject ini yang nantinya bisa
agan-agan sendiri yang lihat. Tentunya pilihan host itu berguna buat
teman-teman sekalian. berikut di bawah ini akan saya tampilan screenshot
yang saya ambil dari Inject terbaru Telkomsel dan Indosat 31 Agustus
2015, berikut di bawah ini :
Saat ini untuk penggunaan Inject sendiri yang stabil hanyalah Indosat
dan Asjat, selain dari itu masih terkena limit. untuk tsel-sim biasa
sendiri rata-rata masih terkena limit sampai pemakaian 130MB selain itu
Speed akan turun di bawah 30kb/s. Maka saya saranin buat para
teman-teman yang belum bisa menggunakan SSH bisa memilih Indosat atau
Asjat. Untuk inject ini sendiri telah menyediakan Pilihannya yaitu
Indosat dan As. Tampilan form inject ini bisa dibilang enak untuk
dilihat karena menggunakan Skin Metal yang cocok untuk mata saya, tidak
tau untuk teman-teman. Listen port nya sendiri adalah 6161. Untu Proxy
menggunakan Proxy squid original, Jika teman-teman mempunyai proxy squid
manual bisa mencoba menggunakan Inject Indosat Squid 1 2 3 September 2015 yang
baru saya update. Jika teman-teman ingin mencoba menggunakan Inject
diatas, langsung saja kita menuju ke link yang ada di bawah berikut ini :
Listen Port : 6161
Selamat Menggunakan dan Jangan Lupa yah gan turuti peraturan yang agar update tetap bertahan :)
Selamat Menggunakan dan Jangan Lupa yah gan turuti peraturan yang agar update tetap bertahan :)
Oleh : Fachruddin Manoso ~ Free SSH 2015 & Inject Terbaru
Monday 27 January 2014
TRIK INTERNET GRATIS THREE SUPE_SOFT
1.
Langkah awal buka download > buka borneo cyber tools. Ada 3 file
a.
Ocp.v2.4.txt = passwor
b.
Aplikasi borneo cyber tool
c.
Plugin = pelengkap
2.
Buka bcp2.txt
a.
isikan
passwor borneo cyber tools
b.
Next dan install tunggu hingga penginstalan
selesai
3.
Muncul
tampilan seperti ini
a.
Hilangkan centangan
seperti ada di gambar
b.
Clik finish
4.
Setelah
itu instal juga Pluginnya
a.
Buka bcp2.txt untuk mendapatkan password
5.
Setelah
selesai instal keduanya yaitu :
a.
Koneksikan
modem anda
b.
Buka injeck
part III
c.
Buka BORNEO CYBER TOOLS
6.
Tampilan
INJEK dan BORNEO CYBER TOOL UNTUK LOGGIN
7.
Klik LOGIN TUNGGU HINGGA WARNANYA PUTIH
LINK UNTUK APLIKASINYA : INTERNET GRATIS INDOSAT XL TELKOMSEL
Sunday 12 January 2014
Program Pemesanan Tiket by agung supe
Buat aplikasi Pembelian Tiket Bioskop seperti tampak di bawah ini :
1. Tampilkan judul film pada LblJudulFilm saat user memilih salah satu studio pada OptStudio (buat control array untuk optstudio-nya).
2. Tampilkan pula jam tayang pada pada cboJamTayang berdasarkan studio yang dipilih user.
3. Isi LstHari (Senin s/d Minggu), LstRow (A s/d J), LstSeat (1-10). Pada LstRow dan LstSeat, ganti property Style = 1-CheckBox. User dapat membeli banyak tiket.
4. Saat user meng-klik cmdBeli,
a. Tampilkan total harga pada txtTotHarga (total harga = jumlah tiket * harga tiket pada hari yang dipilih user)
b. Pada FrmDetailTiket, tampilkan judul film pada LblJudulFilmPilih, tampilkan hari dan tanggal pada LblDate, tampilkan jam tayang yang dipilih user pada LblJamTayang, tampilkan harga tiket pada LblHarga berdasarkan harga pada hari yang dipilih user.
5. Munculkan message box “Jumlah uang yang harus dibayar” Pembayaran ada 2 jenis :
a. Jika user memilih OptCash, maka jumlah uang yang harus dibayar = total harga.
b. Jika user memilih OptCreditCard, maka berlaku buy 1 get 1 free tapi tidak berlaku kelipatan. Jumlah uang yang harus dibayar total harga = ( (jumlah tiket-1) * harga tiket). Misal, beli 2 tiket, hanya bayar 1 tiket. Beli 4 tiket, hanya bayar 3 tiket.
6. Tombol cmdCancel digunakan untuk membatalkan transaksi (bersihkan form)
7. DESAIN FORM Anda
Penyelesaian Menurut Saya:
1. Kita buat desain awalnya dulu, seperti ini:
Pada pertanyaan no 1, opt studio menggunakan array caranya, cukup pasangkan satu Option Button, kumudian klik kanan pada optionbutton cari coppy kemudian klik kanan paste-kan. maka akan ada peringakatan "do you alredy have a control name 'option1'.Do you wannt to create a control aray?". Klik Yes, maka anda akan mendapatkan option button aray lakukan sampai 3 kali.
2. Sekarang kita atur properties nya
label 1
caption: Studio:
label 2
caption:Judul Film :
label 3
caption: LblJudulFilm
label 4
caption:Jam Tayang :
label 5
caption:Hari :
label 6
caption: No Kursi :
label 7
caption:Total Harga : Rp
Frame2
Caption: Detail tiket
label 8
caption: Judul Film Pilihan
label 9
caption: Date :
label 10
caption: Kosongkan
Name:lblDate
label 11
caption: Time :
label 12
caption:kosongkan
name:lblTime
label 13
caption:Price : Rp.
label 14
caption:kosongkan
name:lblPrice
label 15
caption:Normat : Rp 20.000 (senin-kamis)
label 16
caption:Jumat : Rp 30.000
label 17
caption:HTM : Rp 45.000
option1(0) optionbutton
Name: OptStudio
Caption: Studio 1
option1(1) optionbutton
Name: OptStudio
Caption: Studio 2
option1(2) optionbutton
Name: OptStudio
Caption: Studio 3
option1(3) optionbutton
Name: OptStudio
Caption: Studio 4
Combo1
Name:cmbJamTayang
List1
Name: LstHari
List2
Name:LstRow
Style: 1-Checkbox
List3
Name:LstSeat
Style: 1-Checkbox
Command1
Name: cmdBeli
Caption: Beli
Frame1
Caption: Pembayaran
Option2
Name:OptPembayaran
Option: Cash
option3
Name:OptCredit
Caption:Credit
Command2
Name: cmdCancel
Caption: Cancel
Command3
Name: cmdExit
Caption: Exit
maka Hasilnya akan seperti ini:
Untuk masalah tulisan dan ukuran tulisan bisa di sesuaikan dengan keinginan anda sendiri.
3. Sekarang Kita mulai membuat coding
Tampilkan judul film pada LblJudulFilm saat user memilih salah satu studio pada OptStudio2.Tampilkan pula jam tayang pada pada cboJamTayang berdasarkan studio yang dipilih user.Isi LstHari (Senin s/d Minggu), LstRow (A s/d J), LstSeat (1-10). Pada LstRow dan LstSeat, ganti property Style = 1-CheckBox. User dapat membeli banyak tiket
Private Sub OptStudio_Click(Index As Integer)
If OptStudio(0).Value = True Then
LblJudulFilm.Caption = "IRON MAN 2"
cmbJamTayang.List(0) = "14:45"
cmbJamTayang.List(1) = "17:00"
cmbJamTayang.List(2) = "19:15"
cmbJamTayang.List(3) = "21:30"
LstHari.List(0) = "Senin"
LstHari.List(1) = "Selasa"
LstHari.List(2) = "Rabu"
LstHari.List(3) = "Kamis"
LstHari.List(4) = "Jumat"
LstHari.List(5) = "Sabtu"
LstHari.List(6) = "Minggu"
LstRow.List(0) = "A"
LstRow.List(1) = "B"
LstRow.List(2) = "C"
LstRow.List(3) = "D"
LstRow.List(4) = "E"
LstRow.List(5) = "F"
LstRow.List(6) = "G"
LstRow.List(7) = "H"
LstRow.List(8) = "I"
LstRow.List(9) = "J"
For s = 1 To 10
LstSeat.AddItem s
Next
ElseIf OptStudio(1).Value = True Then
LblJudulFilm.Caption = "The Book of Eli"
cmbJamTayang.List(0) = "14:55 "
cmbJamTayang.List(1) = "17:05"
cmbJamTayang.List(2) = "19:15"
cmbJamTayang.List(3) = "21:25"
LstHari.List(0) = "Senin"
LstHari.List(1) = "Selasa"
LstHari.List(2) = "Rabu"
LstHari.List(3) = "Kamis"
LstHari.List(4) = "Jumat"
LstHari.List(5) = "Sabtu"
LstHari.List(6) = "Minggu"
LstRow.List(0) = "A"
LstRow.List(1) = "B"
LstRow.List(2) = "C"
LstRow.List(3) = "D"
LstRow.List(4) = "E"
LstRow.List(5) = "F"
LstRow.List(6) = "G"
LstRow.List(7) = "H"
LstRow.List(8) = "I"
LstRow.List(9) = "J"
For s = 1 To 10
LstSeat.AddItem s
Next
ElseIf OptStudio(2).Value = True Then
LblJudulFilm.Caption = "GREEN ZONE"
cmbJamTayang.List(0) = "14:25 "
cmbJamTayang.List(1) = "16:50"
cmbJamTayang.List(2) = "19:15"
cmbJamTayang.List(3) = "21:40"
LstHari.List(0) = "Senin"
LstHari.List(1) = "Selasa"
LstHari.List(2) = "Rabu"
LstHari.List(3) = "Kamis"
LstHari.List(4) = "Jumat"
LstHari.List(5) = "Sabtu"
LstHari.List(6) = "Minggu"
LstRow.List(0) = "A"
LstRow.List(1) = "B"
LstRow.List(2) = "C"
LstRow.List(3) = "D"
LstRow.List(4) = "E"
LstRow.List(5) = "F"
LstRow.List(6) = "G"
LstRow.List(7) = "H"
LstRow.List(8) = "I"
LstRow.List(9) = "J"
For s = 1 To 10
LstSeat.AddItem s
Next
ElseIf OptStudio(3).Value = True Then
LblJudulFilm.Caption = "HURT LOCKER"
cmbJamTayang.List(0) = "14:25 "
cmbJamTayang.List(1) = "16:50"
cmbJamTayang.List(2) = "19:15"
cmbJamTayang.List(3) = "21:40"
LstHari.List(0) = "Senin"
LstHari.List(1) = "Selasa"
LstHari.List(2) = "Rabu"
LstHari.List(3) = "Kamis"
LstHari.List(4) = "Jumat"
LstHari.List(5) = "Sabtu"
LstHari.List(6) = "Minggu"
LstRow.List(0) = "A"
LstRow.List(1) = "B"
LstRow.List(2) = "C"
LstRow.List(3) = "D"
LstRow.List(4) = "E"
LstRow.List(5) = "F"
LstRow.List(6) = "G"
LstRow.List(7) = "H"
LstRow.List(8) = "I"
LstRow.List(9) = "J"
For s = 1 To 10
LstSeat.AddItem s
Next
End If
End Sub
If OptStudio(0).Value = True Then
LblJudulFilm.Caption = "IRON MAN 2"
cmbJamTayang.List(0) = "14:45"
cmbJamTayang.List(1) = "17:00"
cmbJamTayang.List(2) = "19:15"
cmbJamTayang.List(3) = "21:30"
LstHari.List(0) = "Senin"
LstHari.List(1) = "Selasa"
LstHari.List(2) = "Rabu"
LstHari.List(3) = "Kamis"
LstHari.List(4) = "Jumat"
LstHari.List(5) = "Sabtu"
LstHari.List(6) = "Minggu"
LstRow.List(0) = "A"
LstRow.List(1) = "B"
LstRow.List(2) = "C"
LstRow.List(3) = "D"
LstRow.List(4) = "E"
LstRow.List(5) = "F"
LstRow.List(6) = "G"
LstRow.List(7) = "H"
LstRow.List(8) = "I"
LstRow.List(9) = "J"
For s = 1 To 10
LstSeat.AddItem s
Next
ElseIf OptStudio(1).Value = True Then
LblJudulFilm.Caption = "The Book of Eli"
cmbJamTayang.List(0) = "14:55 "
cmbJamTayang.List(1) = "17:05"
cmbJamTayang.List(2) = "19:15"
cmbJamTayang.List(3) = "21:25"
LstHari.List(0) = "Senin"
LstHari.List(1) = "Selasa"
LstHari.List(2) = "Rabu"
LstHari.List(3) = "Kamis"
LstHari.List(4) = "Jumat"
LstHari.List(5) = "Sabtu"
LstHari.List(6) = "Minggu"
LstRow.List(0) = "A"
LstRow.List(1) = "B"
LstRow.List(2) = "C"
LstRow.List(3) = "D"
LstRow.List(4) = "E"
LstRow.List(5) = "F"
LstRow.List(6) = "G"
LstRow.List(7) = "H"
LstRow.List(8) = "I"
LstRow.List(9) = "J"
For s = 1 To 10
LstSeat.AddItem s
Next
ElseIf OptStudio(2).Value = True Then
LblJudulFilm.Caption = "GREEN ZONE"
cmbJamTayang.List(0) = "14:25 "
cmbJamTayang.List(1) = "16:50"
cmbJamTayang.List(2) = "19:15"
cmbJamTayang.List(3) = "21:40"
LstHari.List(0) = "Senin"
LstHari.List(1) = "Selasa"
LstHari.List(2) = "Rabu"
LstHari.List(3) = "Kamis"
LstHari.List(4) = "Jumat"
LstHari.List(5) = "Sabtu"
LstHari.List(6) = "Minggu"
LstRow.List(0) = "A"
LstRow.List(1) = "B"
LstRow.List(2) = "C"
LstRow.List(3) = "D"
LstRow.List(4) = "E"
LstRow.List(5) = "F"
LstRow.List(6) = "G"
LstRow.List(7) = "H"
LstRow.List(8) = "I"
LstRow.List(9) = "J"
For s = 1 To 10
LstSeat.AddItem s
Next
ElseIf OptStudio(3).Value = True Then
LblJudulFilm.Caption = "HURT LOCKER"
cmbJamTayang.List(0) = "14:25 "
cmbJamTayang.List(1) = "16:50"
cmbJamTayang.List(2) = "19:15"
cmbJamTayang.List(3) = "21:40"
LstHari.List(0) = "Senin"
LstHari.List(1) = "Selasa"
LstHari.List(2) = "Rabu"
LstHari.List(3) = "Kamis"
LstHari.List(4) = "Jumat"
LstHari.List(5) = "Sabtu"
LstHari.List(6) = "Minggu"
LstRow.List(0) = "A"
LstRow.List(1) = "B"
LstRow.List(2) = "C"
LstRow.List(3) = "D"
LstRow.List(4) = "E"
LstRow.List(5) = "F"
LstRow.List(6) = "G"
LstRow.List(7) = "H"
LstRow.List(8) = "I"
LstRow.List(9) = "J"
For s = 1 To 10
LstSeat.AddItem s
Next
End If
End Sub
Saat user meng-klik cmdBeli, Tampilkan total harga pada txtTotHarga (total harga = jumlah tiket * harga tiket pada hari yang dipilih user). Pada FrmDetailTiket, tampilkan judul film pada LblJudulFilmPilih, tampilkan hari dan tanggal pada LblDate, tampilkan jam tayang yang dipilih user pada LblJamTayang, tampilkan harga tiket pada LblHarga berdasarkan harga pada hari yang dipilih user.
Sebelum itu kita inilisiasikan nilainyam klik general:
Dim harga, total, credit As Currency
Dim jumlah As Integer
Kemudian, tuliskan code ini
Private Sub cmdBeli_Click()
lblTime.Caption = cmbJamTayang
lblDate.Caption = LstHari
LblJuduFilmlPilihan.Caption = LblJudulFilm
jumlah = LstSeat
Select Case LstHari.ListIndex
Case 0, 1, 2, 3
harga = 20000
total = jumlah * harga
txtTotalHarga.Text = total
lblPrice.Caption = total
credit = (jumlah - 1) * harga
Case 4
harga = 30000
total = jumlah * harga
txtTotalHarga.Text = total
lblPrice.Caption = total
credit = (jumlah - 1) * harga
Case 5, 6
harga = 45000
total = jumlah * harga
txtTotalHarga.Text = total
lblPrice.Caption = total
credit = (jumlah - 1) * harga
End Select
End Sub
lblTime.Caption = cmbJamTayang
lblDate.Caption = LstHari
LblJuduFilmlPilihan.Caption = LblJudulFilm
jumlah = LstSeat
Select Case LstHari.ListIndex
Case 0, 1, 2, 3
harga = 20000
total = jumlah * harga
txtTotalHarga.Text = total
lblPrice.Caption = total
credit = (jumlah - 1) * harga
Case 4
harga = 30000
total = jumlah * harga
txtTotalHarga.Text = total
lblPrice.Caption = total
credit = (jumlah - 1) * harga
Case 5, 6
harga = 45000
total = jumlah * harga
txtTotalHarga.Text = total
lblPrice.Caption = total
credit = (jumlah - 1) * harga
End Select
End Sub
Munculkan message box “Jumlah uang yang harus dibayar” Pembayaran ada 2 jenis :
a. Jika user memilih OptCash, maka jumlah uang yang harus dibayar = total harga.
b. Jika user memilih OptCreditCard, maka berlaku buy 1 get 1 free tapi tidak berlaku kelipatan. Jumlah uang yang harus dibayar = total harga – ( (jumlah tiket-1) * harga tiket). Misal, beli 2 tiket, hanya bayar 1 tiket. Beli 4 tiket, hanya bayar 3 tiket.
Private Sub OptCredit_Click()
MsgBox "Total Harga Yang harus di bayarkan adalah " & vbNewLine & "Rp. " & credit, vbInformation, "Konfirmasi"
End Sub
Private Sub OptPembayaran_Click(Index As Integer)
MsgBox "Total Harga Yang harus di bayarkan adalah " & vbNewLine & "Rp. " & total, vbInformation, "Konfirmasi"
End Sub
MsgBox "Total Harga Yang harus di bayarkan adalah " & vbNewLine & "Rp. " & credit, vbInformation, "Konfirmasi"
End Sub
Private Sub OptPembayaran_Click(Index As Integer)
MsgBox "Total Harga Yang harus di bayarkan adalah " & vbNewLine & "Rp. " & total, vbInformation, "Konfirmasi"
End Sub
Tombol cmdCancel digunakan untuk membatalkan transaksi (bersihkan form) dan tombol cmdExit digunakan untuk keluar dari program
Private Sub cmdCencel_Click()
OptStudio(0).Value = False
OptStudio(1).Value = False
OptStudio(2).Value = False
OptStudio(3).Value = False
LblJudulFilm.Caption = "LblJudulFilm"
LblJuduFilmlPilihan.Caption = "LblJuduFilmlPilihan"
cmbJamTayang.Clear
OptCredit.Value = False
OptPembayaran(0).Value = False
txtTotalHarga.Text = ""
lblDate.Caption = ""
lblTime.Caption = ""
lblPrice.Caption = ""
LstHari.Clear
LstRow.Clear
LstSeat.Clear
End Sub
Private Sub cmdExit_Click()
End
End Sub
OptStudio(0).Value = False
OptStudio(1).Value = False
OptStudio(2).Value = False
OptStudio(3).Value = False
LblJudulFilm.Caption = "LblJudulFilm"
LblJuduFilmlPilihan.Caption = "LblJuduFilmlPilihan"
cmbJamTayang.Clear
OptCredit.Value = False
OptPembayaran(0).Value = False
txtTotalHarga.Text = ""
lblDate.Caption = ""
lblTime.Caption = ""
lblPrice.Caption = ""
LstHari.Clear
LstRow.Clear
LstSeat.Clear
End Sub
Private Sub cmdExit_Click()
End
End Sub
Friday 29 November 2013
Youtube Tanpa Sofware Agung Supe
Anda Hobi download Film di youtube?
INi ane kasih panduannya
1. Pilih Video Anda Ingin Untuk Download.
2. Copy link pada address bar dari video yang ingin Anda download.
3. Tempatkan kotak di link atas ke dalam halaman ini.
4. Kemudian Klik Download Button.
5 Pilih Format Of Video Anda Ingin Download.
6. Terakhir, Otomatis Langsung Donwnload.
Untuk Link nya : Klik Disini Aja Gan
Thursday 31 October 2013
BBM di Laptop / PC
BBMan GRATIS
MAU BBM an tapi Gak Punya BB / Android, ini dia Solusinya, . . . . . . . . .
Setelah
berbulan-bulan kita menunggu Aplikasi BBM for Android dan iOS muncul,
akhirnya saat ini kita sebagai pengguna non Blackberry sudah bisa
menikmatinya. Sudah secara resmi diluncurkan dan langsung menggeser
aplikasi lain di jajaran Top Free App Store.
Nah, bila kalian ingin chating dengan
BBM namun tidak memiliki perangkat Android atau Blackberry, cobalah
tutorial/cara menginstal BBM for Android di PC/laptop kalian. Cara
berikut bisa dibilang cukup mudah, karena kami sudah mencobanya dan
langsung bisa digunakan untuk BBMan.
Sebelum kalian mengikuti tutorial ini, terlebih dahulu siapkan senjata yang diperlukan. Yang pertama Android SDK (File cukup besar sekitar 400MB), setelah itu kalian harus mengupdate Java, klik tautan ini.
Jika Android SDK sudah selesai didownload, langsung saja diekstrak, buka folder, lalu buka SDK Manager.
Setelah kalian membuka SDK manager, maka akan muncul tampilan seperti dibawah ini :
klik Tools pada Toolbar > Manage AVD(s)
Lalu isi settingan seperti gambar dibawah ini :
Jika sudah selesai, klik Start
Alhasil akan muncul tampilan seperti ini.
Langsung saja pergi ke browser yang ada di virtual device, dan ketik alamat ini http://goo.gl/WjymGW
Isi
BlackBerry ID anda, dan sekarang anda sudah bisa BBMan dengan teman
anda yang menggunakan BBM for Android, BBM for iPhone ataupun yang
memakai ponsel BlackBerry.
Note :
JIka ada masalah dengan BBM nya itu mungkin karena MEMORY RAM pada Virtual anda Kurang atau Kelebihan, silahkan Otak atik sendiri saja di VIRTUALBOXnya,...
Suksesss yaaaa, Ane Udah Coba dan Alhasilll Mantebbbb,..........................
Subscribe to:
Posts (Atom)