Open Your Mind: Sub Menu, Perulangan, Dan Timer Menggunakan Visual...

Open Your Mind: Sub Menu, Perulangan, Dan Timer Menggunakan Visual...: Pertemuan ke 7... Buatlah Form seperti di bawah ini.. Form1 di bawah ini Menggunakan Menu Editor..  Form2  di bawah ini Untuk Peru...

Sub Menu, Perulangan, Dan Timer Menggunakan Visual Basic

Pertemuan ke 7...
Buatlah Form seperti di bawah ini..
Form1 di bawah ini Menggunakan Menu Editor.. 

Form2  di bawah ini Untuk Perulangan...

//Script code untuk Form 1::

Private Sub exit_Click()

End

End Sub

Private Sub form_1_Click()

Unload Me

Form1.Show

End Sub

Private Sub Form_Load()

Me.Width = 10

End Sub

Private Sub Timer1_Timer()

Label1.ForeColor = QBColor((Rnd) * 15)

End Sub

Private Sub Timer2_Timer()

Me.Width = Me.Width + 100

tengah

If Me.Width >= 11250 Then

Timer2.Enabled = False

tengah

End If

End Sub

Public Sub tengah()

Me.Left = (Screen.Width - Me.Width) / 2

Me.Top = (Screen.Height - Me.Height) / 2

End Sub

// Script code untuk Form2

Private Sub Command1_Click()

List1.Clear

For i = 1 To 100

List1.AddItem "Angka : " & i

Next i

End Sub

Private Sub Command2_Click()

List1.Clear

For i = 100 To 1 Step -2

List1.AddItem "Angka : " & i

Next i

End Sub

Private Sub Command3_Click()

List1.Clear

i = Asc("A")

Do Until i > Asc("Z")

List1.AddItem "Huruf : " & Chr(i)

i = i + 1

Loop

End Sub

Private Sub Command4_Click()

List1.Clear

i = Asc("Z")

Do While i >= Asc("A")

List1.AddItem "Huruf : " & Chr(i)

i = i - 1

Loop

End Sub

Private Sub Command5_Click()

End

End Sub

Private Sub Timer1_Timer()

Label1.ForeColor = QBColor((Rnd) * 15)

List1.BackColor = QBColor((Rnd) * 15)

End Sub

Pertemuan ke-6 visual basic

Pertemuan ke 6 ini membahas tentang Login Prompt dan Kondisi/percabangan pada visual basic.

Buatlah Form1 dan Form2 seperti di bawah ini.

#Form 1 

Private Sub Form_Load()

Label1.Caption = "LOGIN PROMPT"

Label2.Caption = "Username"

Label3.Caption = "Password"

Text1.Text = ""

Text2.Text = ""

Command1.Caption = "OK"

Command2.Caption = "Exit"

Label1.FontBold = True

Label1.Font = "Castellar"

Label2.Font = "Curlz MT"

Label3.Font = "Curlz MT"

Command1.Font = "Segoe Print"

Command2.Font = "Segoe Print"

Label1.FontSize = "14"

Label2.FontSize = "12"

Label3.FontSize = "12"

End Sub

#Command1 - Form1

Private Sub Command1_Click()

If (Text1.Text = "Admin") And (Text2.Text = "1ia26") Then

i = MsgBox("Login Anda berhasil", vbOKOnly + vbInformation, "Admin")

Form2.Show

Unload Me

Else:

i = MsgBox("Maap Login anda blum berhasil", vbOKOnly + vbCritical, "Admin")

End If

End Sub

#Command2 - Form1

Private Sub Command2_Click()

End

End Sub

############################################

#Form2

Private Sub Command1_Click()

Dim a As String

Dim b As String

Dim c As String

Dim d As Integer

Dim e As Integer

Dim f As String

a = Text2.Text

b = Text3.Text

If Text2.Text = "1" Then

a = "Ayam Bakar"

d = 10000

ElseIf Text2.Text = "2" Then

a = "Steak"

d = 20000

Else

MsgBox "Wrong Input", 3

