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

Mathematica 8 the great mathematical programming

System Requirements

Cross-platform computing power

Mathematica is optimized for the latest operating systems and hardware, so you can use any system you want.

Hardware Specifications

Processor: Intel Pentium III 650 MHz or equivalent Disk Space: 4 GB System Memory (RAM): 512 MB required; 1 GB+ recommended Internet Access: Required in order to use free-form linguistic input and computable data functionality.

To use Mathematica 8's built-in GPU computing capabilities, you'll need a graphics card that supports OpenCL or CUDA, such as many cards from NVIDIA, AMD, and others.

Mathematica 8 is available on the following platforms:

Microsoft Windows

Apple Mac

Linux

Microsoft Windows	32-bit	64-bit
Windows 7
Windows Vista
Windows XP*
Windows HPC Server 2008
Windows Server 2008
Windows Server 2003
Windows Compute Cluster Server 2003
*Windows XP requires Service Pack 2 or later.

Apple Mac	32-bit	64-bit
Mac OS X 10.7 Intel
Mac OS X 10.6 Intel
Mac OS X 10.5 Intel
Mac users on Intel systems with Mac OS X 10.5 or later can run the latest version ofMathematica. Mathematica 8 will run on both 32-bit and 64-bit Intel Macs. Mathematica 8 is not supported on Mac PowerPC. Mathematica 7 is available for Mac OS X 10.5 PPC. For more information, contact us»

Linux	32-bit	64-bit
Ubuntu 7-10
Red Hat Enterprise Linux 4
CentOS 5
Debian 5*
openSUSE 11
Mathematica 8 has been fully tested on the Linux distributions listed above. On new Linux distributions, additional compatibility libraries may need to be installed. It is likely thatMathematica will run successfully on other distributions based on the Linux kernel 2.6 or later. Mathematica supports an X Window System front end, and since Version 7 has used the Qt application framework for its user interface—the same used by the major Linux desktop environment KDE. Regular tests are run on both enterprise and popular open-source Linux distributions.

Mathematica

Mathematica adalah program komputer yang dikembangkan oleh Stephen Wolfram melalui lembaga Wolfram Research di Champaign, Illinois, Amerika Serikat untuk keperluan bidang matematika, statistika, dan ilmu pengetahuan teknik.
Butuh softwaren Klik disini