Rabu, 03 Desember 2014
Sabtu, 08 November 2014
Memainkan audio dengan MediaElement secara online di Windows Phone 7
Posted by Unknown on 01.55
Kemarin saya berbagi bagaimana caranya menampilkan video dengan MediaElement dan kebetulan data videonya itu saya taruh di database local jadi dapat dimainkan secara offline. nah terkadang kita mendapatkan kendala jika membuat sebuah app yang lebih membutuhkan data yang banyak baimana kita menyiasati app kita tidak membuat memory smartphone jebol.. hehehhe jadi,solusinya adalah membuat app online dengan begitu app kita tidak over size dan merugikan smarphone yang telah terinstal, untuk itu saya akan berbagi bagaimana cara memainkan audio dengan MediaElement secara online. sebenarnya ada cara lain yaitu dengan membuat server sendiri dengan metode Back End. tapi berubung dengan membuat server terlalu ribet alias saya juga belum dalem banget mempelajarinya, hehehhehe jadi saya akan membuat cara lain dengan mengambil lagu dari sebuah website layanan download bermacam2 lagu, hehehe misalnya saya akan mengambil lagu dari website http://www.mp3olimp.org
**yupp dimulai dari mencari lagu yang dibutuhkan atau yang kita suka. berhubung akhir2 ini saya lagi demam lagu2 yang mellow saya memilih lagunya teh rossa yang berjudul hijrah cinta. http://www.mp3olimp.org/rossa-hijrah-cinta/
Kemudian Klik kiri Play/Download
**Hingga keluar halaman ini, kemudian salin link nya..
**Mudahkan kemudian mari buat interface di Windows Phone nya.
saya membuat 2 button yaitu button "play" dan button "stop"
dengan MediaElement tentunya.
**Nah ini dia source code nya. yg pertama ambil reference task dengan ketik
**Ini ni hasilnya
using Microsoft.Phone.Tasks; //untuk
mendapatkan component MediaPlayerLauncher
**Kemudian ini dia untuk memanggil lagu yang ada di website tadi..
void MediaElement_MediaFailed(object
sender, ExceptionRoutedEventArgs e)
{
var errorException = e.ErrorException;
}
public void
PlayVideo(string aUrl)
{
mediaElement2.Stop();
mediaElement2.Source = new Uri(aUrl, UriKind.RelativeOrAbsolute);
mediaElement2.Play();
mediaElement2.MediaFailed += new EventHandler<ExceptionRoutedEventArgs>(MediaElement_MediaFailed);
}
private void
btn_play_Click(object sender, RoutedEventArgs e)
{
MediaPlayerLauncher mediaPlayerLauncher = new MediaPlayerLauncher();
mediaPlayerLauncher.Media = new Uri(@"http://bokepdo.wap.mu/files/950442/Rossa%20-%20Hijrah%20Cinta%20%28www.markasmp3.com%29.mp3",
UriKind.Absolute);
mediaPlayerLauncher.Show(); // salin link tadi dan letakkan di bagian ini
}
Posted in WIndows Phone 7
Jumat, 07 November 2014
Membuat Form Ganti Password dengan VB.Net
Posted by Unknown on 04.17
Kali ini saya akan berbagi membuat form ganti password. form ini sangat perluh ada di aplikasi SI atau Sistem Informasi ataupun applikasi yang membutuhkan hak akses tertentu bila ingin menggunakan sebuah aplikasi. dan menurut saya form ganti password harusnya lebih simple dan tidak terlalu rumit jika digunakan oleh pengguna. ok sekian dulu kata pengantarnya :)
**yang pertama agan jelas harus punya tabel untuk data admin seperti dibawah ini :
**Kemudia bualah form seperti dibawah ini :
**Ini adalah code untuk mencocokan data yang di inputkan pada text username dengan data yang sudah tersimpan di tabel admin.
Private Sub
txtuser_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles txtuser.KeyPress
If e.KeyChar = Chr(13) Then
tb_user = conn.executeQuery("select *
from tb_user where nama ='" & txtuser.Text & "'")
If tb_user.Rows.Count = 0 Then
MsgBox("Username salah",
vbOKOnly, "informasi")
txtuser.Focus()
txtuser.Text = ""
Else
txtpasslama.Focus()
End If
End If
End Sub
**Ini adalah code untuk mencocokan data yang di inputkan pada text password lama dengan data yang sudah tersimpan di tabel admin
Private Sub
txtpasslama_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles txtpasslama.KeyPress
If e.KeyChar = Chr(13) Then
tb_user = conn.executeQuery("select*from
tb_user where password ='" & txtpasslama.Text & "' and nama = '" & txtuser.Text
& "'")
If tb_user.Rows.Count = 0 Then
MsgBox("Password salah",
vbOKOnly, "informasi")
txtpasslama.Focus()
txtpasslama.Text = ""
Else
txtpasbaru.Focus()
End If
End If
End Sub
Private Sub
txtpasbaru_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles txtpasbaru.KeyPress
If e.KeyChar = Chr(13) Then
If txtpasbaru.Text = ""
Then
MsgBox("Password baru belum dibuat", vbOKOnly, "Informasi")
txtpasbaru.Focus()
Else
txtpassulang.Focus()
End If
End If
End Sub
**Ini adalah code untuk menyimpan password baru di tabel.
Private Sub
txtpassulang_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles txtpassulang.KeyPress
Dim pesan As String
If e.KeyChar = Chr(13) Then
If txtpasbaru.Text <> txtpassulang.Text Then
MsgBox("Password Konfirmasi tidak
sesuai", vbOKOnly, "informasi")
txtpassulang.Focus()
txtpassulang.Clear()
Else
pesan = MsgBox("Yakin password akan
diganti?", vbYesNo, "Informasi")
If pesan = vbYes Then
Dim sql As
String = ("update
tb_user set password =" & txtpassulang.Text & " where nama ='" & txtuser.Text
& "'")
Dim mycomm = New
OdbcCommand(sql, conn.buka)
mycomm.ExecuteNonQuery()
MsgBox("Password Berhasil diubah")
bersih()
Else
Me.Close()
menuutama.logo.Visible = True
End If
End If
End If
End Sub
Sekian yang dapat saya bagikan semoga bermanfaat :) Happy Coding :)
Posted in Visual Basic 2010
Langganan:
Postingan (Atom)
KURSUS VB.NET SIDOARJO