End If

If Text3.Text = "1" Then

b = "Lemon Tea"

e = 3000

ElseIf Text3.Text = "2" Then

b = "Orange Juice"

e = 5000

Else

MsgBox "Wrong Input", 3

End If

f = Val(d) + Val(e)

c = a + " dan " + b + "Total = Rp. " + f

Text1.Text = c

End Sub

#Command 2 - Form2

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

#Command 3 - Form2 

Private Sub Command3_Click()

End

End Sub

#Command4 -Form2 

(Tidak usah dibuat)

#Form 2

Private Sub Form_Load()

Label1.Caption = "1IA26's Menu"

Label2.Caption = "Food"

Label3.Caption = "Drink"

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Frame1.Caption = "Foods"

Label4.Caption = "1. Fried Chicken"

Label5.Caption = "2. Steak"

Frame2.Caption = "Your Choice"

Text1.Text = ""

Frame3.Caption = "Drinks"

Label6.Caption = "1. Orange Juice"

Label7.Caption = "2. Lemon Tea"

Command1.Caption = "Choice"

Command2.Caption = "Clean"

Command3.Caption = "Exit"

Command4.Caption = "Next Form"

End Sub

Pertemuan Kelima Login Dan Program Sederhana Pada Visual Basic

Pertemuan kelima ini membahasas menggunakan dan membuat program sederhana menggunakan visual basic.

//Untuk Form1 . Buatlah tampilan seperti di bawah ini.

//Script pada Form1. Memberi keterangan pada Label, Command, Form1, dan warna background pada Form1.

Private Sub Form_Load()

Label1.Caption = "Username"

Label2.Caption = "Password"

Command1.Caption = "Ok"

Label3.Caption = " PLEASE LOGIN FIRST"

Form1.BackColor = vbBlue

End Sub

// Script pada Command. Untuk Melakukan proses Login.

Private Sub Command1_Click()

If Text1.Text = "1IA26" And Text2.Text = "BRILLIANT" Then

MsgBox "1IA26", 3, "WELCOME GUYS"

Unload Me

Form2.Show

Else: MsgBox "WRONG USERNAME OR PASSWORD", 3, "PLEASE, TRY AGAIN GUYS"

End

End If

End Sub

// Untuk Form2. buatlah seperti di bawah ini.

// Script pada Form2. 

Private Sub Form_Load()

Label1.Caption = "Nama"

Label1.FontSize = 14

Label2.Caption = "NPM"

Label2.FontSize = 14

Label3.Caption = ""

Text1.Text = ""

Text2.Text = ""

Command1.Caption = "Ok"

Label4.Caption = "INSERT YOUR NAME AND NPM"

Form2.BackColor = vbGreen

End Sub

//Script pada Command1 Form2.

Private Sub Command1_Click()

Label3.Caption = "Hai, Guys... Nama saya adalah " + Text1.Text & vbCrLf + " NPM saya " + Text2.Text

End Sub

// Script pada Option1

Private Sub Option1_Click()

Label3.ForeColor = vbBlue

End Sub

// Script pada Option2

Private Sub Option2_Click()

Label3.ForeColor = vbRed

End Sub

// Script pada Option3

Private Sub Option3_Click()

Label3.FontItalic = True

Label3.FontBold = False

Label3.FontUnderline = False

End Sub

// Script pada Option4 

Private Sub Option4_Click()

Label3.FontItalic = False

Label3.FontBold = True

Label3.FontUnderline = False

End Sub

// Script pada Option5

Private Sub Option5_Click()

Label3.FontItalic = False

Label3.FontBold = False

Label3.FontUnderline = True

End Sub

Program Sederhana AND, OR, NOT, Dan NAND

Program ini merupakan program sederhana menentukan gerbang logika yang menggunakan bahasa pemrograman C++. Program ini menentukan nilai yang akan keluar dari inputan biner (1 atau 0) menggunakan keyboard. 

Contoh : Jika kita input nilai a=1 dan b=1. Dan memilih operasi logika And. Maka jawabanya adalah 1 STATISFIED, sesuai dengan gerbang logika dasar. 

