Kampus

Matkul Kalkulus persamaan kuadrat

http://m-edukasi.net/#awal

http://www.dreamincode.net/code/snippet830.htm

http://www.algebra.com/algebra/homework/quadratic/
http://www.mathopenref.com/quadraticexplorer.html
======================================

http://www.dreamincode.net/forums/forum/21-vb6/

=======================================
Bell Otomatis untuk sekolah dg Visual Basic

Ide dasar program ini adalah :
Menjalankan file suara (.wav) pada waktu tertentu (timer), suara di mainkan bila telah mencapai waktu tertentu. Program harus bersifat fleksibel terhadap perobahan waktu yang diinginkan. Misalnya saja pada hari tertentu mungkin saja rentang waktu untuk 1 jam pelajaran berbeda dengan hari lain.

Option Explicit
Option Base 1

Private Declare Function PlaySound Lib “winmm.dll” Alias “PlaySoundA” _
(ByVal lpszName As String, ByVal hModule As Long, _
ByVal dwFlags As Long) As Long

Private Declare Function waveOutGetNumDevs Lib “winmm.dll” () As Long

Public WavePlay As Boolean
Dim Detik As Long
Dim aTandaBell(20) As String
Dim aTandaBunyi(20) As String
Dim aTandaNada(20) As Integer
Dim I As Integer
Dim SedangBunyi As Boolean

Public Function CanPlayWaves() As Boolean
CanPlayWaves = waveOutGetNumDevs()
End Function

Public Function PlayWaveFile(FileName As String, Optional Async As Boolean) As Boolean
Dim Flags As Long
Const SND_SYNC = &H0 ‘ Play synchronously
Const SND_ASYNC = &H1 ‘ Play asynchronously
Const SND_NODEFAULT = &H2 ‘ No default sound event is used
Const SND_FILENAME = &H20000 ‘ Name is a file name
Flags = SND_NODEFAULT Or SND_FILENAME Or SND_SYNC
If Async Then Flags = Flags Or SND_ASYNC
PlayWaveFile = PlaySound(FileName, 0&, Flags)
End Function

Public Function StopPlayingWave() As Boolean
Const SND_PURGE = &H40
PlaySound vbNullString, 0&, SND_PURGE
End Function

Private Sub Command1_Click()
‘Initialize boolean variable WavePlay
WavePlay = CanPlayWaves
If WavePlay Then ‘If Boolean is true (system can play sound)
PlayWaveFile App.Path + “\trumpet1.wav”, True
End If
End Sub

Private Sub Form_Load()
Dim nFree As Integer

nFree = FreeFile
Detik = 0
SedangBunyi = False
End Sub

Private Sub Timer1_Timer()
Dim TandaBell As String
Dim TandaBunyi As String
Dim tandaNada As Integer
Detik = Detik + 1
Dim N As Integer
Dim jam As String
Dim menit As String
Dim JamMenit As String
Dim dtk As String
Dim HariIni As String
Dim nFree As String
Dim nomor As Integer
Label1.Caption = Time
HariIni = NamaHari()
Label2.Caption = HariIni
Dim NmFile As String
nFree = 1
NmFile = HariIni + “.cfg”
If Dir(App.Path + “\” + NmFile) <> “” Then
Open App.Path + “\” + NmFile For Input As #nFree
I = 0
While Not EOF(nFree)
I = I + 1
Input #nFree, nomor, TandaBell, TandaBunyi, tandaNada
aTandaBell(I) = TandaBell
aTandaBunyi(I) = TandaBunyi
aTandaNada(I) = tandaNada
Wend
Close #1
End If

jam = Hour(Time)
menit = Minute(Time)
dtk = Second(Time)
JamMenit = jam + “.” + menit + “.” + dtk
Label3.Caption = JamMenit
For N = 1 To I
If (aTandaBell(N) = JamMenit) And (UCase(aTandaBunyi(N)) = “ON”) Then
WavePlay = CanPlayWaves
If WavePlay Then ‘If Boolean is true (system can play sound)
If aTandaNada(N) = 1 Then
PlayWaveFile App.Path + “\trumpet1.wav”, True
Else
PlayWaveFile App.Path + “\trumpet2.wav”, True
End If
End If
End If
Next N
End Sub

