ATNEL tech-forum 2024-07-23T05:58:04+01:00 https://forum.atnel.pl/feed.php?f=23&t=21625&mode 2024-07-23T05:58:04+01:00 2024-07-23T05:58:04+01:00 https://forum.atnel.pl/viewtopic.php?t=21625&p=238273#p238273 <![CDATA[Re: PDFy elementów elektronicznych]]> Statystyki: Napisane przez micky — 23 lip 2024, o 05:58

]]> 2024-07-22T12:10:00+01:00 2024-07-22T12:10:00+01:00 https://forum.atnel.pl/viewtopic.php?t=21625&p=238264#p238264 <![CDATA[Re: PDFy elementów elektronicznych]]> Jaglarz napisał(a):

A ile męki ze spełnianiem ich wymagań


Nooo dopiero jak się ktoś sam zabierze za napisanie softu i wrzucenie do tego kociego plajstora - to widać ile trzeba przejść ;)

Ale to nie koniec męki panie kochany :) nie minie parę miesięcy a dostaniesz informacje, że ta wersja nie spełnia już wymagań i trzeba od nowa poprawki robić itp itd - bo gogel-mogel znowu coś tam zmienił ;) Tzn oby nie ... ale ja nie miałem siły co rusz grzebać w moich apkach

Statystyki: Napisane przez mirekk36 — 22 lip 2024, o 12:10

]]> 2024-07-22T10:45:04+01:00 2024-07-22T10:45:04+01:00 https://forum.atnel.pl/viewtopic.php?t=21625&p=238263#p238263 <![CDATA[Re: PDFy elementów elektronicznych]]> :) :o :lol:

Jaglarz napisał(a):

Gratulacje oficjalnej apki na andka


Thx

Statystyki: Napisane przez Jaglarz — 22 lip 2024, o 10:45

]]> 2024-07-22T09:08:20+01:00 2024-07-22T09:08:20+01:00 https://forum.atnel.pl/viewtopic.php?t=21625&p=238261#p238261 <![CDATA[Re: PDFy elementów elektronicznych]]> Jaglarz napisał(a):

A jednak się pojawiła :lol:

https://play.google.com/store/apps/deta ... elel&hl=pl


Noo Panie - zainstalowane i sprawdzone :) Gratulacje oficjalnej apki na andka

Statystyki: Napisane przez mirekk36 — 22 lip 2024, o 09:08

]]> 2024-07-22T05:23:29+01:00 2024-07-22T05:23:29+01:00 https://forum.atnel.pl/viewtopic.php?t=21625&p=238260#p238260 <![CDATA[Re: PDFy elementów elektronicznych]]>

https://play.google.com/store/apps/deta ... elel&hl=pl

Statystyki: Napisane przez Jaglarz — 22 lip 2024, o 05:23

]]> 2018-12-13T10:52:35+01:00 2018-12-13T10:52:35+01:00 https://forum.atnel.pl/viewtopic.php?t=21625&p=214608#p214608 <![CDATA[Re: PDFy elementów elektronicznych]]> Statystyki: Napisane przez fobos — 13 gru 2018, o 10:52

]]> 2018-12-10T07:15:03+01:00 2018-12-10T07:15:03+01:00 https://forum.atnel.pl/viewtopic.php?t=21625&p=214511#p214511 <![CDATA[Re: PDFy elementów elektronicznych]]>

Statystyki: Napisane przez Jaglarz — 10 gru 2018, o 07:15

]]> 2018-12-10T06:57:11+01:00 2018-12-10T06:57:11+01:00 https://forum.atnel.pl/viewtopic.php?t=21625&p=214510#p214510 <![CDATA[Re: PDFy elementów elektronicznych]]> StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega640_1280_1281_2560_2561.pdf"))
Case "atmega2560"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega640_1280_1281_2560_2561.pdf"))
Case "atmega25 60"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega640_1280_1281_2560_2561.pdf"))
Case "atmega 25 60"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega640_1280_1281_2560_2561.pdf"))[/syntax]

Nie żebym się czepiał, ale co to za twór? :>
Dodaj jeszcze "aTMega 2 5 60" i pochodne, zamiast trzasnąć UCase i Trim, a najlepiej zrobić własny trim z wyrżnięciem środkowych spacji. ;)
Skoro program pobiera pdf z Twojego serwera, to czy nie lepiej byłoby zrobić listę np w jakimś pliku który by sobie apka zasysała przy starcie - w ten sposób program zawsze byłby aktualny.

Statystyki: Napisane przez Harry — 10 gru 2018, o 06:57

]]> 2018-11-27T14:50:55+01:00 2018-11-27T14:50:55+01:00 https://forum.atnel.pl/viewtopic.php?t=21625&p=214104#p214104 <![CDATA[Re: PDFy elementów elektronicznych]]> .... do jakiego działu ? .... noooo Panie kochany! Paaanie różowy! ;)

Do DIY .... a nie tutaj ;)

FAJNA APKA! ;)

