Blogroll

Wednesday, 17 October 2012

Visual Basic  Data diri SOURCE CODE : Private Sub Command1_Click() If Option1.Value = True Then jk = "Laki-laki... thumbnail 1 summary
Visual Basic 

Data diri



SOURCE CODE :

 Private Sub Command1_Click()
If Option1.Value = True Then jk = "Laki-laki" Else: jk = "Perempuan"
If Option2.Value = True Then jk = "Perempuan" Else: jk = "Laki-laki"
Text4.Text = "Nama lengkap : " + Text1.Text + vbCrLf + "Tempat lahir : " + Text2.Text + vbCrLf + "Tanggal lahir : " + Combo1.Text + "-" + Combo2.Text + "-" + Combo3.Text + vbCrLf + "Jenis kelamin : " + jk + vbCrLf + "Alamat : " + Text3.Text + vbCrLf + "Bahasa yang dikuasai : " + vbCrLf + bahasa
If Check1.Value = 1 Then
bahasa = Check1.Caption
ElseIf Check4.Value = 1 Then
bahasa = Check4.Caption
ElseIf Check2.Value = 1 Then
bahasa = Check2.Caption
ElseIf Check3.Value = 1 Then
bahasa = Check3.Caption
ElseIf Check5.Value = 1 Then
bahasa = Check5.Caption
End If

 End Sub
Private Sub Form_Load()
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.AddItem "5"
Combo1.AddItem "6"
Combo1.AddItem "7"
Combo1.AddItem "8"
Combo1.AddItem "9"
Combo1.AddItem "10"
Combo1.AddItem "11"
Combo1.AddItem "12"
Combo1.AddItem "13"
Combo1.AddItem "14"
Combo1.AddItem "15"
Combo1.AddItem "16"
Combo1.AddItem "17"
Combo1.AddItem "18"
Combo1.AddItem "19"
Combo1.AddItem "20"
Combo1.AddItem "21"
Combo1.AddItem "22"
Combo1.AddItem "23"
Combo1.AddItem "24"
Combo1.AddItem "25"
Combo1.AddItem "26"
Combo1.AddItem "27"
Combo1.AddItem "28"
Combo1.AddItem "29"
Combo1.AddItem "30"
Combo1.AddItem "31"

 Combo2.AddItem "January"
Combo2.AddItem "February"
Combo2.AddItem "Maret"
Combo2.AddItem "April"
Combo2.AddItem "Mei"
Combo2.AddItem "Juni"
Combo2.AddItem "Juli"
Combo2.AddItem "Agustus"
Combo2.AddItem "September"
Combo2.AddItem "Oktober"
Combo2.AddItem "November"
Combo2.AddItem "Desember"

 Combo3.AddItem "1980"
Combo3.AddItem "1981"
Combo3.AddItem "1982"
Combo3.AddItem "1983"
Combo3.AddItem "1984"
Combo3.AddItem "1985"
Combo3.AddItem "1986"
Combo3.AddItem "1987"
Combo3.AddItem "1988"
Combo3.AddItem "1989"
Combo3.AddItem "1990"
Combo3.AddItem "1991"
Combo3.AddItem "1992"
Combo3.AddItem "1993"
Combo3.AddItem "1994"
Combo3.AddItem "1995"
Combo3.AddItem "1996"
Combo3.AddItem "1997"
Combo3.AddItem "1998"
Combo3.AddItem "1999"
Combo3.AddItem "2000"
Combo3.AddItem "2001"
Combo3.AddItem "2002"
Combo3.AddItem "2003"
Combo3.AddItem "2004"
Combo3.AddItem "2005"
Combo3.AddItem "2006"
Combo3.AddItem "2007"
Combo3.AddItem "2008"
Combo3.AddItem "2009"
Combo3.AddItem "2010"
Combo3.AddItem "2011"
End Sub
Private Sub Command2_Click()
End
End Sub 
Tampilan yangsudah jadi VB nya 



Tampilan yang untuk di isi biodatanya 



Tampilan yang setelah di kerjakan 


foto

nar thumbnail 1 summary





nar

design

design kacau thumbnail 1 summary
design kacau

VISUAL BASIC Form tampilan awal        Tampilan awal saat program di jelaskan yang menampilkan gambit seperti  di atas isi dari... thumbnail 1 summary

VISUAL BASIC

Form tampilan awal


       Tampilan awal saat program di jelaskan yang menampilkan gambit seperti  di atas isi dari menu  file : exit , form : kelulusan , predikat , log in help : aboutus
 Form setelah di pilih kelulusan 
      
       Tampilan saat memesukan kelulusan apa bila kurang dari 70 maka tidak akan lulus . apa bila lebih akan lulus seperti gambar di bawah :



Private Sub Command1_Click()
Nilai = Val(Text1.Text)
If Nilai > 70 Then
Text2.Text = "LULUS"
Else
Text2.Text = "TIDAK LULUS "
End If
End Sub

 Private Sub Command2_Click()
Form2.Show

 End Sub

 Private Sub Command3_Click()
MDIForm1.Show

 End Sub


  Form setelah di pilih Predikat 

        Tampilan saat memesukan predikat apa bila IPK akhir lebih dari 3.51 maka  akan CUMLAUDE. apa bila IPK lebih  3.00  akan  sangat memuaskan apa bila IPK lebih dari 2.50 maka akan memuaskan ,klu IPK kurang dari 2 maka akan memalukan   seperti gambar di bawah : 


  Private Sub Command1_Click()
