Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

1 Eylül 2011 Perşembe

Periodic Table & Aufbau Principle




'UserForm1

'A. Available References List
'1) Name: VBA, Description: Visual Basic For Applications, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
'2) Name: Excel, Description: Microsoft Excel 11.0 Object Library, FullPath: C:\Program Files (x86)\Microsoft Office\OFFICE11\EXCEL.EXE
'3) Name: stdole, Description: OLE Automation, FullPath: C:\Windows\SysWOW64\stdole2.tlb
'4) Name: Office, Description: Microsoft Office 11.0 Object Library, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE11\MSO.DLL
'5) Name: MSForms, Description: Microsoft Forms 2.0 Object Library, FullPath: C:\Windows\SysWOW64\FM20.DLL
'6) Name: MSComctlLib, Description: Microsoft Windows Common Controls 6.0 (SP6), FullPath: C:\Windows\SysWOW64\MSCOMCTL.OCX
'7) Name: vsFlexLib, Description: :-) VideoSoft vsFlex3 Controls, FullPath: C:\Windows\SysWOW64\VSFLEX3.OCX
'B. Available Tools List
'1) Image1, Label1, Label2
'2) Label3, ListView1
'3) Label4, vsFlexArray1, Image2
'C. Special Note:
       'The search for a file folder for the program is running. For this reason, save your file in any drive.
Option Explicit
Private i As Single, ii As Single, iii As Single
Private s1, s2, p2, s3, p3, d3, s4, p4, d4, f4, s5, p5, d5, f5, s6, p6, d6, s7, p7
Private s1m, s2m, p2m, s3m, p3m, d3m, s4m, p4m, d4m, f4m, s5m, p5m, d5m, f5m, s6m, p6m, d6m, s7m, p7m
Private GrafikVerileri(1 To 5, 1 To 8)
Private ElementVerileri(1 To 118, 1 To 13)
Private Sub UserForm_Initialize()
On Error Resume Next
Me.Caption = "[PBİD®] Periodic Table & Aufbau Principle"
Call Ekran_Duzenle
Call Element_Verileri_Getir
Call Element_Tablosunu_Kur
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
On Error Resume Next
Call Aufbau_Principle(Item.Text)
Call Grafik_Kur
Call Aufbau_Dizilimi
End Sub
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
On Error Resume Next
If ColumnHeader.Key = "CH1" Then
Me.ListView1.Sorted = True
Me.ListView1.SortKey = 0
If Me.ListView1.SortOrder = lvwDescending Then
Me.ListView1.SortOrder = lvwAscending
Else
Me.ListView1.SortOrder = lvwDescending
End If
Else
Me.ListView1.Sorted = False
End If
If ColumnHeader.Key = "CH2" Then
Me.ListView1.Sorted = True
Me.ListView1.SortKey = 0
If Me.ListView1.SortOrder = lvwDescending Then
Me.ListView1.SortOrder = lvwAscending
Else
Me.ListView1.SortOrder = lvwDescending
End If
Else
Me.ListView1.Sorted = False
End If
If ColumnHeader.Key = "CH4" Then
Me.ListView1.Sorted = True
Me.ListView1.SortKey = 0
If Me.ListView1.SortOrder = lvwDescending Then
Me.ListView1.SortOrder = lvwAscending
Else
Me.ListView1.SortOrder = lvwDescending
End If
Else
Me.ListView1.Sorted = False
End If
End Sub
Private Sub Ekran_Duzenle()
On Error Resume Next
With Me
.BackColor = vbWhite
.Height = 400
.Width = 736
.Picture = Resim(URL1)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = True
.SpecialEffect = fmSpecialEffectFlat
With Image1
.Top = 6
.Left = 6
.Height = 24
.Width = 24
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Picture = Resim(URL2)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = False
End With
With Label1
.Left = 36
.Top = 6
.Height = 12
.Width = 420
.Caption = "Mustafa ULUSARAÇ"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = vbBlue
End With
With Label2
.Left = 36
.Top = 18
.Height = 12
.Width = 420
.Caption = "01ulusarac@superonline.com"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = vbBlue
End With
With Label3
.Left = 6
.Top = 36
.Height = 12
.Width = 288
.Caption = "Temel Elemant Bilgileri"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = &H808000
.TextAlign = fmTextAlignCenter
End With
With ListView1
.Left = 6
.Top = 36 + 12
.Height = 324
.Width = 288
.Appearance = ccFlat
.BorderStyle = ccFixedSingle
.BackColor = vbWhite
.FullRowSelect = True
.Gridlines = True
.MultiSelect = False
.View = lvwReport
.FlatScrollBar = False
With .ColumnHeaders
.Add 1, "CH1", "Atom No", 60, 0
.Add 2, "CH2", "Adı", 60, 0
.Add 3, "CH3", "Simgesi", 60, 0
.Add 4, "CH4", "Grubu", 60, 0
.Add 5, "CH5", "Bağıl Atom Kütlesi", 60, 0
.Add 6, "CH6", "Oda Sıcaklığındaki Durumu", 60, 0
.Add 7, "CH7", "Erime Noktası", 60, 0
.Add 8, "CH8", "Kaynama Noktası", 60, 0
.Add 9, "CH9", "Yoğunluğu", 60, 0
.Add 10, "CH10", "Keşfi", 60, 0
.Add 11, "CH11", "Atom Çapı", 60, 0
.Add 12, "CH12", "Elektronegatifliği", 60, 0
.Add 13, "CH13", "Yükseltgenme BasamağıSayısı", 60, 0
End With
.ForeColor = vbBlue
.SortOrder = lvwAscending
.LabelWrap = True
End With
With Label4
.Left = 294
.Top = 36
.Height = 12
.Width = 96 + 336
.Caption = "Elemante Ait Yörünge ve Orbital Elektron Dizilim Bilgileri"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = &H808000
.TextAlign = fmTextAlignCenter
End With
With vsFlexArray1
.Top = 48
.Left = 294
.Width = 96
.Height = 324
.Editable = False
.Enabled = False
.ExtendLastCol = False
.ScrollBars = flexScrollBarNone
.ForeColor = vbBlue
.BackColorFixed = &H8000000F
.BackColorBkg = &H8000000F
.BackColor = vbWhite
.Gridlines = flexGridFlat
.MultiTotals = True
.SubtotalPosition = flexSTAbove
.Redraw = True
.Appearance = flexFlat
.AllowBigSelection = True
.AllowSelection = True
.SelectionMode = flexSelectionFree
.BorderStyle = 1
.FixedCols = 1 + 3
.FixedRows = 0
.Cols = 1 + 4
.Rows = 1 + 26
.ColWidth(0) = 24 * 20
.ColWidth(1) = 24 * 20
.ColWidth(2) = 24 * 20
.ColWidth(3) = 24 * 20
.FixedAlignment(0) = flexAlignCenterCenter
.FixedAlignment(1) = flexAlignCenterCenter
.FixedAlignment(2) = flexAlignCenterCenter
.FixedAlignment(3) = flexAlignCenterCenter
.TextMatrix(0, 0) = "Yörünge"
.TextMatrix(0, 1) = "Orbital Dağılımı"
.TextMatrix(0, 2) = "Orbital Dağılımı"
.TextMatrix(0, 3) = "Orbital Dağılımı"
.MergeRow(0) = True
.MergeCells = flexMergeRestrictRows
.MergeCol(0) = True
.MergeCells = flexMergeRestrictColumns
.TextMatrix(1, 0) = "1K": .Col = 0: .Row = 1: .CellBackColor = VBA.RGB(220, 240, 120): .CellForeColor = vbBlack
.TextMatrix(1, 1) = "1s": .Col = 1: .Row = 1: .CellBackColor = VBA.RGB(0, 0, 255): .CellForeColor = vbWhite
.TextMatrix(1, 2) = 2: .Col = 2: .Row = 1: .CellBackColor = VBA.RGB(0, 0, 255): .CellForeColor = vbWhite
.TextMatrix(1, 3) = 0: .Col = 3: .Row = 1: .CellBackColor = VBA.RGB(0, 0, 255): .CellForeColor = vbWhite
.TextMatrix(2, 0) = "2L": .TextMatrix(3, 0) = "2L": .TextMatrix(4, 0) = "2L"
.Col = 0: .Row = 2: .CellBackColor = VBA.RGB(220, 220, 120): .CellForeColor = vbBlack
.Col = 0: .Row = 3: .CellBackColor = VBA.RGB(220, 220, 120): .CellForeColor = vbBlack
.Col = 0: .Row = 4: .CellBackColor = VBA.RGB(220, 220, 120): .CellForeColor = vbBlack
.TextMatrix(2, 1) = "2s": .Col = 1: .Row = 2: .CellBackColor = VBA.RGB(0, 0, 255): .CellForeColor = vbWhite
.TextMatrix(2, 2) = 2: .Col = 2: .Row = 2: .CellBackColor = VBA.RGB(0, 0, 255): .CellForeColor = vbWhite
.TextMatrix(2, 3) = 0: .Col = 3: .Row = 2: .CellBackColor = VBA.RGB(0, 0, 255): .CellForeColor = vbWhite
.TextMatrix(3, 1) = "2p": .Col = 1: .Row = 3: .CellBackColor = VBA.RGB(0, 255, 0): .CellForeColor = vbWhite
.TextMatrix(3, 2) = 6: .Col = 2: .Row = 3: .CellBackColor = VBA.RGB(0, 255, 0): .CellForeColor = vbWhite
.TextMatrix(3, 3) = 0: .Col = 3: .Row = 3: .CellBackColor = VBA.RGB(0, 255, 0): .CellForeColor = vbWhite
.TextMatrix(4, 1) = "2Top": .Col = 1: .Row = 4: .CellBackColor = VBA.RGB(220, 220, 120): .CellForeColor = vbBlack
.TextMatrix(4, 2) = 8: .Col = 2: .Row = 4: .CellBackColor = VBA.RGB(220, 220, 120): .CellForeColor = vbBlack
.TextMatrix(4, 3) = 0: .Col = 3: .Row = 4: .CellBackColor = VBA.RGB(220, 220, 120): .CellForeColor = vbBlack
.TextMatrix(5, 0) = "3M": .TextMatrix(6, 0) = "3M": .TextMatrix(7, 0) = "3M": .TextMatrix(8, 0) = "3M"
.Col = 0: .Row = 5: .CellBackColor = VBA.RGB(220, 200, 120): .CellForeColor = vbBlack
.TextMatrix(5, 1) = "3s": .Col = 1: .Row = 5: .CellBackColor = VBA.RGB(0, 0, 255): .CellForeColor = vbWhite
.TextMatrix(5, 2) = 2: .Col = 2: .Row = 5: .CellBackColor = VBA.RGB(0, 0, 255): .CellForeColor = vbWhite
.TextMatrix(5, 3) = 0: .Col = 3: .Row = 5: .CellBackColor = VBA.RGB(0, 0, 255): .CellForeColor = vbWhite
.TextMatrix(6, 1) = "3p": .Col = 1: .Row = 6: .CellBackColor = VBA.RGB(0, 255, 0): .CellForeColor = vbWhite
.TextMatrix(6, 2) = 6: .Col = 2: .Row = 6: .CellBackColor = VBA.RGB(0, 255, 0): .CellForeColor = vbWhite
.TextMatrix(6, 3) = 0: .Col = 3: .Row = 6: .CellBackColor = VBA.RGB(0, 255, 0): .CellForeColor = vbWhite
.TextMatrix(7, 1) = "3d": .Col = 1: .Row = 7: .CellBackColor = VBA.RGB(0, 255, 255): .CellForeColor = vbWhite
.TextMatrix(7, 2) = 10: .Col = 2: .Row = 7: .CellBackColor = VBA.RGB(0, 255, 255): .CellForeColor = vbWhite
.TextMatrix(7, 3) = 0: .Col = 3: .Row = 7: .CellBackColor = VBA.RGB(0, 255, 255): .CellForeColor = vbWhite
.TextMatrix(8, 1) = "3Top": .Col = 1: .Row = 8: .CellBackColor = VBA.RGB(220, 200, 120): .CellForeColor = vbBlack
.TextMatrix(8, 2) = 18: .Col = 2: .Row = 8: .CellBackColor = VBA.RGB(220, 200, 120): .CellForeColor = vbBlack
.TextMatrix(8, 3) = 0: .Col = 3: .Row = 8: .CellBackColor = VBA.RGB(220, 200, 120): .CellForeColor = vbBlack
.TextMatrix(9, 0) = "4N": .TextMatrix(10, 0) = "4N": .TextMatrix(11, 0) = "4N": .TextMatrix(12, 0) = "4N": .TextMatrix(13, 0) = "4N"
.Col = 0: .Row = 9: .CellBackColor = VBA.RGB(220, 180, 120): .CellForeColor = vbBlack
.TextMatrix(9, 1) = "4s": .Col = 1: .Row = 9: .CellBackColor = VBA.RGB(0, 0, 255): .CellForeColor = vbWhite
.TextMatrix(9, 2) = 2: .Col = 2: .Row = 9: .CellBackColor = VBA.RGB(0, 0, 255): .CellForeColor = vbWhite
.TextMatrix(9, 3) = 0: .Col = 3: .Row = 9: .CellBackColor = VBA.RGB(0, 0, 255): .CellForeColor = vbWhite
.TextMatrix(10, 1) = "4p": .Col = 1: .Row = 10: .CellBackColor = VBA.RGB(0, 255, 0): .CellForeColor = vbWhite
.TextMatrix(10, 2) = 6: .Col = 2: .Row = 10: .CellBackColor = VBA.RGB(0, 255, 0): .CellForeColor = vbWhite
.TextMatrix(10, 3) = 0: .Col = 3: .Row = 10: .CellBackColor = VBA.RGB(0, 255, 0): .CellForeColor = vbWhite
.TextMatrix(11, 1) = "4d": .Col = 1: .Row = 11: .CellBackColor = VBA.RGB(0, 255, 255): .CellForeColor = vbWhite
.TextMatrix(11, 2) = 10: .Col = 2: .Row = 11: .CellBackColor = VBA.RGB(0, 255, 255): .CellForeColor = vbWhite
.TextMatrix(11, 3) = 0: .Col = 3: .Row = 11: .CellBackColor = VBA.RGB(0, 255, 255): .CellForeColor = vbWhite
.TextMatrix(12, 1) = "4f": .Col = 1: .Row = 12: .CellBackColor = VBA.RGB(255, 0, 0): .CellForeColor = vbWhite
.TextMatrix(12, 2) = 10: .Col = 2: .Row = 12: .CellBackColor = VBA.RGB(255, 0, 0): .CellForeColor = vbWhite
.TextMatrix(12, 3) = 0: .Col = 3: .Row = 12: .CellBackColor = VBA.RGB(255, 0, 0): .CellForeColor = vbWhite
.TextMatrix(13, 1) = "4Top": .Col = 1: .Row = 13: .CellBackColor = VBA.RGB(220, 180, 120): .CellForeColor = vbBlack
.TextMatrix(13, 2) = 32: .Col = 2: .Row = 13: .CellBackColor = VBA.RGB(220, 180, 120): .CellForeColor = vbBlack
.TextMatrix(13, 3) = 0: .Col = 3: .Row = 13: .CellBackColor = VBA.RGB(220, 180, 120): .CellForeColor = vbBlack
.TextMatrix(14, 0) = "5O": .TextMatrix(15, 0) = "5O": .TextMatrix(16, 0) = "5O": .TextMatrix(17, 0) = "5O": .TextMatrix(18, 0) = "5O"
.Col = 0: .Row = 14: .CellBackColor = VBA.RGB(220, 160, 120): .CellForeColor = vbBlack
.TextMatrix(14, 1) = "5s": .Col = 1: .Row = 14: .CellBackColor = VBA.RGB(0, 0, 255): .CellForeColor = vbWhite
.TextMatrix(14, 2) = 2: .Col = 2: .Row = 14: .CellBackColor = VBA.RGB(0, 0, 255): .CellForeColor = vbWhite
.TextMatrix(14, 3) = 0: .Col = 3: .Row = 14: .CellBackColor = VBA.RGB(0, 0, 255): .CellForeColor = vbWhite
.TextMatrix(15, 1) = "5p": .Col = 1: .Row = 15: .CellBackColor = VBA.RGB(0, 255, 0): .CellForeColor = vbWhite
.TextMatrix(15, 2) = 6: .Col = 2: .Row = 15: .CellBackColor = VBA.RGB(0, 255, 0): .CellForeColor = vbWhite
.TextMatrix(15, 3) = 0: .Col = 3: .Row = 15: .CellBackColor = VBA.RGB(0, 255, 0): .CellForeColor = vbWhite
.TextMatrix(16, 1) = "5d": .Col = 1: .Row = 16: .CellBackColor = VBA.RGB(0, 255, 255): .CellForeColor = vbWhite
.TextMatrix(16, 2) = 10: .Col = 2: .Row = 16: .CellBackColor = VBA.RGB(0, 255, 255): .CellForeColor = vbWhite
.TextMatrix(16, 3) = 0: .Col = 3: .Row = 16: .CellBackColor = VBA.RGB(0, 255, 255): .CellForeColor = vbWhite
.TextMatrix(17, 1) = "5f": .Col = 1: .Row = 17: .CellBackColor = VBA.RGB(255, 0, 0): .CellForeColor = vbWhite
.TextMatrix(17, 2) = 10: .Col = 2: .Row = 17: .CellBackColor = VBA.RGB(255, 0, 0): .CellForeColor = vbWhite
.TextMatrix(17, 3) = 0: .Col = 3: .Row = 17: .CellBackColor = VBA.RGB(255, 0, 0): .CellForeColor = vbWhite
.TextMatrix(18, 1) = "5Top": .Col = 1: .Row = 18: .CellBackColor = VBA.RGB(220, 160, 120): .CellForeColor = vbBlack
.TextMatrix(18, 2) = 32: .Col = 2: .Row = 18: .CellBackColor = VBA.RGB(220, 160, 120): .CellForeColor = vbBlack
.TextMatrix(18, 3) = 0: .Col = 3: .Row = 18: .CellBackColor = VBA.RGB(220, 160, 120): .CellForeColor = vbBlack
.TextMatrix(19, 0) = "6P": .TextMatrix(20, 0) = "6P": .TextMatrix(21, 0) = "6P": .TextMatrix(22, 0) = "6P"
.Col = 0: .Row = 19: .CellBackColor = VBA.RGB(220, 140, 120): .CellForeColor = vbBlack
.TextMatrix(19, 1) = "6s": .Col = 1: .Row = 19: .CellBackColor = VBA.RGB(0, 0, 255): .CellForeColor = vbWhite
.TextMatrix(19, 2) = 2: .Col = 2: .Row = 19: .CellBackColor = VBA.RGB(0, 0, 255): .CellForeColor = vbWhite
.TextMatrix(19, 3) = 0: .Col = 3: .Row = 19: .CellBackColor = VBA.RGB(0, 0, 255): .CellForeColor = vbWhite
.TextMatrix(20, 1) = "6p": .Col = 1: .Row = 20: .CellBackColor = VBA.RGB(0, 255, 0): .CellForeColor = vbWhite
.TextMatrix(20, 2) = 6: .Col = 2: .Row = 20: .CellBackColor = VBA.RGB(0, 255, 0): .CellForeColor = vbWhite
.TextMatrix(20, 3) = 0: .Col = 3: .Row = 20: .CellBackColor = VBA.RGB(0, 255, 0): .CellForeColor = vbWhite
.TextMatrix(21, 1) = "6d": .Col = 1: .Row = 21: .CellBackColor = VBA.RGB(0, 255, 255): .CellForeColor = vbWhite
.TextMatrix(21, 2) = 10: .Col = 2: .Row = 21: .CellBackColor = VBA.RGB(0, 255, 255): .CellForeColor = vbWhite
.TextMatrix(21, 3) = 0: .Col = 3: .Row = 21: .CellBackColor = VBA.RGB(0, 255, 255): .CellForeColor = vbWhite
.TextMatrix(22, 1) = "6Top": .Col = 1: .Row = 22: .CellBackColor = VBA.RGB(220, 140, 120): .CellForeColor = vbBlack
.TextMatrix(22, 2) = 18: .Col = 2: .Row = 22: .CellBackColor = VBA.RGB(220, 140, 120): .CellForeColor = vbBlack
.TextMatrix(22, 3) = 0: .Col = 3: .Row = 22: .CellBackColor = VBA.RGB(220, 140, 120): .CellForeColor = vbBlack
.TextMatrix(23, 0) = "7Q": .TextMatrix(24, 0) = "7Q": .TextMatrix(25, 0) = "7Q"
.Col = 0: .Row = 23: .CellBackColor = VBA.RGB(220, 120, 120): .CellForeColor = vbBlack
.TextMatrix(23, 1) = "7s": .Col = 1: .Row = 23: .CellBackColor = VBA.RGB(0, 0, 255): .CellForeColor = vbWhite
.TextMatrix(23, 2) = 2: .Col = 2: .Row = 23: .CellBackColor = VBA.RGB(0, 0, 255): .CellForeColor = vbWhite
.TextMatrix(23, 3) = 0: .Col = 3: .Row = 23: .CellBackColor = VBA.RGB(0, 0, 255): .CellForeColor = vbWhite
.TextMatrix(24, 1) = "7p": .Col = 1: .Row = 24: .CellBackColor = VBA.RGB(0, 255, 0): .CellForeColor = vbWhite
.TextMatrix(24, 2) = 6: .Col = 2: .Row = 24: .CellBackColor = VBA.RGB(0, 255, 0): .CellForeColor = vbWhite
.TextMatrix(24, 3) = 0: .Col = 3: .Row = 24: .CellBackColor = VBA.RGB(0, 255, 0): .CellForeColor = vbWhite
.TextMatrix(25, 1) = "7Top": .Col = 1: .Row = 25: .CellBackColor = VBA.RGB(220, 120, 120): .CellForeColor = vbBlack
.TextMatrix(25, 2) = 8: .Col = 2: .Row = 25: .CellBackColor = VBA.RGB(220, 120, 120): .CellForeColor = vbBlack
.TextMatrix(25, 3) = 0: .Col = 3: .Row = 25: .CellBackColor = VBA.RGB(220, 120, 120): .CellForeColor = vbBlack
.TextMatrix(26, 0) = "Toplam": .TextMatrix(26, 1) = "Toplam"
.TextMatrix(26, 2) = 118: .Col = 2: .Row = 26: .CellBackColor = vbWhite: .CellForeColor = vbBlack
.TextMatrix(26, 3) = 0: .Col = 3: .Row = 26: .CellBackColor = vbWhite: .CellForeColor = vbBlack
.MergeRow(26) = True
.MergeCells = flexMergeRestrictRows
End With
With Image2
.Left = 390
.Top = 48
.Height = 324
.Width = 336
.BackStyle = fmBackStyleTransparent
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeStretch
.PictureTiling = False
.SpecialEffect = fmSpecialEffectEtched
End With
End With
End Sub
Private Sub Aufbau_Principle(ByVal Proton As Double)
On Error Resume Next
'Aufbau Principle; s1 s2 p2 s3 p3 s4 d3 p4 s5 d4 p5 s6 f4 d5 p6 s7 f5 d6 p7    