Statystyki: Napisane przez mirekk36 — 27 lis 2018, o 14:50

]]> 2018-11-27T13:44:38+01:00 2018-11-27T13:44:38+01:00 https://forum.atnel.pl/viewtopic.php?t=21625&p=214097#p214097 <![CDATA[PDFy elementów elektronicznych]]>
Aplikacja jest kontynuacją programu na PC: topic6753.html
Jest mało elementów bo nie wiem czy jest potrzebna i ile osób by ewentualnie używało.
Jeśli będzie zainteresowanie elementy będą dodawane.

Obrazek

[syntax=basic4gl]#Region Project Attributes
#ApplicationLabel: PElEl
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: landscape
#CanInstallToExternalStorage: False
#End Region

#Region Activity Attributes
#FullScreen: True
#IncludeTitle: False
#End Region

Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Private vr As VoiceRecognition

Dim wifi As MLwifi
Dim timer1 As Timer
Dim t As Timer

End Sub

Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim p As PhoneIntents
Dim wybrany As String

Dim Sound As SoundPool
Dim graj As Int


Private ImageView1 As ImageView
Private ImageView2 As ImageView
Private ImageView3 As ImageView
Private WebView1 As WebView
Private ImageView4 As ImageView
Private ImageView5 As ImageView
Private Panel1 As Panel
Private ListView1 As ListView
Private ImageView6 As ImageView
Private Panel2 As Panel
Private ListView2 As ListView
Private ImageView7 As ImageView
Private ImageView8 As ImageView
Private Panel3 As Panel
Private ListView3 As ListView
Private ImageView9 As ImageView
Private Panel4 As Panel
Private ListView4 As ListView
Private Panel5 As Panel
Private ListView5 As ListView
Private ImageView10 As ImageView
Private Panel6 As Panel
Private ListView6 As ListView
Private ImageView11 As ImageView
Private Panel7 As Panel
Private ListView7 As ListView

Private Panel8 As Panel
Private ListView8 As ListView
Private Label1 As Label

Private H As Int
Private M As Int
Private s As Int



Private bv1 As BatteryView
Private bu As BatteryUtilities

Dim batterystatus(11) As Int


End Sub

Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("Layout1")
vr.Initialize("vr")

ImageView2.Left = (Activity.Width - ImageView2.Width) / 2
ImageView2.Top = (Activity.Height - ImageView2.Height) / 2

ImageView9.Left = (Activity.Height - ImageView2.Height)
Panel8.Left = ImageView9.Left
Label1.Left = Activity.Width - Label1.Width
bv1.Left = (Label1.Left - bv1.Width) - 1
ImageView1.Left = (bv1.Left - ImageView1.Width) - 5
ImageView4.Left = (ImageView1.Left - ImageView4.Width) - 3

Sound.Initialize(2)
graj = Sound.Load(File.DirAssets,"nie znam.mp3")

timer1.Initialize("timer1", 1000)
timer1.Enabled = True

If FirstTime Then
WebView1.LoadURL("http://www.jaglarz.info/android/Pelel/licznik.php")

End If

If Not(wifi.isWifiConnected) Then
wifi.EnableWifi(True)

End If

bu.Initialize

batterystatus = bu.BatteryInformation
bv1.Level = batterystatus(0)
If batterystatus(8) = 1 Then
bv1.Charging = True
Else
bv1.Charging = False
End If


t.Initialize("t", 20000)

ListView1.SingleLineLayout.Label.TextColor = Colors.red
ListView1.AddSingleLine("Atmega8")
ListView1.AddSingleLine("Atmega8A")
ListView1.AddSingleLine("Atmega16")
ListView1.AddSingleLine("Atmega32")
ListView1.AddSingleLine("Atmega32A")
ListView1.AddSingleLine("Atmega48")
ListView1.AddSingleLine("Atmega64")
ListView1.AddSingleLine("Atmega128")
ListView1.AddSingleLine("Atmega168")
ListView1.AddSingleLine("Atmega328")
ListView1.AddSingleLine("Atmega644")
ListView1.AddSingleLine("Atmega644A")
ListView1.AddSingleLine("Atmega2560")





ListView2.SingleLineLayout.Label.TextColor = Colors.ARGB(255,0,205,73)
ListView2.AddSingleLine("ATNEL WiFi 232")
ListView2.AddSingleLine("BTM112")
ListView2.AddSingleLine("BTM222")
ListView2.AddSingleLine("CC1000")
ListView2.AddSingleLine("DR3100")
ListView2.AddSingleLine("ESP8266")
ListView2.AddSingleLine("HC05")
ListView2.AddSingleLine("HX1000")
ListView2.AddSingleLine("HX1007")
ListView2.AddSingleLine("nRF24L01")
ListView2.AddSingleLine("RFM12")
ListView2.AddSingleLine("RFM70")
ListView2.AddSingleLine("RFM73")
ListView2.AddSingleLine("RR4")
ListView2.AddSingleLine("RT2")
ListView2.AddSingleLine("RX1000")
ListView2.AddSingleLine("RX1005")
ListView2.AddSingleLine("RX1010")
ListView2.AddSingleLine("RX1020")
ListView2.AddSingleLine("RX5000")
ListView2.AddSingleLine("RX5500")
ListView2.AddSingleLine("TR3000")
ListView2.AddSingleLine("TX5000")