IPKSemester1 = Val(Text1.Text)
IPKSemester2 = Val(Text2.Text)
IPKSemester3 = Val(Text3.Text)
IPKSemester4 = Val(Text4.Text)
IPKSemester5 = Val(Text5.Text)
IPKSemester6 = Val(Text6.Text)
IPKSemester7 = Val(Text7.Text)
IPKSemester8 = Val(Text8.Text)

 Text9.Text = (IPKSemester1 + IPKSemester2 + IPKSemester3 + IPKSemester4 + IPKSemester5 + IPKSemester6 + IPKSemester7 + IPKSemester8) / 8

 IPK = Val(Text9.Text)
If Text9.Text >= 3.51 Then
Text10.Text = "CUMLAUDE"
ElseIf 3.5 <= Text9.Text <= 3.5 Then
Text10.Text = "sangat memusakan"
ElseIf 2.5 <= Text9.Text < 3# Then
Text10.Text = "Memuaskan"
ElseIf Text9.Text < 2.5 Then
Text10.Text = "memalukan"
End If
End Sub

 Private Sub Command2_Click()
Form3.Show
End Sub

 Private Sub Command3_Click()
MDIForm1.Show
End Sub

  Form setelah di pilih login

       Tampilan saat memasukan form login saat memasukan user name nya poltek dan masukan password nya tedc maka doa akan membuka login berhasil klu yidak akan gagal ,,



Private Sub Command1_Click()
USERNAME = Text1.Text
PASWORD = Text2.Text

If USERNAME = "poltek" And PASWORD = "tedc" Then
MsgBox ("login berhasil")
MDIForm1.Show
Else
MsgBox ("login GAGAL")
End If
End Sub

Private Sub Command2_Click()
MDIForm1.Show
End Sub

Menghitung Volume Kubus , Silinder , Luas Lingkaran

Coding Menghuitung Volume Kubus , Luas Lingkaran, Volume Silinder #include <iostream> using namespace std; int main()... thumbnail 1 summary

Coding Menghuitung Volume Kubus , Luas Lingkaran, Volume Silinder
#include <iostream>

using namespace std;

int main()
{
  char pil;
   cout <<"Pilihan Berdarkan List Yang Disediakan"<<endl;
   cout <<"1. Menghitung Volume Kubus" <<endl;
   cout <<"2. Menghitung Luas Lingkaran" <<endl;
   cout <<"3. Menghitung Volume Selinder" <<endl;
   cout <<endl;
   cout <<"Pilihan anda: " ; cin>>pil;
   cout <<endl;
switch (pil)
{
case '1' : cout <<"Anda Sudah Memilih Menghitung Volume Kubus" <<endl;
{
float vk,s;
  cout <<"Masukkan sisi : "; cin >>s;
  vk= (s*s)*s;
  cout <<"Hasil nya adalah : " <<vk<<endl;
}
break;
   case '2' : cout <<"Anda Sudah Memilih Menghitung Luas Lingkaran"<<endl;
{
float ls,r;
  double phi =3.14 ;
  cout <<"Masukkan Nilai R: "; cin>>r;
  ls = r*r;
  ls = ls * phi;
  cout <<"Hasil nya adalah : " <<ls<<endl;
}
break;
 case '3' : cout <<"Anda Sudah Memilih Menghitung Volume Selinder "<<endl;
{
float v,r,t;
float phi=3.14;
  cout <<"Masukkan Nilai R : "; cin>>r;
  cout <<"Masukkan Nilai T : "; cin>>t;
  v = phi*(r*r);
  v = v *t;
  cout <<"Hasil nya adalah : " <<v<<endl;
}
break;
}

}

Screenshot nya :

yang ini volume Kubus 

yang ini luas lingkaran 
yang ini menghitung volume silinder 

Menentukan Tahun Kabisat

Coding Menentukan Tahun kabisat #include <iostream> using namespace std; int main() {    int tahun,awal,akhir;    cout... thumbnail 1 summary

Coding Menentukan Tahun kabisat
#include <iostream>
using namespace std;
int main()
{
   int tahun,awal,akhir;
   cout<<"Masukkan Tahun Awal : "; cin>>awal;
   cout<<"Masukkan Tahun Akhir : "; cin>>akhir;
   cout <<endl;

 for(tahun=awal; tahun<=akhir; tahun++) {
if (tahun%4==0)
{
   cout <<"Tahun Kabisat : " <<tahun <<endl;
   cout <<endl;
}
else {
   cout <<"Bukan Tahun Kabisat : " <<tahun <<endl;
   cout <<endl;
}

 }
}

Menampilkan huruf Z-A

nah ini kodingnya   ,,,,  #include <iostream> using namespace std; int main() {     char abjad;    for (... thumbnail 1 summary



















nah ini kodingnya   ,,,, 
#include <iostream>
using namespace std;

 int main()
{ 
   char abjad;
   for ( abjad ='Z'; abjad >= 'A';abjad--)
{
   cout <<abjad <<" ";
}
return 0;
}





Subscribe to: Posts (Atom)

About