VB : CONTOH APLIKASI RAMALAN BINTANG

CONTOH APLIKASI RAMALAN BINTANG (contoh zodiac Leo, Virgo Scorpio menggunakan fungsi IF)

1.       DATA INPUT :

·         NAMA

·         BINTANG / ZODIAK (MENGGUNAKAN COMBO BOX)

2.       DATA OUTPUT :

·         KESEHATAN

·         KEUANGAN

·         ASMARA

3.       DATA PROSES :

RUMUS :

If Combo1 = "LEO" Then

Text2 = "BAIK-BAIK SAJA"

Text3 = "CUKUP"

Text4 = "SELINGKUH"

Else

If Combo1 = "VIRGO" Then

Text2 = "KURANG FITT"

Text3 = "KERING"

Text4 = "BAIK"

Else

Text2 = "SAKIT KEPALA"

Text3 = "ROYAL"

Text4 = "CURIGA"

End If

End If

Contoh Gambar :

*selesai