s1m = 2
s2m = 2
p2m = 6
s3m = 2
p3m = 6
s4m = 2
d3m = 10
p4m = 6
s5m = 2
d4m = 10
p5m = 6
s6m = 2
f4m = 14
d5m = 10
p6m = 6
s7m = 2
f5m = 14
d6m = 10
p7m = 6
If Proton < s1m Then

s1 = Proton
Else
s1 = s1m
End If
If (s1 + s2m) > Proton Then
s2 = Proton - s1
Else
s2 = s2m
End If
If (s1 + s2 + p2m) > Proton Then
p2 = Proton - (s1 + s2)
Else
p2 = p2m
End If
If (s1 + s2 + p2 + s3m) > Proton Then
s3 = Proton - (s1 + s2 + p2)
Else
s3 = s3m
End If
If (s1 + s2 + p2 + s3 + p3m) > Proton Then
p3 = Proton - (s1 + s2 + p2 + s3)
Else
p3 = p3m
End If
If (s1 + s2 + p2 + s3 + p3 + s4m) > Proton Then
s4 = Proton - (s1 + s2 + p2 + s3 + p3)
Else
s4 = s4m
End If
If (s1 + s2 + p2 + s3 + p3 + s4 + d3m) > Proton Then
d3 = Proton - (s1 + s2 + p2 + s3 + p3 + s4)
Else
d3 = d3m
End If
If (s1 + s2 + p2 + s3 + p3 + s4 + d3 + p4m) > Proton Then
p4 = Proton - (s1 + s2 + p2 + s3 + p3 + s4 + d3)
Else
p4 = p4m
End If
If (s1 + s2 + p2 + s3 + p3 + s4 + d3 + p4 + s5m) > Proton Then
s5 = Proton - (s1 + s2 + p2 + s3 + p3 + s4 + d3 + p4)
Else
s5 = s5m
End If
If (s1 + s2 + p2 + s3 + p3 + s4 + d3 + p4 + s5 + d4m) > Proton Then
d4 = Proton - (s1 + s2 + p2 + s3 + p3 + s4 + d3 + p4 + s5)
Else
d4 = d4m
End If
If (s1 + s2 + p2 + s3 + p3 + s4 + d3 + p4 + s5 + d4 + p5m) > Proton Then
p5 = Proton - (s1 + s2 + p2 + s3 + p3 + s4 + d3 + p4 + s5 + d4)
Else
p5 = p5m
End If
If (s1 + s2 + p2 + s3 + p3 + s4 + d3 + p4 + s5 + d4 + p5 + s6m) > Proton Then
s6 = Proton - (s1 + s2 + p2 + s3 + p3 + s4 + d3 + p4 + s5 + d4 + p5)
Else
s6 = s6m
End If
If (s1 + s2 + p2 + s3 + p3 + s4 + d3 + p4 + s5 + d4 + p5 + s6 + f4m) > Proton Then
f4 = Proton - (s1 + s2 + p2 + s3 + p3 + s4 + d3 + p4 + s5 + d4 + p5 + s6)
Else
f4 = f4m
End If
If (s1 + s2 + p2 + s3 + p3 + s4 + d3 + p4 + s5 + d4 + p5 + s6 + f4 + d5m) > Proton Then
d5 = Proton - (s1 + s2 + p2 + s3 + p3 + s4 + d3 + p4 + s5 + d4 + p5 + s6 + f4)
Else
d5 = d5m
End If
If (s1 + s2 + p2 + s3 + p3 + s4 + d3 + p4 + s5 + d4 + p5 + s6 + f4 + d5 + p6m) > Proton Then
p6 = Proton - (s1 + s2 + p2 + s3 + p3 + s4 + d3 + p4 + s5 + d4 + p5 + s6 + f4 + d5)
Else
p6 = p6m
End If
If (s1 + s2 + p2 + s3 + p3 + s4 + d3 + p4 + s5 + d4 + p5 + s6 + f4 + d5 + p6 + s7m) > Proton Then
s7 = Proton - (s1 + s2 + p2 + s3 + p3 + s4 + d3 + p4 + s5 + d4 + p5 + s6 + f4 + d5 + p6)
Else
s7 = s7m
End If
If (s1 + s2 + p2 + s3 + p3 + s4 + d3 + p4 + s5 + d4 + p5 + s6 + f4 + d5 + p6 + s7 + f5m) > Proton Then
f5 = Proton - (s1 + s2 + p2 + s3 + p3 + s4 + d3 + p4 + s5 + d4 + p5 + s6 + f4 + d5 + p6 + s7)
Else
f5 = f5m
End If
If (s1 + s2 + p2 + s3 + p3 + s4 + d3 + p4 + s5 + d4 + p5 + s6 + f4 + d5 + p6 + s7 + f5 + d6m) > Proton Then
d6 = Proton - (s1 + s2 + p2 + s3 + p3 + s4 + d3 + p4 + s5 + d4 + p5 + s6 + f4 + d5 + p6 + s7 + f5)
Else
d6 = d6m
End If
If (s1 + s2 + p2 + s3 + p3 + s4 + d3 + p4 + s5 + d4 + p5 + s6 + f4 + d5 + p6 + s7 + f5 + d6 + p7m) > Proton Then
p7 = Proton - (s1 + s2 + p2 + s3 + p3 + s4 + d3 + p4 + s5 + d4 + p5 + s6 + f4 + d5 + p6 + s7 + f5 + d6)
Else
p7 = p7m
End If
GrafikVerileri(1, 1) = ""
GrafikVerileri(1, 2) = "K"
GrafikVerileri(1, 3) = "L"
GrafikVerileri(1, 4) = "M"
GrafikVerileri(1, 5) = "N"
GrafikVerileri(1, 6) = "O"
GrafikVerileri(1, 7) = "P"
GrafikVerileri(1, 8) = "Q"
GrafikVerileri(2, 1) = "s"
GrafikVerileri(3, 1) = "p"
GrafikVerileri(4, 1) = "d"
GrafikVerileri(5, 1) = "f"
GrafikVerileri(2, 2) = s1
GrafikVerileri(3, 2) = 0
GrafikVerileri(4, 2) = 0
GrafikVerileri(5, 2) = 0
GrafikVerileri(2, 3) = s2
GrafikVerileri(3, 3) = p2
GrafikVerileri(4, 3) = 0
GrafikVerileri(5, 3) = 0
GrafikVerileri(2, 4) = s3
GrafikVerileri(3, 4) = p3
GrafikVerileri(4, 4) = d3
GrafikVerileri(5, 4) = 0
GrafikVerileri(2, 5) = s4
GrafikVerileri(3, 5) = p4
GrafikVerileri(4, 5) = d4
GrafikVerileri(5, 5) = f4
GrafikVerileri(2, 6) = s5
GrafikVerileri(3, 6) = p5
GrafikVerileri(4, 6) = d5
GrafikVerileri(5, 6) = f5
GrafikVerileri(2, 7) = s6
GrafikVerileri(3, 7) = p6
GrafikVerileri(4, 7) = d6
GrafikVerileri(5, 7) = 0
GrafikVerileri(2, 8) = s7
GrafikVerileri(3, 8) = p7
GrafikVerileri(4, 8) = 0
GrafikVerileri(5, 8) = 0
End Sub
Sub Grafik_Kur()
On Error Resume Next
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ThisWorkbook.Sheets("GrafikSayfa").Delete
ThisWorkbook.Worksheets.Add Before:=Sheets(1)
ActiveSheet.Name = "GrafikSayfa"
ActiveSheet.DrawingObjects.Select
Selection.Delete
Charts.Add
With ActiveChart
.ChartType = xlDoughnut
.SetSourceData Source:=Sheets("GrafikSayfa").Range("A1:H5"), PlotBy:=xlColumns
.Location Where:=xlLocationAsObject, Name:="GrafikSayfa"
With Sheets("GrafikSayfa")
.Range("A1:H5") = GrafikVerileri
.Shapes("Chart 1").Left = 0
.Shapes("Chart 1").Top = 0
.Shapes("Chart 1").Height = 312
.Shapes("Chart 1").Width = 336
End With
End With
For i = 1 To 7
For ii = 1 To 4
ActiveChart.SeriesCollection(i).Select
ActiveChart.SeriesCollection(i).Points(ii).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Selection.Shadow = False
With Selection.Interior
.Color = VBA.Switch(ii = 1, VBA.RGB(0, 0, 255), ii = 2, VBA.RGB(0, 255, 0), ii = 3, VBA.RGB(0, 255, 255), ii = 4, VBA.RGB(255, 0, 0))
.Pattern = xlSolid
End With
Next ii
Next i
ActiveChart.ChartArea.Border.LineStyle = 0
ActiveChart.PlotArea.Border.LineStyle = 0
ActiveChart.PlotArea.Interior.ColorIndex = xlNone
ActiveChart.ChartArea.Font.Color = VBA.RGB(255, 0, 255)
ActiveChart.ApplyDataLabels xlDataLabelsShowValue, True, True, True, True, True, True, False, False, "\"
ActiveChart.Export ThisWorkbook.Path & "\Grafik.gif", "gif"
Image2.Picture = LoadPicture(ThisWorkbook.Path & "\Grafik.gif")
VBA.Kill ThisWorkbook.Path & "\Grafik.gif"
ThisWorkbook.Sheets("GrafikSayfa").Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Private Sub Aufbau_Dizilimi()
On Error Resume Next
vsFlexArray1.TextMatrix(1, 3) = s1
vsFlexArray1.TextMatrix(2, 3) = s2
vsFlexArray1.TextMatrix(3, 3) = p2: vsFlexArray1.TextMatrix(4, 3) = s2 + p2
vsFlexArray1.TextMatrix(5, 3) = s3
vsFlexArray1.TextMatrix(6, 3) = p3
vsFlexArray1.TextMatrix(7, 3) = d3: vsFlexArray1.TextMatrix(8, 3) = s3 + p3 + d3
vsFlexArray1.TextMatrix(9, 3) = s4
vsFlexArray1.TextMatrix(10, 3) = p4
vsFlexArray1.TextMatrix(11, 3) = d4
vsFlexArray1.TextMatrix(12, 3) = f4: vsFlexArray1.TextMatrix(13, 3) = s4 + p4 + d4 + f4
vsFlexArray1.TextMatrix(14, 3) = s5
vsFlexArray1.TextMatrix(15, 3) = p5
vsFlexArray1.TextMatrix(16, 3) = d5
vsFlexArray1.TextMatrix(17, 3) = f5: vsFlexArray1.TextMatrix(18, 3) = s5 + p5 + d5 + f5
vsFlexArray1.TextMatrix(19, 3) = s6
vsFlexArray1.TextMatrix(20, 3) = p6
vsFlexArray1.TextMatrix(21, 3) = d6: vsFlexArray1.TextMatrix(22, 3) = s6 + p6 + d6
vsFlexArray1.TextMatrix(23, 3) = s7
vsFlexArray1.TextMatrix(24, 3) = p7: vsFlexArray1.TextMatrix(25, 3) = s7 + p7
vsFlexArray1.TextMatrix(26, 3) = s1 + s2 + p2 + s3 + p3 + d3 + s4 + p4 + d4 + f4 + s5 + p5 + d5 + f5 + s6 + p6 + d6 + s7 + p7
End Sub
Private Sub Element_Verileri_Getir()
On Error Resume Next
ElementVerileri(1, 1) = "001": ElementVerileri(1, 2) = "Hidrojen": ElementVerileri(1, 3) = "H": ElementVerileri(1, 4) = "1A": ElementVerileri(1, 5) = 1.00794: ElementVerileri(1, 6) = "Gaz": ElementVerileri(1, 7) = -258.975: ElementVerileri(1, 8) = -252.732: ElementVerileri(1, 9) = "0,0899 G/L": ElementVerileri(1, 10) = "1766 - Henry Cavendish ": ElementVerileri(1, 11) = 0.79: ElementVerileri(1, 12) = 2.2: ElementVerileri(1, 13) = "1"
ElementVerileri(2, 1) = "002": ElementVerileri(2, 2) = "Helyum": ElementVerileri(2, 3) = "He": ElementVerileri(2, 4) = "8A (Soygaz)": ElementVerileri(2, 5) = 4.0026: ElementVerileri(2, 6) = "Gaz": ElementVerileri(2, 7) = -272.05: ElementVerileri(2, 8) = -268.785: ElementVerileri(2, 9) = "0,1785 G/L": ElementVerileri(2, 10) = "1895 - Sir William Ramsey": ElementVerileri(2, 11) = 0.49: ElementVerileri(2, 12) = "Yok": ElementVerileri(2, 13) = "0"
ElementVerileri(3, 1) = "003": ElementVerileri(3, 2) = "Lityum": ElementVerileri(3, 3) = "Li": ElementVerileri(3, 4) = "1A (Alkali Metal)": ElementVerileri(3, 5) = 6.941: ElementVerileri(3, 6) = "Katı": ElementVerileri(3, 7) = 180.7: ElementVerileri(3, 8) = 1342: ElementVerileri(3, 9) = "0,534 G/Cc": ElementVerileri(3, 10) = "1817 - Johann Arfvedson": ElementVerileri(3, 11) = 2.05: ElementVerileri(3, 12) = 0.98: ElementVerileri(3, 13) = "1"
ElementVerileri(4, 1) = "004": ElementVerileri(4, 2) = "Berilyum": ElementVerileri(4, 3) = "Be": ElementVerileri(4, 4) = "2A (Toprak Alkali Metal)": ElementVerileri(4, 5) = 9.012182: ElementVerileri(4, 6) = "Katı": ElementVerileri(4, 7) = 1278: ElementVerileri(4, 8) = 2970: ElementVerileri(4, 9) = "1,848 G/Cc": ElementVerileri(4, 10) = "1828 - Friedrich Wöhler, A. Bussy": ElementVerileri(4, 11) = 1.4: ElementVerileri(4, 12) = 1.57: ElementVerileri(4, 13) = "2"
ElementVerileri(5, 1) = "005": ElementVerileri(5, 2) = "Bor": ElementVerileri(5, 3) = "B": ElementVerileri(5, 4) = "3A (Ametal)": ElementVerileri(5, 5) = 10.811: ElementVerileri(5, 6) = "Katı": ElementVerileri(5, 7) = 2300: ElementVerileri(5, 8) = 4002: ElementVerileri(5, 9) = "2,34 G/Cc": ElementVerileri(5, 10) = "1828 - H. Day, L.J. Thenard, J.L. Gay-Lussac": ElementVerileri(5, 11) = 1.17: ElementVerileri(5, 12) = 2.04: ElementVerileri(5, 13) = "3"
ElementVerileri(6, 1) = "006": ElementVerileri(6, 2) = "Karbon": ElementVerileri(6, 3) = "C": ElementVerileri(6, 4) = "4A (Ametal)": ElementVerileri(6, 5) = 12.011: ElementVerileri(6, 6) = "Katı": ElementVerileri(6, 7) = 3500: ElementVerileri(6, 8) = 4827: ElementVerileri(6, 9) = "2,26 G/Cc": ElementVerileri(6, 10) = "Bilinmiyor": ElementVerileri(6, 11) = 0.91: ElementVerileri(6, 12) = 2.55: ElementVerileri(6, 13) = "4, 2"
ElementVerileri(7, 1) = "007": ElementVerileri(7, 2) = "Azot (Nitrojen) ": ElementVerileri(7, 3) = "N": ElementVerileri(7, 4) = "5A (Ametal)": ElementVerileri(7, 5) = 14.00674: ElementVerileri(7, 6) = "Gaz": ElementVerileri(7, 7) = -209.86: ElementVerileri(7, 8) = -195.65: ElementVerileri(7, 9) = "1,2506 G/Cc": ElementVerileri(7, 10) = "1772 - Daniel Rutherford": ElementVerileri(7, 11) = 0.75: ElementVerileri(7, 12) = 3.04: ElementVerileri(7, 13) = "±3, 5, 4, 2"
ElementVerileri(8, 1) = "008": ElementVerileri(8, 2) = "Oksijen": ElementVerileri(8, 3) = "O": ElementVerileri(8, 4) = "6A (Ametal)": ElementVerileri(8, 5) = 15.9994: ElementVerileri(8, 6) = "Gaz": ElementVerileri(8, 7) = -222.65: ElementVerileri(8, 8) = -182.82: ElementVerileri(8, 9) = "1,429 G/Cc": ElementVerileri(8, 10) = "1774 - Joseph Priestley,-Carl Wilhelm Scheele": ElementVerileri(8, 11) = 0.65: ElementVerileri(8, 12) = 3.44: ElementVerileri(8, 13) = "-3"
ElementVerileri(9, 1) = "009": ElementVerileri(9, 2) = "Flor": ElementVerileri(9, 3) = "F": ElementVerileri(9, 4) = "7A (Halojen)": ElementVerileri(9, 5) = 18.9984: ElementVerileri(9, 6) = "Gaz": ElementVerileri(9, 7) = -219.52: ElementVerileri(9, 8) = -188.05: ElementVerileri(9, 9) = "1,696 G/Cc": ElementVerileri(9, 10) = "1886 - Henri Moissan": ElementVerileri(9, 11) = 0.57: ElementVerileri(9, 12) = 3.98: ElementVerileri(9, 13) = "-1"
ElementVerileri(10, 1) = "010": ElementVerileri(10, 2) = "Neon": ElementVerileri(10, 3) = "Ne": ElementVerileri(10, 4) = "8A (Soygaz)": ElementVerileri(10, 5) = 20.1797: ElementVerileri(10, 6) = "Gaz": ElementVerileri(10, 7) = -248.447: ElementVerileri(10, 8) = -245.904: ElementVerileri(10, 9) = "0,9 G/Cc": ElementVerileri(10, 10) = "1898 - Sir William Ramsey, M.W. Travers": ElementVerileri(10, 11) = 0.51: ElementVerileri(10, 12) = "Yok": ElementVerileri(10, 13) = "0"
ElementVerileri(11, 1) = "011": ElementVerileri(11, 2) = "Sodyun (Natrıum) ": ElementVerileri(11, 3) = "Na": ElementVerileri(11, 4) = "1A (Alkali Metal)": ElementVerileri(11, 5) = 22.98977: ElementVerileri(11, 6) = "Katı": ElementVerileri(11, 7) = 98: ElementVerileri(11, 8) = 883: ElementVerileri(11, 9) = "0,971 G/Cc": ElementVerileri(11, 10) = "1807 - Sir Humphrey Davy": ElementVerileri(11, 11) = 2.23: ElementVerileri(11, 12) = 0.93: ElementVerileri(11, 13) = "1"
ElementVerileri(12, 1) = "012": ElementVerileri(12, 2) = "Magnezyum": ElementVerileri(12, 3) = "Mg": ElementVerileri(12, 4) = "2A (Toprak Alkali Metal)": ElementVerileri(12, 5) = 24.305: ElementVerileri(12, 6) = "Katı": ElementVerileri(12, 7) = 649: ElementVerileri(12, 8) = 1090: ElementVerileri(12, 9) = "1,738 G/Cc": ElementVerileri(12, 10) = "1808 - Sir Humphrey Davy": ElementVerileri(12, 11) = 1.72: ElementVerileri(12, 12) = 1.31: ElementVerileri(12, 13) = "2"
ElementVerileri(13, 1) = "013": ElementVerileri(13, 2) = "Alüminyum": ElementVerileri(13, 3) = "Al": ElementVerileri(13, 4) = "3A (Metal)": ElementVerileri(13, 5) = 26.98154: ElementVerileri(13, 6) = "Katı": ElementVerileri(13, 7) = 660.25: ElementVerileri(13, 8) = 2467: ElementVerileri(13, 9) = "2,702 G/Cc": ElementVerileri(13, 10) = "1825 - Hans Christian Oersted": ElementVerileri(13, 11) = 1.82: ElementVerileri(13, 12) = 1.61: ElementVerileri(13, 13) = "3"
ElementVerileri(14, 1) = "014": ElementVerileri(14, 2) = "Silisyum (Silikon) ": ElementVerileri(14, 3) = "Si": ElementVerileri(14, 4) = "4A (Ametal)": ElementVerileri(14, 5) = 28.0855: ElementVerileri(14, 6) = "Katı": ElementVerileri(14, 7) = 1410: ElementVerileri(14, 8) = 2355: ElementVerileri(14, 9) = "2,33 G/Cc": ElementVerileri(14, 10) = "1823 - J. Jacob Berzelius": ElementVerileri(14, 11) = 1.46: ElementVerileri(14, 12) = 1.9: ElementVerileri(14, 13) = "4"
ElementVerileri(15, 1) = "015": ElementVerileri(15, 2) = "Fosfor (Phosphorus) ": ElementVerileri(15, 3) = "P": ElementVerileri(15, 4) = "5A (Ametal)": ElementVerileri(15, 5) = 30.97376: ElementVerileri(15, 6) = "Katı": ElementVerileri(15, 7) = 44.3: ElementVerileri(15, 8) = 280: ElementVerileri(15, 9) = "1,82 G/Cc": ElementVerileri(15, 10) = "1669 - Hennig Brand": ElementVerileri(15, 11) = 1.23: ElementVerileri(15, 12) = 2.19: ElementVerileri(15, 13) = "±3, 5, 4"
ElementVerileri(16, 1) = "016": ElementVerileri(16, 2) = "Kükürt (Sülfür) ": ElementVerileri(16, 3) = "S": ElementVerileri(16, 4) = "6A (Ametal)": ElementVerileri(16, 5) = 32.066: ElementVerileri(16, 6) = "Katı": ElementVerileri(16, 7) = 115.36: ElementVerileri(16, 8) = 444.75: ElementVerileri(16, 9) = "2,07 G/Cc": ElementVerileri(16, 10) = "Bilinmiyor": ElementVerileri(16, 11) = 1.09: ElementVerileri(16, 12) = 2.58: ElementVerileri(16, 13) = "±2, 4, 6"
ElementVerileri(17, 1) = "017": ElementVerileri(17, 2) = "Klor": ElementVerileri(17, 3) = "Cl": ElementVerileri(17, 4) = "7A (Halojen)": ElementVerileri(17, 5) = 35.4527: ElementVerileri(17, 6) = "Gaz": ElementVerileri(17, 7) = -100.84: ElementVerileri(17, 8) = -33.9: ElementVerileri(17, 9) = "3,214 G/L": ElementVerileri(17, 10) = "1774 - Carl Wilhelm Scheele": ElementVerileri(17, 11) = 0.97: ElementVerileri(17, 12) = 3.16: ElementVerileri(17, 13) = "±1, 3, 5, 7"
ElementVerileri(18, 1) = "018": ElementVerileri(18, 2) = "Argon": ElementVerileri(18, 3) = "Ar": ElementVerileri(18, 4) = "8A (Soygaz)": ElementVerileri(18, 5) = 39.948: ElementVerileri(18, 6) = "Gaz": ElementVerileri(18, 7) = -189.19: ElementVerileri(18, 8) = -185.7: ElementVerileri(18, 9) = "1,7824 G/L": ElementVerileri(18, 10) = "1894 - Sir William Ramsey, Baron Rayleigh": ElementVerileri(18, 11) = 0.88: ElementVerileri(18, 12) = "Bilinmiyor": ElementVerileri(18, 13) = "0"
ElementVerileri(19, 1) = "019": ElementVerileri(19, 2) = "Potasyum (Kalıum) ": ElementVerileri(19, 3) = "K": ElementVerileri(19, 4) = "1A (Alkali Metal)": ElementVerileri(19, 5) = 39.0983: ElementVerileri(19, 6) = "Katı": ElementVerileri(19, 7) = 63.35: ElementVerileri(19, 8) = 759: ElementVerileri(19, 9) = "0,862 G/Cc": ElementVerileri(19, 10) = "1807 - Sir Humphrey Davy": ElementVerileri(19, 11) = 2.77: ElementVerileri(19, 12) = 0.82: ElementVerileri(19, 13) = "1"
ElementVerileri(20, 1) = "020": ElementVerileri(20, 2) = "Kalsiyum": ElementVerileri(20, 3) = "Ca": ElementVerileri(20, 4) = "2A (Toprak Alkali Metal)": ElementVerileri(20, 5) = 40.078: ElementVerileri(20, 6) = "Katı": ElementVerileri(20, 7) = 839: ElementVerileri(20, 8) = 1484: ElementVerileri(20, 9) = "1,55 G/Cc": ElementVerileri(20, 10) = "1808 - Sir Humphrey Davy": ElementVerileri(20, 11) = 2.23: ElementVerileri(20, 12) = 1: ElementVerileri(20, 13) = "2"
ElementVerileri(21, 1) = "021": ElementVerileri(21, 2) = "Skandiyum": ElementVerileri(21, 3) = "Sc": ElementVerileri(21, 4) = "3B (Geçiş Elementi)": ElementVerileri(21, 5) = 44.95591: ElementVerileri(21, 6) = "Katı": ElementVerileri(21, 7) = 1539: ElementVerileri(21, 8) = 2831: ElementVerileri(21, 9) = "2,99 G/Cc": ElementVerileri(21, 10) = "1879 - Lars Nilson": ElementVerileri(21, 11) = 2.09: ElementVerileri(21, 12) = 1.36: ElementVerileri(21, 13) = "3"
ElementVerileri(22, 1) = "022": ElementVerileri(22, 2) = "Titanyum": ElementVerileri(22, 3) = "Ti": ElementVerileri(22, 4) = "4B (Geçiş Elementi)": ElementVerileri(22, 5) = 47.88: ElementVerileri(22, 6) = "Katı": ElementVerileri(22, 7) = 1660: ElementVerileri(22, 8) = 3287: ElementVerileri(22, 9) = "4,54 G/Cc": ElementVerileri(22, 10) = "1791 - William Gregor": ElementVerileri(22, 11) = 2: ElementVerileri(22, 12) = 1.54: ElementVerileri(22, 13) = "4"
ElementVerileri(23, 1) = "023": ElementVerileri(23, 2) = "Vanadyum": ElementVerileri(23, 3) = "V": ElementVerileri(23, 4) = "5B (Geçiş Elementi)": ElementVerileri(23, 5) = 50.9415: ElementVerileri(23, 6) = "Katı": ElementVerileri(23, 7) = 1902: ElementVerileri(23, 8) = 3409: ElementVerileri(23, 9) = "6,11 G/Cc": ElementVerileri(23, 10) = "1830 - Nils Sefström": ElementVerileri(23, 11) = 1.92: ElementVerileri(23, 12) = 1.63: ElementVerileri(23, 13) = "5, 3"
ElementVerileri(24, 1) = "024": ElementVerileri(24, 2) = "Krom": ElementVerileri(24, 3) = "Cr": ElementVerileri(24, 4) = "6B (Geçiş Elementi)": ElementVerileri(24, 5) = 51.9961: ElementVerileri(24, 6) = "Katı": ElementVerileri(24, 7) = 1857: ElementVerileri(24, 8) = 2672: ElementVerileri(24, 9) = "7,19 G/Cc": ElementVerileri(24, 10) = "1797 - Louis Vauquelin": ElementVerileri(24, 11) = 1.85: ElementVerileri(24, 12) = 1.66: ElementVerileri(24, 13) = "6, 3, 2"
ElementVerileri(25, 1) = "025": ElementVerileri(25, 2) = "Manganez": ElementVerileri(25, 3) = "Mn": ElementVerileri(25, 4) = "7B (Geçiş Elementi)": ElementVerileri(25, 5) = 54.93805: ElementVerileri(25, 6) = "Katı": ElementVerileri(25, 7) = 1244: ElementVerileri(25, 8) = 1962: ElementVerileri(25, 9) = "7,43 G/Cc": ElementVerileri(25, 10) = "1774 - Johann Gahn": ElementVerileri(25, 11) = 1.79: ElementVerileri(25, 12) = 1.55: ElementVerileri(25, 13) = "7, 6, 4, 2, 3"
ElementVerileri(26, 1) = "026": ElementVerileri(26, 2) = "Demir (Ferrum) ": ElementVerileri(26, 3) = "Fe": ElementVerileri(26, 4) = "8B (Geçiş Elementi)": ElementVerileri(26, 5) = 55.847: ElementVerileri(26, 6) = "Katı": ElementVerileri(26, 7) = 1535: ElementVerileri(26, 8) = 2750: ElementVerileri(26, 9) = "7,874 G/Cc": ElementVerileri(26, 10) = "Bilinmiyor": ElementVerileri(26, 11) = 1.72: ElementVerileri(26, 12) = 1.83: ElementVerileri(26, 13) = "2, 3"
ElementVerileri(27, 1) = "027": ElementVerileri(27, 2) = "Kobalt": ElementVerileri(27, 3) = "Co": ElementVerileri(27, 4) = "8B (Geçiş Elementi)": ElementVerileri(27, 5) = 58.9332: ElementVerileri(27, 6) = "Katı": ElementVerileri(27, 7) = 1495: ElementVerileri(27, 8) = 2870: ElementVerileri(27, 9) = "8,9 G/Cc": ElementVerileri(27, 10) = "1737 - George Brandt": ElementVerileri(27, 11) = 1.67: ElementVerileri(27, 12) = 1.88: ElementVerileri(27, 13) = "2, 3"
ElementVerileri(28, 1) = "028": ElementVerileri(28, 2) = "Nikel": ElementVerileri(28, 3) = "Ni": ElementVerileri(28, 4) = "8B (Geçiş Elementi)": ElementVerileri(28, 5) = 58.6934: ElementVerileri(28, 6) = "Katı": ElementVerileri(28, 7) = 1453: ElementVerileri(28, 8) = 2732: ElementVerileri(28, 9) = "8,9 G/Cc": ElementVerileri(28, 10) = "1751 - Axel Cronstedt": ElementVerileri(28, 11) = 1.62: ElementVerileri(28, 12) = 1.91: ElementVerileri(28, 13) = "2, 3"
ElementVerileri(29, 1) = "029": ElementVerileri(29, 2) = "Bakır (Cuprum) ": ElementVerileri(29, 3) = "Cu": ElementVerileri(29, 4) = "1B (Geçiş Elementi)": ElementVerileri(29, 5) = 63.546: ElementVerileri(29, 6) = "Katı": ElementVerileri(29, 7) = 1084.6: ElementVerileri(29, 8) = 2567: ElementVerileri(29, 9) = "8,96 G/Cc": ElementVerileri(29, 10) = "Bilinmiyor": ElementVerileri(29, 11) = 1.57: ElementVerileri(29, 12) = 1.9: ElementVerileri(29, 13) = "2, 1"
ElementVerileri(30, 1) = "030": ElementVerileri(30, 2) = "Çinko (Zınc) ": ElementVerileri(30, 3) = "Zn": ElementVerileri(30, 4) = "2B (Geçiş Elementi)": ElementVerileri(30, 5) = 65.39: ElementVerileri(30, 6) = "Katı": ElementVerileri(30, 7) = 419.73: ElementVerileri(30, 8) = 907: ElementVerileri(30, 9) = "7,13 G/Cc": ElementVerileri(30, 10) = "1746 - Andreas Marggraf": ElementVerileri(30, 11) = 1.53: ElementVerileri(30, 12) = 1.65: ElementVerileri(30, 13) = "2"
ElementVerileri(31, 1) = "031": ElementVerileri(31, 2) = "Galyum": ElementVerileri(31, 3) = "Ga": ElementVerileri(31, 4) = "3A (Metal)": ElementVerileri(31, 5) = 69.723: ElementVerileri(31, 6) = "Katı": ElementVerileri(31, 7) = 29.9: ElementVerileri(31, 8) = 2403: ElementVerileri(31, 9) = "5,907 G/Cc": ElementVerileri(31, 10) = "1875 - Paul Émile Lecoq De Boisbaudran": ElementVerileri(31, 11) = 1.81: ElementVerileri(31, 12) = 1.81: ElementVerileri(31, 13) = "3"
ElementVerileri(32, 1) = "032": ElementVerileri(32, 2) = "Germanyum": ElementVerileri(32, 3) = "Ge": ElementVerileri(32, 4) = "4A (Metal)": ElementVerileri(32, 5) = 72.61: ElementVerileri(32, 6) = "Katı": ElementVerileri(32, 7) = 937.4: ElementVerileri(32, 8) = 2830: ElementVerileri(32, 9) = "5,323 G/Cc": ElementVerileri(32, 10) = "1886 - Clemens Winkler": ElementVerileri(32, 11) = 1.52: ElementVerileri(32, 12) = 2.01: ElementVerileri(32, 13) = "4"
ElementVerileri(33, 1) = "033": ElementVerileri(33, 2) = "Arsenik": ElementVerileri(33, 3) = "As": ElementVerileri(33, 4) = "5A (Ametal)": ElementVerileri(33, 5) = 74.92159: ElementVerileri(33, 6) = "Katı": ElementVerileri(33, 7) = 808: ElementVerileri(33, 8) = 603: ElementVerileri(33, 9) = "5,72 G/Cc": ElementVerileri(33, 10) = "1250 - Alberts Magna": ElementVerileri(33, 11) = 1.33: ElementVerileri(33, 12) = 2.18: ElementVerileri(33, 13) = "±3, 5"
ElementVerileri(34, 1) = "034": ElementVerileri(34, 2) = "Selenyum": ElementVerileri(34, 3) = "Se": ElementVerileri(34, 4) = "6A (Ametal)": ElementVerileri(34, 5) = 78.96: ElementVerileri(34, 6) = "Katı": ElementVerileri(34, 7) = 808: ElementVerileri(34, 8) = 603: ElementVerileri(34, 9) = "5,72 G/Cc": ElementVerileri(34, 10) = "1250 - Alberts Magna": ElementVerileri(34, 11) = 1.33: ElementVerileri(34, 12) = 2.18: ElementVerileri(34, 13) = "±3, 5"
ElementVerileri(35, 1) = "035": ElementVerileri(35, 2) = "Brom": ElementVerileri(35, 3) = "Br": ElementVerileri(35, 4) = "7A (Halojen)": ElementVerileri(35, 5) = 79.904: ElementVerileri(35, 6) = "Sıvı": ElementVerileri(35, 7) = -7.1: ElementVerileri(35, 8) = 59.25: ElementVerileri(35, 9) = "3,119 G/L": ElementVerileri(35, 10) = "1826 - Antoine J. Balard": ElementVerileri(35, 11) = 1.12: ElementVerileri(35, 12) = 2.96: ElementVerileri(35, 13) = "±1, 5"
ElementVerileri(36, 1) = "036": ElementVerileri(36, 2) = "Kripton": ElementVerileri(36, 3) = "Kr": ElementVerileri(36, 4) = "8A (Soygaz)": ElementVerileri(36, 5) = 83.8: ElementVerileri(36, 6) = "Gaz": ElementVerileri(36, 7) = -157.22: ElementVerileri(36, 8) = -153.2: ElementVerileri(36, 9) = "3,75 G/L": ElementVerileri(36, 10) = "1898 - Sir William Ramsey, M.W. Travers": ElementVerileri(36, 11) = 1.03: ElementVerileri(36, 12) = "Yok": ElementVerileri(36, 13) = "0"
ElementVerileri(37, 1) = "037": ElementVerileri(37, 2) = "Rubidyum ": ElementVerileri(37, 3) = "Rb": ElementVerileri(37, 4) = "1A (Alkali Metal)": ElementVerileri(37, 5) = 85.4678: ElementVerileri(37, 6) = "Katı": ElementVerileri(37, 7) = 39.64: ElementVerileri(37, 8) = 688: ElementVerileri(37, 9) = "1,63 G/Cc": ElementVerileri(37, 10) = "1861 - Gustav Kirchhoff, Robert Bunsen": ElementVerileri(37, 11) = 2.98: ElementVerileri(37, 12) = 0.82: ElementVerileri(37, 13) = "1"
ElementVerileri(38, 1) = "038": ElementVerileri(38, 2) = "Stronsiyum": ElementVerileri(38, 3) = "Sr": ElementVerileri(38, 4) = "2A (Toprak Alkali Metal)": ElementVerileri(38, 5) = 87.62: ElementVerileri(38, 6) = "Katı": ElementVerileri(38, 7) = 769: ElementVerileri(38, 8) = 1384: ElementVerileri(38, 9) = "2,54 G/Cc": ElementVerileri(38, 10) = "1790 - Adair Crawford, William Cruikshank": ElementVerileri(38, 11) = 2.45: ElementVerileri(38, 12) = 0.95: ElementVerileri(38, 13) = "2"
ElementVerileri(39, 1) = "039": ElementVerileri(39, 2) = "İtriyum": ElementVerileri(39, 3) = "Y": ElementVerileri(39, 4) = "3B (Geçiş Elementi)": ElementVerileri(39, 5) = 88.90585: ElementVerileri(39, 6) = "Katı": ElementVerileri(39, 7) = 1526: ElementVerileri(39, 8) = 3338: ElementVerileri(39, 9) = "4,47 G/Cc": ElementVerileri(39, 10) = "1794 - Johann Gadolin": ElementVerileri(39, 11) = 2.27: ElementVerileri(39, 12) = 1.22: ElementVerileri(39, 13) = "3"
ElementVerileri(40, 1) = "040": ElementVerileri(40, 2) = "Zirkonyum": ElementVerileri(40, 3) = "Zr": ElementVerileri(40, 4) = "4B (Geçiş Elementi)": ElementVerileri(40, 5) = 91.224: ElementVerileri(40, 6) = "Katı": ElementVerileri(40, 7) = 1852: ElementVerileri(40, 8) = 4377: ElementVerileri(40, 9) = "6,51 G/Cc": ElementVerileri(40, 10) = "1789 - Martin Klaproth": ElementVerileri(40, 11) = 2.16: ElementVerileri(40, 12) = 1.33: ElementVerileri(40, 13) = "4"
ElementVerileri(41, 1) = "041": ElementVerileri(41, 2) = "Niyobyum": ElementVerileri(41, 3) = "Nb": ElementVerileri(41, 4) = "5B (Geçiş Elementi)": ElementVerileri(41, 5) = 92.90638: ElementVerileri(41, 6) = "Katı": ElementVerileri(41, 7) = 2468: ElementVerileri(41, 8) = 4744: ElementVerileri(41, 9) = "8,57 G/Cc": ElementVerileri(41, 10) = "1801 - Charles Hatchet": ElementVerileri(41, 11) = 2.08: ElementVerileri(41, 12) = 1.6: ElementVerileri(41, 13) = "5, 3"
ElementVerileri(42, 1) = "042": ElementVerileri(42, 2) = "Molibden": ElementVerileri(42, 3) = "Mo": ElementVerileri(42, 4) = "6B (Geçiş Elementi)": ElementVerileri(42, 5) = 95.94: ElementVerileri(42, 6) = "Katı": ElementVerileri(42, 7) = 2617: ElementVerileri(42, 8) = 4612: ElementVerileri(42, 9) = "10,22 G/Cc": ElementVerileri(42, 10) = "1778 - Carl Wilhelm Scheele": ElementVerileri(42, 11) = 2.01: ElementVerileri(42, 12) = 2.16: ElementVerileri(42, 13) = "6, 5, 4, 3, 2"
ElementVerileri(43, 1) = "043": ElementVerileri(43, 2) = "Teknesyum": ElementVerileri(43, 3) = "Tc": ElementVerileri(43, 4) = "7B (Geçiş Elementi)": ElementVerileri(43, 5) = 98: ElementVerileri(43, 6) = "Katı": ElementVerileri(43, 7) = 2200: ElementVerileri(43, 8) = 4877: ElementVerileri(43, 9) = "11,5 G/Cc": ElementVerileri(43, 10) = "1937 - Carlo Perrier, Emilio Segre": ElementVerileri(43, 11) = 1.95: ElementVerileri(43, 12) = 1.9: ElementVerileri(43, 13) = "7"
ElementVerileri(44, 1) = "044": ElementVerileri(44, 2) = "Rutenyum": ElementVerileri(44, 3) = "Ru": ElementVerileri(44, 4) = "8B (Geçiş Elementi)": ElementVerileri(44, 5) = 101.07: ElementVerileri(44, 6) = "Katı": ElementVerileri(44, 7) = 2250: ElementVerileri(44, 8) = 3900: ElementVerileri(44, 9) = "12,37 G/Cc": ElementVerileri(44, 10) = "1844 - Karl Klaus": ElementVerileri(44, 11) = 1.89: ElementVerileri(44, 12) = 2.2: ElementVerileri(44, 13) = "2, 3, 4, 6, 8"
ElementVerileri(45, 1) = "045": ElementVerileri(45, 2) = "Rodyum": ElementVerileri(45, 3) = "Rh": ElementVerileri(45, 4) = "8B (Geçiş Elementi)": ElementVerileri(45, 5) = 102.9055: ElementVerileri(45, 6) = "Katı": ElementVerileri(45, 7) = 1966: ElementVerileri(45, 8) = 3727: ElementVerileri(45, 9) = "12,41 G/Cc": ElementVerileri(45, 10) = "1803 - William Wollaston": ElementVerileri(45, 11) = 1.83: ElementVerileri(45, 12) = 2.28: ElementVerileri(45, 13) = "2, 3, 4"
ElementVerileri(46, 1) = "046": ElementVerileri(46, 2) = "Palladyum": ElementVerileri(46, 3) = "Pd": ElementVerileri(46, 4) = "8B (Geçiş Elementi)": ElementVerileri(46, 5) = 106.42: ElementVerileri(46, 6) = "Katı": ElementVerileri(46, 7) = 1552: ElementVerileri(46, 8) = 2964: ElementVerileri(46, 9) = "12,02 G/Cc": ElementVerileri(46, 10) = "1803 - William Wollaston": ElementVerileri(46, 11) = 1.79: ElementVerileri(46, 12) = 2.2: ElementVerileri(46, 13) = "2, 4"
ElementVerileri(47, 1) = "047": ElementVerileri(47, 2) = "Gümüş (Argentum) ": ElementVerileri(47, 3) = "Ag": ElementVerileri(47, 4) = "1B (Geçiş Elementi)": ElementVerileri(47, 5) = 107.8682: ElementVerileri(47, 6) = "Katı": ElementVerileri(47, 7) = 961: ElementVerileri(47, 8) = 2163: ElementVerileri(47, 9) = "10,5 G/Cc": ElementVerileri(47, 10) = "Bilinmiyor": ElementVerileri(47, 11) = 1.75: ElementVerileri(47, 12) = 1.93: ElementVerileri(47, 13) = "1"
ElementVerileri(48, 1) = "048": ElementVerileri(48, 2) = "Kadmiyum": ElementVerileri(48, 3) = "Cd": ElementVerileri(48, 4) = "2B (Geçiş Elementi)": ElementVerileri(48, 5) = 112.411: ElementVerileri(48, 6) = "Katı": ElementVerileri(48, 7) = 321.18: ElementVerileri(48, 8) = 765: ElementVerileri(48, 9) = "8,65 G/Cc": ElementVerileri(48, 10) = "1817 - Friedrich Stromeyer": ElementVerileri(48, 11) = 1.71: ElementVerileri(48, 12) = 1.69: ElementVerileri(48, 13) = "2"
ElementVerileri(49, 1) = "049": ElementVerileri(49, 2) = "İndiyum": ElementVerileri(49, 3) = "In": ElementVerileri(49, 4) = "3A (Metal)": ElementVerileri(49, 5) = 114.82: ElementVerileri(49, 6) = "Katı": ElementVerileri(49, 7) = 156.76: ElementVerileri(49, 8) = 2073: ElementVerileri(49, 9) = "7,31 G/Cc": ElementVerileri(49, 10) = "1863 - Ferdinand Reich, H. Richter": ElementVerileri(49, 11) = 2: ElementVerileri(49, 12) = 1.78: ElementVerileri(49, 13) = "3"
ElementVerileri(50, 1) = "050": ElementVerileri(50, 2) = "Kalay (Stannum) ": ElementVerileri(50, 3) = "Sn": ElementVerileri(50, 4) = "4A (Metal)": ElementVerileri(50, 5) = 118.71: ElementVerileri(50, 6) = "Katı": ElementVerileri(50, 7) = 232.06: ElementVerileri(50, 8) = 2270: ElementVerileri(50, 9) = "7,31 G/Cc": ElementVerileri(50, 10) = "Bilinmiyor": ElementVerileri(50, 11) = 1.72: ElementVerileri(50, 12) = 1.96: ElementVerileri(50, 13) = "4, 2 "
ElementVerileri(51, 1) = "051": ElementVerileri(51, 2) = "Antimon (Stıbıum) ": ElementVerileri(51, 3) = "Sb": ElementVerileri(51, 4) = "5A (Metal)": ElementVerileri(51, 5) = 121.757: ElementVerileri(51, 6) = "Katı": ElementVerileri(51, 7) = 630.9: ElementVerileri(51, 8) = 1587: ElementVerileri(51, 9) = "6,684 G/Cc": ElementVerileri(51, 10) = "Bilinmiyor": ElementVerileri(51, 11) = 1.53: ElementVerileri(51, 12) = 2.05: ElementVerileri(51, 13) = "±3, 5"
ElementVerileri(52, 1) = "052": ElementVerileri(52, 2) = "Tellür": ElementVerileri(52, 3) = "Te": ElementVerileri(52, 4) = "6A (Ametal)": ElementVerileri(52, 5) = 127.6: ElementVerileri(52, 6) = "Katı": ElementVerileri(52, 7) = 449.65: ElementVerileri(52, 8) = 988: ElementVerileri(52, 9) = "6,24 G/Cc": ElementVerileri(52, 10) = "1782 - Franz Müller Von Reichenstein": ElementVerileri(52, 11) = 1.42: ElementVerileri(52, 12) = 2.1: ElementVerileri(52, 13) = "±2, 4, 6"
ElementVerileri(53, 1) = "053": ElementVerileri(53, 2) = "İyot": ElementVerileri(53, 3) = "I": ElementVerileri(53, 4) = "7A (Halojen)": ElementVerileri(53, 5) = 126.9045: ElementVerileri(53, 6) = "Katı": ElementVerileri(53, 7) = 113.5: ElementVerileri(53, 8) = 185.4: ElementVerileri(53, 9) = "4,93 G/Cc": ElementVerileri(53, 10) = "1811 - Bernard Courtois": ElementVerileri(53, 11) = 1.32: ElementVerileri(53, 12) = 2.66: ElementVerileri(53, 13) = "±1, 5, 7"
ElementVerileri(54, 1) = "054": ElementVerileri(54, 2) = "Ksenon": ElementVerileri(54, 3) = "Xe": ElementVerileri(54, 4) = "8A (Soygaz)": ElementVerileri(54, 5) = 131.29: ElementVerileri(54, 6) = "Gaz": ElementVerileri(54, 7) = -111.7: ElementVerileri(54, 8) = -107.97: ElementVerileri(54, 9) = "5,9 G/L": ElementVerileri(54, 10) = "1898 - Sir William Ramsey, M.W. Travers": ElementVerileri(54, 11) = 1.24: ElementVerileri(54, 12) = "Yok": ElementVerileri(54, 13) = "0"
ElementVerileri(55, 1) = "055": ElementVerileri(55, 2) = "Sezyum ": ElementVerileri(55, 3) = "Cs": ElementVerileri(55, 4) = "1A (Alkali Metal)": ElementVerileri(55, 5) = 132.9054: ElementVerileri(55, 6) = "Katı": ElementVerileri(55, 7) = 28.55: ElementVerileri(55, 8) = 671: ElementVerileri(55, 9) = "1.873 G/Cc": ElementVerileri(55, 10) = "1860 - Gustav Kirchhoff, Robert Bunsen": ElementVerileri(55, 11) = 3.34: ElementVerileri(55, 12) = 0.79: ElementVerileri(55, 13) = "1"
ElementVerileri(56, 1) = "056": ElementVerileri(56, 2) = "Baryum": ElementVerileri(56, 3) = "Ba": ElementVerileri(56, 4) = "2A (Toprak Alkali Metal)": ElementVerileri(56, 5) = 137.327: ElementVerileri(56, 6) = "Katı": ElementVerileri(56, 7) = 729: ElementVerileri(56, 8) = 1898: ElementVerileri(56, 9) = "3,59 G/Cc": ElementVerileri(56, 10) = "1808 - Sir Humphrey Davy": ElementVerileri(56, 11) = 2.78: ElementVerileri(56, 12) = 0.89: ElementVerileri(56, 13) = "2"
ElementVerileri(57, 1) = "057": ElementVerileri(57, 2) = "Lantan": ElementVerileri(57, 3) = "La": ElementVerileri(57, 4) = "Lantanid": ElementVerileri(57, 5) = 138.9055: ElementVerileri(57, 6) = "Katı": ElementVerileri(57, 7) = 920: ElementVerileri(57, 8) = 3457: ElementVerileri(57, 9) = "6,15 G/Cc": ElementVerileri(57, 10) = "1839 - Carl Mosander": ElementVerileri(57, 11) = 2.74: ElementVerileri(57, 12) = 1.1: ElementVerileri(57, 13) = "3"
ElementVerileri(58, 1) = "058": ElementVerileri(58, 2) = "Seryum": ElementVerileri(58, 3) = "Ce": ElementVerileri(58, 4) = "Lantanid": ElementVerileri(58, 5) = 140.115: ElementVerileri(58, 6) = "Katı": ElementVerileri(58, 7) = 798: ElementVerileri(58, 8) = 3426: ElementVerileri(58, 9) = "6,77 G/Cc": ElementVerileri(58, 10) = "1803 - W.Von Hisinger, J.Berzelius, M.Klaproth": ElementVerileri(58, 11) = 40726: ElementVerileri(58, 12) = 1.12: ElementVerileri(58, 13) = "3, 4 "
ElementVerileri(59, 1) = "059": ElementVerileri(59, 2) = "Praseodim": ElementVerileri(59, 3) = "Pr": ElementVerileri(59, 4) = "Lantanid": ElementVerileri(59, 5) = 140.9077: ElementVerileri(59, 6) = "Katı": ElementVerileri(59, 7) = 931: ElementVerileri(59, 8) = 3512: ElementVerileri(59, 9) = "6,77 G/Cc": ElementVerileri(59, 10) = "1885 - C.F. Aver Von Welsbach": ElementVerileri(59, 11) = 2.67: ElementVerileri(59, 12) = 1.13: ElementVerileri(59, 13) = "3, 4 "
ElementVerileri(60, 1) = "060": ElementVerileri(60, 2) = "Neodim": ElementVerileri(60, 3) = "Nd": ElementVerileri(60, 4) = "Lantanid": ElementVerileri(60, 5) = 144.24: ElementVerileri(60, 6) = "Katı": ElementVerileri(60, 7) = 1016: ElementVerileri(60, 8) = 3068: ElementVerileri(60, 9) = "7,01 G/Cc": ElementVerileri(60, 10) = "1925 - C.F. Aver Von Welsbach": ElementVerileri(60, 11) = 2.64: ElementVerileri(60, 12) = 1.14: ElementVerileri(60, 13) = "3"
ElementVerileri(61, 1) = "061": ElementVerileri(61, 2) = "Prometyum": ElementVerileri(61, 3) = "Pm": ElementVerileri(61, 4) = "Lantanid": ElementVerileri(61, 5) = 145: ElementVerileri(61, 6) = "Katı": ElementVerileri(61, 7) = 931: ElementVerileri(61, 8) = 3512: ElementVerileri(61, 9) = "7,3 G/Cc": ElementVerileri(61, 10) = "1945 - J.A. Marinsky, L.E. Glendenin, C.D. Coryell": ElementVerileri(61, 11) = 2.62: ElementVerileri(61, 12) = 1.13: ElementVerileri(61, 13) = "3"
ElementVerileri(62, 1) = "062": ElementVerileri(62, 2) = "Samaryum": ElementVerileri(62, 3) = "Sm": ElementVerileri(62, 4) = "Lantanid": ElementVerileri(62, 5) = 150.36: ElementVerileri(62, 6) = "Katı": ElementVerileri(62, 7) = 1072: ElementVerileri(62, 8) = 1791: ElementVerileri(62, 9) = "7,52 G/Cc": ElementVerileri(62, 10) = "1879 - Paul Émile Lecoq De Boisbaudran": ElementVerileri(62, 11) = 2.59: ElementVerileri(62, 12) = 1.17: ElementVerileri(62, 13) = "3, 2 "
ElementVerileri(63, 1) = "063": ElementVerileri(63, 2) = "Evropyum": ElementVerileri(63, 3) = "Eu": ElementVerileri(63, 4) = "Lantanid": ElementVerileri(63, 5) = 151.965: ElementVerileri(63, 6) = "Katı": ElementVerileri(63, 7) = 822: ElementVerileri(63, 8) = 1597: ElementVerileri(63, 9) = "5,42 G/Cc": ElementVerileri(63, 10) = "1901 - Eugene Demarcay ": ElementVerileri(63, 11) = 2.56: ElementVerileri(63, 12) = 1.2: ElementVerileri(63, 13) = "3, 2 "
ElementVerileri(64, 1) = "064": ElementVerileri(64, 2) = "Gadolinyum": ElementVerileri(64, 3) = "Gd": ElementVerileri(64, 4) = "Lantanid": ElementVerileri(64, 5) = 157.25: ElementVerileri(64, 6) = "Katı": ElementVerileri(64, 7) = 1312: ElementVerileri(64, 8) = 3266: ElementVerileri(64, 9) = "7,895 G/Cc": ElementVerileri(64, 10) = "1880 - Jean De Marignac": ElementVerileri(64, 11) = 2.54: ElementVerileri(64, 12) = 1.2: ElementVerileri(64, 13) = "3"
ElementVerileri(65, 1) = "065": ElementVerileri(65, 2) = "Terbiyum": ElementVerileri(65, 3) = "Tb": ElementVerileri(65, 4) = "Lantanid": ElementVerileri(65, 5) = 158.9253: ElementVerileri(65, 6) = "Katı": ElementVerileri(65, 7) = 1357: ElementVerileri(65, 8) = 3023: ElementVerileri(65, 9) = "8,23 G/Cc": ElementVerileri(65, 10) = "1843 - Carl Mosander": ElementVerileri(65, 11) = 2.51: ElementVerileri(65, 12) = 1.2: ElementVerileri(65, 13) = "3, 4 "
ElementVerileri(66, 1) = "066": ElementVerileri(66, 2) = "Disprosiyum": ElementVerileri(66, 3) = "Dy": ElementVerileri(66, 4) = "Lantanid": ElementVerileri(66, 5) = 162.5: ElementVerileri(66, 6) = "Katı": ElementVerileri(66, 7) = 1412: ElementVerileri(66, 8) = 2562: ElementVerileri(66, 9) = "8,55 G/Cc": ElementVerileri(66, 10) = "1886 - Paul Émile Lecoq De Boisbaudran": ElementVerileri(66, 11) = 2.49: ElementVerileri(66, 12) = 1.22: ElementVerileri(66, 13) = "3"
ElementVerileri(67, 1) = "067": ElementVerileri(67, 2) = "Holmiyum": ElementVerileri(67, 3) = "Ho": ElementVerileri(67, 4) = "Lantanid": ElementVerileri(67, 5) = 164.9303: ElementVerileri(67, 6) = "Katı": ElementVerileri(67, 7) = 1470: ElementVerileri(67, 8) = 2695: ElementVerileri(67, 9) = "8,8 G/Cc": ElementVerileri(67, 10) = "1878 - J.L. Soret": ElementVerileri(67, 11) = 2.47: ElementVerileri(67, 12) = 1.23: ElementVerileri(67, 13) = "3"
ElementVerileri(68, 1) = "068": ElementVerileri(68, 2) = "Erbiyum": ElementVerileri(68, 3) = "Er": ElementVerileri(68, 4) = "Lantanid": ElementVerileri(68, 5) = 167.26: ElementVerileri(68, 6) = "Katı": ElementVerileri(68, 7) = 1522: ElementVerileri(68, 8) = 2863: ElementVerileri(68, 9) = "9,07 G/Cc": ElementVerileri(68, 10) = "1843 - Carl Mosander": ElementVerileri(68, 11) = 2.45: ElementVerileri(68, 12) = 1.24: ElementVerileri(68, 13) = "3"
ElementVerileri(69, 1) = "069": ElementVerileri(69, 2) = "Tulyum": ElementVerileri(69, 3) = "Tm": ElementVerileri(69, 4) = "Lantanid": ElementVerileri(69, 5) = 168.9342: ElementVerileri(69, 6) = "Katı": ElementVerileri(69, 7) = 1545: ElementVerileri(69, 8) = 1947: ElementVerileri(69, 9) = "9,32 G/Cc": ElementVerileri(69, 10) = "1879 - Per Theodor Cleve": ElementVerileri(69, 11) = 2.42: ElementVerileri(69, 12) = 1.25: ElementVerileri(69, 13) = "3, 2 "
ElementVerileri(70, 1) = "070": ElementVerileri(70, 2) = "İterbiyum": ElementVerileri(70, 3) = "Yb": ElementVerileri(70, 4) = "Lantanid": ElementVerileri(70, 5) = 173.04: ElementVerileri(70, 6) = "Katı": ElementVerileri(70, 7) = 824: ElementVerileri(70, 8) = 1194: ElementVerileri(70, 9) = "6,9 G/Cc": ElementVerileri(70, 10) = "1878 - Jean De Marignac": ElementVerileri(70, 11) = 2.4: ElementVerileri(70, 12) = 1.1: ElementVerileri(70, 13) = "3, 2 "
ElementVerileri(71, 1) = "071": ElementVerileri(71, 2) = "Lutesyum": ElementVerileri(71, 3) = "Lu": ElementVerileri(71, 4) = "Geçiş Elementi": ElementVerileri(71, 5) = 174.967: ElementVerileri(71, 6) = "Katı": ElementVerileri(71, 7) = 1663: ElementVerileri(71, 8) = 3395: ElementVerileri(71, 9) = "9,84 G/Cc": ElementVerileri(71, 10) = "1907 - Georges Urbain": ElementVerileri(71, 11) = 2.25: ElementVerileri(71, 12) = 1.27: ElementVerileri(71, 13) = "3"
ElementVerileri(72, 1) = "072": ElementVerileri(72, 2) = "Hafniyum": ElementVerileri(72, 3) = "Hf": ElementVerileri(72, 4) = "4B (Geçiş Elementi)": ElementVerileri(72, 5) = 178.49: ElementVerileri(72, 6) = "Katı": ElementVerileri(72, 7) = 2227: ElementVerileri(72, 8) = 4603: ElementVerileri(72, 9) = "13,31 G/Cc": ElementVerileri(72, 10) = "1923 - Dirk Coster, Georg Von Hevesy": ElementVerileri(72, 11) = 2.16: ElementVerileri(72, 12) = 1.3: ElementVerileri(72, 13) = "4"
ElementVerileri(73, 1) = "073": ElementVerileri(73, 2) = "Tantal": ElementVerileri(73, 3) = "Ta": ElementVerileri(73, 4) = "5B (Geçiş Elementi)": ElementVerileri(73, 5) = 180.9479: ElementVerileri(73, 6) = "Katı": ElementVerileri(73, 7) = 2996: ElementVerileri(73, 8) = 5425: ElementVerileri(73, 9) = "16,65 G/Cc": ElementVerileri(73, 10) = "1802 - Anders Ekeberg": ElementVerileri(73, 11) = 2.09: ElementVerileri(73, 12) = 1.5: ElementVerileri(73, 13) = "5"
ElementVerileri(74, 1) = "074": ElementVerileri(74, 2) = "Tungsten (Wolfram) ": ElementVerileri(74, 3) = "W": ElementVerileri(74, 4) = "6B (Geçiş Elementi)": ElementVerileri(74, 5) = 183.85: ElementVerileri(74, 6) = "Katı": ElementVerileri(74, 7) = 3407: ElementVerileri(74, 8) = 5655: ElementVerileri(74, 9) = "19,35 G/Cc": ElementVerileri(74, 10) = "1783 - Fausto Ve Juan José De Elhuyar": ElementVerileri(74, 11) = 2.02: ElementVerileri(74, 12) = 2.36: ElementVerileri(74, 13) = "6, 5, 4, 3, 2"
ElementVerileri(75, 1) = "075": ElementVerileri(75, 2) = "Renyum": ElementVerileri(75, 3) = "Re": ElementVerileri(75, 4) = "7B (Geçiş Elementi)": ElementVerileri(75, 5) = 186.207: ElementVerileri(75, 6) = "Katı": ElementVerileri(75, 7) = 3180: ElementVerileri(75, 8) = 5627: ElementVerileri(75, 9) = "21,04 G/Cc": ElementVerileri(75, 10) = "1925 - Walter Noddack, Ida Tacke, Otto Berg": ElementVerileri(75, 11) = 1.97: ElementVerileri(75, 12) = 1.9: ElementVerileri(75, 13) = "6, 4, 2, -2"
ElementVerileri(76, 1) = "076": ElementVerileri(76, 2) = "Osmiyum": ElementVerileri(76, 3) = "Os": ElementVerileri(76, 4) = "8B (Geçiş Elementi)": ElementVerileri(76, 5) = 190.2: ElementVerileri(76, 6) = "Katı": ElementVerileri(76, 7) = 3027: ElementVerileri(76, 8) = 5012: ElementVerileri(76, 9) = "22.6 G/Cc": ElementVerileri(76, 10) = "1804 - Smithson Tenant": ElementVerileri(76, 11) = 1.92: ElementVerileri(76, 12) = 2.2: ElementVerileri(76, 13) = "2, 3, 4, 6, 8"
ElementVerileri(77, 1) = "077": ElementVerileri(77, 2) = "İridyum": ElementVerileri(77, 3) = "Ir": ElementVerileri(77, 4) = "8B (Geçiş Elementi)": ElementVerileri(77, 5) = 192.22: ElementVerileri(77, 6) = "Katı": ElementVerileri(77, 7) = 2443: ElementVerileri(77, 8) = 4428: ElementVerileri(77, 9) = "22,4 G/Cc": ElementVerileri(77, 10) = "1804 - S.Tenant, A.F.Fourcory, L.N.Vauquelin": ElementVerileri(77, 11) = 1.87: ElementVerileri(77, 12) = 2.2: ElementVerileri(77, 13) = "2, 3, 4, 6"
ElementVerileri(78, 1) = "078": ElementVerileri(78, 2) = "Platin": ElementVerileri(78, 3) = "Pt": ElementVerileri(78, 4) = "8B (Geçiş Elementi)": ElementVerileri(78, 5) = 195.08: ElementVerileri(78, 6) = "Katı": ElementVerileri(78, 7) = 1772: ElementVerileri(78, 8) = 3827: ElementVerileri(78, 9) = "21,45 G/Cc": ElementVerileri(78, 10) = "1735 - Julius Scaliger": ElementVerileri(78, 11) = 1.83: ElementVerileri(78, 12) = 2.28: ElementVerileri(78, 13) = "2, 4"
ElementVerileri(79, 1) = "079": ElementVerileri(79, 2) = "Altın (Aurum) ": ElementVerileri(79, 3) = "Au": ElementVerileri(79, 4) = "1B (Geçiş Elementi)": ElementVerileri(79, 5) = 196.9665: ElementVerileri(79, 6) = "Katı": ElementVerileri(79, 7) = 1064.58: ElementVerileri(79, 8) = 2807: ElementVerileri(79, 9) = "19,32 G/Cc": ElementVerileri(79, 10) = "Bilinmiyor": ElementVerileri(79, 11) = 1.79: ElementVerileri(79, 12) = 2.54: ElementVerileri(79, 13) = "3, 1 "
ElementVerileri(80, 1) = "080": ElementVerileri(80, 2) = "Cıva (Hydrargyrum) ": ElementVerileri(80, 3) = "Hg": ElementVerileri(80, 4) = "2B (Geçiş Elementi)": ElementVerileri(80, 5) = 200.59: ElementVerileri(80, 6) = "Sıvı": ElementVerileri(80, 7) = -38.72: ElementVerileri(80, 8) = 357: ElementVerileri(80, 9) = "13,546 G/Cc": ElementVerileri(80, 10) = "Bilinmiyor": ElementVerileri(80, 11) = 1.76: ElementVerileri(80, 12) = 2: ElementVerileri(80, 13) = "2, 1 "
ElementVerileri(81, 1) = "081": ElementVerileri(81, 2) = "Talyum": ElementVerileri(81, 3) = "Tl": ElementVerileri(81, 4) = "3A (Metal)": ElementVerileri(81, 5) = 204.3833: ElementVerileri(81, 6) = "Katı": ElementVerileri(81, 7) = 304: ElementVerileri(81, 8) = 1473: ElementVerileri(81, 9) = "11,85 G/Cc": ElementVerileri(81, 10) = "1861 - Sir William Crookes": ElementVerileri(81, 11) = 2.08: ElementVerileri(81, 12) = 2.04: ElementVerileri(81, 13) = "3, 1 "
ElementVerileri(82, 1) = "082": ElementVerileri(82, 2) = "Kurşun (Plumbum) ": ElementVerileri(82, 3) = "Pb": ElementVerileri(82, 4) = "4A (Metal)": ElementVerileri(82, 5) = 207.2: ElementVerileri(82, 6) = "Katı": ElementVerileri(82, 7) = 327.6: ElementVerileri(82, 8) = 1740: ElementVerileri(82, 9) = "11,35 G/Cc": ElementVerileri(82, 10) = "Bilinmiyor": ElementVerileri(82, 11) = 1.81: ElementVerileri(82, 12) = 2.33: ElementVerileri(82, 13) = "4, 2 "
ElementVerileri(83, 1) = "083": ElementVerileri(83, 2) = "Bizmut": ElementVerileri(83, 3) = "Bi": ElementVerileri(83, 4) = "5A (Metal)": ElementVerileri(83, 5) = 208.9804: ElementVerileri(83, 6) = "Katı": ElementVerileri(83, 7) = 271.52: ElementVerileri(83, 8) = 1564: ElementVerileri(83, 9) = "9,75 G/Cc": ElementVerileri(83, 10) = "Bilinmiyor": ElementVerileri(83, 11) = 1.63: ElementVerileri(83, 12) = 2.02: ElementVerileri(83, 13) = "3, 5 "
ElementVerileri(84, 1) = "084": ElementVerileri(84, 2) = "Polonyum": ElementVerileri(84, 3) = "Po": ElementVerileri(84, 4) = "6A (Metal)": ElementVerileri(84, 5) = 209: ElementVerileri(84, 6) = "Katı": ElementVerileri(84, 7) = 254: ElementVerileri(84, 8) = 9624: ElementVerileri(84, 9) = "9,3 G/Cc": ElementVerileri(84, 10) = "1898 - Pierre , Marie Curie": ElementVerileri(84, 11) = 1.53: ElementVerileri(84, 12) = 2: ElementVerileri(84, 13) = "4, 2"
ElementVerileri(85, 1) = "085": ElementVerileri(85, 2) = "Astatin": ElementVerileri(85, 3) = "At": ElementVerileri(85, 4) = "7A (Halojen)": ElementVerileri(85, 5) = 210: ElementVerileri(85, 6) = "Katı": ElementVerileri(85, 7) = 302: ElementVerileri(85, 8) = 337: ElementVerileri(85, 9) = "Bilinmiyor": ElementVerileri(85, 10) = "1940 - D.R.Corson, K.R.Mackenzie, E.Segre": ElementVerileri(85, 11) = 1.43: ElementVerileri(85, 12) = 2.2: ElementVerileri(85, 13) = "±1, 3, 5,7"
ElementVerileri(86, 1) = "086": ElementVerileri(86, 2) = "Radon": ElementVerileri(86, 3) = "Rn": ElementVerileri(86, 4) = "8A (Soygaz)": ElementVerileri(86, 5) = 222: ElementVerileri(86, 6) = "Gaz": ElementVerileri(86, 7) = -71: ElementVerileri(86, 8) = -62: ElementVerileri(86, 9) = "9,73 G/L": ElementVerileri(86, 10) = "1898 - Friedrich Ernst Dorn": ElementVerileri(86, 11) = 1.34: ElementVerileri(86, 12) = "Yok": ElementVerileri(86, 13) = "0"
ElementVerileri(87, 1) = "087": ElementVerileri(87, 2) = "Fransiyum ": ElementVerileri(87, 3) = "Fr": ElementVerileri(87, 4) = "1A (Alkali Metal)": ElementVerileri(87, 5) = 223: ElementVerileri(87, 6) = "Katı": ElementVerileri(87, 7) = 27: ElementVerileri(87, 8) = 677: ElementVerileri(87, 9) = "Bilinmiyor": ElementVerileri(87, 10) = "1939 - Marguerite Derey": ElementVerileri(87, 11) = "Bilinmiyor": ElementVerileri(87, 12) = 0.7: ElementVerileri(87, 13) = "1"
ElementVerileri(88, 1) = "088": ElementVerileri(88, 2) = "Radyum": ElementVerileri(88, 3) = "Ra": ElementVerileri(88, 4) = "2A (Toprak Alkali Metal)": ElementVerileri(88, 5) = 226.0254: ElementVerileri(88, 6) = "Katı": ElementVerileri(88, 7) = 700: ElementVerileri(88, 8) = 1536: ElementVerileri(88, 9) = "5,5 G/Cc": ElementVerileri(88, 10) = "1898 - Pierre , Marie Curie": ElementVerileri(88, 11) = "Bilinmiyor": ElementVerileri(88, 12) = 0.9: ElementVerileri(88, 13) = "2"
ElementVerileri(89, 1) = "089": ElementVerileri(89, 2) = "Aktinyum": ElementVerileri(89, 3) = "Ac": ElementVerileri(89, 4) = "Aktinid": ElementVerileri(89, 5) = 227: ElementVerileri(89, 6) = "Katı": ElementVerileri(89, 7) = 1050: ElementVerileri(89, 8) = 3200: ElementVerileri(89, 9) = "10,07 G/Cc": ElementVerileri(89, 10) = "1899 - André Debierne": ElementVerileri(89, 11) = "Bilinmiyor": ElementVerileri(89, 12) = 1.1: ElementVerileri(89, 13) = "3"
ElementVerileri(90, 1) = "090": ElementVerileri(90, 2) = "Toryum": ElementVerileri(90, 3) = "Th": ElementVerileri(90, 4) = "Aktinid": ElementVerileri(90, 5) = 232.0381: ElementVerileri(90, 6) = "Katı": ElementVerileri(90, 7) = 1755: ElementVerileri(90, 8) = 4788: ElementVerileri(90, 9) = "11,724 G/Cc": ElementVerileri(90, 10) = "1828 - J. Jacob Berzelius": ElementVerileri(90, 11) = "Bilinmiyor": ElementVerileri(90, 12) = 1.3: ElementVerileri(90, 13) = "4"
ElementVerileri(91, 1) = "091": ElementVerileri(91, 2) = "Protaktinyum": ElementVerileri(91, 3) = "Pa": ElementVerileri(91, 4) = "Aktinid": ElementVerileri(91, 5) = 231.0359: ElementVerileri(91, 6) = "Katı": ElementVerileri(91, 7) = 1600: ElementVerileri(91, 8) = 4027: ElementVerileri(91, 9) = "15,4 G/Cc": ElementVerileri(91, 10) = "1917 - Friedrich Soddy, John Cranston, Otto Hahn, Lise Meitner": ElementVerileri(91, 11) = "Bilinmiyor": ElementVerileri(91, 12) = 1.5: ElementVerileri(91, 13) = "5, 4"
ElementVerileri(92, 1) = "092": ElementVerileri(92, 2) = "Uranyum": ElementVerileri(92, 3) = "U": ElementVerileri(92, 4) = "Aktinid": ElementVerileri(92, 5) = 238.0289: ElementVerileri(92, 6) = "Katı": ElementVerileri(92, 7) = 1132: ElementVerileri(92, 8) = 4134: ElementVerileri(92, 9) = "18,95 G/Cc": ElementVerileri(92, 10) = "1789 - Martin Klaproth": ElementVerileri(92, 11) = "Bilinmiyor": ElementVerileri(92, 12) = 1.38: ElementVerileri(92, 13) = "6, 5, 4, 3"
ElementVerileri(93, 1) = "093": ElementVerileri(93, 2) = "Neptünyum": ElementVerileri(93, 3) = "Np": ElementVerileri(93, 4) = "Aktinid": ElementVerileri(93, 5) = 237.0482: ElementVerileri(93, 6) = "Katı": ElementVerileri(93, 7) = 640: ElementVerileri(93, 8) = 3902: ElementVerileri(93, 9) = "20,2 G/Cc": ElementVerileri(93, 10) = "1940 - E.M. Mcmillan, P.H. Abelson": ElementVerileri(93, 11) = "Bilinmiyor": ElementVerileri(93, 12) = 1.36: ElementVerileri(93, 13) = "6, 5, 4, 3"
ElementVerileri(94, 1) = "094": ElementVerileri(94, 2) = "Plütonyum": ElementVerileri(94, 3) = "Pu": ElementVerileri(94, 4) = "Aktinid": ElementVerileri(94, 5) = 244: ElementVerileri(94, 6) = "Katı": ElementVerileri(94, 7) = 640: ElementVerileri(94, 8) = 3230: ElementVerileri(94, 9) = "19,84 G/Cc": ElementVerileri(94, 10) = "1940 - G.T.Seaborg, J.W.Kennedy, E.M.Mcmillan, A.C.Wohl": ElementVerileri(94, 11) = "Bilinmiyor": ElementVerileri(94, 12) = 1.28: ElementVerileri(94, 13) = "6, 5, 4, 3"
ElementVerileri(95, 1) = "095": ElementVerileri(95, 2) = "Amerikyum": ElementVerileri(95, 3) = "Am": ElementVerileri(95, 4) = "Aktinid": ElementVerileri(95, 5) = 243: ElementVerileri(95, 6) = "Katı": ElementVerileri(95, 7) = 994: ElementVerileri(95, 8) = 2607: ElementVerileri(95, 9) = "13,67 G/Cc": ElementVerileri(95, 10) = "1945 - G.T. Seaborg, R.A. James, L.O. Morgan, A. Ghiorso": ElementVerileri(95, 11) = "Bilinmiyor": ElementVerileri(95, 12) = 1.3: ElementVerileri(95, 13) = "6, 5, 4, 3"
ElementVerileri(96, 1) = "096": ElementVerileri(96, 2) = "Küriyum": ElementVerileri(96, 3) = "Cm": ElementVerileri(96, 4) = "Aktinid": ElementVerileri(96, 5) = 247: ElementVerileri(96, 6) = "Katı": ElementVerileri(96, 7) = 1067: ElementVerileri(96, 8) = 3110: ElementVerileri(96, 9) = "13,5 G/Cc": ElementVerileri(96, 10) = "1944 - G.T.Seaborg, R.A.James, A.Ghiorso": ElementVerileri(96, 11) = "Bilinmiyor": ElementVerileri(96, 12) = 1.3: ElementVerileri(96, 13) = "3"
ElementVerileri(97, 1) = "097": ElementVerileri(97, 2) = "Berkelyum": ElementVerileri(97, 3) = "Bk": ElementVerileri(97, 4) = "Aktinid": ElementVerileri(97, 5) = 247: ElementVerileri(97, 6) = "Katı": ElementVerileri(97, 7) = 986: ElementVerileri(97, 8) = "Bilinmiyor": ElementVerileri(97, 9) = "13,5 G/Cc": ElementVerileri(97, 10) = "1949 - G.T.Seaborg, S.G.Tompson, A.Ghiorso G.T.Seaborg, S.G.Tompson, A.Ghiorso": ElementVerileri(97, 11) = "Bilinmiyor": ElementVerileri(97, 12) = 1.3: ElementVerileri(97, 13) = "4, 3"
ElementVerileri(98, 1) = "098": ElementVerileri(98, 2) = "Kaliforniyum": ElementVerileri(98, 3) = "Cf": ElementVerileri(98, 4) = "Aktinid": ElementVerileri(98, 5) = 251: ElementVerileri(98, 6) = "Katı": ElementVerileri(98, 7) = 900: ElementVerileri(98, 8) = "Bilinmiyor": ElementVerileri(98, 9) = "15.1 G/Cc": ElementVerileri(98, 10) = "1950 - G.T.Seaborg, S.G.Tompson, A.Ghiorso, K.Street Jr.": ElementVerileri(98, 11) = "Bilinmiyor": ElementVerileri(98, 12) = 1.3: ElementVerileri(98, 13) = "3"
ElementVerileri(99, 1) = "099": ElementVerileri(99, 2) = "Aynştaynyum (Eınsteınıum) ": ElementVerileri(99, 3) = "Es": ElementVerileri(99, 4) = "Aktinid": ElementVerileri(99, 5) = 252: ElementVerileri(99, 6) = "Katı": ElementVerileri(99, 7) = 860: ElementVerileri(99, 8) = "Bilinmiyor": ElementVerileri(99, 9) = "Bilinmiyor": ElementVerileri(99, 10) = "1952 - Argonne, Los Alamos Ulusal Lab. (Abd)": ElementVerileri(99, 11) = "Bilinmiyor": ElementVerileri(99, 12) = 1.3: ElementVerileri(99, 13) = "3"
ElementVerileri(100, 1) = "100": ElementVerileri(100, 2) = "Fermiyum": ElementVerileri(100, 3) = "Fm": ElementVerileri(100, 4) = "Aktinid": ElementVerileri(100, 5) = 257: ElementVerileri(100, 6) = "Bilinmiyor": ElementVerileri(100, 7) = 1953: ElementVerileri(100, 8) = "Bilinmiyor": ElementVerileri(100, 9) = "Bilinmiyor": ElementVerileri(100, 10) = "1952 - Argonne, Los Alamos": ElementVerileri(100, 11) = "Bilinmiyor": ElementVerileri(100, 12) = 1.3: ElementVerileri(100, 13) = "3"
ElementVerileri(101, 1) = "101": ElementVerileri(101, 2) = "Mendelevyum": ElementVerileri(101, 3) = "Md": ElementVerileri(101, 4) = "Aktinid": ElementVerileri(101, 5) = 258: ElementVerileri(101, 6) = "Bilinmiyor": ElementVerileri(101, 7) = 1953: ElementVerileri(101, 8) = "Bilinmiyor": ElementVerileri(101, 9) = "Bilinmiyor": ElementVerileri(101, 10) = "1955 - G.T.Seaborg, S.G.Thompson, A.Ghiorso, K.Street Jr.": ElementVerileri(101, 11) = "Bilinmiyor": ElementVerileri(101, 12) = 1.3: ElementVerileri(101, 13) = "3"
ElementVerileri(102, 1) = "102": ElementVerileri(102, 2) = "Nobelyum": ElementVerileri(102, 3) = "No": ElementVerileri(102, 4) = "Aktinid": ElementVerileri(102, 5) = 259: ElementVerileri(102, 6) = "Bilinmiyor": ElementVerileri(102, 7) = 1953: ElementVerileri(102, 8) = "Bilinmiyor": ElementVerileri(102, 9) = "Bilinmiyor": ElementVerileri(102, 10) = "1957 - A.Ghiorso, T.Sikkeland, A.E.Larsh, R.M.Latimer": ElementVerileri(102, 11) = "Bilinmiyor": ElementVerileri(102, 12) = 1.3: ElementVerileri(102, 13) = "2, 3"
ElementVerileri(103, 1) = "103": ElementVerileri(103, 2) = "Lavrensiyum": ElementVerileri(103, 3) = "Lr": ElementVerileri(103, 4) = "Geçiş Elementi": ElementVerileri(103, 5) = 260: ElementVerileri(103, 6) = "Bilinmiyor": ElementVerileri(103, 7) = "Bilinmiyor": ElementVerileri(103, 8) = "Bilinmiyor": ElementVerileri(103, 9) = "Bilinmiyor": ElementVerileri(103, 10) = "1961 - A.Ghiorso, T.Sikkeland, A.E.Larsh, R.M.Latimer": ElementVerileri(103, 11) = "Bilinmiyor": ElementVerileri(103, 12) = "Bilinmiyor": ElementVerileri(103, 13) = "3"
ElementVerileri(104, 1) = "104": ElementVerileri(104, 2) = "Rutherfordiyum": ElementVerileri(104, 3) = "Rf": ElementVerileri(104, 4) = "4B (Geçiş Elementi - Transaktinid)": ElementVerileri(104, 5) = 261: ElementVerileri(104, 6) = "Bilinmiyor": ElementVerileri(104, 7) = "Bilinmiyor": ElementVerileri(104, 8) = "Bilinmiyor": ElementVerileri(104, 9) = "Bilinmiyor": ElementVerileri(104, 10) = "1969 - A.Ghiorso, Nurmia, Harris, K.A.Y. Eskola, P.L. Eskola": ElementVerileri(104, 11) = "Bilinmiyor": ElementVerileri(104, 12) = "Bilinmiyor": ElementVerileri(104, 13) = "Bilinmiyor"
ElementVerileri(105, 1) = "105": ElementVerileri(105, 2) = "Dubniyum": ElementVerileri(105, 3) = "Db": ElementVerileri(105, 4) = "5B (Geçiş Elementi - Transaktinid)": ElementVerileri(105, 5) = 262: ElementVerileri(105, 6) = "Bilinmiyor": ElementVerileri(105, 7) = "Bilinmiyor": ElementVerileri(105, 8) = "Bilinmiyor": ElementVerileri(105, 9) = "Bilinmiyor": ElementVerileri(105, 10) = "1970 - Birleşik Nükleer Araştırmalar Enstitüsü (Dubna, Rusya)": ElementVerileri(105, 11) = "Bilinmiyor": ElementVerileri(105, 12) = "Bilinmiyor": ElementVerileri(105, 13) = "Bilinmiyor"
ElementVerileri(106, 1) = "106": ElementVerileri(106, 2) = "Seaborgiyum": ElementVerileri(106, 3) = "Sg": ElementVerileri(106, 4) = "6B (Geçiş Elementi - Transaktinid)": ElementVerileri(106, 5) = 263: ElementVerileri(106, 6) = "Bilinmiyor": ElementVerileri(106, 7) = "Bilinmiyor": ElementVerileri(106, 8) = "Bilinmiyor": ElementVerileri(106, 9) = "Bilinmiyor": ElementVerileri(106, 10) = "1974 - Birleşik Nükleer Araştırmalar Enstitüsü (Dubna, Rusya), Lawrence Berkeley Ve Livermore Laboratuvarları (Abd)": ElementVerileri(106, 11) = "Bilinmiyor": ElementVerileri(106, 12) = "Bilinmiyor": ElementVerileri(106, 13) = "Bilinmiyor"
ElementVerileri(107, 1) = "107": ElementVerileri(107, 2) = "Bohriyum": ElementVerileri(107, 3) = "Bh": ElementVerileri(107, 4) = "7B (Geçiş Elementi - Transaktinid)": ElementVerileri(107, 5) = 262: ElementVerileri(107, 6) = "Bilinmiyor": ElementVerileri(107, 7) = "Bilinmiyor": ElementVerileri(107, 8) = "Bilinmiyor": ElementVerileri(107, 9) = "Bilinmiyor": ElementVerileri(107, 10) = "1976 - Birleşik Nükleer Araştırmalar Enstitüsü (Dubna, Rusya)": ElementVerileri(107, 11) = "Bilinmiyor": ElementVerileri(107, 12) = "Bilinmiyor": ElementVerileri(107, 13) = "Bilinmiyor"
ElementVerileri(108, 1) = "108": ElementVerileri(108, 2) = "Hassiyum": ElementVerileri(108, 3) = "Hs": ElementVerileri(108, 4) = "8B (Geçiş Elementi - Transaktinid)": ElementVerileri(108, 5) = 265: ElementVerileri(108, 6) = "Bilinmiyor": ElementVerileri(108, 7) = "Bilinmiyor": ElementVerileri(108, 8) = "Bilinmiyor": ElementVerileri(108, 9) = "Bilinmiyor": ElementVerileri(108, 10) = "1984 - Peter Armbruster, Gottfried Munzenber": ElementVerileri(108, 11) = "Bilinmiyor": ElementVerileri(108, 12) = "Bilinmiyor": ElementVerileri(108, 13) = "Bilinmiyor"
ElementVerileri(109, 1) = "109": ElementVerileri(109, 2) = "Meitneriyum": ElementVerileri(109, 3) = "Mt": ElementVerileri(109, 4) = "8B (Geçiş Elementi - Transaktinid)": ElementVerileri(109, 5) = 266: ElementVerileri(109, 6) = "Bilinmiyor": ElementVerileri(109, 7) = "Bilinmiyor": ElementVerileri(109, 8) = "Bilinmiyor": ElementVerileri(109, 9) = "Bilinmiyor": ElementVerileri(109, 10) = "1982 - Almanya Ağır İyon Araştırma Laboratuvarı": ElementVerileri(109, 11) = "Bilinmiyor": ElementVerileri(109, 12) = "Bilinmiyor": ElementVerileri(109, 13) = "Bilinmiyor"
ElementVerileri(110, 1) = "110": ElementVerileri(110, 2) = "Ununnilyum (Darmstadtiyum)": ElementVerileri(110, 3) = "Uun (Ds) ": ElementVerileri(110, 4) = "8B (Geçiş Elementi - Transaktinid)": ElementVerileri(110, 5) = 271: ElementVerileri(110, 6) = "Bilinmiyor": ElementVerileri(110, 7) = "Bilinmiyor": ElementVerileri(110, 8) = "Bilinmiyor": ElementVerileri(110, 9) = "Bilinmiyor": ElementVerileri(110, 10) = "1994 - S. Hofmann, V. Ninov, Fp Hessberger, P. Armbruster, H. Folger, G. Münzenberg, Hj Schött": ElementVerileri(110, 11) = "Bilinmiyor": ElementVerileri(110, 12) = "Bilinmiyor": ElementVerileri(110, 13) = "Bilinmiyor"
ElementVerileri(111, 1) = "111": ElementVerileri(111, 2) = "Unununyum": ElementVerileri(111, 3) = "Uuu": ElementVerileri(111, 4) = "1B (Geçiş Elementi - Transaktinid)": ElementVerileri(111, 5) = 272: ElementVerileri(111, 6) = "Bilinmiyor": ElementVerileri(111, 7) = "Bilinmiyor": ElementVerileri(111, 8) = "Bilinmiyor": ElementVerileri(111, 9) = "Bilinmiyor": ElementVerileri(111, 10) = "1994 - S. Hofmann, V. Ninov, Fp Hessberger, P. Armbruster, H. Folger, G. Münzenberg": ElementVerileri(111, 11) = "Bilinmiyor": ElementVerileri(111, 12) = "Bilinmiyor": ElementVerileri(111, 13) = "Bilinmiyor"
ElementVerileri(112, 1) = "112": ElementVerileri(112, 2) = "Ununbiyum": ElementVerileri(112, 3) = "Uub": ElementVerileri(112, 4) = "2B (Geçiş Elementi - Transaktinid)": ElementVerileri(112, 5) = 277: ElementVerileri(112, 6) = "Bilinmiyor": ElementVerileri(112, 7) = "Bilinmiyor": ElementVerileri(112, 8) = "Bilinmiyor": ElementVerileri(112, 9) = "Bilinmiyor": ElementVerileri(112, 10) = "1996 - S. Hoffmann, V. Ninov, F. Hessberger, P. Armbruster, G. Munzenberg": ElementVerileri(112, 11) = "Bilinmiyor": ElementVerileri(112, 12) = "Bilinmiyor": ElementVerileri(112, 13) = "Bilinmiyor"
ElementVerileri(113, 1) = "113": ElementVerileri(113, 2) = "Element 113": ElementVerileri(113, 3) = "-": ElementVerileri(113, 4) = "-": ElementVerileri(113, 5) = "Bilinmiyor": ElementVerileri(113, 6) = "Bilinmiyor": ElementVerileri(113, 7) = "Bilinmiyor": ElementVerileri(113, 8) = "Bilinmiyor": ElementVerileri(113, 9) = "Bilinmiyor": ElementVerileri(113, 10) = "2004 - Birleşik Nükleer Araştırmalar Enstitüsü (Dubna, Rusya)": ElementVerileri(113, 11) = "Bilinmiyor": ElementVerileri(113, 12) = "Bilinmiyor": ElementVerileri(113, 13) = "Bilinmiyor"
ElementVerileri(114, 1) = "114": ElementVerileri(114, 2) = "Ununkuadyum": ElementVerileri(114, 3) = "Uuq": ElementVerileri(114, 4) = "4A (Metal)": ElementVerileri(114, 5) = 289: ElementVerileri(114, 6) = "Bilinmiyor": ElementVerileri(114, 7) = "Bilinmiyor": ElementVerileri(114, 8) = "Bilinmiyor": ElementVerileri(114, 9) = "Bilinmiyor": ElementVerileri(114, 10) = "1999 - Birleşik Nükleer Araştırmalar Enstitüsü (Dubna, Rusya)": ElementVerileri(114, 11) = "Bilinmiyor": ElementVerileri(114, 12) = "Bilinmiyor": ElementVerileri(114, 13) = "Bilinmiyor"
ElementVerileri(115, 1) = "115": ElementVerileri(115, 2) = "Element 115": ElementVerileri(115, 3) = "-": ElementVerileri(115, 4) = "-": ElementVerileri(115, 5) = "Bilinmiyor": ElementVerileri(115, 6) = "Bilinmiyor": ElementVerileri(115, 7) = "Bilinmiyor": ElementVerileri(115, 8) = "Bilinmiyor": ElementVerileri(115, 9) = "Bilinmiyor": ElementVerileri(115, 10) = "2004 - Birleşik Nükleer Araştırmalar Enstitüsü (Dubna, Rusya)": ElementVerileri(115, 11) = "Bilinmiyor": ElementVerileri(115, 12) = "Bilinmiyor": ElementVerileri(115, 13) = "Bilinmiyor"
ElementVerileri(116, 1) = "116": ElementVerileri(116, 2) = "Ununheksiyum": ElementVerileri(116, 3) = "Uuh": ElementVerileri(116, 4) = "6A (Metal)": ElementVerileri(116, 5) = 289: ElementVerileri(116, 6) = "Bilinmiyor": ElementVerileri(116, 7) = "Bilinmiyor": ElementVerileri(116, 8) = "Bilinmiyor": ElementVerileri(116, 9) = "Bilinmiyor": ElementVerileri(116, 10) = "1999 - V. Ninov, Ke Gregorich, W. Loveland, A. Ghiorso, Dc Hoffman, Dm Lee, H. Nitsche, Wj Swiatecki, Uw Kirbach ": ElementVerileri(116, 11) = "Bilinmiyor": ElementVerileri(116, 12) = "Bilinmiyor": ElementVerileri(116, 13) = "Bilinmiyor"
ElementVerileri(117, 1) = "117": ElementVerileri(117, 2) = "Bilinmiyor": ElementVerileri(117, 3) = "Bilinmiyor": ElementVerileri(117, 4) = "Bilinmiyor": ElementVerileri(117, 5) = "Bilinmiyor": ElementVerileri(117, 6) = "Bilinmiyor": ElementVerileri(117, 7) = "Bilinmiyor": ElementVerileri(117, 8) = "Bilinmiyor": ElementVerileri(117, 9) = "Bilinmiyor": ElementVerileri(117, 10) = "Bilinmiyor": ElementVerileri(117, 11) = "Bilinmiyor": ElementVerileri(117, 12) = "Bilinmiyor": ElementVerileri(117, 13) = "Bilinmiyor"
ElementVerileri(118, 1) = "118": ElementVerileri(118, 2) = "Bilinmiyor": ElementVerileri(118, 3) = "Bilinmiyor": ElementVerileri(118, 4) = "Bilinmiyor": ElementVerileri(118, 5) = "Bilinmiyor": ElementVerileri(118, 6) = "Bilinmiyor": ElementVerileri(118, 7) = "Bilinmiyor": ElementVerileri(118, 8) = "Bilinmiyor": ElementVerileri(118, 9) = "Bilinmiyor": ElementVerileri(118, 10) = "Bilinmiyor": ElementVerileri(118, 11) = "Bilinmiyor": ElementVerileri(118, 12) = "Bilinmiyor": ElementVerileri(118, 13) = "Bilinmiyor"
End Sub
Private Sub Element_Tablosunu_Kur()
For i = 1 To 118
With ListView1
.ListItems.Add i, "Key" & i, ElementVerileri(i, 1)
With .ListItems(i)
.ListSubItems.Add 1, "SKey1", ElementVerileri(i, 2)
.ListSubItems.Add 2, "SKey2", ElementVerileri(i, 3)
.ListSubItems.Add 3, "SKey3", ElementVerileri(i, 4)
.ListSubItems.Add 4, "SKey4", ElementVerileri(i, 5)
.ListSubItems.Add 5, "SKey5", ElementVerileri(i, 6)
.ListSubItems.Add 6, "SKey6", ElementVerileri(i, 7)
.ListSubItems.Add 7, "SKey7", ElementVerileri(i, 8)
.ListSubItems.Add 8, "SKey8", ElementVerileri(i, 9)
.ListSubItems.Add 9, "SKey9", ElementVerileri(i, 10)
.ListSubItems.Add 10, "SKey10", ElementVerileri(i, 11)
.ListSubItems.Add 11, "SKey11", ElementVerileri(i, 12)
.ListSubItems.Add 12, "SKey12", ElementVerileri(i, 13)
End With
End With
Next i
End Sub

