Visual Basic (termometer source kode)

Bagi yang ingin membuat termometer dengan vb berikut saya uploudkan source code nya



Private Sub Command1_Click()
 a = Val(Text1.Text)

 If Option1.Value = True Then
    Select Case Val(Text1.Text)
    Case 0 To 100
    Case Else
    MsgBox "Error Found !!!     Restart The Program !!! "
    End
    End Select
End If

    If Option2.Value = True Then
                Select Case Val(Text1.Text)
                Case 0 To 80
                Case Else
                MsgBox "Error Found !!!     Restart The Program !!! "
                End
                End Select
    End If
            
            If Option3.Value = True Then
                            Select Case Val(Text1.Text)
                            Case 32 To 212
                            Case Else
                            MsgBox "Error Found !!!     Restart The Program !!! "
                            End
                            End Select
            End If
  

If Option1.Value = True And Option4.Value = True Then
      Text2.Text = 5 / 5 * a
      ElseIf Option1.Value = True And Option5.Value = True Then
        Text2.Text = 4 / 5 * a
         ElseIf Option1.Value = True And Option6.Value = True Then
                Text2.Text = (9 / 5 * a) + 32

                ElseIf Option2.Value = True And Option4.Value = True Then
                    Text2.Text = 5 / 4 * a
                    ElseIf Option2.Value = True And Option5.Value = True Then
                         Text2.Text = 4 / 4 * a
                         ElseIf Option2.Value = True And Option6.Value = True Then
                                Text2.Text = (9 / 4 * a) + 32

                                 ElseIf Option3.Value = True And Option4.Value = True Then
                                    Text2.Text = 5 / 9 * (a - 32)
                                    ElseIf Option3.Value = True And Option5.Value = True Then
                                         Text2.Text = 4 / 9 * (a - 32)
                                         ElseIf Option3.Value = True And Option6.Value = True Then
                                         Text2.Text = 9 / 9 * a
                              
              
End If


If Option1.Value = True And Option4.Value = True Then
      Select Case Val(Text2.Text)
             Case 0 To 100
             Case Else
             End
      End Select
      ElseIf Option1.Value = True And Option5.Value = True Then
            Select Case Val(Text2.Text)
                    Case 0 To 80
                    Case Else
                    End
            End Select
                    ElseIf Option1.Value = True And Option6.Value = True Then
                            Select Case Val(Text2.Text)
                                 Case 32 To 212
                                 Case Else
                                 End
                            End Select
                             ElseIf Option2.Value = True And Option4.Value = True Then
                                    Select Case Val(Text2.Text)
                                            Case 0 To 100
                                            Case Else
                                             End
                                     End Select
                                    ElseIf Option2.Value = True And Option5.Value = True Then
                                            Select Case Val(Text2.Text)
                                                Case 0 To 80
                                                Case Else
                                                End
                                            End Select
                                             ElseIf Option2.Value = True And Option6.Value = True Then
                                                    Select Case Val(Text2.Text)
                                                            Case 32 To 212
                                                            Case Else
                                                            End
                                                    End Select
                                                     ElseIf Option3.Value = True And Option4.Value = True Then
                                                            Select Case Val(Text2.Text)
                                                                     Case 0 To 100
                                                                    Case Else
                                                                        End
                                                                End Select
                                                                ElseIf Option3.Value = True And Option5.Value = True Then
                                                                        Select Case Val(Text2.Text)
                                                                        Case 0 To 80
                                                                        Case Else
                                                                        End
                                                                        End Select
                                                                         ElseIf Option3.Value = True And Option6.Value = True Then
                                                                                Select Case Val(Text2.Text)
                                                                                    Case 32 To 212
                                                                                    Case Else
                                                                                    End
                                                                                End Select
                              
              
End If
End Sub

Private Sub Command2_Click()
Command3.Visible = True
Command5.Visible = True
Command6.Visible = True
Command4.Visible = True
Label10.Visible = True
Label9.Visible = False
Command2.Visible = False
Text3.Visible = False
Label3.Visible = False
Command1.Visible = True
Label3.Visible = False

Text1.Enabled = True
Text1.Visible = True
Frame1.Visible = True
Text2.Visible = True
Frame2.Visible = True
Label1.Visible = True
Label2.Visible = True
End Sub

Private Sub Command3_Click()
Label11.Caption = "Class                 : B"
Label11.ForeColor = vbWhite
Label11.FontSize = 12
Label11.FontBold = True
Image1.Visible = True
Label5.Caption = "Name                       : I Putu Budiana"
Label5.ForeColor = vbWhite
Label5.FontSize = 12
Label5.FontBold = True
Label7.Caption = "NIM                        : 1013011067"
Label7.ForeColor = vbWhite
Label7.FontSize = 12
Label7.FontBold = True
Label8.Caption = "Grade                      : II"
Label8.ForeColor = vbWhite
Label8.FontSize = 12
Label8.FontBold = True
Label12.Caption = "Department      : Mathematics Education "
Label12.ForeColor = vbWhite
Label12.FontSize = 12
Label12.FontBold = True

End Sub

Private Sub Command4_Click()
Label10.Visible = False
Label13.Caption = "NOTE : ( value of input if you click the Celcius option Button is from 0 to 100, if reamur option button active  the value is from 0 to 80 and if fahrenhite option button  active the value is from 32 to 212)"
Label13.ForeColor = vbRed
Label13.FontSize = 12
Label13.Alignment = vbCenter
Label13.FontBold = True
Label13.FontUnderline = True

Command4.Visible = False
Label4.Caption = "Input the nominal you want to convert then  click the option button in Termometer I. next Select the other option button in termometer II the last you click CONVERT. and also if you want to know abaout me please click PROFILE .  "
Label4.ForeColor = vbWhite
Label4.FontBold = False
Label4.FontSize = 11
Label4.Alignment = vbCenter






End Sub

Private Sub Command5_Click()
MsgBox "Thank For Used My Program"
End
End Sub


Private Sub Command6_Click()
Text1.Text = Clear
Text2.Text = Clear
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Option5.Value = False
Option6.Value = False





End Sub


Private Sub Option1_Click()
Select Case Val(Text1.Text)
        Case 0 To 100
        Case Else
        MsgBox "out of range"
        Option1.Value = Clear
        Text1.Text = Clear
  
End Select
      
End Sub

Private Sub Option2_Click()
Select Case Val(Text1.Text)

        Case 0 To 80
        Case Else
        MsgBox "out of range"
        Option2.Value = Clear
        Text1.Text = Clear
End Select
      
End Sub

Private Sub Option3_Click()
Select Case Val(Text1.Text)
        Case 32 To 212
        Case Else
        MsgBox "out of range"
        Option3.Value = Clear
        Text1.Text = Clear
End Select
End Sub

Private Sub Text3_Change()
If Text3.Text = "RKBIMATEMATIKA2010" Then
    Command2.Visible = True
    Text3.ForeColor = vbBlue
    Text3.Alignment = vbCenter
    Text3.FontBold = True
    Text4.Visible = False
  
  
End If



End Sub

Ini diatampilan programnya :
tampak awal

tampilan programnya :

silakan  Download program selengkapnya
semoga bermanfaat