16:38
semoga ini bermanfaat bagi kalian semua
gambar di atas merupakan from yang di buatnya
gambar di atas cara memilih lagu dan akan muncul seperti itu
klu di atas yang sudah berjalan klu mau kodingnya harap menemui saya terimakasih
Wednesday, 19 December 2012
MEMBUAT MP3 SEDERHANA DENGAN MENGGUNAKAN VB 6.0
kali ini saya akan menjelakan tentang bagai mana MEMBUAT MP3 SEDERHANA DENGAN MENGGUNAKAN VB 6.0 mungkin ini sangat sederhana banget bagi kalian hehehehehe
Sunday, 16 December 2012
TUGAS C++ KUISSSSSSS
C++
contoh soall
diketahui dua buah titik P1 dan P2 masing masing titik memiliki kodrat (x.Y) jika P1 dan P2 di hubungkan makan akan membentuk sebuah garis llurus
a> buatlah fungsi yang menerima parameter titik P1 dan P2 kemudian mengembalikan panjang garis yang di bentuk oleh titik P1 dan P2
b> Buatlah Program utama yang dapat menerima input koodrad titik P1 dan P2 dari user , kemudian manggil fungsi panjang garis ke monitor
#include <iostream.h>
float x1, x2, y_1, y2, n;
void input()
{
cout<<"Masukkan Nilai X1 : ";
cin>>x1;
cout<<"Masukkan Nilai X2 : ";
cin>>x2;
cout<<"Masukkan Nilai Y1 : ";
cin>>y_1;
cout<<"Masukkan Nilai Y2 : ";
cin>>y2;
}
float hasil()
{
//float n, x1, x2, y_1, y2;
if(x2=x1)
{
//n=y2-y_1;
cout<<y2;
cout<<y_1;
}
}
int main()
{
input();
cout<<"Hasil X : "<<hasil();
return 0;
}
Monday, 10 December 2012
JARAK GLB DAN GLBB
ini merupakan suatu program mini GW yang bisa menampilkan waktu tempuh kendaraan. kali ini saya menggunakan rumus Fisika GLB (Gerak Lurus Beraturan) dan GLBB (Gerak Lurus Berubah Beraturan). Langsung saja bini listing Programnya :Menggunakan Rumus GLB (Gerak Lurus Beraturan)
S = v.t
#include <iostream.h>
int waktu(int s,int v)
{
int hasil;
hasil = s / v;
return hasil;
}
int main()
{
int s,v,hasil;
cout <<"MENENTUKAN WAKTU TEMPUH KENDARAAN"<<endl;
cout <<"Masukkan jarak : ";
cin >> s;
cout <<"Masukkan kecepatan : ";
cin >> v;
hasil=waktu(s,v);
cout <<"Hasil = "<<hasil<<endl;
cout <<"Agung Fajar Riyadi"<<endl;
return 0;
}
Menggunakan Rumus GLBB (Gerak Lurus Berubah Beraturan)
V = Vo.at
#include <iostream.h>
float waktu (float vo,float vt,float a)
{
float hasil;
hasil = vt / (vo + a);
return hasil;
}
int main()
{
float vo,vt,a,hasil;
cout <<"MENENTUKAN WAKTU TEMPUH KENDARAAN"<<endl;
cout <<"Masukkan kecepatan awal : ";
cin >> vo;
cout <<"Masukkan kecepatan akhir : ";
cin >> vt;
cout <<"Masukkan percepatan : ";
cin >> a;
hasil=waktu(vo,vt,a);
cout <<"Hasil = "<<hasil<<endl;
cout <<"Raditya Pawitra NU Ganteng TEA"<<endl;
return 0;
}
Sunday, 2 December 2012
Resep restoran
Berikut adalah program
untuk mengetahui resep-resep masakan dengan menggunakan Bahasa Pemrograman
Visual Basic 6.
Di Form menu utama
terdapat 3menu, dimana sub menu dari menu Resep Masakan adalah Resep
Masakan dan Jenis Masakan. Sub menu Resep Masakan dipergunakan user untuk
menginputkan bahan, dan tata cara memasak. Didalam sub menu Jenis Masakan
digunakan untuk mengetahui bahan dari jenis masakan yang diinputkan. Kemudian
ada Menu About dan Menu Exit.
1. Tampilan Output
a. Tampilan Output Form Menu Utama
TTampilan Pembuatan Menu
TTampilan Output Menu Resep Masakan & Harga
Tampilan Output Form Jenis Masakan
T
TTampilan Output Tambah Jenis Makanan
Tampilan Output Form Menu Identitas
Listing Program
a. Listing Program Form Menu Utama
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Update
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Command5_Click()
Form1.Show
End Sub
dan ini yang lainnya
Private Sub
cmdbatal_Click()
Form2.Hide
End Sub
Private Sub
cmdtambah_Click()
Form2.Hide
Form3.Show
End Sub
Private Sub
cmdtampil_Click()
adodc.RecordSource
= "select * from resep where jenismasakan ='" & txtjenis.Text
& "'"
adodc.Refresh
While Not
adodc.Recordset.EOF
fg.Row = 1
fg.Col = 0
fg.Text = 1
fg.Col = 1
fg.Text = adodc.Recordset!bahan
adodc.Recordset.MoveNext
baris = baris + 1
Wend
End Sub
Private Sub
Form_Load()
fg.Row = 0
fg.Col = 0
fg.Text =
"No"
fg.Col = 1
fg.Text =
"Bahan"
fg.ColWidth(0) =
500
fg.ColWidth(1) =
2500
penambahan
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
Text1.Text = ""
End Sub
Private Sub Command4_Click()
Adodc.Recordset.Update
psn = MsgBox("Data Telah Tersimpan", vbOKOnly, "Informasi")
End Sub
terima kasih .
raditya P
Kalkulator sederhana menggunakan VB . 6
di sini saya akan mempersentasikan bagai mana membuat kalkulator sederhana di mana bisa mengakses secara cepat dan benar
berikut ini jalannya
ini contohnya cara pengulangan
ini cara pertambahan
dan ini kodingnya
kita ikutin saja ,,,
Private Sub Command1_Click()
a = Val(Text1)
b = Val(Text2)
c = a + b
Text3 = c
End Sub
Private Sub Command2_Click()
a = Val(Text1)
b = Val(Text2)
c = a - b
Text3 = c
End Sub
Private Sub Command3_Click()
a = Val(Text1)
b = Val(Text2)
c = a * b
Text3 = c
End Sub
Private Sub Command4_Click()
a = Val(Text1)
b = Val(Text2)
c = a / b
Text3 = c
End Sub
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
berikut ini jalannya
ini contohnya cara pengulangan
kita ikutin saja ,,,
Private Sub Command1_Click()
a = Val(Text1)
b = Val(Text2)
c = a + b
Text3 = c
End Sub
Private Sub Command2_Click()
a = Val(Text1)
b = Val(Text2)
c = a - b
Text3 = c
End Sub
Private Sub Command3_Click()
a = Val(Text1)
b = Val(Text2)
c = a * b
Text3 = c
End Sub
Private Sub Command4_Click()
a = Val(Text1)
b = Val(Text2)
c = a / b
Text3 = c
End Sub
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Subscribe to:
Posts (Atom)
.png)