ListView3.SingleLineLayout.Label.TextColor = Colors.ARGB(255,255,124,40)
ListView3.AddSingleLine("AD590")
ListView3.AddSingleLine("AD592")
ListView3.AddSingleLine("AD22100")
ListView3.AddSingleLine("DS1620")
ListView3.AddSingleLine("DS1621")
ListView3.AddSingleLine("DS18B20")
ListView3.AddSingleLine("DS1822")
ListView3.AddSingleLine("KTY81-1")
ListView3.AddSingleLine("KTY83-1")
ListView3.AddSingleLine("KTY84-1")
ListView3.AddSingleLine("LM135")
ListView3.AddSingleLine("LM20")
ListView3.AddSingleLine("LM235")
ListView3.AddSingleLine("LM335")
ListView3.AddSingleLine("LM35")
ListView3.AddSingleLine("LM60")
ListView3.AddSingleLine("MCP9700")
ListView3.AddSingleLine("MCP9701")
ListView3.AddSingleLine("MCP9808")
ListView3.AddSingleLine("PT100")
ListView3.AddSingleLine("PT500")
ListView3.AddSingleLine("PT1000")
ListView3.AddSingleLine("TC74")
ListView3.AddSingleLine("TC77")
ListView3.AddSingleLine("TMP01")


ListView4.SingleLineLayout.Label.TextColor = Colors.ARGB(255,160,160,160)
ListView4.AddSingleLine("DS1302")
ListView4.AddSingleLine("DS1305")
ListView4.AddSingleLine("DS1307")
ListView4.AddSingleLine("DS1318")
ListView4.AddSingleLine("DS1337")
ListView4.AddSingleLine("DS1339")
ListView4.AddSingleLine("DS1390")
ListView4.AddSingleLine("DS1391")
ListView4.AddSingleLine("DS1392")
ListView4.AddSingleLine("DS1393")
ListView4.AddSingleLine("DS1501")
ListView4.AddSingleLine("DS1511")
ListView4.AddSingleLine("DS1672")
ListView4.AddSingleLine("DS1682")
ListView4.AddSingleLine("DS3231")
ListView4.AddSingleLine("DS3232")
ListView4.AddSingleLine("DS12885")
ListView4.AddSingleLine("DS12887")
ListView4.AddSingleLine("DS12C887")
ListView4.AddSingleLine("MCP79400")
ListView4.AddSingleLine("MCP79401")
ListView4.AddSingleLine("MCP79402")
ListView4.AddSingleLine("MCP79410")
ListView4.AddSingleLine("MCP79411")
ListView4.AddSingleLine("MCP79412")
ListView4.AddSingleLine("MCP795W10")
ListView4.AddSingleLine("MCP795W11")
ListView4.AddSingleLine("MCP795W12")
ListView4.AddSingleLine("MCP795W20")
ListView4.AddSingleLine("MCP795W21")
ListView4.AddSingleLine("MCP795W22")
ListView4.AddSingleLine("PCF8583")

ListView5.SingleLineLayout.Label.TextColor = Colors.ARGB(255,108,178,230)
ListView5.AddSingleLine("STM32F103C8")
ListView5.AddSingleLine("STM32F103R8")
ListView5.AddSingleLine("STM32F103T8")
ListView5.AddSingleLine("STM32F103V8")
ListView5.AddSingleLine("STM32F103CB")
ListView5.AddSingleLine("STM32F103RB")
ListView5.AddSingleLine("STM32F103TB")
ListView5.AddSingleLine("STM32F103VB")

ListView5.AddSingleLine("STM32F411CC")
ListView5.AddSingleLine("STM32F411RC")
ListView5.AddSingleLine("STM32F411VC")
ListView5.AddSingleLine("STM32F411CE")
ListView5.AddSingleLine("STM32F411RE")
ListView5.AddSingleLine("STM32F411VE")

ListView5.AddSingleLine("STM32F446MC")
ListView5.AddSingleLine("STM32F446RC")
ListView5.AddSingleLine("STM32F446VC")
ListView5.AddSingleLine("STM32F446ZC")
ListView5.AddSingleLine("STM32F446ME")
ListView5.AddSingleLine("STM32F446RE")
ListView5.AddSingleLine("STM32F446VE")
ListView5.AddSingleLine("STM32F446ZE")

ListView5.AddSingleLine("STM32F427AG")
ListView5.AddSingleLine("STM32F427IG")
ListView5.AddSingleLine("STM32F427VG")
ListView5.AddSingleLine("STM32F427ZG")
ListView5.AddSingleLine("STM32F427AI")
ListView5.AddSingleLine("STM32F427II")
ListView5.AddSingleLine("STM32F427VI")
ListView5.AddSingleLine("STM32F427ZI")

ListView5.AddSingleLine("STM32F429BE")
ListView5.AddSingleLine("STM32F429IE")
ListView5.AddSingleLine("STM32F429NE")
ListView5.AddSingleLine("STM32F429VE")
ListView5.AddSingleLine("STM32F429ZE")
ListView5.AddSingleLine("STM32F429AG")
ListView5.AddSingleLine("STM32F429BG")
ListView5.AddSingleLine("STM32F429IG")
ListView5.AddSingleLine("STM32F429NG")
ListView5.AddSingleLine("STM32F429VG")
ListView5.AddSingleLine("STM32F429ZG")
ListView5.AddSingleLine("STM32F429AI")
ListView5.AddSingleLine("STM32F429BI")
ListView5.AddSingleLine("STM32F429II")
ListView5.AddSingleLine("STM32F429NI")
ListView5.AddSingleLine("STM32F429VI")
ListView5.AddSingleLine("STM32F429ZI")


ListView6.SingleLineLayout.Label.TextColor = Colors.ARGB(255,132,255,84)
ListView6.AddSingleLine("A8498")
ListView6.AddSingleLine("L200")
ListView6.AddSingleLine("L5970")
ListView6.AddSingleLine("LD1117")
ListView6.AddSingleLine("LM7805")
ListView6.AddSingleLine("LM7806")
ListView6.AddSingleLine("LM7808")
ListView6.AddSingleLine("LM7809")
ListView6.AddSingleLine("LM7810")
ListView6.AddSingleLine("LM7812")
ListView6.AddSingleLine("LM7815")
ListView6.AddSingleLine("LM7818")
ListView6.AddSingleLine("LM7824")
ListView6.AddSingleLine("LM138")
ListView6.AddSingleLine("LM338")
ListView6.AddSingleLine("LM317")
ListView6.AddSingleLine("LM337")
ListView6.AddSingleLine("LM1577")
ListView6.AddSingleLine("LM2576")
ListView6.AddSingleLine("LM2577")
ListView6.AddSingleLine("MAA723")
ListView6.AddSingleLine("UL7523")

ListView7.SingleLineLayout.Label.TextColor = Colors.ARGB(255,255,255,255)
ListView7.AddSingleLine("AT89C1051")
ListView7.AddSingleLine("AT89C2051")
ListView7.AddSingleLine("AT89C4051")
ListView7.AddSingleLine("AT89C51")
ListView7.AddSingleLine("AT89C52")
ListView7.AddSingleLine("AT89C55WD")

ListView8.SingleLineLayout.Label.TextColor = Colors.ARGB(255,0,38,255)
ListView8.AddSingleLine("AT24C01A")
ListView8.AddSingleLine("AT24C02")
ListView8.AddSingleLine("AT24C04")
ListView8.AddSingleLine("AT24C08")
ListView8.AddSingleLine("AT24C16")
ListView8.AddSingleLine("AT24C32")
ListView8.AddSingleLine("AT24C64")
ListView8.AddSingleLine("24LC02")
ListView8.AddSingleLine("24LC04")
End Sub

Sub Activity_Resume
t.Enabled = True
End Sub

Sub Activity_Pause (UserClosed As Boolean)
t.Enabled = False

End Sub


Sub ImageView1_Click
StartActivity(p.OpenBrowser("https://forum.atnel.pl/search.php?search_id=unreadposts"))
End Sub

Sub t_tick

batterystatus = bu.BatteryInformation
bv1.Level = batterystatus(0)
bv1.Level = batterystatus(0)
If batterystatus(8) = 1 Then
bv1.Charging = True
Else
bv1.Charging = False
End If

End Sub


Sub ImageView2_Click
vr.Prompt="Mów coś"
vr.Listen
End Sub

Sub ImageView3_Click
Panel1.Visible = True
Panel2.Visible = False
Panel3.Visible = False
Panel4.Visible = False
Panel5.Visible = False
Panel6.Visible = False
Panel7.Visible = False
Panel8.Visible = False
End Sub

Sub ImageView4_Click
StartActivity(p.OpenBrowser("http://www.jaglarz.info/android/Pelel/ksiega.php"))
End Sub

Sub ImageView5_Click
Panel1.Visible = False
Panel2.Visible = False
Panel3.Visible = False
Panel4.Visible = False
Panel5.Visible = True
Panel6.Visible = False
Panel7.Visible = False
Panel8.Visible = False
End Sub

Sub ListView1_ItemClick (Position As Int, Value As Object)
Panel1.Visible = False
wybrany = Value
wykryjatmege



End Sub

Sub Activity_Click
Panel1.Visible = False
Panel2.Visible = False
Panel3.Visible = False
Panel4.Visible = False
Panel5.Visible = False
Panel6.Visible = False
Panel7.Visible = False
Panel8.Visible = False
End Sub

Sub ImageView6_Click
Panel1.Visible = False
Panel2.Visible = True
Panel3.Visible = False
Panel4.Visible = False
Panel5.Visible = False
Panel6.Visible = False
Panel7.Visible = False
Panel8.Visible = False
End Sub



Sub ListView2_ItemClick (Position As Int, Value As Object)
Panel2.Visible = False
wybrany = Value
wykryjradio

End Sub

Sub ImageView7_Click
Panel3.Visible = True
Panel1.Visible = False
Panel2.Visible = False
Panel4.Visible = False
Panel5.Visible = False
Panel6.Visible = False
Panel7.Visible = False
Panel8.Visible = False
End Sub

Sub ImageView8_Click
Panel4.Visible = True
Panel1.Visible = False
Panel2.Visible = False
Panel3.Visible = False
Panel5.Visible = False
Panel6.Visible = False
Panel7.Visible = False
Panel8.Visible = False
End Sub

Sub ListView3_ItemClick (Position As Int, Value As Object)
Panel3.Visible = False
wybrany = Value
wykryjtemp

End Sub

Sub ImageView9_Click
Panel8.Visible = True
Panel1.Visible = False
Panel2.Visible = False
Panel3.Visible = False
Panel4.Visible = False
Panel5.Visible = False
Panel6.Visible = False
Panel7.Visible = False
End Sub

Sub ListView4_ItemClick (Position As Int, Value As Object)
Panel4.Visible = False
wybrany = Value
wykryjrtc

End Sub

Sub ListView5_ItemClick (Position As Int, Value As Object)

Panel5.Visible = False
wybrany = Value
wykryjSTM




End Sub

Sub ImageView10_Click
Panel1.Visible = False
Panel2.Visible = False
Panel3.Visible = False
Panel4.Visible = False
Panel5.Visible = False
Panel6.Visible = True
Panel7.Visible = False
Panel8.Visible = False
End Sub

Sub ListView6_ItemClick (Position As Int, Value As Object)
Panel6.Visible = False
wybrany = Value
wykryjstab

End Sub

Sub ImageView11_Click
Panel7.Visible = True
Panel1.Visible = False
Panel2.Visible = False
Panel3.Visible = False
Panel4.Visible = False
Panel5.Visible = False
Panel6.Visible = False
Panel8.Visible = False


End Sub

Sub ListView7_ItemClick (Position As Int, Value As Object)
Panel7.Visible = False
wybrany = Value
wykryjAT89

End Sub



Sub ListView8_ItemClick (Position As Int, Value As Object)
Panel8.Visible = False
wybrany = Value
wykryjeeprom



End Sub


Private Sub Timer1_Tick
H = DateTime.GetHour(DateTime.Now)
M = DateTime.GetMinute(DateTime.Now)
s = DateTime.GetSecond(DateTime.Now)
Label1.Text = H & ":" & M & ":"& s
End Sub


Sub vr_Result (Success As Boolean, Texts As List)
If Success Then
'EditText1.Text = Texts.Get(0)
wybrany = Texts.Get(0)
wykryjatmege
wykryjradio
wykryjrtc
wykryjtemp
wykryjAT89
wykryjeeprom
wykryjstab
wykryjSTM
stronywww


'Sound.Play(graj, 1, 1, 1 , 0, 0)

End If
End Sub



Private Sub wykryjatmege
Select wybrany
Case "Atmega8"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega8.pdf"))

Case "atmega8"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega8.pdf"))

Case "Atmega8A"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega8A.pdf"))

Case "atmega8a"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega8A.pdf"))

Case "Atmega16"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega16.pdf"))

Case "atmega16"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega16.pdf"))

Case "Atmega32"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega32.pdf"))

Case "atmega32"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega32.pdf"))

Case "Atmega32A"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega32A.pdf"))

Case "atmega32a"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega32A.pdf"))

Case "Atmega48"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega168%2C%20328.pdf"))

Case "atmega48"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega168%2C%20328.pdf"))

Case "Atmega64"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega64_64l.pdf"))

Case "atmega64"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega64_64l.pdf"))

Case "Atmega128"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega128_128l.pdf"))

Case "atmega128"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega128_128l.pdf"))

Case "Atmega168"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega168%2C%20328.pdf"))

Case "atmega168"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega168%2C%20328.pdf"))

Case "Atmega328"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega328l.pdf"))

Case "atmega328"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega328l.pdf"))

Case "atmega32 8"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega328l.pdf"))

Case "Atmega644"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega644_644v.pdf"))

Case "atmega644"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega644_644v.pdf"))

Case "atmega64 4"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega644_644v.pdf"))

Case "Atmega644A"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega164A_324A_644A_1284.pdf"))

Case "atmega644a"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega164A_324A_644A_1284.pdf"))

Case "atmega644 a"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega164A_324A_644A_1284.pdf"))

Case "atmega64 4a"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega164A_324A_644A_1284.pdf"))

Case "Atmega2560"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega640_1280_1281_2560_2561.pdf"))

Case "atmega2560"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega640_1280_1281_2560_2561.pdf"))

Case "atmega25 60"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega640_1280_1281_2560_2561.pdf"))

Case "atmega 25 60"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/ATmega/ATmega640_1280_1281_2560_2561.pdf"))

End Select

End Sub


Private Sub wykryjradio
Select wybrany
Case "ATNEL WiFi 232"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/ATNEL-WIFI232-T_PL.pdf"))

Case "atnel WiFi 232"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/ATNEL-WIFI232-T_PL.pdf"))

Case "BTM112"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/BTM112.pdf"))

Case "btm 112"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/BTM112.pdf"))

Case "BTM222"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/BTM222.pdf"))

Case "btm 222"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/BTM222.pdf"))

Case "CC1000"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/CC1000PP.pdf"))

Case "cc1000"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/CC1000PP.pdf"))

Case "DR3100"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/DR3100.pdf"))

Case "dr 3100"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/DR3100.pdf"))

Case "ESP8266"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/ESP8266.pdf"))

Case "ESP 8266"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/ESP8266.pdf"))

Case "sp82 66"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/ESP8266.pdf"))

Case "HC05"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/hc05.pdf"))

Case "hc-05"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/hc05.pdf"))

Case "HX1000"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/HX1000.pdf"))

Case "hx1000"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/HX1000.pdf"))

Case "HX1007"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/HX1007.pdf"))

Case "HX 1007"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/HX1007.pdf"))

Case "nRF24L01"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/nRF24L01.pdf"))

Case "nrf24 l01"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/nRF24L01.pdf"))

Case "RFM12"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/RFM12.pdf"))

Case "rfm12"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/RFM12.pdf"))

Case "RFM70"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/RFM70.pdf"))

Case "rfm70"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/RFM70.pdf"))

Case "rfm73"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/RFM73.pdf"))

Case "RFM73"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/RFM73.pdf"))

Case "RR4"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/rr4.pdf"))

Case "rr4"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/rr4.pdf"))

Case "RT2"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/rt2.pdf"))

Case "rt2"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/rt2.pdf"))

Case "RX1000"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/RX1000.pdf"))

Case "rx1000"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/RX1000.pdf"))

Case "RX1005"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/RX1005.pdf"))

Case "RX 1005"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/RX1005.pdf"))

Case "RX1010"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/RX1010.pdf"))

Case "RX 1010"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/RX1010.pdf"))

Case "rx10 10"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/RX1010.pdf"))

Case "RX1020"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/RX1020.pdf"))

Case "rx10 20"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/RX1020.pdf"))

Case "RX 1020"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/RX1020.pdf"))

Case "RX5000"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/RX5000.pdf"))

Case "RX 5000"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/RX5000.pdf"))

Case "RX5500"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/RX5500.pdf"))

Case "RX 5500"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/RX5500.pdf"))

Case "TR3000"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/TR3000.pdf"))

Case "TR 3000"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/TR3000.pdf"))

Case "TX5000"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/TX5000.pdf"))

Case "TX 5000"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/TX5000.pdf"))

Case "dx5000"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/Radio/TX5000.pdf"))
End Select


End Sub

Private Sub wykryjrtc
Select wybrany


Case "DS1302"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1302.pdf"))

Case "ds 13 02"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1302.pdf"))

Case "ds1302"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1302.pdf"))

Case "ds 1302"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1302.pdf"))

Case "DS1305"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1305.pdf"))

Case "ds 13 05"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1305.pdf"))

Case "DS 1305"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1305.pdf"))

Case "ds1305"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1305.pdf"))

Case "DS1307"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1307.pdf"))

Case "ds 13 07"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1307.pdf"))

Case "ds1307"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1307.pdf"))

Case "DS1318"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1318.pdf"))

Case "DS 1318"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1318.pdf"))

Case "DS 13 18"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1318.pdf"))

Case "DS1337"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1337.pdf"))

Case "ds 1337"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1337.pdf"))

Case "ds1337"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1337.pdf"))

Case "DS1339"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1339u33.pdf"))

Case "DS 1339"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1339u33.pdf"))

Case "ds1339"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1339u33.pdf"))

Case "DS1390"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1390.pdf"))

Case "DS 13 90"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1390.pdf"))

Case "ds 1390"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1390.pdf"))

Case "ds1390"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1390.pdf"))

Case "DS1391"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1390.pdf"))

Case "DS 1391"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1390.pdf"))

Case "ds1391"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1390.pdf"))

Case "DS1392"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1390.pdf"))

Case "DS 1392"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1390.pdf"))

Case "ds1392"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1390.pdf"))

Case "ds 1392"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1390.pdf"))

Case "DS1393"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1390.pdf"))

Case "ds1393"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1390.pdf"))

Case "DS 1393"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1390.pdf"))

Case "ds 1393"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1390.pdf"))

Case "DS1501"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/DS1501-1511.pdf"))

Case "ds1501"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/DS1501-1511.pdf"))

Case "DS 1501"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/DS1501-1511.pdf"))

Case "ds 1501"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/DS1501-1511.pdf"))

Case "DS1511"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/DS1501-1511.pdf"))

Case "ds 15 01"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/DS1501-1511.pdf"))

Case "DS1672"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1672.pdf"))

Case "ds 1672"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1672.pdf"))

Case "ds1672"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1672.pdf"))

Case "ds 16 72"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1672.pdf"))

Case "DS1682"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1682.pdf"))

Case "DS 1682"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1682.pdf"))

Case "ds 1682"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1682.pdf"))

Case "ds 16 82"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds1682.pdf"))

Case "DS3231"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/DS3231M.pdf"))

Case "DS 3231"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/DS3231M.pdf"))

Case "ds3231"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/DS3231M.pdf"))

Case "ds 3231"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/DS3231M.pdf"))

Case "DS3232"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds3232m.pdf"))

Case "ds3232"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds3232m.pdf"))

Case "ds 3232"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds3232m.pdf"))

Case "ds 32 32"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds3232m.pdf"))

Case "DS12885"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds12885-887a.pdf"))

Case "ds12885"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds12885-887a.pdf"))

Case "ds 12885"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds12885-887a.pdf"))

Case "ds 128 85"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds12885-887a.pdf"))

Case "DS12887"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds12885-887a.pdf"))

Case "ds12887"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds12885-887a.pdf"))

Case "ds 12887"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds12885-887a.pdf"))

Case "ds 128 87"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds12885-887a.pdf"))

Case "DS12C887"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds12885-887a.pdf"))

