alexa-tracking

Main Content

1024
1024
KASKUS
51
244
https://www.kaskus.co.id/thread/53072aedf9ca17d8598b46e8/konversi-suhu-vb
Konversi Suhu VB
Konversi Suhu VB

Buka Visual Basic 6.0

1. Masukkan 5 buah Label
2. Masukkan 1 buah Frame
3. Masukkan 5 buah TextBox
4. Masukkan 4 buah OptionButton
5. Masukkan 3 buah CommandButton

1. Pada Form load
Code:
Private Sub Form_Load()
Option1 = True
End Sub


2. Pada Option1
Code:
Private Sub Option1_Click()
If Option1 = True Then
Option2 = False And Option13 = False And Option4 = False
End If
End Sub


3. Pada Command1
Code:
Private Sub Command1_Click()
Dim jwb As Integer
If Text1.Text = "" Then
jwb = MsgBox("Masukkan Nilai Suhu Yang Akan Dikonversi!!! ", _
vbInformation + vbYesNo, "WARNING")
If jwb = vbNo Then
Unload Me
ElseIf jwb = vbYes Then
FrmKonversiSuhu.Show
End If
ElseIf Option1 = True Then
Fahrenheit
ElseIf Option2 = True Then
Celcius
ElseIf Option3 = True Then
Rheamur
ElseIf Option4 = True Then
Kelvin
End If
End Sub


4. Pada Command2
Code:
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text2.BackColor = "&H80000005"
Text3.BackColor = "&H80000005"
Text4.BackColor = "&H80000005"
Text5.BackColor = "&H80000005"
Text1.SetFocus
End Sub


5. Pada Command3
Code:
Private Sub Command3_Click()
Unload Me
End Sub


script paling bawah
Spoiler for :


Silahkan ikuti tutorial berikut dengan teliti tapi Relax: jangan terlalu fokus nanti malah pusing -_- kwkwkw berikut cara mencomplie file menjadi exe.

1. Klik File pada tab atas
2. Klik Make Project1.exe...
pengen yang pake scrollbar gan emoticon-Mewek
Quote:Original Posted By peyotpetot
pengen yang pake scrollbar gan emoticon-Mewek

Yaa buat sendiri emoticon-Stick Out Tongue
×