'Module1

Option Explicit
Public Declare Function CLSIDFromString Lib "ole32" (ByVal lpstrCLSID As Long, lpCLSID As Any) As Long
Public Declare Function OleLoadPicturePath Lib "oleaut32" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As Any, ByRef ppvRet As Any) As Long
Public IPic(15) As Byte
'It may take a few seconds, please wait.
Public Const ClsID As Variant = "{7BF80980-BF32-101A-8BBB-00AA00300CAB}"
'Microsoft Office Excel® Kod Kılavuzu [PBİD BackroundPicture]
Public Const URL1 As String = "http://2.bp.blogspot.com/-G3KDFVP7V0Q/TcUhtYtMifI/AAAAAAAACw0/Ta6mFpFJtZ8/s1600/39.bmp"
'Microsoft Office Excel® Kod Kılavuzu [PBİD Icon]
Public Const URL2 As String = "http://2.bp.blogspot.com/_hsHTxo_5L8E/S78EbvJyhRI/AAAAAAAACS0/txbOQ1qubg8/s1600/PB%C4%B0D_jpg.jpg"
Public URL As String
Sub Form_Aç() 'Open UserForm
On Error Resume Next
UserForm1.Show 0
End Sub
Public Function Resim(URL) As Picture 'Picture load frome web address...
On Error Resume Next
CLSIDFromString StrPtr(ClsID), IPic(0)
OleLoadPicturePath StrPtr(URL), 0&, 0&, 0&, IPic(0), Resim
End Function
'Sub References_List()
' On Error Resume Next
' Dim Eleman, No
' No = 1
' For Each Eleman In ThisWorkbook.VBProject.References
' Sheets(1).Cells(No, 1) = No & ") Name: "
' Sheets(1).Cells(No, 2) = Eleman.Name
' Sheets(1).Cells(No, 3) = ", Description: "
' Sheets(1).Cells(No, 4) = Eleman.Description
' Sheets(1).Cells(No, 5) = ", FullPath: "
' Sheets(1).Cells(No, 6) = Eleman.FullPath
' No = No + 1
' Next Eleman
'End Sub

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul