hier der Code für den Mol-Rechner den ich zusammen mit Jilocasin Geschrieben habe:
Code: Alles auswählen
#mol = 22.4
value.f
value2.f
OpenWindow(0,125,250,500,160,#PB_Window_MinimizeGadget,"Mol-Rechner")
CreateGadgetList(WindowID(0))
Frame3DGadget(0,30,5,80,45,"Mol",0)
StringGadget(1,45,20,50,20,"")
TextGadget(2,120,24,10,20,"X")
Frame3DGadget(3,275,5,80,45,"Gramm",0)
StringGadget(4,285,20,50,20,"")
ButtonGadget(6,10,80,100,24,"In Liter umrechen")
ButtonGadget(7,120,80,120,24,"In Gramm umrechnen")
Frame3DGadget(8,140,5,80,45,"µ",0)
StringGadget(9,155,20,50,20,"")
Frame3DGadget(10,8,60,240,4,"",1)
Frame3DGadget(11,249.5,5,4,115,"",1)
Frame3DGadget(12,255,60,240,4,"",1)
Frame3DGadget(13,0,120,2400,4,"",1)
Frame3DGadget(14,390,5,80,45,"µ",0)
StringGadget(15,400,20,50,20,"")
TextGadget(16,368,24,10,20,"/")
ButtonGadget(17,325,80,100,24,"In Mol umrechen")
ButtonGadget(18,200,130,100,24,"About")
OpenWindow(1,665,250,200,400,#PB_Window_Titlebar,"Tabelle")
CreateGadgetList(WindowID(1))
TextGadget(11,5,5,190,20,"Atommassen (µ) der Elemente")
ListViewGadget(12,5,25,190,370)
AddGadgetItem(12,-1,"H=1")
AddGadgetItem(12,-1,"He=4")
AddGadgetItem(12,-1,"Li=6.9")
AddGadgetItem(12,-1,"Be=9")
AddGadgetItem(12,-1,"B=10.8")
AddGadgetItem(12,-1,"C=12")
AddGadgetItem(12,-1,"N=14")
AddGadgetItem(12,-1,"O=16")
AddGadgetItem(12,-1,"F=19")
AddGadgetItem(12,-1,"Ne=20.2")
AddGadgetItem(12,-1,"Na=23")
AddGadgetItem(12,-1,"Mg=24.3")
AddGadgetItem(12,-1,"Al=27")
AddGadgetItem(12,-1,"Si=28.1")
AddGadgetItem(12,-1,"P=31")
AddGadgetItem(12,-1,"S=32.1")
AddGadgetItem(12,-1,"Cl=35.5")
AddGadgetItem(12,-1,"Ar=39.9")
AddGadgetItem(12,-1,"K=39.1")
AddGadgetItem(12,-1,"Ca=40.1")
AddGadgetItem(12,-1,"Sc=45")
AddGadgetItem(12,-1,"Ti=47.9")
AddGadgetItem(12,-1,"V=50.9")
AddGadgetItem(12,-1,"Cr=52")
AddGadgetItem(12,-1,"Mn=54.9")
AddGadgetItem(12,-1,"Fe=55.8")
AddGadgetItem(12,-1,"Co=58.9")
AddGadgetItem(12,-1,"Ni=58.7")
AddGadgetItem(12,-1,"Cu=63.5")
AddGadgetItem(12,-1,"Zn=65.4")
AddGadgetItem(12,-1,"Ga=69.7")
AddGadgetItem(12,-1,"Ge=72.6")
AddGadgetItem(12,-1,"As=74.9")
AddGadgetItem(12,-1,"Se=79")
AddGadgetItem(12,-1,"Br=79.9")
AddGadgetItem(12,-1,"Kr=83.8")
AddGadgetItem(12,-1,"Rb=85.5")
AddGadgetItem(12,-1,"Sr=87.6")
AddGadgetItem(12,-1,"Y=88.9")
AddGadgetItem(12,-1,"Zr=91.2")
AddGadgetItem(12,-1,"Nb=92.9")
AddGadgetItem(12,-1,"Mo=95.9")
AddGadgetItem(12,-1,"Tc=98")
AddGadgetItem(12,-1,"Ru=101.1")
AddGadgetItem(12,-1,"Rh=102.9")
AddGadgetItem(12,-1,"Pd=106.4")
AddGadgetItem(12,-1,"Ag=107.9")
AddGadgetItem(12,-1,"Cd=112.4")
AddGadgetItem(12,-1,"In=114.8")
AddGadgetItem(12,-1,"Sn=118.7")
AddGadgetItem(12,-1,"Sb=121.8")
AddGadgetItem(12,-1,"Te=127.6")
AddGadgetItem(12,-1,"I=126.9")
AddGadgetItem(12,-1,"Xe=131.3")
AddGadgetItem(12,-1,"Cs=132.9")
AddGadgetItem(12,-1,"Ba=137.3")
AddGadgetItem(12,-1,"La=138.9")
AddGadgetItem(12,-1,"Ce=140.1")
AddGadgetItem(12,-1,"Pr=140.9")
AddGadgetItem(12,-1,"Nd=144.2")
AddGadgetItem(12,-1,"Pm=145")
AddGadgetItem(12,-1,"Sm=150.4")
AddGadgetItem(12,-1,"Eu=152")
AddGadgetItem(12,-1,"Gd=157.2")
AddGadgetItem(12,-1,"Tb=158.9")
AddGadgetItem(12,-1,"Dy=162.5")
AddGadgetItem(12,-1,"Ho=164.9")
AddGadgetItem(12,-1,"Er=167.3")
AddGadgetItem(12,-1,"Tm=168.9")
AddGadgetItem(12,-1,"Yb=173")
AddGadgetItem(12,-1,"Lu=175")
AddGadgetItem(12,-1,"Hf=178.5")
AddGadgetItem(12,-1,"Te=180.9")
AddGadgetItem(12,-1,"W=183.8")
AddGadgetItem(12,-1,"Re=186.2")
AddGadgetItem(12,-1,"Os=190.2")
AddGadgetItem(12,-1,"Ir=192.2")
AddGadgetItem(12,-1,"Pt=195.1")
AddGadgetItem(12,-1,"Au=197")
AddGadgetItem(12,-1,"Hg=200.6")
AddGadgetItem(12,-1,"Tl=204.4")
AddGadgetItem(12,-1,"Pb=207.2")
AddGadgetItem(12,-1,"Bi=209")
AddGadgetItem(12,-1,"Po=9")
AddGadgetItem(12,-1,"At=210")
AddGadgetItem(12,-1,"Rn=222")
AddGadgetItem(12,-1,"Fr=223")
AddGadgetItem(12,-1,"Ra=226")
AddGadgetItem(12,-1,"Ac=227")
AddGadgetItem(12,-1,"Th=232")
AddGadgetItem(12,-1,"Pa=231")
AddGadgetItem(12,-1,"U=238")
AddGadgetItem(12,-1,"Np=237")
AddGadgetItem(12,-1,"Pu=244")
AddGadgetItem(12,-1,"Am=243")
AddGadgetItem(12,-1,"Cm=247")
AddGadgetItem(12,-1,"Bk=247")
AddGadgetItem(12,-1,"Cf=251")
AddGadgetItem(12,-1,"Es=252")
AddGadgetItem(12,-1,"Fm=257")
AddGadgetItem(12,-1,"Md=258")
AddGadgetItem(12,-1,"No=259")
AddGadgetItem(12,-1,"Lr=260")
AddGadgetItem(12,-1,"Ku=261")
AddGadgetItem(12,-1,"Ha=262")
MessageRequester("Hinweis!","das symbol 'µ' bezieht sich immer auf die Gesamtatommasse, die ihr mit Hilfe der Tabelle ausrechnen könnt!",0)
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
End
EndIf
If EventID = #PB_Event_Gadget
Select EventGadgetID()
Case 6
value = ValF(GetGadgetText(1))
If Value = 0
MessageRequester("Fehler","Du musst die Molmenge angeben",16)
Else
MessageRequester("Ergebnis",StrF(value)+" Mol entspricht "+StrF(value*#mol)+" Liter",0)
EndIf
Case 7
value = ValF(GetGadgetText(1))
value2 = ValF(GetGadgetText(9))
If value2 = 0
MessageRequester("Fehler!","Du musst die Gesamtatommasse und/oder Molmenge angeben!",16)
Else
MessageRequester("Ergebnis",StrF(value)+" Mol entspricht "+StrF(value*value2)+" Gramm des ausgewählten Stoffs",0)
EndIf
Case 17
value = ValF(GetGadgetText(4))
value2 = ValF(GetGadgetText(15))
If value2 = 0
MessageRequester("Fehler!","Du musst die Gesamtatommasse und /oder das Gewicht\dieMenge angeben!",16)
Else
MessageRequester("Ergebnis",StrF(value)+" Gramm entspricht "+StrF(value/value2)+" Mol",0)
EndIf
Case 18
MessageRequester("About","©2006 by Jilocasin & Farodin",0)
EndSelect
EndIf
ForEver
)