Case "ds 12 C 887"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds12885-887a.pdf"))

Case "ds 12C 887"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/ds12885-887a.pdf"))

Case "MCP79400"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79400_1_2.pdf"))

Case "mcp79 400"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79400_1_2.pdf"))

Case "MCP 79400"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79400_1_2.pdf"))

Case "MCP 790 400"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79400_1_2.pdf"))

Case "MCP79401"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79400_1_2.pdf"))

Case "mcp79 401"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79400_1_2.pdf"))

Case "MCP 79401"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79400_1_2.pdf"))

Case "mcp 794 01"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79400_1_2.pdf"))

Case "MCP79402"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79400_1_2.pdf"))

Case "mcp79 402"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79400_1_2.pdf"))

Case "MCP 79402"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79400_1_2.pdf"))

Case "MCP 794 02"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79400_1_2.pdf"))

Case "mcp79402"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79400_1_2.pdf"))

Case "MCP79410"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79410_11_12.pdf"))

Case "MCP 79410"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79410_11_12.pdf"))

Case "mcp79410"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79410_11_12.pdf"))

Case "mcp 79410"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79410_11_12.pdf"))

Case "MCP 794 10"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79410_11_12.pdf"))

Case "mcp 794 10"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79410_11_12.pdf"))

Case "MCP79411"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79410_11_12.pdf"))

Case "mcp79411"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79410_11_12.pdf"))

Case "MCP 79411"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79410_11_12.pdf"))

Case "mcp 79411"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79410_11_12.pdf"))

Case "MCP 79 411"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79410_11_12.pdf"))

Case "mcp 794 11"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79410_11_12.pdf"))

Case "MCP79412"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79410_11_12.pdf"))

Case "MCP 79412"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79410_11_12.pdf"))

Case "mcp79412"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79410_11_12.pdf"))

Case "mcp 79412"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79410_11_12.pdf"))

Case "mcp 794 12"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp79410_11_12.pdf"))

Case "MCP795W10"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp795w1x_w2x.pdf"))

Case "mcp795W10"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp795w1x_w2x.pdf"))

Case "MCP 795 w 10"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp795w1x_w2x.pdf"))

Case "MCP795W11"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp795w1x_w2x.pdf"))

Case "MCP 795 W 11"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp795w1x_w2x.pdf"))

Case "MCP 795 w 11"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp795w1x_w2x.pdf"))


Case "MCP795W12"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp795w1x_w2x.pdf"))

Case "mcp795W12"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp795w1x_w2x.pdf"))

Case "MCP 795 W 12"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp795w1x_w2x.pdf"))

Case "MCP 795 w 12"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp795w1x_w2x.pdf"))

Case "mcp 795 w 12"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp795w1x_w2x.pdf"))

Case "MCP795W20"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp795w1x_w2x.pdf"))

Case "MCP 795 W 20"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp795w1x_w2x.pdf"))

Case "mcp 795 w 20"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp795w1x_w2x.pdf"))

Case "mcp795w20"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp795w1x_w2x.pdf"))

Case "MCP795W21"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp795w1x_w2x.pdf"))

Case "MCP 795 W 21"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp795w1x_w2x.pdf"))

Case "mcp795w21"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp795w1x_w2x.pdf"))

Case "mcp 79 w 21"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp795w1x_w2x.pdf"))

Case "MCP795W22"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp795w1x_w2x.pdf"))

Case "mcp795w22"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp795w1x_w2x.pdf"))

Case "MCP 795 W 22"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp795w1x_w2x.pdf"))

Case "mcp 795 w 22"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/mcp795w1x_w2x.pdf"))

Case "PCF8583"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/PCF8583.pdf"))

Case "pcf8583"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/PCF8583.pdf"))

Case "pcf 8583"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/RTC/PCF8583.pdf"))



End Select

End Sub

Private Sub stronywww
Select wybrany

Case "forum atnel"
StartActivity(p.OpenBrowser("https://forum.atnel.pl/search.php?search_id=unreadposts"))

Case "sklep atnel"
StartActivity(p.OpenBrowser("https://sklep.atnel.pl"))

Case "onet"
StartActivity(p.OpenBrowser("https://www.onet.pl"))

Case "Onet"
StartActivity(p.OpenBrowser("https://www.onet.pl"))

Case "interia"
StartActivity(p.OpenBrowser("https://www.interia.pl"))

Case "Interia"
StartActivity(p.OpenBrowser("https://www.interia.pl"))

Case "morele"
StartActivity(p.OpenBrowser("https://www.morele.net"))

Case "sklep Morele"
StartActivity(p.OpenBrowser("https://www.morele.net"))


Case "x-kom"
StartActivity(p.OpenBrowser("https://www.x-kom.pl"))

Case "Empik"
StartActivity(p.OpenBrowser("https://www.empik.com"))

Case "bonito"
StartActivity(p.OpenBrowser("https://bonito.pl"))


Case "komputronik"
StartActivity(p.OpenBrowser("https://www.komputronik.pl"))

Case "demoty"
StartActivity(p.OpenBrowser("https://demotywatory.pl"))

Case "Demotywatory"
StartActivity(p.OpenBrowser("https://demotywatory.pl"))