#include
#include
//#include //digunakan jika tidak menggunakan OS windows

int main(void)
{
 int a,b,ch;
 char user;
do {
do{
clrscr();
printf("\n MASUKKAN DUA NILAI BINER\n");
scanf("\n%d\n%d",&a,&b);
}
while(!((a==1)||(a==0))&&((b==1)||(b==0)));

printf("Masukkan Pilihan Yang Digunakan");
printf("\n\t1. AND");
printf("\n\t2. OR");
printf("\n\t3. NOT");
printf("\n\t4. NAND\n");

fflush(stdin);
scanf("%d",&ch);

switch(ch)
{
case 1:
{
if(a==1&&b==1)
printf("1_STATISFIED");
else
printf("0_NOT_STATISFIED");
break;}


case 2:
{
if(a==1&&b==1)
printf("1_STATISFIED");
else
printf("0_NOT_STATISFIED");
break;}



case 3:
{
if(a==1)
printf("0_STATISFIED");
else
printf("1_NOT_STATISFIED");
break;}


case 4:
{
if(a==1&&b==1)
printf("0_STATISFIED");
else
printf("1_NOT_STATISFIED");
break;}



}

getchar();
printf("\n Apakah ingin mengulang lagi ? (Y/N)\n");
fflush(stdin);
scanf("%c",&user);

}
while((user=='y')||(user=='n'));
getchar();
}

It's All About ANGRY BIRDS

               Di zaman sekarang ini sudah menjamur game atau permainan dengan media gadget. Game atau permainan tidak hanya dilakukan secara tradisional tetapi berkembang pesat seperti zaman modern seperti ini. Game ada yang berbasis internet sehingga user atau pengguna harus online terlebih dahulu untuk memainkannya.

Deskripsi

Sekarang ini, terdapat suatu permainan yang populer yang awalnya dibuat dalam suatu aplikasi iPad/iPhone tetapi sekarang sudah menjamah ke dalam Android, bahkan sudah diluncurkan di dalam suatu aplikasi game di jejaring sosial seperti facebook pada 14 februari 2012. Game ini cukup membuat ketagihan pemakainya sehingga telah diunduh lebih dari 100 juta pengguna.

Nama Game           : Angry Birds

Pengembang           : Rovio Mobile

Penerbit                 : Clickgamer Media Chillingo

Perancang              : Ari Pulkkinen

Versi                      : 1.5.3 (Symbian^3, Android iOS), 1.5.2 (Nokia N900), 1.5.1 (Mac OS X).

Rilis                       : 10 Desember 2009

Genre                     : Puzzle

Mode                     : Single User

Platform yang mendukung Game ini :

                Game ini dirilis diberbagai platform seperti, iOS, Maemo, Android, PSP/PlayStation 2, Mac OS X, Windows, WebGL, Windows phone 7, Google Plus, BlackBerry Tablet OS, Google Chrome (Chrome Web Store), dan yang terbaru hadi di jejaring sosial Facebook pada 14 Februari 2012.

Di bawah ini merupakan icon dari Angry Birds.