Private Function NamaHari()
Dim BilHari As Integer
BilHari = Weekday(Date)
Select Case BilHari
Case 1
NamaHari = “MINGGU”
Case 2
NamaHari = “SENIN”
Case 3
NamaHari = “SELASA”
Case 4
NamaHari = “RABU”
Case 5
NamaHari = “KAMIS”
Case 6
NamaHari = “JUMAT”
Case 7
NamaHari = “SABTU”
End Select
End Function

Semoga Bermanfaat.
----------------------------------------------
Semester 8
- TBO
- SISBAR
- SISPAK
- C++
contoh :

//*Pernyataan IF.cpp*//

#include

#include

#include



main()

{

double tot_beli, potongan=0,jum_bayar=0;

clrscr();



cout<<”Total Pembelian Rp. “;cin>>tot_beli;



if (tot_beli >= 50000)

potongan = 0.2 * tot_beli;

cout<<”Maka Besarnya Potongan Rp. “<

#include

#include



main()

{

double tot_beli, potongan=0,jum_bayar=0;

clrscr();



cout<<”Total Pembelian Rp. “;cin>>tot_beli;



if (tot_beli >= 50000)

potongan = 0.2 * tot_beli;

else

potongan = 0.05 * tot_beli;



cout<<”Maka Besarnya Potongan Rp. “<

#include

#include



main()

{

float pendapatan, jasa=0, komisi=0, total=0;

clrscr();



cout<<”Pendapatan Hari Ini Rp. “;cin>>pendapaatan;



if (pendapatan >= 0 && pendapatan <=200000) { jasa=10000; komisi=0.1 * pendapatan; } else if(pendapatan<=500000) { jasa=20000; komisi=0.15*pendapatan; } else { jasa=30000; komisi=0.2*pendapatan; } total = komisi + jasa; cout<<”Uang Jasa Rp. “<

#include

#include



main()

{

float pendapatan, jasa=0, komisi=0, total=0;

clrscr();

cout<<”Pendapatan Hari Ini Rp. “;cin>>pendapaatan;

if (pendapatan >= 0 && pendapatan <=200000) { jasa=10000; komisi=0.1 * pendapatan; } else { if(pendapatan<=500000) { jasa=20000; komisi=0.15*pendapatan; } else { jasa=30000; komisi=0.2*pendapatan; } } total = komisi + jasa; cout<<”Uang Jasa Rp. “<http://www.binushacker.net/tutorial-c.html
http://www.cplusplus.com/doc/tutorial/
http://dif4jc.wordpress.com/2007/07/02/contoh-if-pada-c/
- DELPHI
- KALKULUS
- SIM
- SKRIPSI


1. STMIK TASIKMALAYA JAWA BARAT
http://aka.stmik-tasikmalaya.ac.id
2. MODUL PEMBELAJARAN MATAKULIAH METODE NUMERIK
DENGAN MENGGUNAKAN SISTEM KOMPUTERISASI
http://mat.um.ac.id/eLearning/numerik/index.htm

3. "ARIES"---"RIDENILA" RIDENILA (BU ARI PUSPITA, ADE, ERNI, MELA)
http://aries001.blogspot.com/2010/10/jawaban-script-vb-toko-buku.html

Telkomsel Flash Unlimited vs Indosat M2 Broom vs XL Megadata vs Axis

23 Jun, 2008  Uncategorized

Setelah malang melintang mencoba internet dari beberapa provider GSM, sekarang mau kasih sedikit review.

Telkomsel Flash Unlimited

Produk baru dari Telkomsel, produk ini merupakan bagian dari masa promosi memperingati 13 tahun Telkomsel. Paket yang tersedia adalah:

Jenis Paket

Harga (Rp)

Kecepatan Max

Basic

125.000

256 kbps

Advance

225.000

512 kbps

Pro

400.000

3,6 Mbps

Tetapi ada ketentuan dalam unlimited ini, bila telah melewati 3 Gb maka kecepatan akses akan turun menjadi 64 kbps untuk paket Basic dan Advance, dan 128 kbps untuk paket Pro.

Gua sendiri udah nyoba yang pake Basic plus modem (plus modem masing-masing tambah Rp 125.000,00). Awal-awal pakai speed maksimal gampang banget dicapai, tapi akhir-akhir ini udah mulai lampat dan nggak stabil. Koneksi sih nggak pernah putus, sayangnya kalo buat download bakal sangat lambat. 3 Gb jumlah yang banyak untuk paket basic sekalipun. Jika daerah Anda belum memiliki jaringan 3G, lebih baik mengambil paket ini.

Sumber: http://www.telkomsel.com/web/hot_offering

IndosatM2 Broom

Paket dari Indosat ini merupakan jenis prabayar, jadi kita harus membeli perdana dan mengisi voucher terlebih dahulu sebelum bisa ber-internet ria.

Voucher yang tersedia adalah:

Besar Voucher

Jumlah yang didapat

Masa Aktif (hari)

150.000

250 Mb

60

100.000

166 Mb

45

50.000

83 Mb

30

25.000*

41 Mb

15

10.000*

16 Mb

7

*hanya dapat dibeli dengan kartu indosat (matrix, mentari, im3)

Note: semuanya memiliki masa tenggang yang sama yaitu 30 hari

Dalam hal kecepatan dan kestabilan, IndosatM2 ini adalah yang terbaik dari yang pernah saya coba. Sayangnya karena kuota yang sangat terbatas jadi cepat habis. Tapi kalau hanya untuk cek email, browsing ringan, chatting, paket dari IndosatM2 ini dapat diperhitungkan. Bila Anda memiliki kartu kredit, Anda dapat mengambil dari pascabayarnya http://www.indosatm2.com/popup.php/promo/3G_popup_brochure. Paket yang paling rendahpun dengan harga Rp 160.000 (belum termasuk ppn) mendapat 700 Mb.

Sumber: http://www.indosatm2.com/index.php/services/indosatnet/prepaid3g

XL Megadata dan Gigadata

Paket yang disediakan oleh XL adalah:

Kuota Paket

Harga (Rp)

250 Mb

99.000

1 Gb

279.000

3 Gb

499.000

Note: harga belum termasuk ppn, kelebhian kuota dikenakan biaya Rp 0.4/Kb (Rp 4 per 10Kb dengan pembulatan keatas per 10Kb).

Awal-awal menggunakan XL adalah Januari 2007 dengan paket kuota 250 Mb. Kecepatan koneksi yang didapat pada waktu itu sangat baik, kelebihan kuota juga sedikit sekali (maksimal Rp 20.000). Tetapi beberapa bulan terakhir koneksinya sangat lambat, bahkan dalam jaringan 3G. Dalam jaringan GPRS lebih parah lagi, untuk coba koneksi saja harus dial berkali-kali. Akibatnya kuota 250 Mb tidak pernah habis dalam sebulan.

Sumber: http://www.xl.co.id/3G/Paket_Data_Xplor_3G/

AXIS

Pada awal kemunculannya, AXIS memberikan gratis koneksi data sebesar 100 Mb perbulan. Bila telah lebih dari 100 Mb maka tidak dapat dilakukan koneksi lagi. Selanjutnya dengan diubah, setelah 100 Mb dikenakan biaya Rp 1/kb. Setelah promo berakhir pada bulan Mei, AXIS memberikan promo baru yang berlaku sampai bulan Agustus. Promonya adalah akses intenet dengan biaya Rp 0,1/kb untuk 10 Mb pertama dan Rp 1/Kb setelah 10Mb.

Pengalaman menggunakan AXIS di Bandung dan di Depok cukup baik. Sebelum peluncuran (masih dengan nama NTS dan gratisnya 300 Mb) kecepatan penuh 3G (384Kbps) sangat mudah dicapai. Tetapi setelah peluncuran, kecepatan koneksi turun drastis bahkan sulit melakukan koneksi. Memasuki promo baru (Rp 0,1/Kb untuk 10 Mb pertama) kecepatan koneksinya semakin membaik. Mungkin karena dulu orang tanpa pulsa juga masih bisa melakukan koneksi asal jatah 100 Mb masih tersedia, sedangkan sekarang harus memiliki pulsa untuk memiliki melakukan koneksi.

Sumber http://www.axisworld.co.id/?m=promotion&ids=access_data

Jadi, mau pilih yang mana? Itu kembali kepada Anda, pertimbangkan jaringan yang ada di daerah yang sering Anda gunakan untuk akses data, keperluan dalam berinternet (browsing ringan, chatting, email atau friendster, facebook, youtube yang haus bandwidth), serta budget yang tersedia setiap bulannya.