Case "Wikipedia"
StartActivity(p.OpenBrowser("https://pl.wikipedia.org/wiki/Wikipedia:Strona_główna"))

Case "Youtube"
StartActivity(p.OpenBrowser("https://www.youtube.com"))

Case "Facebook"
StartActivity(p.OpenBrowser("https://www.facebook.com"))

Case "Allegro"
StartActivity(p.OpenBrowser("https://allegro.pl"))

Case "Olx"
StartActivity(p.OpenBrowser("https://www.olx.pl"))

Case "OLX"
StartActivity(p.OpenBrowser("https://www.olx.pl"))

Case "Chip"
StartActivity(p.OpenBrowser("https://www.chip.pl"))

Case "Czip"
StartActivity(p.OpenBrowser("https://www.chip.pl"))

Case "Komputer Świat"
StartActivity(p.OpenBrowser("https://www.komputerswiat.pl"))

Case "Ceneo"
StartActivity(p.OpenBrowser("https://www.ceneo.pl"))

Case "Piekielni"
StartActivity(p.OpenBrowser("https://piekielni.pl"))

Case "piekielni"
StartActivity(p.OpenBrowser("https://piekielni.pl"))

Case "Google"
StartActivity(p.OpenBrowser("https://www.google.pl"))

Case "Niebezpiecznik"
StartActivity(p.OpenBrowser("https://niebezpiecznik.pl"))

Case "Gazeta"
StartActivity(p.OpenBrowser("http://www.gazeta.pl/0,0.html"))

Case "gazeta"
StartActivity(p.OpenBrowser("http://www.gazeta.pl/0,0.html"))

Case "gazeta.pl"
StartActivity(p.OpenBrowser("http://www.gazeta.pl/0,0.html"))

Case "TME"
StartActivity(p.OpenBrowser("https://www.tme.eu/pl/katalog/"))


End Select

End Sub




Sub wykryjAT89

Select wybrany
Case "AT89C1051"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/AT89/AT89C1051.pdf"))

Case "at 89c 1051"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/AT89/AT89C1051.pdf"))

Case "at89 c1051"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/AT89/AT89C1051.pdf"))

Case "AT89C2051"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/AT89/AT89C2051.pdf"))

Case "at 89c 2051"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/AT89/AT89C2051.pdf"))

Case "at89 c2051"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/AT89/AT89C2051.pdf"))

Case "at 89c 4051"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/AT89/AT89C4051.pdf"))

Case "at89 c4051"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/AT89/AT89C4051.pdf"))

Case "AT89C4051"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/AT89/AT89C4051.pdf"))

Case "at89 C40 51"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/AT89/AT89C4051.pdf"))

Case "AT89C51"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/AT89/AT89C51.pdf"))

Case "at89 c51"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/AT89/AT89C51.pdf"))

Case "at 89c51"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/AT89/AT89C51.pdf"))

Case "AT89C52"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/AT89/AT89C52.pdf"))

Case "at 89c52"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/AT89/AT89C52.pdf"))

Case "at89 c52"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/AT89/AT89C52.pdf"))

Case "AT89C55WD"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/AT89/AT89C55WD.pdf"))

Case "at89 c55 WD"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/AT89/AT89C55WD.pdf"))

Case "at89 c55wd"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/AT89/AT89C55WD.pdf"))



End Select

End Sub

Sub wykryjeeprom

Select wybrany
Case "AT24C01A"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C16.pdf"))

Case "at24 c01 a"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C16.pdf"))

Case "at24C01a"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C16.pdf"))

Case "at 24 c 01 a"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C16.pdf"))

Case "AT24C02"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C16.pdf"))

Case "at24 c02"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C16.pdf"))

Case "at24c02"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C16.pdf"))

Case "AT24C04"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C16.pdf"))

Case "at24 c04"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C16.pdf"))

Case "at24c04"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C16.pdf"))

Case "AT24C08"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C16.pdf"))

Case "at24 c08"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C16.pdf"))

Case "at24c08"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C16.pdf"))

Case "AT24C16"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C16.pdf"))

Case "at24 C16"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C16.pdf"))

Case "at24c16"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C16.pdf"))

Case "at 24c16"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C16.pdf"))

Case "AT24C32"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C32.pdf"))

Case "at24 c32"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C32.pdf"))

Case "at24c32"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C32.pdf"))

Case "at 24 c32"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C32.pdf"))

Case "AT24C64"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C32.pdf"))

Case "at24 c64"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C32.pdf"))

Case "at24c64"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C32.pdf"))

Case "at 24 c64"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24C32.pdf"))

Case "24LC02"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24LC02.pdf"))

Case "24 lc02"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24LC02.pdf"))

Case "24lc02"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24LC02.pdf"))

Case "24 lc 02"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24LC02.pdf"))

Case "24LC04"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24LC04.pdf"))

Case "24 LC 04"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24LC04.pdf"))

Case "24lc04"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24LC04.pdf"))

Case "24 lc04"
StartActivity(p.OpenBrowser("http://www.jaglarz.info/pdfelementy/EEPROM/24LC04.pdf"))



End Select


End Sub[/syntax]

Listing nie pełny ze względu na ograniczenie wielkości tematu.

Statystyki: Napisane przez Jaglarz — 27 lis 2018, o 13:44

]]>