Cara Bermain

                Dalam Angry Birds, pemain mengendalikan sekawanan burung warna-warni yang ebrusaha untuk mengambil telur yang dicuri oleh sekelompok babi hijau jahat. Pada setiap tingkatan dalam game ini, babi dilindungi oleh struktur yang terbuat dari berbagai bahan seperti kayu, es, dan batu. Tujuan dalam permainan ini adalah untuk menghilangkan semua babi dari setiap tingakatan game angry birds ini.

                Dengan menggunakan ketapel, pemain meluncurkan burung untuk berusaha menghancurkan babi dan struktur pelindunganya, runtuhnya struktur pelindung itu dapat menghilangkan babi hujau tersebut, sehingga dapat meraih point yang besar dan dapat juga melanjutkan game ke tingkat atau tahap selanjutnya. Dalam berbagai tahap permainan, burung ini diberi benda tambahan sebagai senjata untuk menghilangkan babi hijau, seperti bahan peledak dan krat batu.

                Terdapat beberapa jenis burung yang digunakan dalam permainan Angry Birds. Pada tingkat awal, burung merah adalah satu-satunya yang tersedia. Kemudian, di setiap tahap permainan selanjutnya jenis burung akan bertambah. Beberapa jenis burung lebih efektif terhadap bahan tertentu atau memiliki kemampuas khusus yang diaktifkan setelah burung diluncurkan. Sebagai contoh, seekor burung biru dapat memisah menjadi tiga burung kecil, ketika kita menyentuhnya setelah diluncurkan. Burung kuning dapat menambah kecepatan dan daya rusak, burung hitam bisa meledak, dan burung putih yang bisa menjatuhkan bom telur, sedangkan burung hijau yang bisa menjadi bumerang, dan burung merah berukuran besar yang bisa menghancurkan lebih banyak struktur pelindung.

Pengembangan Angry Birds

                Permainan ini selalu menyediakan update untuk penambahan episode, yaitu Poached Eggs, Mighty Hoax, Danger Above, The Big Setup, Ham ‘Em High, Mine and Dine, dan episode memperingati ulang tahun ke-2 Angry Birds, Birthday Party.

Edisi Angry Birds

·         Angry Birds Seasons

Angry Birds Seasons dirilis pada 21 Oktober 2010 dengan episode spesial hari Halloween yang berjudul Trick or Treat. Setelah episode tersebut, episode spesial hari natal dirilis dengan judul Season’s Greedings.

·         Angry Birds Rio

Rovio bersama 20th Century Fox, selaku produser film Rio merilis game ini pada Maret 2011. Game ini merupakan perpaduan Angry Birds dengan film Rio. Burung-burung pemarah tersebut bertemu dengan teman barunya yang juga tokoh utama film tersebut, Blu dan Jewel. Dalam game ini, musuh-musuhnya bukanlah Babi hijau yang jahat, melainkan monyet-monyet yang nakal dan jahil, serta tokoh antagonis film tersebut, Nigel.

·         Angry Birds Magic

Rovio merilis Angry Birds Magic, yang dikhususkan untuk perangkat NFC-aktif Symbian untuk Nokia C7.

·         Angry Birds Space

Rovio merilis edisi ini pada 22 maret 2012 dengan nama Angry Birds Space.

Kekurangan

Sebelumnya game ini hanya bisa dimainkan di dalam suatu aplikasi gadget saja, yaitu iPhone/iPad. Sekarang game ini sudah menjamah ke gadget lain seperti Symbian, Android, dan Berbasis internet. Jika kita tidak mempunya aplikasi atau Gadget yang mendukung kita tidak bisa memainkan permainan ini, dan jika kita ingin memainkan permainan ini tidak dengan gadget atau aplikasi lain kita harus menghubungkan dengan internet. Di sisi lain, seasons game ini sangat banyak sehingga pengguna harus membutuhkan waktu yang agak lama untuk menyelesaikan misi tujuan dari game ini.

Kelebihan

                        Permainan ini sangat menghibur dan menarik perhatian dari berbanyak kalangan. Permainan ini tidak membosankan, dan banyak tingkatan yang menarik untuk bisa mengalahkan musuh. Sehingga pemain secara tidak langsung dilatih untuk berfikir bagaimana strategi untuk mengalahkan musuh ini karena setiap tingkat atau seasons berbeda struktur pelindung, jumlah musuh dan tingkat kesulitan. Pemain burung dalam permainan ini juga terdiri dari berbagai jenis burung, sehingga tidak membosankan jika hanya 1 karakter 1 burung saja dalam permainan ini.

Beberapa view dari Angry Birds :

Sumber :

http://id.wikipedia.org/wiki/Angry_Birds

http://tekno.kompas.com/read/2012/04/03/1006011/Serial.Kartun.Angry.Birds.Akan.Hadir.di.Layar.Kaca

http://www.angrybirds.com/

http://www.rovio.com/en/our-work/games/view/1/angry-birds

Implementasi Perhitungan Metode Newton Raphson Dalam R-Stat

(function (y) {
y<- f(x)
y<-x^3 + 2*x^2 + 10*x - 20
}

(function (y) { y
<-df(x)
y<-3*x^2 + 4*x + 10;
}

(function (xr) {
xr <- newtonraphson(f, x0, aprox)
i<-1
er(1)<-1
xr(1)<-x0
while abs(er(i))>=aprox {
    xr(i+1)<-xr(i)-f(xr(i))/df(xr(i))
    er(i+1)<-abs((xr(i+1)-xr(i))/xr(i+1))
    i=i+1}

printt(' i  \t      xn(i)      Error aprox (i) \n');
for j=1:i{
    print('%2d \t %11.7f \t %7.6f \n',j-1,xr(j),er(j));
}
}

Implementasi Perhitungan Metode Scant Dalam R-Stat

(function (y){
y <- g(x)
y <- x^3 + 2*x^2 + 10*x - 20
}

(function(x0, x1, aprox){
j<-2;
i<-1;
pn(1)<-x0;
pn(2)<-x1;
er(i)<-1;
while abs(er(i))>=aprox{
   pn(j+1)<-(pn(j-1)*f(pn(j))-pn(j)*f(pn(j-1)))/(f(pn(j))-f(pn(j-1)));
   er(i+1)<-abs((pn(j+1)-pn(j))/pn(j+1));
   j<-j+1;
   i<-i+1;
}

print(' i \t\t pn(i) \t\t Error aprox (i) \n')
print('%2d \t %11.7f \t\t \n',0,pn(1))

for k=2:j{
print(%2d \t %11.7f \t %7.8f \n,k,pn(k),er(k-1))}}

Implementasi Perhitungan Metode Regulfasi Dalam R-Stat

y <- 1
z <- 1.5
fy <- ((y^3)  + (2 (y^2)) + (10 y) – 20)
fz <- z^3  + 2 z^2 + 10 z – 20
x <- z – (fz * (z – y) / (fz – fy))
hasil <- x^3  + 2 x^2 + 10 x – 20
print(hasil)
fy * fz < 0
z <- x
fz <- z^3  + 2 z^2 + 10 z – 20
fy
x <- z – (fz * (z – y) / (fz – fy))
hasil <- x^3  + 2 x^2 + 10 x – 20
print (hasil)
fy * fz < 0
fy * fz >= 0
y <- x
fz
fy <- y^3  + 2 y^2 + 10 y – 20
x <- z – (fz * (z – y) / (fz – fy))
hasil <- x^3  + 2 x^2 + 10 x – 20
print (hasil)

Implementasi Perhitungan Metode BagiDua Dalam R-Stat

( function(x)
{
y <- x^3 + 2*x^2 + 10*x - 20
}

(function(f, x0, x1, approx)
{
i <- 1
er(1) <- 100
if (f(x0)*f(x1) < 0){
    a(1) <- x0
    b(1) <- x1
    c(1) <- (a(1)+b(1))/2
    print (r\t\t a\t\t b\t\t c\t\t f(c)\t  Error  \n)
    print (%2d \t %11.6f \t %11.6f \t %11.6f \t %11.6f \n,i,a(i),b(i),c(i),f(c(i)))
    while (abs(er(i)) >= approx){
      if (f(a(i))*f(c(i))< 0){
         a(i+1) <- a(i)
         b(i+1) <- c(i)}
   
      if (f(a(i))*f(c(i))> 0){
         a(i+1) <- c(i)
         b(i+1) <- b(i)}
       
      c(i+1) <- (a(i+1)+b(i+1))/2
      er(i+1) <- abs((c(i+1)-c(i))/(c(i+1)))
      print (%2d \t %11.6f \t %11.6f \t %11.6f \t %11.6f \t %7.6f \n,i+1,a(i+1),b(i+1),c(i+1),f(c(i+1)),er(i+1))
      i=i+1 }}
else
   print (" ")
}